Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 323:b7940978edc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix "Future TTS" display customview. * Display "---" during wait. * Display ascent when there is no stops.
author JeanDo
date Sat, 07 May 2011 00:52:20 +0200
parents 676d18bce8d7
children a86c9d1219ce
comparison
equal deleted inserted replaced
322:676d18bce8d7 323:b7940978edc9
3129 3129
3130 ;============================================================================= 3130 ;=============================================================================
3131 ; Display TTS after extra time at the same depth. 3131 ; Display TTS after extra time at the same depth.
3132 ; 3132 ;
3133 PLED_show_@5: 3133 PLED_show_@5:
3134 call PLED_divemask_color ; Set Color for Divemode mask
3135
3136 WIN_FONT FT_SMALL 3134 WIN_FONT FT_SMALL
3137 WIN_LEFT .160-.70 ; 10 chars aligned right. 3135 WIN_LEFT .160-.70 ; 10 chars aligned right.
3138 WIN_TOP .170 3136 WIN_TOP .170
3137 call PLED_divemask_color ; Set Color for Divemode mask
3139 lfsr FSR2,letter 3138 lfsr FSR2,letter
3140 OUTPUTTEXTH .305 ; "TTS in ..." 3139
3140 OUTPUTTEXTH .305 ; "Future TTS"
3141 call word_processor 3141 call word_processor
3142 3142
3143 WIN_LEFT .97 3143 WIN_LEFT .97
3144 WIN_TOP .194 3144 WIN_TOP .194
3145 STRCPY "@" 3145 STRCPY "@"
3146 GETCUSTOM8 d'58' 3146 GETCUSTOM8 d'58'
3147 movwf lo 3147 movwf lo
3148 bsf leftbind 3148 bsf leftbind
3149 output_8 3149 output_8
3150 bcf leftbind 3150 bcf leftbind
3151 STRCAT_PRINT "':" 3151 STRCAT_PRINT "': "
3152 3152
3153 WIN_LEFT .97+7*5 ; "@10':" is 5 chars long 3153 WIN_LEFT .97+7*5 ; "@10':" is 5 chars long
3154 call PLED_standard_color 3154 call PLED_standard_color
3155
3156 lfsr FSR2,letter 3155 lfsr FSR2,letter
3156
3157 movff int_O_extra_ascenttime+0,lo 3157 movff int_O_extra_ascenttime+0,lo
3158 movff int_O_extra_ascenttime+1,hi 3158 movff int_O_extra_ascenttime+1,hi
3159 movf lo,W 3159 movf lo,W
3160 iorwf hi,W 3160 iorwf hi,W ; extra_ascenttime == 0 ?
3161 bz PLED_show_@5_nodeco
3162 movf lo,W ; extra_ascenttime == 0xFFFF ?
3163 andwf hi,W
3164 incf WREG,w
3161 bz PLED_show_@5_wait 3165 bz PLED_show_@5_wait
3166
3162 bsf leftbind 3167 bsf leftbind
3163 output_16 3168 output_16
3164 bcf leftbind 3169 bcf leftbind
3165 STRCAT_PRINT "' " ; From "999'" to "1' " we need 2 trailing spaces 3170 STRCAT_PRINT "' " ; From "none" to "1'" we need 2 trailing spaces
3166 return 3171 return
3167 3172
3173 PLED_show_@5_nodeco:
3168 PLED_show_@5_wait: 3174 PLED_show_@5_wait:
3169 STRCPY_PRINT "xx' " 3175 STRCPY_PRINT "--- "
3170 return 3176 return
3171 3177
3172 ;============================================================================= 3178 ;=============================================================================
3173 3179
3174 PLED_show_leading_tissue: 3180 PLED_show_leading_tissue: