Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 665:259e4c1bf3c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
grey-out TTS and ceiling after gas change (until new plan is ready)
author heinrichsweikamp
date Wed, 14 Nov 2012 12:39:39 +0100
parents 8dd730d3a5d7
children 3282581fe178
comparison
equal deleted inserted replaced
664:9c13bf8a3033 665:259e4c1bf3c2
471 WIN_LEFT .94 471 WIN_LEFT .94
472 WIN_FONT FT_MEDIUM 472 WIN_FONT FT_MEDIUM
473 WIN_INVERT .0 ; Init new Wordprocessor 473 WIN_INVERT .0 ; Init new Wordprocessor
474 bcf leftbind 474 bcf leftbind
475 PLED_color_code warn_ceiling ; Color-code Output 475 PLED_color_code warn_ceiling ; Color-code Output
476 btfsc decoplan_invalid ; The decoplan needs to updated...
477 call PLED_grey ; .. so set the color to grey
476 lfsr FSR2,letter 478 lfsr FSR2,letter
477 movff char_O_first_deco_depth,lo ; Ceiling in m 479 movff char_O_first_deco_depth,lo ; Ceiling in m
478 output_99 480 output_99
479 PUTC TXT_METER_C 481 PUTC TXT_METER_C
480 movff char_O_first_deco_time,lo ; length of first stop in m 482 movff char_O_first_deco_time,lo ; length of first stop in m
488 WIN_LEFT .140 - 6*7 - 4 ; let space for sign + 5 digits + ' 490 WIN_LEFT .140 - 6*7 - 4 ; let space for sign + 5 digits + '
489 WIN_FONT FT_MEDIUM 491 WIN_FONT FT_MEDIUM
490 WIN_INVERT .0 ; Init new Wordprocessor 492 WIN_INVERT .0 ; Init new Wordprocessor
491 493
492 call PLED_standard_color 494 call PLED_standard_color
495 btfsc decoplan_invalid ; The decoplan needs to updated...
496 call PLED_grey ; .. so set the color to grey
493 lfsr FSR2,letter 497 lfsr FSR2,letter
494 movff int_O_ascenttime+0,lo ; TTS 498 movff int_O_ascenttime+0,lo ; TTS
495 movff int_O_ascenttime+1,hi ; on 16bits 499 movff int_O_ascenttime+1,hi ; on 16bits
496 output_16 500 output_16
497 STRCAT_PRINT "'" 501 STRCAT_PRINT "'"
502 call PLED_standard_color
498 503
499 PLED_display_deko1: 504 PLED_display_deko1:
500 rcall PLED_display_gf ; Show GF (If GF > CF08) 505 rcall PLED_display_gf ; Show GF (If GF > CF08)
501 return ; Done. 506 return ; Done.
502 507
1342 bnc PLED_grey_gas ; test carry 1347 bnc PLED_grey_gas ; test carry
1343 1348
1344 PLED_white_gas: 1349 PLED_white_gas:
1345 GETCUSTOM8 d'35' ;movlw color_white 1350 GETCUSTOM8 d'35' ;movlw color_white
1346 goto PLED_set_color ; grey out inactive gases! 1351 goto PLED_set_color ; grey out inactive gases!
1352 ; return
1347 1353
1348 PLED_grey_gas: 1354 PLED_grey_gas:
1355 PLED_grey:
1349 GETCUSTOM8 d'64' ;movlw color_grey 1356 GETCUSTOM8 d'64' ;movlw color_grey
1350 goto PLED_set_color ; grey out inactive gases! 1357 goto PLED_set_color ; grey out inactive gases!
1358 ; return
1351 1359
1352 ;----------------------------------------------------------------------------- 1360 ;-----------------------------------------------------------------------------
1353 ; Display Pre-Dive Screen 1361 ; Display Pre-Dive Screen
1354 1362
1355 PLED_pre_dive_screen: 1363 PLED_pre_dive_screen: