Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_gassetup.asm @ 376:ed26990716fe 64kByte Logbook

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first gas does not reset change depth, display fix with multigas dives in logbook
author heinrichsweikamp
date Sun, 12 Jun 2011 21:27:07 +0200
parents 6bdf80d7276c
children be71e563ac09
comparison
equal deleted inserted replaced
375:84a1762de6ab 376:ed26990716fe
651 bra menu_firstgas0 ; no, display three spaces 651 bra menu_firstgas0 ; no, display three spaces
652 652
653 OUTPUTTEXT .96 ; Yes 653 OUTPUTTEXT .96 ; Yes
654 bsf second_FA ; Is first gas 654 bsf second_FA ; Is first gas
655 655
656 movf decodata+0,W ; read current value 656 ; Do not reset change depth (Kind request from Pascal)!
657 addlw d'28' ; offset in memory 657 ; movf decodata+0,W ; read current value
658 movwf EEADR 658 ; addlw d'28' ; offset in memory
659 call read_eeprom ; Low-value 659 ; movwf EEADR
660 clrf EEDATA ; Set change depth to zero 660 ; call read_eeprom ; Low-value
661 call write_eeprom ; save result in EEPROM 661 ; clrf EEDATA ; Set change depth to zero
662 662 ; call write_eeprom ; save result in EEPROM
663 ;
663 bra menu_firstgas1 664 bra menu_firstgas1
664 665
665 menu_firstgas0: 666 menu_firstgas0:
666 bcf second_FA ; Is not first gas 667 bcf second_FA ; Is not first gas
667 STRCAT " " ; 3 spaces. 668 STRCAT " " ; 3 spaces.