Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_ppO2.asm @ 717:91ae251d379f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"ostc3-style" menu titles
author heinrichsweikamp
date Thu, 23 May 2013 10:59:34 +0200
parents aebb6d039249
children 03f8a8eec9ae c50296c3059e
comparison
equal deleted inserted replaced
716:d333c8462844 717:91ae251d379f
112 movwf menupos 112 movwf menupos
113 113
114 menu_diluentsetup_prelist: 114 menu_diluentsetup_prelist:
115 call DISP_ClearScreen 115 call DISP_ClearScreen
116 call menu_pre_loop_common ; Clear some menu flags, timeout and switches 116 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
117 call DISP_topline_box 117 call DISP_divemask_color
118 WIN_INVERT .1 ; Init new Wordprocessor
119 DISPLAYTEXT .231 ; Dil. Setup - Gaslist 118 DISPLAYTEXT .231 ; Dil. Setup - Gaslist
120 WIN_INVERT .0 ; Init new Wordprocessor 119 call DISP_standard_color
121 clrf decodata+0 ; Here: # of gas 0-4 120 clrf decodata+0 ; Here: # of gas 0-4
122 clrf divemins+0 ; Here: # of Gas * 4 121 clrf divemins+0 ; Here: # of Gas * 4
123 movlw d'5' 122 movlw d'5'
124 movwf waitms_temp ; here: stores row for gas list 123 movwf waitms_temp ; here: stores row for gas list
125 movlw d'93' 124 movlw d'93'
690 movwf menupos 689 movwf menupos
691 bra menu_diluentgas1 690 bra menu_diluentgas1
692 691
693 692
694 diluent_title_bar2: 693 diluent_title_bar2:
695 call DISP_topline_box 694 ; call DISP_topline_box
696 WIN_INVERT .1 ; Init new Wordprocessor 695 call DISP_divemask_color
697 WIN_TOP .2 696 WIN_TOP .2
698 WIN_LEFT .30 697 WIN_LEFT .30
699 lfsr FSR2,letter 698 lfsr FSR2,letter
700 STRCAT TXT_DIL5 ; Dil.# 699 STRCAT TXT_DIL5 ; Dil.#
701 movff decodata+0,lo 700 movff decodata+0,lo
778 output_8 777 output_8
779 ;bra diluent_title_bar7 778 ;bra diluent_title_bar7
780 779
781 diluent_title_bar7: 780 diluent_title_bar7:
782 STRCAT_PRINT "" 781 STRCAT_PRINT ""
783 WIN_INVERT .0 ; Init new Wordprocessor 782 call DISP_standard_color
784 return 783 return
785 784
786 785
787 ; *** 786 ; ***
788 787
801 bcf first_FA ; Here: =1: -, =0: + 800 bcf first_FA ; Here: =1: -, =0: +
802 bcf second_FA ; Here: =1: 1, =0: 10 steps 801 bcf second_FA ; Here: =1: 1, =0: 10 steps
803 802
804 menu_const_ppO20: 803 menu_const_ppO20:
805 call DISP_ClearScreen 804 call DISP_ClearScreen
806 call DISP_topline_box 805 call DISP_divemask_color
807
808 WIN_INVERT .1 ; Init new Wordprocessor
809 DISPLAYTEXT .111 ; Constant ppO2 Setup 806 DISPLAYTEXT .111 ; Constant ppO2 Setup
810 WIN_INVERT .0 ; Init new Wordprocessor 807 call DISP_standard_color
811 808
812 809
813 menu_const_ppO21: 810 menu_const_ppO21:
814 WIN_LEFT .20 811 WIN_LEFT .20
815 WIN_TOP .35 812 WIN_TOP .35
816 lfsr FSR2,letter 813 lfsr FSR2,letter