Mercurial > public > hwos_code

comparison src/gaslist.asm @ 50:ec4d8503ec45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
NEW: user-selectable color schemes
author heinrichsweikamp
date Fri, 27 Sep 2013 23:45:57 +0200
parents 440e537e19d6
children 3dfc2b7ced6d
comparison
equal deleted inserted replaced
49:fe01bbaf6014 50:ec4d8503ec45
169 movlw .0 169 movlw .0
170 movff WREG,win_invert 170 movff WREG,win_invert
171 incf gaslist_gas,W ; gaslist_gas+1 -> WREG 171 incf gaslist_gas,W ; gaslist_gas+1 -> WREG
172 cpfseq better_gas_number ; 1-5 for OC/Bailout and 6-10 for diluents 172 cpfseq better_gas_number ; 1-5 for OC/Bailout and 6-10 for diluents
173 return 173 return
174 movlw color_yellow ; show in yellow 174 call TFT_attention_color ; show in yellow
175 call TFT_set_color
176 movlw .1 175 movlw .1
177 movff WREG,win_invert ; and invert 176 movff WREG,win_invert ; and invert
178 return 177 return
179 178
180 global gaslist_strcat_gas_mod 179 global gaslist_strcat_gas_mod
222 lfsr FSR1,char_I_deco_gas_change 221 lfsr FSR1,char_I_deco_gas_change
223 movff PLUSW1,lo 222 movff PLUSW1,lo
224 rcall gaslist_calc_mod ; Compute MOD into WREG 223 rcall gaslist_calc_mod ; Compute MOD into WREG
225 cpfsgt lo 224 cpfsgt lo
226 bra gaslist_strcat_4 225 bra gaslist_strcat_4
227 TFT_WARNINGS_COLOR ; Turn red if bigger 226 call TFT_warnings_color ; Turn red if bigger
228 gaslist_strcat_4: 227 gaslist_strcat_4:
229 TSTOSS opt_units ; 0=Meters, 1=Feets 228 TSTOSS opt_units ; 0=Meters, 1=Feets
230 bra gaslist_strcat_3_metric 229 bra gaslist_strcat_3_metric
231 ;gaslist_strcat_3_imperial: 230 ;gaslist_strcat_3_imperial:
232 movf lo,W 231 movf lo,W
613 movf gaslist_gas,W ; Compare to switch depth 612 movf gaslist_gas,W ; Compare to switch depth
614 lfsr FSR1,char_I_deco_gas_change 613 lfsr FSR1,char_I_deco_gas_change
615 movf PLUSW1,W 614 movf PLUSW1,W
616 cpfslt lo 615 cpfslt lo
617 bra gaslist_strcat_4 ; And return... 616 bra gaslist_strcat_4 ; And return...
618 TFT_WARNINGS_COLOR ; Turn red if bigger ! 617 call TFT_warnings_color ; Turn red if bigger !
619 bra gaslist_strcat_4 ; And return... 618 bra gaslist_strcat_4 ; And return...
620 619
621 ;---------------------------------------------------------------------------- 620 ;----------------------------------------------------------------------------
622 global gaslist_reset_mod 621 global gaslist_reset_mod
623 gaslist_reset_mod: 622 gaslist_reset_mod: