Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_gassetup.asm @ 115:50a06adabc67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First gas is active, Gauge mode display
author heinrichsweikamp
date Fri, 24 Dec 2010 15:40:27 +0100
parents 64109f6fb3d1
children e0f29e20bd24
comparison
equal deleted inserted replaced
114:e39a6415df3d 115:50a06adabc67
883 movff decodata+0,EEDATA ; current gas (0-4) into EEDATA 883 movff decodata+0,EEDATA ; current gas (0-4) into EEDATA
884 incf EEDATA,F ; current gas (1-5) into EEDATA 884 incf EEDATA,F ; current gas (1-5) into EEDATA
885 movlw d'33' 885 movlw d'33'
886 movwf EEADR 886 movwf EEADR
887 call write_eeprom ; store in internal EEPROM 887 call write_eeprom ; store in internal EEPROM
888
889 ; Set First gas to "Active"
890 read_int_eeprom d'27' ; read flag register
891 movff decodata+0,lo ; selected gas 0-4
892 incf lo,F
893 dcfsnz lo,F
894 bsf EEDATA,0
895 dcfsnz lo,F
896 bsf EEDATA,1
897 dcfsnz lo,F
898 bsf EEDATA,2
899 dcfsnz lo,F
900 bsf EEDATA,3
901 dcfsnz lo,F
902 bsf EEDATA,4
903 write_int_eeprom d'27' ; write flag register
904
888 movlw d'3' 905 movlw d'3'
889 movwf menupos 906 movwf menupos
890 bra next_gas_page1 907 bra next_gas_page1
891 908
892 toggle_active_gas: 909 toggle_active_gas:
1158 1175
1159 WIN_LEFT .55 1176 WIN_LEFT .55
1160 WIN_TOP .35 1177 WIN_TOP .35
1161 lfsr FSR2,letter 1178 lfsr FSR2,letter
1162 OUTPUTTEXT d'149' ; (ppO2: 1179 OUTPUTTEXT d'149' ; (ppO2:
1163 ; movlw '('
1164 ; movwf POSTINC2
1165 ; movlw 'p'
1166 ; movwf POSTINC2
1167 ; movlw 'p'
1168 ; movwf POSTINC2
1169 ; movlw 'O'
1170 ; movwf POSTINC2
1171 ; movlw '2'
1172 ; movwf POSTINC2
1173 ; movlw ':'
1174 ; movwf POSTINC2
1175 output_16dp d'3' 1180 output_16dp d'3'
1176 OUTPUTTEXT d'150' ; Bar: 1181 OUTPUTTEXT d'150' ; Bar:
1177 ; movlw 'B'
1178 ; movwf POSTINC2
1179 ; movlw 'a'
1180 ; movwf POSTINC2
1181 ; movlw 'r'
1182 ; movwf POSTINC2
1183 ; movlw ')'
1184 ; movwf POSTINC2
1185 ; movlw ' '
1186 ; movwf POSTINC2
1187 call word_processor 1182 call word_processor
1188 return 1183 return
1189 1184
1190 1185
1191 gassetup_sort_gaslist: ; Sorts Gaslist according to change depth 1186 gassetup_sort_gaslist: ; Sorts Gaslist according to change depth