Mercurial > public > hwos_code

comparison src/simulator.asm @ 50:ec4d8503ec45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
NEW: user-selectable color schemes
author heinrichsweikamp
date Fri, 27 Sep 2013 23:45:57 +0200
parents 05227510cae0
children 8e13866b5496
comparison
equal deleted inserted replaced
49:fe01bbaf6014 50:ec4d8503ec45
17 #include "wait.inc" ; speed_* 17 #include "wait.inc" ; speed_*
18 #include "start.inc" 18 #include "start.inc"
19 #include "divemode.inc" 19 #include "divemode.inc"
20 #include "math.inc" 20 #include "math.inc"
21 #include "eeprom_rs232.inc" 21 #include "eeprom_rs232.inc"
22 #include "tft_outputs.inc"
22 23
23 gui CODE 24 gui CODE
24 25
25 extern deco_clear_tissue 26 extern deco_clear_tissue
26 extern deco_push_tissues_to_vault 27 extern deco_push_tissues_to_vault
365 deco_plan_show_stop: 366 deco_plan_show_stop:
366 ;---- Print depth ---------------------------------------------------- 367 ;---- Print depth ----------------------------------------------------
367 btfss lo,7 ; Bit set ? 368 btfss lo,7 ; Bit set ?
368 bra deco_plan_show_std_stop ; No : Just an usual stop. 369 bra deco_plan_show_std_stop ; No : Just an usual stop.
369 370
370 TFT_ATTENTION_COLOR 371 call TFT_attention_color
371 bcf lo,7 ; and cleanup depth. 372 bcf lo,7 ; and cleanup depth.
372 bra deco_plan_show_nstd_stop 373 bra deco_plan_show_nstd_stop
373 374
374 deco_plan_show_std_stop: 375 deco_plan_show_std_stop:
375 TFT_STD_COLOR 376 call TFT_standard_color
376 377
377 deco_plan_show_nstd_stop: 378 deco_plan_show_nstd_stop:
378 lfsr FSR2,buffer 379 lfsr FSR2,buffer
379 380
380 TSTOSS opt_units ; 0=Meters, 1=Feets 381 TSTOSS opt_units ; 0=Meters, 1=Feets
448 movwf up 449 movwf up
449 movff up,win_bargraph ; Active width, the rest is cleared. 450 movff up,win_bargraph ; Active width, the rest is cleared.
450 call TFT_box 451 call TFT_box
451 452
452 ; Restore win_top 453 ; Restore win_top
453 TFT_STD_COLOR 454 call TFT_standard_color
454 decf win_top,F ; Restore win_top 455 decf win_top,F ; Restore win_top
455 return 456 return
456 457
457 ;----------------------------------------------------------------------------- 458 ;-----------------------------------------------------------------------------
458 ; Clear unused area belw last stop 459 ; Clear unused area belw last stop
486 movff char_O_first_deco_depth,WREG 487 movff char_O_first_deco_depth,WREG
487 iorwf WREG 488 iorwf WREG
488 bnz deco_plan_show_1 489 bnz deco_plan_show_1
489 490
490 ;---- No Deco -------------------------------------------------------- 491 ;---- No Deco --------------------------------------------------------
491 TFT_STD_COLOR 492 call TFT_standard_color
492 TEXT_SMALL .80, .0, tNoDeco 493 TEXT_SMALL .80, .0, tNoDeco
493 bsf decoplan_last_ceiling_shown 494 bsf decoplan_last_ceiling_shown
494 return 495 return
495 496
496 deco_plan_show_1: 497 deco_plan_show_1:
545 bz deco_plan_show_99 ; End of list... 546 bz deco_plan_show_99 ; End of list...
546 547
547 ; Display the message "more..." 548 ; Display the message "more..."
548 rcall deco_plan_show_clear_bottom ; Clear from next line 549 rcall deco_plan_show_clear_bottom ; Clear from next line
549 550
550 TFT_STD_COLOR 551 call TFT_standard_color
551 TEXT_SMALL .85, .240-.25, tMore 552 TEXT_SMALL .85, .240-.25, tMore
552 return 553 return
553 554
554 deco_plan_show_99: 555 deco_plan_show_99:
555 bsf decoplan_last_ceiling_shown ; Nothing more in table to display. 556 bsf decoplan_last_ceiling_shown ; Nothing more in table to display.
563 deco_show_plan: 564 deco_show_plan:
564 clrf decoplan_page 565 clrf decoplan_page
565 call TFT_ClearScreen 566 call TFT_ClearScreen
566 WIN_COLOR color_greenish 567 WIN_COLOR color_greenish
567 TEXT_SMALL .1,.1, tDivePlan 568 TEXT_SMALL .1,.1, tDivePlan
568 TFT_STD_COLOR 569 call TFT_standard_color
569 WIN_LEFT .0 570 WIN_LEFT .0
570 571
571 ;---- Display model 572 ;---- Display model
572 movff char_I_deco_model,WREG 573 movff char_I_deco_model,WREG
573 iorwf WREG 574 iorwf WREG