Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/simulator.asm @ 46:8457bb96b860

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.65beta release
author heinrichsweikamp
date Wed, 14 Jul 2010 14:01:34 +0200
parents 475a9e536d77
children 56aea9fcdd8f
comparison
equal deleted inserted replaced
45:985607cfb813 46:8457bb96b860
150 simulator_save_tissue_data: 150 simulator_save_tissue_data:
151 bsf restore_deco_data ; Set restore flag 151 bsf restore_deco_data ; Set restore flag
152 ostc_debug 'S' ; Sends debug-information to screen if debugmode active 152 ostc_debug 'S' ; Sends debug-information to screen if debugmode active
153 call main_push_tissues_to_vault 153 call main_push_tissues_to_vault
154 movlb 0x01 ; Back to RAM Bank1 154 movlb 0x01 ; Back to RAM Bank1
155 movff char_O_CNS_fraction,temp7 ; Store CNS
156 ostc_debug 'T' ; Sends debug-information to screen if debugmode active 155 ostc_debug 'T' ; Sends debug-information to screen if debugmode active
157 return 156 return
158 157
159 simulator_restore_tissue_data: 158 simulator_restore_tissue_data:
160 bcf restore_deco_data ; clear restore flag 159 bcf restore_deco_data ; clear restore flag
161 ostc_debug 'S' ; Sends debug-information to screen if debugmode active 160 ostc_debug 'S' ; Sends debug-information to screen if debugmode active
162 call main_pull_tissues_from_vault 161 call main_pull_tissues_from_vault
163 movlb 0x01 ; Back to RAM Bank1 162 movlb 0x01 ; Back to RAM Bank1
164 movff temp7,char_O_CNS_fraction ; Reset CNS to real value
165 ostc_debug 'T' ; Sends debug-information to screen if debugmode active 163 ostc_debug 'T' ; Sends debug-information to screen if debugmode active
166 164
167 ostc_debug 'G' ; Sends debug-information to screen if debugmode active 165 ostc_debug 'G' ; Sends debug-information to screen if debugmode active
168 call deco_main_calc_desaturation_time ; calculate desaturation time 166 call deco_main_calc_desaturation_time ; calculate desaturation time
169 movlb b'00000001' ; select ram bank 1 167 movlb b'00000001' ; select ram bank 1