Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_reset.asm @ 507:ed51a7a89d9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor cleanups for TESTING mode
author JeanDo
date Sun, 20 Nov 2011 22:52:09 +0100
parents 19b9e19ea4da
children b498245da3f1
comparison
equal deleted inserted replaced
506:ab819be6193f 507:ed51a7a89d9a
308 bra do_menu_reset_all2 ; Reset all now! 308 bra do_menu_reset_all2 ; Reset all now!
309 bra do_menu_reset_exit ; Cancel! 309 bra do_menu_reset_exit ; Cancel!
310 310
311 do_menu_reset_all2: 311 do_menu_reset_all2:
312 call PLED_ClearScreen 312 call PLED_ClearScreen
313 DISPLAYTEXT .25 ; "Reset..." 313 DISPLAYTEXT .25 ; "Reset..."
314 314
315 reset_start: 315 reset_start:
316 ; reset deco data 316 ; reset deco data
317 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy surface air pressure to deco routine 317 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy surface air pressure to deco routine
318 call deco_clear_tissue ; Reset Decodata 318 call deco_clear_tissue ; Reset Decodata
323 clrf nofly_time+1 ; Reset NoFly 323 clrf nofly_time+1 ; Reset NoFly
324 bcf nofly_active ; Clear flag 324 bcf nofly_active ; Clear flag
325 325
326 ; reset gases 326 ; reset gases
327 rcall reset_gases 327 rcall reset_gases
328 rcall reset_all_cf
329 goto restart ; all reset, quit to surfmode
328 330
329 reset_all_cf: 331 reset_all_cf:
330 movlw d'1' 332 movlw d'1'
331 movwf EEDATA 333 movwf EEDATA
332 write_int_eeprom d'33' ; reset start gas 334 write_int_eeprom d'33' ; reset start gas
414 416
415 cf_bank1_end: 417 cf_bank1_end:
416 clrf EEADRH ; EEPROM BANK 0 ! 418 clrf EEADRH ; EEPROM BANK 0 !
417 419
418 ;call reset_external_eeprom ; delete profile memory 420 ;call reset_external_eeprom ; delete profile memory
419 goto restart ; all reset, quit to surfmode 421 return
420 422
421 reset_gases: 423 reset_gases:
422 clrf EEADRH ; EEPROM BANK 0 ! 424 clrf EEADRH ; EEPROM BANK 0 !
423 425
424 movlw d'3' ; address of first gas-1 426 movlw d'3' ; address of first gas-1