mk2: code_part1/OSTC_code_asm_part1/menu

annotate code_part1/OSTC_code_asm_part1/menu_ppO2.asm @ 766:3b1af9891019

BUGFIX: CNS calculation in decoplan should track gas (no marked changes anymore)

author	JeanDo
date	Sun, 22 Dec 2013 14:23:11 +0100
parents	91ae251d379f
children	03f8a8eec9ae c50296c3059e

rev	line source
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	2 ; OSTC - diving computer code
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	3 ; Copyright (C) 2008 HeinrichsWeikamp GbR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	4
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	5 ; This program is free software: you can redistribute it and/or modify
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	6 ; it under the terms of the GNU General Public License as published by
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	7 ; the Free Software Foundation, either version 3 of the License, or
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	8 ; (at your option) any later version.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	9
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	10 ; This program is distributed in the hope that it will be useful,
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	13 ; GNU General Public License for more details.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	14
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	15 ; You should have received a copy of the GNU General Public License
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	16 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	17
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	18
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	19 ; Constant ppO2 Setup menu
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	21 ; written: 08/04/04
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	22 ; last updated: 120920
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	23 ; known bugs:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	24 ; ToDo:
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	25 ;
647 e6ac142e82b0 New Diluent Submenu in Divemode heinrichsweikamp parents: 643 diff changeset	26 ; New in 2.52 Diluents stored seperately in EEPROM Bank0
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	27 ;Byte96-97:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	28 ;Diluent 1 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	29 ;Byte98-99:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	30 ;Diluent 1 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	31 ;Byte100-101:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	32 ;Diluent 2 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	33 ;Byte102-103:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	34 ;Diluent 2 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	35 ;Byte104-105:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	36 ;Diluent 3 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	37 ;Byte106-107:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	38 ;Diluent 3 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	39 ;Byte108-109:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	40 ;Diluent 4 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	41 ;Byte110-111:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	42 ;Diluent 4 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	43 ;Byte112-113:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	44 ;Diluent 5 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	45 ;Byte114-115:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	46 ;Diluent 5 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	47 ;Byte116:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	48 ;First Diluent (1-5)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	49
647 e6ac142e82b0 New Diluent Submenu in Divemode heinrichsweikamp parents: 643 diff changeset	50 ; EEPROM BANK0 Byte96-97:
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	51 ; Diluent 1 (%O2,%He)
647 e6ac142e82b0 New Diluent Submenu in Divemode heinrichsweikamp parents: 643 diff changeset	52 ; EEPROM BANK0 Byte98-99:
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	53 ; Diluent 2 (%O2,%He)
647 e6ac142e82b0 New Diluent Submenu in Divemode heinrichsweikamp parents: 643 diff changeset	54 ; EEPROM BANK0 Byte100-101:
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	55 ; Diluent 3 (%O2,%He)
647 e6ac142e82b0 New Diluent Submenu in Divemode heinrichsweikamp parents: 643 diff changeset	56 ; EEPROM BANK0 Byte102-103:
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	57 ; Diluent 4 (%O2,%He)
647 e6ac142e82b0 New Diluent Submenu in Divemode heinrichsweikamp parents: 643 diff changeset	58 ; EEPROM BANK0 Byte104-105:
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	59 ; Diluent 5 (%O2,%He)
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	60 ; EEPROM BANK0 Byte106:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	61 ; First Diluent (1-5)
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	62
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	63
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	64 menu_const_ppO2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	65 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	66 movwf menupos
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	67 menu_const_ppO2_return:
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	68 call DISP_ClearScreen
6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	69 call DISP_ccr_setup_menu_mask
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	70 call refresh_cursor
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	71 call menu_pre_loop_common
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	72
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	73 menu_const_ppO2_preloop:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	74 call check_switches_menu
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	75 movlw d'3'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	76 cpfseq menupos
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	77 bra menu_const_ppO2_preloop2 ; Returns
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	78 movlw d'6'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	79 movwf menupos
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	80 call DISP_menu_cursor
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	81
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	82 menu_const_ppO2_preloop2:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	83 btfsc menubit2
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	84 bra do_ccr_pre_menu ; call submenu
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	85 btfss menubit
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	86 goto restart ; exit menu, restart
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	87 btfsc onesecupdate
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	88 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	89 bcf onesecupdate ; End of one second tasks
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	90 btfsc sleepmode
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	91 goto restart
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	92 bra menu_const_ppO2_preloop
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	93
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	94 do_ccr_pre_menu:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	95 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	96 goto menu_diluentsetup
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	97 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	98 goto menu_const_ppO2_setpoints
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	99 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	100 goto exit_menu_const_ppO2 ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	101 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	102 goto exit_menu_const_ppO2 ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	103 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	104 goto exit_menu_const_ppO2 ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	105 exit_menu_const_ppO2: ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	106 movlw d'2'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	107 movwf menupos
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	108 goto more_menu2
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	109
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	110 menu_diluentsetup:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	111 movlw d'1'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	112 movwf menupos
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	113
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	114 menu_diluentsetup_prelist:
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	115 call DISP_ClearScreen
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	116 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
717 91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	117 call DISP_divemask_color
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	118 DISPLAYTEXT .231 ; Dil. Setup - Gaslist
717 91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	119 call DISP_standard_color
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	120 clrf decodata+0 ; Here: # of gas 0-4
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	121 clrf divemins+0 ; Here: # of Gas * 4
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	122 movlw d'5'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	123 movwf waitms_temp ; here: stores row for gas list
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	124 movlw d'93'
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	125 movwf wait_temp ; here: stores eeprom address for gas list
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	126
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	127 menu_diluentsetup_list:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	128 WIN_LEFT .20
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	129 movlw d'4'
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	130 addwf wait_temp,F ; Increase eeprom address for diluent list
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	131 movlw d'30'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	132 addwf waitms_temp,F ; Increase row
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	133 movf waitms_temp,W ; Load row into WREG
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	134 movff WREG,win_top
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	135 lfsr FSR2,letter
640 50ba6255f53e ccr menu heinrichsweikamp parents: 639 diff changeset	136 PUTC TXT_DIL_C
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	137 movff decodata+0,lo
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	138 incf lo,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	139 bsf leftbind
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	140 output_99
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	141 PUTC ':'
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	142 call word_processor
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	143
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	144 WIN_LEFT .40
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	145 movf waitms_temp,W ; Load row into WREG
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	146 movff WREG,win_top
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	147 lfsr FSR2,letter
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	148
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	149 movlw d'116'
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	150 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	151 call read_eeprom ; Get current startgas 1-5 # into EEDATA
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	152 decf EEDATA,W ; 0-4
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	153 cpfseq decodata+0 ; =current displayed gas #?
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	154 bra menu_diluentsetup_Tx; no, do not display *
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	155 PUTC '' ; display
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	156 call word_processor
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	157
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	158 menu_diluentsetup_Tx:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	159 WIN_LEFT .48
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	160 movf waitms_temp,W ; Load row into WREG
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	161 movff WREG,win_top
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	162 lfsr FSR2,letter
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	163
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	164 movff wait_temp, EEADR ; Gas %He - Set address in internal EEPROM
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	165 incf EEADR,F ; Gas %He - Set address in internal EEPROM
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	166 call read_eeprom ; Read He value from EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	167 movff EEDATA,lo ; Move EEDATA -> lo
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	168 movf lo,f ; Move lo -> f
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	169 movlw d'0' ; Move 0 -> WREG
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	170 cpfsgt lo ; He > 0?
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	171 bra menu_diluentsetup_Nx ; NO check o2
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	172
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	173 ; YES Write TX 15/55
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	174 STRCAT TXT_TX3
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	175 movff wait_temp, EEADR ; Gas %O2 - Set address in internal EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	176 call read_eeprom ; O2 value
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	177 movff EEDATA,lo
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	178 output_8
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	179 PUTC '/'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	180 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	181 call read_eeprom ; He value
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	182 movff EEDATA,lo
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	183 output_8
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	184 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	185
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	186 ; New v1.44se
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	187 menu_diluentsetup_Nx:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	188 movff wait_temp, EEADR ; Gas %O2 - Set address in internal EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	189 call read_eeprom ; Read O2 value from EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	190 movff EEDATA,lo ; Move EEDATA -> lo
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	191 movf lo,f ; Move lo -> f
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	192 movlw d'21' ; Move 21 -> WREG
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	193 cpfsgt lo ; o2 > 21%
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	194 bra menu_diluentsetup_Air ; NO AIR
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	195 movlw d'100' ; Move 100 -> WREG
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	196 cpfslt lo ; o2 < 100%
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	197 bra menu_diluentsetup_O2 ; NO write O2
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	198
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	199 ; YES Write NX 32
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	200 STRCAT TXT_NX3
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	201 output_8
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	202 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	203
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	204 menu_diluentsetup_O2:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	205 STRCAT TXT_O2_3
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	206 output_8
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	207 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	208
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	209 menu_diluentsetup_Air:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	210 cpfseq lo ; o2 = 21%
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	211 bra menu_diluentsetup_Err
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	212
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	213 STRCAT TXT_AIR4
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	214 output_8
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	215 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	216
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	217 menu_diluentsetup_Err:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	218 STRCAT TXT_ERR4
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	219 output_8
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	220
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	221 menu_diluentsetup_list0:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	222 call word_processor
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	223
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	224 incf decodata+0,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	225 movlw d'5'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	226 cpfseq decodata+0
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	227 goto menu_diluentsetup_list
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	228
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	229 DISPLAYTEXT .11 ; Exit
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	230 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	231 call DISP_menu_cursor
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	232
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	233 menu_diluentsetup_loop:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	234 call check_switches_logbook
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	235
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	236 btfsc menubit3
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	237 bra menu_diluentsetup_list2 ; move cursor
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	238
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	239 btfsc menubit2
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	240 bra do_diluentsetup_list ; call gas-specific submenu
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	241
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	242 btfsc onesecupdate
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	243 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	244
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	245 bcf onesecupdate ; 1 sec. functions done
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	246
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	247 btfsc sleepmode
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	248 bra menu_const_ppO2
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	249
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	250 bra menu_diluentsetup_loop
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	251
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	252 menu_diluentsetup_list2:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	253 incf menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	254 movlw d'7'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	255 cpfseq menupos ; =7?
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	256 bra menu_diluentsetup_list3 ; No
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	257 movlw d'1'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	258 movwf menupos
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	259
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	260 menu_diluentsetup_list3:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	261 clrf timeout_counter2
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	262 call DISP_menu_cursor
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	263
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	264 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	265
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	266 bcf menubit3 ; clear flag
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	267 bra menu_diluentsetup_loop
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	268
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	269
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	270 do_diluentsetup_list:
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	271 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	272 bra diluent_list_edit_gas1
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	273 dcfsnz menupos,F
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	274 bra diluent_list_edit_gas2
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	275 dcfsnz menupos,F
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	276 bra diluent_list_edit_gas3
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	277 dcfsnz menupos,F
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	278 bra diluent_list_edit_gas4
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	279 dcfsnz menupos,F
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	280 bra diluent_list_edit_gas5
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	281 bra menu_const_ppO2 ; Exit List
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	282
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	283 diluent_list_edit_gas1:
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	284 movlw d'0' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	285 movwf decodata+0
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	286 movlw d'91' ; EEPROM address of %O2
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	287 movwf divemins+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	288 bra menu_diluentgas
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	289 diluent_list_edit_gas2:
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	290 movlw d'1' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	291 movwf decodata+0
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	292 movlw d'95' ; EEPROM address of %O2
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	293 movwf divemins+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	294 bra menu_diluentgas
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	295 diluent_list_edit_gas3:
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	296 movlw d'2' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	297 movwf decodata+0
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	298 movlw d'99' ; EEPROM address of %O2
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	299 movwf divemins+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	300 bra menu_diluentgas
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	301 diluent_list_edit_gas4:
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	302 movlw d'3' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	303 movwf decodata+0
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	304 movlw d'103' ; EEPROM address of %O2
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	305 movwf divemins+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	306 bra menu_diluentgas
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	307 diluent_list_edit_gas5:
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	308 movlw d'4' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	309 movwf decodata+0
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	310 movlw d'107' ; EEPROM address of %O2
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	311 movwf divemins+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	312 ; bra menu_diluentgas
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	313 menu_diluentgas:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	314 movlw d'1'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	315 movwf menupos
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	316 bcf menubit4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	317 bcf first_FA ; Here: =1: -, =0: +
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	318
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	319 menu_diluentgas0:
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	320 call DISP_ClearScreen
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	321 WIN_LEFT .20
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	322 WIN_TOP .185
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	323 lfsr FSR2, letter
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	324 OUTPUTTEXT .11 ; Exit
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	325 STRCAT_PRINT ""
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	326
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	327 menu_diluentgas1:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	328 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	329 call diluent_title_bar2 ; Displays the title bar with the current Gas info
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	330
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	331 WIN_TOP .35
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	332 WIN_LEFT .20
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	333 lfsr FSR2,letter
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	334 OUTPUTTEXT .88 ; First Gas?
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	335 PUTC ' '
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	336
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	337 movlw d'116'
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	338 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	339 call read_eeprom ; Get current startgas 1-5 # into EEDATA
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	340 decf EEDATA,W ; 0-4
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	341 cpfseq decodata+0 ; =current displayed gas #?
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	342 bra menu_firstdil0 ; no, display three spaces
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	343
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	344 OUTPUTTEXT .96 ; Yes
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	345 bsf second_FA ; Is first gas
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	346
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	347 bra menu_firstdil1
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	348
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	349 menu_firstdil0:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	350 bcf second_FA ; Is not first gas
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	351 STRCAT " " ; 3 spaces.
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	352
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	353 menu_firstdil1:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	354 call word_processor
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	355
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	356 WIN_LEFT .20
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	357 WIN_TOP .65
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	358 STRCPY TXT_O2_4
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	359
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	360 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	361 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	362 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	363 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	364 movff EEDATA,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	365 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	366 STRCAT_PRINT "% "
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	367
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	368 ; Show MOD in m
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	369 WIN_LEFT .90
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	370 lfsr FSR2, letter
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	371 OUTPUTTEXTH .297 ; MOD:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	372
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	373 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	374 mullw d'10'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	375 movff PRODL,xA+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	376 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	377 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	378 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	379 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	380 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	381 movff EEDATA,xB+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	382 clrf xB+1
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	383 call div16x16 ; xA/xB=xC with xA as remainder
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	384 movlw d'10'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	385 subwf xC+0,F ; Subtract 10m...
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	386 movff xC+0,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	387 movlw d'0'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	388 subwfb xC+1,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	389 movff xC+1,hi
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	390
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	391 output_16
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	392 STRCAT_PRINT TXT_METER3
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	393
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	394 WIN_LEFT .20
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	395 WIN_TOP .95
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	396 STRCPY TXT_HE4
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	397 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	398 addlw 0x07
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	399 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	400 call read_eeprom ; He value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	401 movff EEDATA,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	402 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	403 STRCAT_PRINT "% "
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	404
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	405 ; Show END in m
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	406 lfsr FSR2, letter
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	407 WIN_LEFT .90
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	408 OUTPUTTEXTH .298 ; END:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	409 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	410 mullw d'10'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	411 movff PRODL,xA+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	412 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	413 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	414 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	415 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	416 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	417 movff EEDATA,xB+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	418 clrf xB+1
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	419 call div16x16 ; xA/xB=xC with xA as remainder
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	420 movlw d'10'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	421 subwf xC+0,F ; Subtract 10m...
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	422 movff xC+0,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	423 movlw d'0'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	424 subwfb xC+1,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	425 movff xC+1,hi ; lo:hi holding MOD in meters
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	426 movlw d'10'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	427 addwf lo,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	428 movlw d'0'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	429 addwfc hi,F ; lo:hi holding MOD+10m
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	430
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	431 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	432 addlw 0x07
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	433 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	434 call read_eeprom ; He value in % -> EEDATA
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	435 movlw d'100'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	436 movwf xA+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	437 movf EEDATA,W ; He value in % -> EEDATA
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	438 subwf xA+0,F ; xA+0 = 100 - He Value in %
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	439 clrf xA+1
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	440 movff lo,xB+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	441 movff hi,xB+1 ; Copy MOD+10
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	442 call mult16x16 ; xA*xB=xC
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	443 movff xC+0,xA+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	444 movff xC+1,xA+1
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	445 movlw d'100'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	446 movwf xB+0
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	447 clrf xB+1
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	448 call div16x16 ; xA/xB=xC with xA as remainder
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	449 ; xC:2 = ((MOD+10) * 100 - HE Value in %) / 100
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	450 movlw d'10'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	451 subwf xC+0,F ; Subtract 10m...
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	452 movff xC+0,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	453 movlw d'0'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	454 subwfb xC+1,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	455 movff xC+1,hi
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	456 output_16
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	457 STRCAT_PRINT TXT_METER3
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	458
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	459 WIN_LEFT .20
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	460 WIN_TOP .125
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	461 STRCPY "+/-: "
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	462 movlw '+'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	463 btfsc first_FA
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	464 movlw '-'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	465 movwf POSTINC2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	466 call word_processor
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	467
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	468 WIN_TOP .155
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	469 lfsr FSR2,letter
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	470 OUTPUTTEXT .89 ; Default:
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	471 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	472 addlw 0x04
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	473 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	474 call read_eeprom ; Default O2 value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	475 movff EEDATA,lo
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	476 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	477 PUTC '/'
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	478 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	479 addlw 0x05
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	480 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	481 call read_eeprom ; Default He value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	482 movff EEDATA,lo
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	483 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	484 STRCAT_PRINT " "
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	485
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	486 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	487 call DISP_menu_cursor
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	488
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	489 diluentgassetup_loop:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	490 call check_switches_logbook
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	491
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	492 btfsc menubit3
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	493 bra diluentgassetup2 ; move cursor
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	494
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	495 btfsc menubit2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	496 bra do_diluentgassetup ; call submenu
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	497
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	498 btfsc onesecupdate
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	499 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	500
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	501 bcf onesecupdate ; 1 sec. functions done
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	502
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	503 btfsc sleepmode
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	504 bra exit_menu_const_ppO2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	505
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	506 bra diluentgassetup_loop
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	507
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	508 diluentgassetup2:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	509 incf menupos,F
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	510 movlw d'7'
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	511 cpfseq menupos ; =7?
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	512 bra diluentgassetup3 ; No
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	513 movlw d'1'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	514 movwf menupos
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	515
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	516 diluentgassetup3:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	517 clrf timeout_counter2
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	518 call DISP_menu_cursor
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	519
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	520 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	521
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	522 bcf menubit3 ; clear flag
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	523 bra diluentgassetup_loop
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	524
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	525 do_diluentgassetup:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	526 dcfsnz menupos,F
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	527 bra make_first_diluent
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	528 dcfsnz menupos,F
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	529 bra adjust_o2_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	530 dcfsnz menupos,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	531 bra adjust_he_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	532 dcfsnz menupos,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	533 bra toggle_plus_minus_diluentsetup
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	534 dcfsnz menupos,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	535 bra restore_gas_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	536 exit_diluentgassetup: ; exit...
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	537 movff decodata+0,menupos
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	538 incf menupos,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	539 bra menu_diluentsetup_prelist
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	540
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	541 make_first_diluent:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	542 movff decodata+0,EEDATA ; current gas (0-4) into EEDATA
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	543 incf EEDATA,F ; current gas (1-5) into EEDATA
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	544 movlw d'116'
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	545 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	546 call write_eeprom ; store in internal EEPROM
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	547 movlw d'1'
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	548 movwf menupos
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	549 bra menu_diluentgas1 ; return
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	550
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	551 toggle_plus_minus_diluentsetup:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	552 btg first_FA
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	553 movlw d'4'
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	554 movwf menupos
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	555 bra menu_diluentgas1 ; return
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	556
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	557 adjust_o2_diluent:
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	558 movf divemins+0,W ; read current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	559 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	560 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	561 call read_eeprom ; Low-value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	562 movff EEDATA,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	563
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	564 btfsc first_FA ; Minus?
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	565 bra adjust_o2_1_diluent ; yes, minus!
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	566
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	567 incf lo,F ; increase O2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	568 movlw d'101'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	569 cpfseq lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	570 bra adjust_o2_2_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	571 movlw d'4' ; LOWER O2 Limit
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	572 movwf lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	573 bra adjust_o2_2_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	574
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	575 adjust_o2_1_diluent:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	576 decf lo,F ; decrease O2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	577 movlw d'3'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	578 cpfseq lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	579 bra adjust_o2_2_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	580
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	581 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	582 addlw 0x07
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	583 movwf EEADR
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	584 call read_eeprom ; read He value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	585
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	586 movlw d'100'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	587 movwf lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	588 movf EEDATA,W ; He value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	589 subwf lo,F ; lo=100% - He%
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	590
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	591 adjust_o2_2_diluent: ; test if O2+He>100...
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	592 addlw 0x07
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	593 movwf EEADR
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	594 call read_eeprom ; read He value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	595 movf EEDATA,W ; He value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	596 addwf lo,W ; add O2 value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	597 movwf hi ; store in temp
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	598 movlw d'101'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	599 cpfseq hi ; O2 and He > 100?
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	600 bra adjust_o2_3_diluent ; No!
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	601
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	602 movlw d'4' ; LOWER O2 Limit
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	603 movwf lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	604
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	605 adjust_o2_3_diluent:
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	606 movf divemins+0,W ; save current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	607 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	608 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	609 movff lo,EEDATA
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	610 call write_eeprom ; Low-value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	611
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	612 movlw d'2'
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	613 movwf menupos
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	614 bra menu_diluentgas1 ; return
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	615
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	616 adjust_he_diluent:
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	617 movf divemins+0,W ; read current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	618 addlw 0x07
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	619 movwf EEADR ; read current value (He)
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	620 call read_eeprom ; Low-value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	621 movff EEDATA,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	622
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	623 btfsc first_FA ; Minus?
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	624 bra adjust_he_1_diluent ; yes, minus!
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	625
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	626 incf lo,F
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	627 movlw d'99' ; He limited to (useless) 99%
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	628 cpfseq lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	629 bra adjust_he_2_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	630 clrf lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	631 bra adjust_he_2_diluent
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	632
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	633 adjust_he_1_diluent:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	634 decf lo,F ; decrease He
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	635 movlw d'255'
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	636 cpfseq lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	637 bra adjust_he_2_diluent
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	638 clrf lo ; limit to zero
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	639
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	640 adjust_he_2_diluent: ; test if O2+He>100...
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	641 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	642 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	643 movwf EEADR
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	644 call read_eeprom ; Low-value
86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	645 movf EEDATA,W
86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	646 addwf lo,W ; add He value
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	647 movwf hi ; store in temp
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	648 movlw d'101'
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	649 cpfseq hi ; O2 and He > 100?
86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	650 bra adjust_he_3_diluent ; No!
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	651 ; clrf lo ; Yes, clear He to zero
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	652 decf lo,F ; reduce He again = unchanged after operation
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	653
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	654 adjust_he_3_diluent:
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	655 movf divemins+0,W ; save current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	656 addlw 0x07
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	657 movwf EEADR
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	658 movff lo,EEDATA
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	659 call write_eeprom ; Low-value
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	660
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	661 movlw d'3'
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	662 movwf menupos
652 86b49e47b2f5 allow Diluents with >50% He heinrichsweikamp parents: 647 diff changeset	663 bra menu_diluentgas1;
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	664
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	665 restore_gas_diluent:
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	666 movf divemins+0,W ; read Default value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	667 addlw 0x04
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	668 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	669 call read_eeprom ; Low-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	670 movff EEDATA,lo
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	671 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	672 addlw 0x05
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	673 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	674 call read_eeprom ; High-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	675 movff EEDATA,hi
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	676
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	677 movf divemins+0,W ; save Default value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	678 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	679 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	680 movff lo,EEDATA
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	681 call write_eeprom ; Low-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	682 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	683 addlw 0x07
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	684 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	685 movff hi,EEDATA
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	686 call write_eeprom ; High-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	687
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	688 movlw d'5'
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	689 movwf menupos
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	690 bra menu_diluentgas1
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	691
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	692
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	693 diluent_title_bar2:
717 91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	694 ; call DISP_topline_box
91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	695 call DISP_divemask_color
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	696 WIN_TOP .2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	697 WIN_LEFT .30
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	698 lfsr FSR2,letter
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	699 STRCAT TXT_DIL5 ; Dil.#
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	700 movff decodata+0,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	701 incf lo,F
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	702 bsf leftbind
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	703 output_99
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	704 STRCAT_PRINT ": "
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	705
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	706 WIN_TOP .2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	707 WIN_LEFT .80
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	708 lfsr FSR2,letter
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	709
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	710 ;He check
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	711 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	712 addlw 0x07
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	713 movwf EEADR
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	714 call read_eeprom ; He value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	715 movff EEDATA,lo ; Move EEData -> lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	716 movf lo,f ; Move lo -> f
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	717 movlw d'0' ; Move 0 -> WREG
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	718 cpfsgt lo ; He > 0?
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	719 bra diluent_title_bar3 ; NO check o2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	720
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	721 ; YES Write TX 15/55
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	722 STRCAT TXT_TX3
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	723 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	724 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	725 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	726 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	727 movff EEDATA,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	728 output_8 ; Write O2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	729 PUTC '/'
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	730 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	731 addlw 0x07
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	732 movwf EEADR
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	733 call read_eeprom ; He value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	734 movff EEDATA,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	735 output_8 ; Write He
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	736 bra diluent_title_bar7
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	737
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	738 ; New v1.44se
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	739 diluent_title_bar3: ; O2 Check
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	740 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	741 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	742 movwf EEADR
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	743 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	744 movff EEDATA,lo
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	745 movf lo,f ; Move lo -> f
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	746 movlw d'21' ; Move 21 -> WREG
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	747 cpfseq lo ; o2 = 21
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	748 cpfsgt lo ; o2 > 21%
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	749 bra diluent_title_bar5 ; NO AIR
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	750 movlw d'100' ; Move 100 -> WREG
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	751 cpfslt lo ; o2 < 100%
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	752 bra diluent_title_bar4 ; NO write O2
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	753
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	754 ; YES Write NX 32
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	755 STRCAT TXT_NX3
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	756 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	757 bra diluent_title_bar7
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	758
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	759 ; New v1.44se
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	760 diluent_title_bar4:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	761 STRCAT TXT_O2_3
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	762 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	763 bra diluent_title_bar7
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	764
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	765 ; New v1.44se
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	766 diluent_title_bar5:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	767 cpfseq lo ; o2 = 21%
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	768 bra diluent_title_bar6
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	769
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	770 STRCAT TXT_AIR4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	771 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	772 bra diluent_title_bar7
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	773
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	774 ; New v1.44se
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	775 diluent_title_bar6: ; ERROR
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	776 STRCAT TXT_ERR4
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	777 output_8
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	778 ;bra diluent_title_bar7
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	779
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	780 diluent_title_bar7:
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	781 STRCAT_PRINT ""
717 91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	782 call DISP_standard_color
642 2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	783 return
2cecac640202 Diluent setup menu work heinrichsweikamp parents: 640 diff changeset	784
639 2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	785
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	786 ; ***
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	787
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	788
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	789
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	790
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	791
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	792
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	793
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	794 menu_const_ppO2_setpoints: ; Setpoint menu
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	795 movlw d'1'
2ab9e9a8a189 New CCR Setup Menu (In work) heinrichsweikamp parents: 576 diff changeset	796 movwf menupos
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	797
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	798 bcf menubit4
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	799 clrf decodata+0 ; Here: # of SP
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	800 bcf first_FA ; Here: =1: -, =0: +
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	801 bcf second_FA ; Here: =1: 1, =0: 10 steps
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	802
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	803 menu_const_ppO20:
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	804 call DISP_ClearScreen
717 91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	805 call DISP_divemask_color
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	806 DISPLAYTEXT .111 ; Constant ppO2 Setup
717 91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	807 call DISP_standard_color
91ae251d379f "ostc3-style" menu titles heinrichsweikamp parents: 685 diff changeset	808
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	809
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	810 menu_const_ppO21:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	811 WIN_LEFT .20
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	812 WIN_TOP .35
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	813 lfsr FSR2,letter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	814 OUTPUTTEXT .112 ; SP#
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	815 movff decodata+0,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	816 incf lo,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	817 bsf leftbind
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	818 output_99
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 0 diff changeset	819 STRCAT " ("
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	820
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	821 OUTPUTTEXT d'192' ; Dil.
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 0 diff changeset	822 PUTC ' '
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	823
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	824 rcall get_first_diluent ; Read first diluent into lo(O2) and hi(He)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	825 bsf leftbind
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	826 output_99 ; O2
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 0 diff changeset	827 PUTC '/'
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	828 movff hi,lo
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	829 output_99 ; He
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 0 diff changeset	830 STRCAT_PRINT ")"
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	831
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	832 WIN_LEFT .20
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	833 WIN_TOP .65
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	834
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	835 lfsr FSR2,letter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	836 OUTPUTTEXT .97 ; "Current: "
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	837 movf decodata+0,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	838 addlw d'36' ; offset in eeprom
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	839 movwf EEADR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	840 call read_eeprom ; ppO2 value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	841 movff EEDATA,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	842 clrf hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	843 bsf leftbind
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	844 output_16dp d'3'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	845 bcf leftbind
445 6e57b5bb98ce localisation part 1 from Sergei heinrichsweikamp parents: 398 diff changeset	846 STRCAT_PRINT TXT_BAR4
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	847
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	848 WIN_LEFT .20
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	849 WIN_TOP .95
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	850
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	851 lfsr FSR2,letter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	852 OUTPUTTEXT d'190' ; ppO2 +
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	853 call word_processor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	854
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	855 WIN_LEFT .20
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	856 WIN_TOP .125
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	857
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	858 lfsr FSR2,letter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	859 OUTPUTTEXT d'191' ; ppO2 -
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	860 call word_processor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	861
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	862 WIN_LEFT .20
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	863 WIN_TOP .155
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	864
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	865 lfsr FSR2,letter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	866 OUTPUTTEXT .89 ; "Default: "
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 0 diff changeset	867 STRCAT_PRINT "1.00"
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	868
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	869 DISPLAYTEXT .11 ; Exit
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	870 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
576 ab2686087bce faster font display, code cleaning heinrichsweikamp parents: 575 diff changeset	871 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	872 call DISP_menu_cursor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	873
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	874 menu_const_ppO2_loop:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	875 call check_switches_logbook
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	876
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	877 btfsc menubit3
575 cbdcbbc91877 some code cleaning heinrichsweikamp parents: 445 diff changeset	878 bra menu_const_ppO22 ; move cursor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	879
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	880 btfsc menubit2
575 cbdcbbc91877 some code cleaning heinrichsweikamp parents: 445 diff changeset	881 bra do_menu_const_ppO2 ; call submenu
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	882
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	883 btfsc onesecupdate
575 cbdcbbc91877 some code cleaning heinrichsweikamp parents: 445 diff changeset	884 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	885
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	886 bcf onesecupdate ; 1 sec. functions done
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	887
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	888 btfsc sleepmode
575 cbdcbbc91877 some code cleaning heinrichsweikamp parents: 445 diff changeset	889 bra exit_menu_const_ppO2
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	890
575 cbdcbbc91877 some code cleaning heinrichsweikamp parents: 445 diff changeset	891 bra menu_const_ppO2_loop
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	892
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	893 menu_const_ppO22:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	894 incf menupos,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	895
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	896 movlw d'2'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	897 cpfseq menupos ; =2?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	898 bra menu_const_ppO22a ; No
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	899 incf menupos,F ; Skip pos. 2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	900
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	901 menu_const_ppO22a:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	902 movlw d'7'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	903 cpfseq menupos ; =7?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	904 bra menu_const_ppO23 ; No
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	905 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	906 movwf menupos
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	907
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	908 menu_const_ppO23:
576 ab2686087bce faster font display, code cleaning heinrichsweikamp parents: 575 diff changeset	909 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
681 6e456a6398e0 Hardware4 support heinrichsweikamp parents: 655 diff changeset	910 call DISP_menu_cursor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	911 bra menu_const_ppO2_loop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	912
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	913 do_menu_const_ppO2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	914 dcfsnz menupos,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	915 bra next_ppO2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	916 dcfsnz menupos,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	917 bra change_ppo2_plus
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	918 dcfsnz menupos,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	919 bra change_ppo2_plus
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	920 dcfsnz menupos,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	921 bra change_ppo2_minus
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	922 dcfsnz menupos,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	923 bra change_ppo2_reset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	924 movlw d'2'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	925 movwf menupos
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	926 goto menu_const_ppO2_return
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	927
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	928 change_ppo2_plus:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	929 movf decodata+0,W ; read current value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	930 addlw d'36' ; offset in memory
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	931 movwf EEADR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	932 call read_eeprom ; Low-value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	933 movff EEDATA,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	934
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	935 incf lo,F ; increase depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	936 movlw d'251'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	937 cpfseq lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	938 bra change_ppo2_plus2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	939 movlw d'250'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	940 movwf lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	941 change_ppo2_plus2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	942 movff lo,EEDATA ; write result
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	943 call write_eeprom ; save result in EEPROM
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	944 movlw d'3'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	945 movwf menupos
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	946 bra menu_const_ppO21
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	947
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	948 change_ppo2_minus:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	949 movf decodata+0,W ; read current value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	950 addlw d'36' ; offset in memory
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	951 movwf EEADR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	952 call read_eeprom ; Low-value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	953 movff EEDATA,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	954
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	955 decf lo,F ; decrease depth
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	956 movlw d'255'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	957 cpfseq lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	958 bra change_ppo2_minus2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	959 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	960 movwf lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	961
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	962 change_ppo2_minus2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	963 movff lo,EEDATA ; write result
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	964 call write_eeprom ; save result in EEPROM
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	965
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	966 movlw d'4'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	967 movwf menupos
576 ab2686087bce faster font display, code cleaning heinrichsweikamp parents: 575 diff changeset	968 bra menu_const_ppO21
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	969
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	970 change_ppo2_reset: ; reset to 1.00Bar
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	971 movf decodata+0,W ; read current value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	972 addlw d'36' ; offset in memory
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	973 movwf EEADR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	974 movlw d'100'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	975 movwf EEDATA
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	976 call write_eeprom ; save result in EEPROM
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	977 movlw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	978 movwf menupos
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	979 bra menu_const_ppO21
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	980
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	981 next_ppO2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	982 incf decodata+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	983 movlw d'3'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	984 cpfseq decodata+0 ; =3?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	985 bra next_ppO22
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	986 clrf decodata+0 ; yes, so reset to zero
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	987 next_ppO22:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	988 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	989 movwf menupos
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	990 bra menu_const_ppO21
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	991
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	992 get_first_diluent: ; Read first diluent into lo(O2) and hi(He)
685 aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	993 read_int_eeprom d'116' ; Read First Diluent (1-5)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	994 movf EEDATA,W ; WREG: 0-4
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	995 mullw .4 ; PRODL: 0-16
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases) heinrichsweikamp parents: 681 diff changeset	996 movlw .93 ; Base address for O2
655 8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	997 addwf PRODL,W
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	998 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	999 call read_eeprom ; Read O2
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	1000 movff EEDATA,lo
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	1001 incf EEADR,F
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	1002 call read_eeprom ; Read He
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	1003 movff EEDATA,hi
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	1004 return
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes heinrichsweikamp parents: 652 diff changeset	1005

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/menu_ppO2.asm @ 766:3b1af9891019