Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 324:a86c9d1219ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ppO2 diluent (flush) color coded
author Heinrichsweikamp
date Sat, 07 May 2011 09:26:47 +0200
parents b7940978edc9
children 4a28d7a1c620
comparison
equal deleted inserted replaced
323:b7940978edc9 324:a86c9d1219ce
3103 3103
3104 WIN_LEFT .95 3104 WIN_LEFT .95
3105 WIN_TOP .168 3105 WIN_TOP .168
3106 call PLED_divemask_color ; Set Color for Divemode mask 3106 call PLED_divemask_color ; Set Color for Divemode mask
3107 STRCPY_PRINT "ppO2:" ; ppO2 of diluent 3107 STRCPY_PRINT "ppO2:" ; ppO2 of diluent
3108 call PLED_standard_color 3108
3109 movff char_O_flush_ppO2,WREG ; copy to WREG
3110 mullw .100
3111 movff PRODH,xC+1
3112 movff PRODL,xC+0 ; For color code
3113 PLED_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
3109 3114
3110 WIN_LEFT .130 3115 WIN_LEFT .130
3111 WIN_TOP .168 3116 WIN_TOP .168
3112 3117
3113 movff char_O_flush_ppO2, lo 3118 movff char_O_flush_ppO2, lo
3114 incf lo,W ; ppO2 == 2.55 ? 3119 incf lo,W ; ppO2 == 2.55 ?
3115 bnz PLED_show_end_ead_divemode_1 3120 bnz PLED_show_end_ead_divemode_1
3116 3121
3117 STRCPY_PRINT "----" ; YES: mark overflow. 3122 STRCPY_PRINT "----" ; YES: mark overflow.
3123 call PLED_standard_color ; Back to white.
3124
3118 return 3125 return
3119 3126
3120 PLED_show_end_ead_divemode_1: 3127 PLED_show_end_ead_divemode_1:
3121 lfsr FSR2,letter 3128 lfsr FSR2,letter
3122 clrf hi 3129 clrf hi