Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_ppO2.asm @ 681:6e456a6398e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Hardware4 support
author heinrichsweikamp
date Fri, 25 Jan 2013 18:00:49 +0100
parents 8c01edcf57fc
children aebb6d039249
comparison
equal deleted inserted replaced
680:c6220d340684 681:6e456a6398e0
40 40
41 menu_const_ppO2: 41 menu_const_ppO2:
42 movlw d'1' 42 movlw d'1'
43 movwf menupos 43 movwf menupos
44 menu_const_ppO2_return: 44 menu_const_ppO2_return:
45 call PLED_ClearScreen 45 call DISP_ClearScreen
46 call PLED_ccr_setup_menu_mask 46 call DISP_ccr_setup_menu_mask
47 call refresh_cursor 47 call refresh_cursor
48 call menu_pre_loop_common 48 call menu_pre_loop_common
49 49
50 menu_const_ppO2_preloop: 50 menu_const_ppO2_preloop:
51 call check_switches_menu 51 call check_switches_menu
52 movlw d'3' 52 movlw d'3'
53 cpfseq menupos 53 cpfseq menupos
54 bra menu_const_ppO2_preloop2 ; Returns 54 bra menu_const_ppO2_preloop2 ; Returns
55 movlw d'6' 55 movlw d'6'
56 movwf menupos 56 movwf menupos
57 call PLED_menu_cursor 57 call DISP_menu_cursor
58 58
59 menu_const_ppO2_preloop2: 59 menu_const_ppO2_preloop2:
60 btfsc menubit2 60 btfsc menubit2
61 bra do_ccr_pre_menu ; call submenu 61 bra do_ccr_pre_menu ; call submenu
62 btfss menubit 62 btfss menubit
87 menu_diluentsetup: 87 menu_diluentsetup:
88 movlw d'1' 88 movlw d'1'
89 movwf menupos 89 movwf menupos
90 90
91 menu_diluentsetup_prelist: 91 menu_diluentsetup_prelist:
92 call PLED_ClearScreen 92 call DISP_ClearScreen
93 call menu_pre_loop_common ; Clear some menu flags, timeout and switches 93 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
94 call PLED_topline_box 94 call DISP_topline_box
95 WIN_INVERT .1 ; Init new Wordprocessor 95 WIN_INVERT .1 ; Init new Wordprocessor
96 DISPLAYTEXT .231 ; Dil. Setup - Gaslist 96 DISPLAYTEXT .231 ; Dil. Setup - Gaslist
97 WIN_INVERT .0 ; Init new Wordprocessor 97 WIN_INVERT .0 ; Init new Wordprocessor
98 clrf decodata+0 ; Here: # of gas 0-4 98 clrf decodata+0 ; Here: # of gas 0-4
99 clrf divemins+0 ; Here: # of Gas * 4 99 clrf divemins+0 ; Here: # of Gas * 4
204 cpfseq decodata+0 204 cpfseq decodata+0
205 goto menu_diluentsetup_list 205 goto menu_diluentsetup_list
206 206
207 DISPLAYTEXT .11 ; Exit 207 DISPLAYTEXT .11 ; Exit
208 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! 208 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
209 call PLED_menu_cursor 209 call DISP_menu_cursor
210 210
211 menu_diluentsetup_loop: 211 menu_diluentsetup_loop:
212 call check_switches_logbook 212 call check_switches_logbook
213 213
214 btfsc menubit3 214 btfsc menubit3
235 movlw d'1' 235 movlw d'1'
236 movwf menupos 236 movwf menupos
237 237
238 menu_diluentsetup_list3: 238 menu_diluentsetup_list3:
239 clrf timeout_counter2 239 clrf timeout_counter2
240 call PLED_menu_cursor 240 call DISP_menu_cursor
241 241
242 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! 242 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
243 243
244 bcf menubit3 ; clear flag 244 bcf menubit3 ; clear flag
245 bra menu_diluentsetup_loop 245 bra menu_diluentsetup_loop
293 movwf menupos 293 movwf menupos
294 bcf menubit4 294 bcf menubit4
295 bcf first_FA ; Here: =1: -, =0: + 295 bcf first_FA ; Here: =1: -, =0: +
296 296
297 menu_diluentgas0: 297 menu_diluentgas0:
298 call PLED_ClearScreen 298 call DISP_ClearScreen
299 WIN_LEFT .20 299 WIN_LEFT .20
300 WIN_TOP .185 300 WIN_TOP .185
301 lfsr FSR2, letter 301 lfsr FSR2, letter
302 OUTPUTTEXT .11 ; Exit 302 OUTPUTTEXT .11 ; Exit
303 STRCAT_PRINT "" 303 STRCAT_PRINT ""
444 clrf lo ; Default He value 444 clrf lo ; Default He value
445 output_8 445 output_8
446 STRCAT_PRINT " " 446 STRCAT_PRINT " "
447 447
448 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! 448 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
449 call PLED_menu_cursor 449 call DISP_menu_cursor
450 450
451 diluentgassetup_loop: 451 diluentgassetup_loop:
452 call check_switches_logbook 452 call check_switches_logbook
453 453
454 btfsc menubit3 454 btfsc menubit3
475 movlw d'1' 475 movlw d'1'
476 movwf menupos 476 movwf menupos
477 477
478 diluentgassetup3: 478 diluentgassetup3:
479 clrf timeout_counter2 479 clrf timeout_counter2
480 call PLED_menu_cursor 480 call DISP_menu_cursor
481 481
482 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! 482 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
483 483
484 bcf menubit3 ; clear flag 484 bcf menubit3 ; clear flag
485 bra diluentgassetup_loop 485 bra diluentgassetup_loop
627 movwf menupos 627 movwf menupos
628 bra menu_diluentgas1 628 bra menu_diluentgas1
629 629
630 630
631 diluent_title_bar2: 631 diluent_title_bar2:
632 call PLED_topline_box 632 call DISP_topline_box
633 WIN_INVERT .1 ; Init new Wordprocessor 633 WIN_INVERT .1 ; Init new Wordprocessor
634 WIN_TOP .2 634 WIN_TOP .2
635 WIN_LEFT .30 635 WIN_LEFT .30
636 lfsr FSR2,letter 636 lfsr FSR2,letter
637 STRCAT TXT_DIL5 ; Dil.# 637 STRCAT TXT_DIL5 ; Dil.#
731 clrf decodata+0 ; Here: # of SP 731 clrf decodata+0 ; Here: # of SP
732 bcf first_FA ; Here: =1: -, =0: + 732 bcf first_FA ; Here: =1: -, =0: +
733 bcf second_FA ; Here: =1: 1, =0: 10 steps 733 bcf second_FA ; Here: =1: 1, =0: 10 steps
734 734
735 menu_const_ppO20: 735 menu_const_ppO20:
736 call PLED_ClearScreen 736 call DISP_ClearScreen
737 call PLED_topline_box 737 call DISP_topline_box
738 738
739 WIN_INVERT .1 ; Init new Wordprocessor 739 WIN_INVERT .1 ; Init new Wordprocessor
740 DISPLAYTEXT .111 ; Constant ppO2 Setup 740 DISPLAYTEXT .111 ; Constant ppO2 Setup
741 WIN_INVERT .0 ; Init new Wordprocessor 741 WIN_INVERT .0 ; Init new Wordprocessor
742 742
801 STRCAT_PRINT "1.00" 801 STRCAT_PRINT "1.00"
802 802
803 DISPLAYTEXT .11 ; Exit 803 DISPLAYTEXT .11 ; Exit
804 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! 804 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
805 call menu_pre_loop_common ; Clear some menu flags, timeout and switches 805 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
806 call PLED_menu_cursor 806 call DISP_menu_cursor
807 807
808 menu_const_ppO2_loop: 808 menu_const_ppO2_loop:
809 call check_switches_logbook 809 call check_switches_logbook
810 810
811 btfsc menubit3 811 btfsc menubit3
839 movlw d'1' 839 movlw d'1'
840 movwf menupos 840 movwf menupos
841 841
842 menu_const_ppO23: 842 menu_const_ppO23:
843 call menu_pre_loop_common ; Clear some menu flags, timeout and switches 843 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
844 call PLED_menu_cursor 844 call DISP_menu_cursor
845 bra menu_const_ppO2_loop 845 bra menu_const_ppO2_loop
846 846
847 do_menu_const_ppO2: 847 do_menu_const_ppO2:
848 dcfsnz menupos,F 848 dcfsnz menupos,F
849 bra next_ppO2 849 bra next_ppO2