Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/simulator.asm @ 44:475a9e536d77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.63beta release
author heinrichsweikamp
date Thu, 01 Jul 2010 17:45:01 +0200
parents 92001c045088
children 8457bb96b860
comparison
equal deleted inserted replaced
43:65d5b0c8da41 44:475a9e536d77
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
155 ostc_debug 'T' ; Sends debug-information to screen if debugmode active 156 ostc_debug 'T' ; Sends debug-information to screen if debugmode active
156 return 157 return
157 158
158 simulator_restore_tissue_data: 159 simulator_restore_tissue_data:
159 bcf restore_deco_data ; clear restore flag 160 bcf restore_deco_data ; clear restore flag
160 ostc_debug 'S' ; Sends debug-information to screen if debugmode active 161 ostc_debug 'S' ; Sends debug-information to screen if debugmode active
161 call main_pull_tissues_from_vault 162 call main_pull_tissues_from_vault
162 movlb 0x01 ; Back to RAM Bank1 163 movlb 0x01 ; Back to RAM Bank1
164 movff temp7,char_O_CNS_fraction ; Reset CNS to real value
163 ostc_debug 'T' ; Sends debug-information to screen if debugmode active 165 ostc_debug 'T' ; Sends debug-information to screen if debugmode active
164 166
165 ostc_debug 'G' ; Sends debug-information to screen if debugmode active 167 ostc_debug 'G' ; Sends debug-information to screen if debugmode active
166 call deco_main_calc_desaturation_time ; calculate desaturation time 168 call deco_main_calc_desaturation_time ; calculate desaturation time
167 movlb b'00000001' ; select ram bank 1 169 movlb b'00000001' ; select ram bank 1