Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 403:5b560559bc1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gas change blink in yellow
author heinrichsweikamp
date Tue, 28 Jun 2011 22:37:02 +0200
parents e565392e0fcc
children 2534277be060
comparison
equal deleted inserted replaced
402:e565392e0fcc 403:5b560559bc1a
1078 return ; No, Done. 1078 return ; No, Done.
1079 1079
1080 btg blinking_better_gas ; Toggle blink bit... 1080 btg blinking_better_gas ; Toggle blink bit...
1081 btfss blinking_better_gas ; blink now? 1081 btfss blinking_better_gas ; blink now?
1082 return ; No, Done. 1082 return ; No, Done.
1083 movlw color_yellow ; Blink in yellow
1084 call PLED_set_color
1083 WIN_INVERT .1 ; Init new Wordprocessor 1085 WIN_INVERT .1 ; Init new Wordprocessor
1084 call PLED_active_gas_divemode_show ; Show gas (Non-Inverted in all cases) 1086 call PLED_active_gas_divemode_show1 ; Show gas (Non-Inverted in all cases)
1085 WIN_INVERT .0 ; Init new Wordprocessor 1087 WIN_INVERT .0 ; Init new Wordprocessor
1088 call PLED_standard_color
1086 return ; Done. 1089 return ; Done.
1087 1090
1088 PLED_active_gas_divemode_show: 1091 PLED_active_gas_divemode_show:
1092 call PLED_standard_color
1093 PLED_active_gas_divemode_show1:
1089 ostc_debug 's' ; Sends debug-information to screen if debugmode active 1094 ostc_debug 's' ; Sends debug-information to screen if debugmode active
1090 ; gas 1095 ; gas
1091 WIN_TOP .192 1096 WIN_TOP .192
1092 WIN_LEFT .50 1097 WIN_LEFT .50
1093 WIN_FONT FT_SMALL 1098 WIN_FONT FT_SMALL
1094 call PLED_standard_color
1095 1099
1096 movlw d'100' ; 100% in the tank 1100 movlw d'100' ; 100% in the tank
1097 movff char_I_N2_ratio,lo ; minus N2 1101 movff char_I_N2_ratio,lo ; minus N2
1098 bsf STATUS,C ; set borrow bit 1102 bsf STATUS,C ; set borrow bit
1099 subfwb lo,W 1103 subfwb lo,W
1126 PUTC ' ' 1130 PUTC ' '
1127 clrf WREG ; Allow up to 5 chars to avoid 1131 clrf WREG ; Allow up to 5 chars to avoid
1128 movff WREG,letter+5 ; collision with sat graphs 1132 movff WREG,letter+5 ; collision with sat graphs
1129 bcf leftbind 1133 bcf leftbind
1130 call word_processor 1134 call word_processor
1131 ; rcall PLED_active_better_gas ; show *, if required
1132 ; return
1133 PLED_active_better_gas: 1135 PLED_active_better_gas:
1134 WIN_TOP .192 1136 WIN_TOP .192
1135 WIN_LEFT .43 1137 WIN_LEFT .43
1136 WIN_FONT FT_SMALL 1138 WIN_FONT FT_SMALL
1137 call PLED_standard_color
1138 lfsr FSR2,letter 1139 lfsr FSR2,letter
1139 movlw ' ' 1140 movlw ' '
1140 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode 1141 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
1141 movlw '*' 1142 movlw '*'
1142 movwf POSTINC2 1143 movwf POSTINC2