Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 396:0386c7e1374a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
BUGFIX display hypoxic air in divemode (bug #41)
author JeanDo
date Thu, 23 Jun 2011 01:41:39 +0200
parents deced1cacff7
children 6f7965ec5f49 ab962c4b19d6
comparison
equal deleted inserted replaced
395:0e0cf4701c17 396:0386c7e1374a
1102 bra PLED_active_gas_divemode3 ; Skip He check, display gas 1102 bra PLED_active_gas_divemode3 ; Skip He check, display gas
1103 1103
1104 PLED_active_gas_divemode2: 1104 PLED_active_gas_divemode2:
1105 tstfsz hi ; He = 0 % 1105 tstfsz hi ; He = 0 %
1106 bra PLED_active_gas_divemode3 ; display gas 1106 bra PLED_active_gas_divemode3 ; display gas
1107 ; O2 below treshold, He=0 -> Skip display! 1107
1108 movlw d'5' 1108 call PLED_warnings_color ; O2 below treshold, He=0 : Bad stuff !
1109 movwf temp1 1109 bra PLED_active_gas_divemode4
1110 bra PLED_display_clear_common_y1 ; also returns!
1111 1110
1112 PLED_active_gas_divemode3: 1111 PLED_active_gas_divemode3:
1113 movlw d'21' 1112 movlw d'21'
1114 cpfseq lo ; Air? (O2=21%) 1113 cpfseq lo ; Air? (O2=21%)
1115 bra PLED_active_gas_divemode4 ; No! 1114 bra PLED_active_gas_divemode4 ; No!
1150 clrf WREG ; Allow up to 5 chars to avoid 1149 clrf WREG ; Allow up to 5 chars to avoid
1151 movff WREG,letter+5 ; collision with sat graphs 1150 movff WREG,letter+5 ; collision with sat graphs
1152 bcf leftbind 1151 bcf leftbind
1153 call word_processor 1152 call word_processor
1154 rcall PLED_active_better_gas ; show *, if required 1153 rcall PLED_active_better_gas ; show *, if required
1154 call PLED_standard_color ; Back to normal (if O2<21 and He=0)
1155 return 1155 return
1156 1156
1157 PLED_display_decotype_surface: 1157 PLED_display_decotype_surface:
1158 WIN_LEFT .85 1158 WIN_LEFT .85
1159 WIN_FONT FT_SMALL 1159 WIN_FONT FT_SMALL