mk2: code_part1/OSTC_code_asm_part1/pled

annotate code_part1/OSTC_code_asm_part1/pled_outputs.asm.orig @ 85:8b813f67220f

renaming "Max Depth" to "max."

author	heinrichsweikamp
date	Wed, 08 Dec 2010 08:37:03 +0100
parents	3e351e25f5d1
children

rev	line source
83 3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2 ; OSTC - diving computer code
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3 ; Copyright (C) 2008 HeinrichsWeikamp GbR
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	5 ; This program is free software: you can redistribute it and/or modify
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	6 ; it under the terms of the GNU General Public License as published by
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	7 ; the Free Software Foundation, either version 3 of the License, or
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	8 ; (at your option) any later version.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	9
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	10 ; This program is distributed in the hope that it will be useful,
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	13 ; GNU General Public License for more details.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	14
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	15 ; You should have received a copy of the GNU General Public License
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	16 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	17
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	18
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	19 ; routines for display outputs
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	21 ; written: 15/01/05
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	22 ; last updated: 06/06/08
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	23 ; known bugs:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	24 ; ToDo: More comments
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	25
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	26 PLED_divemask_color:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	27 GETCUSTOM8 d'36' ; Divemask output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	28 bra PLED_standard_color_0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	29
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	30 PLED_warnings_color:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	31 GETCUSTOM8 d'37' ; Warnings output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	32 bra PLED_standard_color_0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	33
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	34 PLED_standard_color:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	35 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	36 PLED_standard_color_0: ; Common entry point
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	37 movwf oled1_temp ; copy
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	38 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	39 cpfseq oled1_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	40 bra PLED_standard_color_1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	41 bra PLED_standard_color2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	42 PLED_standard_color_1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	43 movlw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	44 cpfseq oled1_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	45 bra PLED_standard_color_2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	46 bra PLED_standard_color2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	47 PLED_standard_color_2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	48 movlw d'8'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	49 cpfseq oled1_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	50 bra PLED_standard_color_3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	51 bra PLED_standard_color2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	52 PLED_standard_color_3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	53 movlw d'192'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	54 cpfseq oled1_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	55 bra PLED_standard_color_4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	56 bra PLED_standard_color2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	57 PLED_standard_color_4:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	58 movlw d'196'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	59 cpfseq oled1_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	60 bra PLED_standard_color_5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	61 bra PLED_standard_color2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	62 PLED_standard_color_5:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	63 movlw d'200'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	64 cpfseq oled1_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	65 bra PLED_standard_color_6
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	66 bra PLED_standard_color2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	67 PLED_standard_color_6:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	68 movf oled1_temp,W ; Color should be OK...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	69 call PLED_set_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	70 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	71 PLED_standard_color2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	72 movlw 0xFF ; Reset Color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	73 call PLED_set_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	74 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	75
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	76 PLED_color_code macro color_code_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	77 movlw color_code_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	78 call PLED_color_code1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	79 endm
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	80
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	81 PLED_color_code1: ; Color-codes the output, if required
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	82 movwf debug_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	83 dcfsnz debug_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	84 bra PLED_color_code_depth ; CF43 [mBar], 16Bit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	85 dcfsnz debug_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	86 bra PLED_color_code_cns ; CF44 [%]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	87 dcfsnz debug_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	88 bra PLED_color_code_gf ; CF45 [%]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	89 dcfsnz debug_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	90 bra PLED_color_code_ppo2 ; CF46 [cBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	91 dcfsnz debug_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	92 bra PLED_color_code_velocity ; CF47 [m/min]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	93 dcfsnz debug_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	94 bra PLED_color_code_ceiling ; Show warning if CF41=1 and current depth>shown ceiling
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	95 dcfsnz debug_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	96 bra PLED_color_code_gaslist ; Color-code current row in Gaslist (%O2 in "EEDATA")
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	97
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	98
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	99 PLED_color_code_gaslist: ; %O2 in "EEDATA"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	100 ; Check very high ppO2 manually
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	101 movff amb_pressure+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	102 movff amb_pressure+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	103 movlw d'10'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	104 movwf xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	105 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	106 call div16x16 ; xC=p_amb/10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	107 movff xC+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	108 movff xC+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	109 movff EEDATA,xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	110 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	111 call mult16x16 ; EEDATA * p_amb/10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	112
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	113 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55Bar?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	114 bra PLED_color_code_gaslist1 ; Yes, warn in warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	115
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	116 movff xC+0,sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	117 movff xC+1,sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	118 GETCUSTOM8 d'46' ; color-code ppO2 warning [cBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	119 mullw d'100' ; ppo2_warning_high*100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	120 movff PRODL,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	121 movff PRODH,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	122 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	123 btfss neg_flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	124 bra PLED_color_code_gaslist1; too high -> Warning Color!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	125 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	126 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	127
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	128 PLED_color_code_gaslist1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	129 call PLED_warnings_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	130 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	131
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	132
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	133 PLED_color_code_ceiling:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	134 GETCUSTOM8 d'40' ; =1: Warn at all?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	135 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	136 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	137 cpfseq lo ; =1?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	138 bra PLED_color_code_ceiling1 ; No, Set to default color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	139
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	140 movff char_O_array_decodepth+0,lo ; Ceiling in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	141 decf lo,F ; -1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	142 movff rel_pressure+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	143 movff rel_pressure+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	144 movlw LOW d'100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	145 movwf xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	146 clrf xB+1 ; Devide/100 -> xC+0 = Depth in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	147 call div16x16 ; xA/xB=xC with xA as remainder
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	148 movf xC+0,W ; Depth in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	149 subwf lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	150 btfsc STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	151 bra PLED_color_code_ceiling2 ; Set to warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	152 PLED_color_code_ceiling1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	153 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	154 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	155 PLED_color_code_ceiling2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	156 call PLED_warnings_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	157 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	158
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	159 PLED_color_code_depth:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	160 movff hi,hi_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	161 movff lo,lo_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	162 movff rel_pressure+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	163 movff rel_pressure+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	164 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	165 movff lo,sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	166 movff hi,sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	167 GETCUSTOM15 d'43' ; Depth warn [mBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	168 movff lo,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	169 movff hi,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	170 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	171 btfss neg_flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	172 bra PLED_color_code_depth2; Set to warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	173 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	174 movff hi_temp,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	175 movff lo_temp,lo ; Restore hi, lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	176 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	177 PLED_color_code_depth2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	178 call PLED_warnings_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	179 movff hi_temp,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	180 movff lo_temp,lo ; Restore hi, lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	181 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	182
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	183 PLED_color_code_cns:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	184 movff char_O_CNS_fraction,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	185 GETCUSTOM8 d'44' ; CNS Warn [%]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	186 subwf lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	187 btfsc STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	188 bra PLED_color_code_cns2 ; Set to warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	189 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	190 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	191 PLED_color_code_cns2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	192 call PLED_warnings_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	193 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	194
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	195 PLED_color_code_gf:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	196 movff char_O_gradient_factor,lo ; gradient factor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	197 GETCUSTOM8 d'45' ; GF Warn [%]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	198 subwf lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	199 btfsc STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	200 bra PLED_color_code_gf2 ; Set to warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	201 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	202 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	203 PLED_color_code_gf2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	204 call PLED_warnings_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	205 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	206
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	207 PLED_color_code_ppo2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	208 ; Check very high ppO2 manually
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	209 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55Bar?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	210 bra PLED_color_code_ppo22 ; Yes, warn in warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	211
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	212 movff xC+0,sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	213 movff xC+1,sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	214 GETCUSTOM8 d'46' ; color-code ppO2 warning [cBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	215 mullw d'100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	216 movff PRODL,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	217 movff PRODH,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	218 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	219 btfss neg_flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	220 bra PLED_color_code_ppo22; Set to warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	221 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	222 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	223 PLED_color_code_ppo22:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	224 call PLED_warnings_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	225 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	226
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	227 PLED_color_code_velocity:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	228 btfss neg_flag ; Ignore for ascend!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	229 bra PLED_color_code_velocity1 ; Skip check!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	230 movff divA+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	231 GETCUSTOM8 d'47' ; Velocity warn [m/min]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	232 subwf lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	233 btfsc STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	234 bra PLED_color_code_velocity2 ; Set to warning color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	235 PLED_color_code_velocity1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	236 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	237 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	238 PLED_color_code_velocity2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	239 call PLED_warnings_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	240 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	241
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	242 ostc_debug macro debug_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	243 movlw debug_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	244 call ostc_debug1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	245 endm
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	246
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	247 ostc_debug1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	248 movwf debug_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	249
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	250 movff debug_char+4,debug_char+5 ; Save for background debugger
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	251 movff debug_char+3,debug_char+4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	252 movff debug_char+2,debug_char+3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	253 movff debug_char+1,debug_char+2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	254 movff debug_char+0,debug_char+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	255 movff debug_temp,debug_char+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	256
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	257 btfss debug_mode ; Are we in debugmode?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	258 return ; No, return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	259
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	260 WIN_TOP .200
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	261 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	262 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	263 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	264 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	265 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	266 movf debug_char+0,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	267 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	268 movf debug_char+1,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	269 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	270 movf debug_char+2,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	271 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	272 movf debug_char+3,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	273 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	274 movf debug_char+4,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	275 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	276 movf debug_char+5,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	277 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	278 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	279 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	280 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	281 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	282
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	283
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	284 PLED_resetdebugger:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	285 bcf LED_blue
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	286 call PLED_boot ; PLED boot
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	287 call PLED_ClearScreen ; clean up OLED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	288 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	289 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	290
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	291 DISPLAYTEXT .133
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	292 DISPLAYTEXT .134
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	293 DISPLAYTEXT .135
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	294 DISPLAYTEXT .136 ; Display Debug intro
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	295
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	296 WIN_TOP .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	297 WIN_LEFT .10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	298 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	299 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	300 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	301 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	302 movf debug_char+0,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	303 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	304 movf debug_char+1,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	305 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	306 movf debug_char+2,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	307 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	308 movf debug_char+3,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	309 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	310 movf debug_char+4,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	311 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	312 movf debug_char+5,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	313 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	314 movlw '.'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	315 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	316 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	317 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	318 movff flag1,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	319 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	320 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	321 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	322 movff flag2,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	323 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	324 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	325
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	326 WIN_TOP .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	327 WIN_LEFT .10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	328 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	329 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	330 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	331
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	332 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	333 movff flag3,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	334 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	335 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	336 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	337 movff flag4,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	338 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	339 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	340 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	341 movff flag5,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	342 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	343 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	344 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	345 movff flag6,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	346 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	347 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	348 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	349 movff flag7,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	350 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	351 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	352
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	353 WIN_TOP .150
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	354 WIN_LEFT .10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	355 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	356 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	357 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	358
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	359 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	360 movff flag8,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	361 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	362 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	363 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	364 movff flag9,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	365 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	366 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	367 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	368 movff flag10,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	369 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	370 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	371 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	372 movff flag11,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	373 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	374 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	375 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	376 movff flag12,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	377 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	378 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	379
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	380 PLED_resetdebugger_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	381 btfss switch_left
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	382 bra PLED_resetdebugger_loop ; Loop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	383 bcf LED_red
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	384 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	385
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	386 PLED_divemode_mask: ; Displays mask in Dive-Mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	387 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	388 DISPLAYTEXTH .267 ; Max Depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	389 DISPLAYTEXT .86 ; Divetime
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	390 DISPLAYTEXT .87 ; Depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	391 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	392 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	393
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	394 PLED_clear_decoarea:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	395 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	396 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	397 movlw .60
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	398 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	399 movlw .239
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	400 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	401 movlw .090
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	402 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	403 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	404 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	405 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	406 call PLED_temp_divemode ; redraw temperature
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	407 call PLED_active_gas_divemode ; redraw active Gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	408 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	409
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	410 PLED_display_ndl_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	411 ; Clear Dekostop and Dekosum
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	412 rcall PLED_clear_decoarea
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	413
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	414 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	415 DISPLAYTEXT d'84' ; NoStop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	416 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	417
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	418 PLED_display_ndl_mask2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	419 ; Clears Gradient Factor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	420 movlw d'8'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	421 movwf temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	422 WIN_TOP .145
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	423 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	424 call PLED_display_clear_common_y1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	425 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	426
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	427 PLED_display_ndl:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	428 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	429 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	430
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	431 ostc_debug 'z' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	432
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	433 WIN_TOP .185
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	434 WIN_LEFT .119
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	435 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	436 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	437 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	438
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	439 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	440 movff char_O_nullzeit,lo ; NDL in minutes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	441 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	442 movlw 0x27 ; "'"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	443 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	444 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	445 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	446 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	447
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	448 PLED_display_deko_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	449 rcall PLED_clear_decoarea
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	450 ; total deco time word
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	451 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	452 DISPLAYTEXT d'85' ; TTS
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	453 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	454 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	455
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	456 PLED_display_deko:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	457 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	458 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	459
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	460 btfsc menubit ; Divemode menu active?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	461 bra PLED_display_deko1 ; Yes, do not display dekostop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	462
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	463 ostc_debug 'y' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	464 ; deco stop word
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	465 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	466 DISPLAYTEXT d'82' ; DEKOSTOP
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	467 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	468
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	469 WIN_TOP .118
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	470 WIN_LEFT .94
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	471 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	472 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	473 PLED_color_code warn_ceiling ; Color-code Output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	474 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	475 movff char_O_array_decodepth+0,lo ; Ceiling in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	476 output_99
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	477 movlw 'm' ; "m"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	478 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	479 movff char_O_array_decotime,lo ; length of first stop in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	480 output_99
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	481 movlw 0x27 ; "'"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	482 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	483 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	484 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	485
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	486 PLED_display_deko1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	487 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	488 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	489
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	490 ostc_debug 'x' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	491
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	492 WIN_TOP .185
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	493 WIN_LEFT .119
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	494 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	495 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	496 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	497 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	498 movff char_O_ascenttime,lo ; complete ascend time
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	499 movlw d'199' ; limit display of total ascend time to 99mins....
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	500 cpfslt lo ; skip if 199 (WREG) > lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	501 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	502 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	503 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	504 movlw 0x27 ; "'"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	505 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	506 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	507
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	508 movff char_O_gradient_factor,lo ; gradient factor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	509 GETCUSTOM8 d'8' ; threshold for display
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	510 cpfslt lo ; show value?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	511 bra PLED_display_deko2 ; Yes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	512 ; No
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	513 bra PLED_display_ndl_mask2 ; Clear gradient factor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	514
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	515 PLED_display_deko2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	516 ostc_debug 'w' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	517 ;GF
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	518 WIN_TOP .145
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	519 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	520 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	521 PLED_color_code warn_gf ; Color-code Output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	522 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	523 movlw 'G'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	524 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	525 movlw 'F'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	526 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	527 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	528 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	529 movff char_O_gradient_factor,lo ; gradient factor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	530 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	531 movlw '%'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	532 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	533 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	534 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	535 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	536 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	537 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	538
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	539 PLED_simulator_data:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	540 WIN_TOP .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	541 WIN_LEFT .105
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	542 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	543 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	544 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	545 movff logbook_temp1,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	546 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	547 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	548 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	549 movlw 'm'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	550 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	551 movlw 'i'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	552 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	553 movlw 'n'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	554 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	555 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	556 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	557 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	558
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	559 WIN_TOP .95
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	560 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	561 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	562 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	563 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	564 movff logbook_temp2,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	565 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	566 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	567 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	568 movlw 'm'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	569 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	570 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	571 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	572 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	573 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	574
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	575 PLED_display_velocity:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	576 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	577 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	578
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	579 ostc_debug 'v' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	580 WIN_TOP .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	581 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	582 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	583 PLED_color_code warn_velocity ; Color code output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	584 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	585 movlw '-'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	586 btfsc neg_flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	587 movlw '+'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	588 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	589 movff divA+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	590 output_99
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	591 OUTPUTTEXT d'83' ; m/min
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	592 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	593 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	594 bsf pled_velocity_display
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	595 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	596
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	597 PLED_display_velocity_clear:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	598 movlw d'8'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	599 movwf temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	600 WIN_TOP .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	601 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	602 bcf pled_velocity_display
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	603 bra PLED_display_clear_common_y1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	604
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	605 PLED_display_wait_clear
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	606 movlw d'6'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	607 movwf temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	608 WIN_TOP .2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	609 WIN_LEFT .115
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	610 bra PLED_display_clear_common_y1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	611
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	612 PLED_display_clear_common_y2: ; Clears with y-scale=2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	613 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	614 bra PLED_display_clear_common1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	615
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	616 PLED_display_clear_common_y1: ; Clears with y-scale=1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	617 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	618 PLED_display_clear_common1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	619 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	620 PLED_display_clear_common2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	621 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	622 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	623 decfsz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	624 bra PLED_display_clear_common2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	625 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	626 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	627 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	628
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	629 PLED_diveclock:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	630 GETCUSTOM8 d'39' ; =1: Show clock in Divemode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	631 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	632 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	633 cpfseq lo ; =1?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	634 return ; No, Done.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	635
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	636 btfsc menubit ; is the Dive mode menu displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	637 return ; Yes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	638
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	639 WIN_TOP .2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	640 WIN_LEFT .64
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	641 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	642 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	643 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	644 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	645 movff hours,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	646 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	647 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	648 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	649 movff mins,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	650 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	651 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	652 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	653
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	654 PLED_clock:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	655 ostc_debug 'c'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	656
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	657 ;If > 0 display surface_interval:2 and clock changing every 5 seconds
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	658 ;use timeout_counter for this
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	659 WIN_TOP .50
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	660 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	661 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	662 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	663 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	664
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	665 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	666
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	667 movff surface_interval+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	668 tstfsz lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	669 bra PLED_clock0 ; Not Zero, switch between Interval and clock
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	670 movff surface_interval+1,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	671 tstfsz lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	672 bra PLED_clock0 ; Not Zero, switch between Interval and clock
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	673 bra PLED_clock3 ; surface_interval=0, always display clock!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	674
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	675 PLED_clock0:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	676 btfss show_interval ; Show Interval?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	677 bra PLED_clock2 ; No, display clock and reset counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	678
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	679 PLED_clock1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	680 decfsz timeout_counter,F ; =0?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	681 bra PLED_clock1a ; No...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	682 bra PLED_clock3 ; Yes, display clock and reset counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	683
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	684 PLED_clock1a:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	685 bsf show_interval
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	686 movlw d'6'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	687 cpfslt timeout_counter ; f < w? -> timeout_counter>5?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	688 rcall PLED_clock_reload_timer ; No, reload counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	689
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	690 movff surface_interval+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	691 movff surface_interval+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	692 call convert_time ; lo=mins, hi=hours
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	693
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	694 movf hi,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	695 movff lo,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	696 movwf lo ; exchange lo and hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	697
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	698 movlw 'I'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	699 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	700 movlw 'n'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	701 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	702 movlw 't'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	703 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	704 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	705 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	706 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	707 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	708 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	709 movff hi,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	710 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	711 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	712 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	713 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	714 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	715
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	716 PLED_clock_reload_timer:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	717 bcf show_interval
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	718 movlw d'5'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	719 movwf timeout_counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	720 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	721
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	722 PLED_interval_reload_timer:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	723 bsf show_interval
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	724 movlw d'5'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	725 movwf timeout_counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	726 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	727
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	728 PLED_clock2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	729 decfsz timeout_counter,F ; =0?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	730 bra PLED_clock3 ; No...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	731 bra PLED_clock1a ; Yes, display interval and reset counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	732
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	733 PLED_clock3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	734 bcf show_interval
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	735 movlw d'6'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	736 cpfslt timeout_counter ; f < w? -> timeout_counter>5?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	737 rcall PLED_interval_reload_timer; No, reload counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	738
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	739 movff hours,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	740 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	741 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	742 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	743 movff mins,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	744 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	745 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	746 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	747 movff secs,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	748 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	749 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	750 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	751 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	752 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	753
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	754 PLED_logbook_cursor:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	755
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	756 PLED_menu_cursor:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	757 WIN_TOP .35
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	758 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	759 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	760 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	761 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	762
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	763 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	764 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	765 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	766 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	767
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	768 WIN_TOP .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	769 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	770 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	771 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	772 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	773
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	774 WIN_TOP .95
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	775 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	776 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	777 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	778 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	779
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	780 WIN_TOP .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	781 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	782 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	783 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	784 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	785
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	786 WIN_TOP .155
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	787 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	788 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	789 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	790 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	791 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	792
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	793 WIN_TOP .185
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	794 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	795 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	796 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	797 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	798
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	799 movff menupos,temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	800 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	801 movlw d'35'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	802 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	803 movlw d'65'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	804 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	805 movlw d'95'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	806 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	807 movlw d'125'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	808 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	809 movlw d'155'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	810 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	811 movlw d'185'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	812
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	813 movff WREG,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	814 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	815 movlw 0xB7
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	816 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	817 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	818 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	819
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	820 PLED_menu_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	821 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	822 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	823 DISPLAYTEXT .5 ; Menu:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	824 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	825 DISPLAYTEXT .6 ; Logbook
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	826 DISPLAYTEXT .7 ; Gas Setup
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	827 DISPLAYTEXT .9 ; Reset all
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	828 DISPLAYTEXT .10 ; Setup...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	829 DISPLAYTEXT .142 ; More...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	830 DISPLAYTEXT .11 ; Exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	831 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	832
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	833 PLED_setup_menu_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	834 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	835 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	836 DISPLAYTEXT .98 ; Setup Menu:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	837 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	838 DISPLAYTEXT .99 ; Custom FunctionsI
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	839 DISPLAYTEXT .153 ; Custom FunctionsII
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	840 DISPLAYTEXTH .276 ; Salinity:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	841 DISPLAYTEXT .100 ; Decotype:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	842 DISPLAYTEXT .142 ; More...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	843 DISPLAYTEXT .11 ; Exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	844 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	845
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	846 PLED_more_setup_menu_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	847 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	848 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	849 DISPLAYTEXTH .258 ; Setup Menu 2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	850 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	851 DISPLAYTEXTH .257 ; Date format:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	852 DISPLAYTEXT .129 ; Debug:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	853 DISPLAYTEXT .187 ; Show License
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	854
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	855 DISPLAYTEXT .11 ; Exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	856 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	857
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	858 PLED_more_menu_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	859 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	860 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	861 DISPLAYTEXT .144 ; Menu 2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	862 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	863 DISPLAYTEXT .8 ; Set Time
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	864 DISPLAYTEXT .110 ; Const. ppO2 Setup
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	865 DISPLAYTEXT .113 ; Battery Info
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	866 DISPLAYTEXT .247 ; Simulator
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	867
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	868 DISPLAYTEXT .11 ; Exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	869 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	870
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	871 PLED_reset_menu_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	872 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	873 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	874 DISPLAYTEXT .28 ; Reset Menu
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	875 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	876 DISPLAYTEXT .21 ; Cancel Reset
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	877 DISPLAYTEXT .245 ; Reset CF,Gases & Deco
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	878 DISPLAYTEXTH .284 ; Reset Logbook
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	879 DISPLAYTEXTH .285 ; Reboot OSTC
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	880 DISPLAYTEXTH .286 ; Reset Decodata
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	881 DISPLAYTEXT .11 ; Exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	882 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	883
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	884 PLED_simulator_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	885 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	886 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	887 DISPLAYTEXT .248 ; OSTC Simulator
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	888 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	889 DISPLAYTEXT .249 ; Start Dive
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	890 DISPLAYTEXTH .277 ; Bottom Time:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	891 DISPLAYTEXTH .278 ; Max. Depth:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	892 DISPLAYTEXTH .279 ; Calculate Deco
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	893 DISPLAYTEXTH .280 ; Show Decoplan
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	894 DISPLAYTEXT .11 ; Exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	895 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	896
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	897
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	898
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	899
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	900 PLED_temp_surfmode:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	901 ostc_debug 'e'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	902 movff temperature+0,last_temperature+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	903 movff temperature+1,last_temperature+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	904 WIN_TOP .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	905 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	906 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	907 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	908 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	909
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	910 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	911 movlw '-'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	912 btfsc neg_temp ; Show "-"?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	913 movwf POSTINC2 ; Yes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	914 movff temperature+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	915 movff temperature+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	916 movlw d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	917 movwf ignore_digits
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	918 bsf leftbind ; left orientated output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	919 output_16dp d'2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	920 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	921 movlw '�'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	922 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	923 movlw 'C'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	924 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	925 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	926 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	927 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	928 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	929
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	930 PLED_temp_divemode:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	931 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	932 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	933
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	934 ostc_debug 'u' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	935
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	936 ; temperature
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	937 movff temperature+0,last_temperature+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	938 movff temperature+1,last_temperature+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	939
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	940 WIN_TOP .216
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	941 WIN_LEFT .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	942 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	943 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	944 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	945
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	946 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	947 movlw '-'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	948 btfsc neg_temp ; Show "-"?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	949 movwf POSTINC2 ; Yes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	950 movff temperature+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	951 movff temperature+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	952 movlw d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	953 movwf ignore_digits
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	954 bsf leftbind ; left orientated output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	955 output_16dp d'2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	956 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	957 movlw '�'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	958 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	959 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	960 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	961 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	962 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	963
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	964 PLED_show_ppO2: ; Show ppO2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	965 ostc_debug 't' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	966 WIN_TOP .120
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	967 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	968 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	969 PLED_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	970
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	971 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	972 movlw 'p'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	973 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	974 movlw 'p'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	975 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	976 movlw 'O'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	977 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	978 movlw '2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	979 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	980 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	981 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	982
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	983 ; Check very high ppO2 manually
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	984 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55Bar?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	985 bra PLED_show_ppO2_3 ; Yes, display fixed Value!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	986
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	987 movff xC+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	988 movff xC+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	989 bsf ignore_digit4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	990 output_16dp d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	991 bcf ignore_digit4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	992 PLED_show_ppO2_2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	993 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	994 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	995 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	996 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	997 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	998
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	999 PLED_show_ppO2_3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1000 movlw '>'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1001 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1002 movlw '6'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1003 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1004 movlw '.'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1005 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1006 movlw '6'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1007 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1008 bra PLED_show_ppO2_2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1009
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1010 PLED_show_ppO2_clear: ; Clear ppO2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1011 movlw d'10'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1012 movwf temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1013 WIN_TOP .120
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1014 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1015 call PLED_display_clear_common_y1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1016 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1017
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1018 PLED_active_gas_clear: ; clears active gas!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1019 WIN_TOP .192
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1020 WIN_LEFT .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1021 movlw d'5'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1022 movwf temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1023 bra PLED_display_clear_common_y1; also returns!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1024
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1025 PLED_active_gas_divemode: ; Displays current gas (e.g. 40/20) if a) He>0 or b) O2>Custom9
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1026 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1027 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1028
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1029 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1030 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1031
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1032 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1033 call PLED_active_gas_divemode_show ; Show gas (Non-Inverted in all cases)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1034
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1035 btfss better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1036 return ; Done.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1037
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1038 ; Check if Gas Output should blink when a better gas is available...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1039 GETCUSTOM8 d'42' ; =1 if gas should blink
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1040 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1041 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1042 cpfseq lo ; =1?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1043 return ; No, Done.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1044
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1045 btg blinking_better_gas ; Toggle blink bit...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1046 btfss blinking_better_gas ; blink now?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1047 return ; No, Done.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1048 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1049 call PLED_active_gas_divemode_show ; Show gas (Non-Inverted in all cases)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1050 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1051 return ; Done.
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1052
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1053 PLED_active_gas_divemode_show:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1054 ostc_debug 's' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1055 ; gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1056 WIN_TOP .192
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1057 WIN_LEFT .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1058 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1059 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1060
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1061 movlw d'100' ; 100% in the tank
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1062 movff char_I_N2_ratio,lo ; minus N2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1063 bsf STATUS,C ; set borrow bit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1064 subfwb lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1065 movff char_I_He_ratio,lo ; minus He
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1066 bsf STATUS,C ; set borrow bit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1067 subfwb lo,F ; =% O2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1068 GETCUSTOM8 d'9' ; get oxygen treshold
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1069 movff char_I_He_ratio,hi ; He ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1070 cpfsgt lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1071 bra PLED_active_gas_divemode2 ; Check He
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1072 bra PLED_active_gas_divemode3 ; Skip He check, display gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1073
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1074 PLED_active_gas_divemode2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1075 tstfsz hi ; He = 0 %
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1076 bra PLED_active_gas_divemode3 ; display gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1077 ; O2 below treshold, He=0 -> Skip display!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1078 movlw d'5'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1079 movwf temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1080 bra PLED_display_clear_common_y1 ; also returns!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1081
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1082 PLED_active_gas_divemode3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1083 movlw d'21'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1084 cpfseq lo ; Air? (O2=21%)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1085 bra PLED_active_gas_divemode4 ; No!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1086 tstfsz hi ; Air? (He=0%)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1087 bra PLED_active_gas_divemode4 ; No!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1088
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1089 ; Yes, display "Air" instead of 21/0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1090 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1091 OUTPUTTEXTH d'264' ;"Air "
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1092 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1093 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1094 movlw '*'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1095 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1096 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1097 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1098
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1099 PLED_active_gas_divemode4:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1100 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1101 bsf leftbind ; left orientated output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1102 output_8 ; O2 ratio is still in "lo"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1103 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1104 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1105 movff char_I_He_ratio,lo ; copy He ratio into lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1106 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1107 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1108 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1109 movlw '*'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1110 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1111 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1112 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1113 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1114
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1115
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1116
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1117 PLED_display_decotype_surface:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1118 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1119 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1120 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1121 clrf EEADRH
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1122 read_int_eeprom d'34' ; Read deco data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1123 tstfsz EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1124 bra show_decotype_surface2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1126 ;ZH-L16
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1127 WIN_TOP .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1128 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1129
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1130 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1131 movlw 'O'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1132 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1133 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1134 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1135 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1136 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1137 WIN_TOP .150
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1138 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1139
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1140 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1141 movlw 'C'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1142 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1143 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1144 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1145 show_decotype_surface2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1146 decf EEDATA,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1147 tstfsz EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1148 bra show_decotype_surface3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1149 ; Gauge
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1150 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1151
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1152 show_decotype_surface3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1153 decf EEDATA,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1154 tstfsz EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1155 bra show_decotype_surface4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1156 ; const. ppO2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1157 WIN_TOP .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1158 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1160 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1161 movlw 'C'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1162 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1163 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1164 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1165 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1166 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1167 WIN_TOP .150
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1168 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1169
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1170 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1171 movlw 'C'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1172 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1173 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1174 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1175 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1176 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1177 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1178 show_decotype_surface4:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1179 decf EEDATA,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1180 tstfsz EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1181 bra show_decotype_surface5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1182 ; Apnoe
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1183 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1184 show_decotype_surface5:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1185 decf EEDATA,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1186 tstfsz EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1187 bra show_decotype_surface6
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1188 ; Multi-GF OC
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1189 WIN_TOP .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1190 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1191 movlw 'G'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1192 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1193 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1194 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1195 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1196 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1197
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1198 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1199 WIN_TOP .150
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1200 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1201 movlw 'F'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1202 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1203 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1204 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1205 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1206 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1207
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1208 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1209 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1210
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1211 show_decotype_surface6:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1212 ; Multi-GF CC
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1213 WIN_TOP .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1214 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1215 movlw 'G'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1216 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1217 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1218 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1219 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1220 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1221
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1222 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1223 WIN_TOP .150
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1224 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1225 movlw 'F'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1226 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1227 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1228 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1229 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1230 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1231
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1232 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1233 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1234
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1235 PLED_pre_dive_screen: ;Display Pre-Dive Screen
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1236 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1237 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1238 movlw .25
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1239 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1240 movlw .120
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1241 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1242 movlw .82
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1243 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1244 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1245 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1246 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1247
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1248 ; List active gases/Setpoints
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1249
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1250 btfsc FLAG_const_ppO2_mode ; in ppO2 mode?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1251 bra PLED_pre_dive_screen3 ; Yes, display SetPoint/Sensor result list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1252
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1253 PLED_pre_dive_screen2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1254 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1255
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1256 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1257 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1258 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1259
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1260 movlw d'2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1261 movwf wait_temp ; here: stores eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1262 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1263 movwf waitms_temp ; here: stores row for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1264 clrf hi ; here: Gas counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1265
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1266 PLED_pre_dive_screen2_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1267 incf hi,F ; Increase Gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1268 movlw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1269 addwf wait_temp,F ; Increase eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1270
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1271 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1272 movlw 'G'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1273 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1274 movff hi,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1275 output_8 ; display gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1276 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1277 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1278 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1279 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1280 movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1281 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1282 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1283 output_8 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1284 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1285 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1286 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1287 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1288 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1289 output_8 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1290
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1291 read_int_eeprom d'27' ; read flag register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1292 movff hi,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1293 PLED_pre_dive_screen2_loop1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1294 rrcf EEDATA ; roll flags into carry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1295 decfsz lo,F ; max. 5 times...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1296 bra PLED_pre_dive_screen2_loop1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1297
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1298 btfsc STATUS,C ; test carry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1299 bra PLED_pre_dive_white
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1300
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1301 movlw color_grey
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1302 call PLED_set_color ; grey out inactive gases!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1303 bra PLED_pre_dive_color_done
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1304
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1305 PLED_pre_dive_white:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1306 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1307
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1308 PLED_pre_dive_color_done:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1309 read_int_eeprom d'33' ; Read start gas (1-5)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1310 movf EEDATA,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1311 cpfseq hi ; Current Gas the active gas?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1312 bra PLED_pre_dive_screen2a
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1313 bra PLED_pre_dive_screen2b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1314
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1315 PLED_pre_dive_screen2a:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1316 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1317 addwf waitms_temp,F ; Increase row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1318 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1319 movff waitms_temp,win_top ; Set Row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1320 call word_processor ; No, display gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1321
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1322 PLED_pre_dive_screen2b:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1323 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1324
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1325 movlw d'5' ; list all four (remaining) gases
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1326 cpfseq hi ; All gases shown?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1327 bra PLED_pre_dive_screen2_loop ; No
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1328
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1329 return ; No, return (OC mode)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1330
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1331 PLED_pre_dive_screen3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1332 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1333 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1334 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1335
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1336 ; list three SP in Gaslist
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1337 movlw d'35' ; 36 = current SP position in EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1338 movwf wait_temp ; here: stores eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1339 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1340 movwf waitms_temp ; here: stores row for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1341 clrf temp6 ; here: SP counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1342
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1343 PLED_pre_dive_screen3_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1344 incf wait_temp,F ; EEPROM address
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1345 incf temp6,F ; Increase SP
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1346
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1347 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1348 addwf waitms_temp,F ; Increase row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1349 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1350 movff waitms_temp,win_top ; Set Row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1351
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1352 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1353 movlw 'S'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1354 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1355 movlw 'P'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1356 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1357 movff temp6,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1358 output_8 ; display gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1359 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1360 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1361 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1362 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1363 movff wait_temp, EEADR; SP #hi position
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1364 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1365 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1366 clrf hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1367 output_16dp d'3' ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1368 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1369
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1370 movlw d'3' ; list all three SP
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1371 cpfseq temp6 ; All gases shown?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1372 bra PLED_pre_dive_screen3_loop ;no
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1373
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1374 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1375 movff EEDATA,active_gas ; Read start gas (1-5)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1376 decf active_gas,W ; Gas 0-4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1377 mullw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1378 movf PRODL,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1379 addlw d'7' ; = address for He ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1380 movwf EEADR
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1381 call read_eeprom ; Read He ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1382 movff EEDATA,hi ; And copy into hold register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1383 decf active_gas,W ; Gas 0-4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1384 mullw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1385 movf PRODL,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1386 addlw d'6' ; = address for O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1387 movwf EEADR
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1388 call read_eeprom ; Read O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1389 movff EEDATA, lo ; O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1390
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1391 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1392 WIN_TOP .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1393 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1394 movlw 'D'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1395 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1396 movlw 'i'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1397 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1398 movlw 'l'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1399 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1400 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1401 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1402 output_8 ; O2 Ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1403 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1404 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1405 movff hi,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1406 output_8 ; He Ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1407 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1408
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1409 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1410 return ; Return (CC Mode)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1411
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1412 PLED_active_gas_surfmode: ; Displays start gas/SP 1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1413 ostc_debug 'q' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1414
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1415 btfsc FLAG_apnoe_mode ; In Apnoe mode?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1416 return ; Yes, return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1417
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1418 btfsc gauge_mode ; In Gauge mode?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1419 return ; Yes, return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1420
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1421 btfss FLAG_const_ppO2_mode ; are we in const. ppO2 mode?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1422 bra PLED_active_gas_surfmode2 ; No, display gases
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1423
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1424 ; In CC Mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1425 WIN_TOP .135
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1426 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1427 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1428 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1429 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1430
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1431 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1432 read_int_eeprom d'36'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1433 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1434 clrf hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1435 output_16dp d'3' ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1436 movlw 'B'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1437 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1438 movlw 'a'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1439 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1440 movlw 'r'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1441 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1442 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1443 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1444 bra PLED_active_gas_surfmode_exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1445
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1446 PLED_active_gas_surfmode2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1447 WIN_TOP .130
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1448 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1449 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1450 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1451 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1452
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1453
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1454 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1455 movff EEDATA,active_gas ; Read start gas (1-5)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1456
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1457 decf active_gas,W ; Gas 0-4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1458 mullw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1459 movf PRODL,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1460 addlw d'7' ; = address for He ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1461 movwf EEADR
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1462 call read_eeprom ; Read He ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1463 movff EEDATA,char_I_He_ratio ; And copy into hold register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1464
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1465 decf active_gas,W ; Gas 0-4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1466 mullw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1467 movf PRODL,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1468 addlw d'6' ; = address for O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1469 movwf EEADR
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1470 call read_eeprom ; Read O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1471 movff EEDATA, char_I_O2_ratio ; O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1472 movff char_I_He_ratio, wait_temp ; copy into bank1 register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1473 bsf STATUS,C ; Borrow bit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1474 movlw d'100' ; 100%
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1475 subfwb wait_temp,W ; minus He
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1476 bsf STATUS,C ; Borrow bit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1477 subfwb EEDATA,F ; minus O2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1478 movff EEDATA, char_I_N2_ratio ; = N2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1479
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1480 movlw d'100' ; 100% in the tank
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1481 movff char_I_N2_ratio,lo ; minus N2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1482 bsf STATUS,C ; set borrow bit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1483 subfwb lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1484 movff char_I_He_ratio,lo ; minus He
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1485 bsf STATUS,C ; set borrow bit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1486 subfwb lo,F ; =% O2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1487
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1488 movff char_I_He_ratio,hi ; Copy into Bank1 register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1489
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1490 movlw d'21'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1491 cpfseq lo ; Air? (O2=21%)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1492 bra PLED_active_gas_surfmode4 ; No!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1493 tstfsz hi ; Air? (He=0%)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1494 bra PLED_active_gas_surfmode4 ; No!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1495
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1496 ; Yes, display "Air" instead of 21/0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1497 DISPLAYTEXTH d'265' ;"Air ", y-scale=2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1498 bra PLED_active_gas_surfmode_exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1499
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1500 PLED_active_gas_surfmode4:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1501 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1502 bsf leftbind ; left orientated output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1503 output_99 ; O2 ratio is still in "lo"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1504 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1505 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1506 movff char_I_He_ratio,lo ; copy He ratio into lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1507 output_99
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1508 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1509 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1510 bra PLED_active_gas_surfmode_exit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1511
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1512 PLED_active_gas_surfmode_exit:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1513 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1514 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1515 movlw .122
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1516 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1517 movlw .175
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1518 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1519 movlw .82
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1520 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1521 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1522 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1523 call PLED_frame
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1524 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1525
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1526 PLED_confirmbox:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1527 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1528 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1529 movlw .68
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1530 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1531 movlw .146
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1532 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1533 movlw .34
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1534 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1535 movlw .101
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1536 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1537 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1538
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1539 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1540 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1541 movlw .70
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1542 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1543 movlw .144
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1544 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1545 movlw .35
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1546 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1547 movlw .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1548 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1549 call PLED_frame
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1550 DISPLAYTEXT .143 ; Confirm:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1551 DISPLAYTEXT .145 ; Cancel
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1552 DISPLAYTEXT .146 ; OK!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1553
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1554 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1555 movwf menupos
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1556
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1557 PLED_confirmbox2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1558 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1559 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1560 movlw .96
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1561 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1562 movlw .143
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1563 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1564 movlw .39
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1565 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1566 movlw .51
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1567 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1568 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1569
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1570 movff menupos,temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1571 movlw d'96'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1572 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1573 movlw d'96'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1574 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1575 movlw d'120'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1576 movff WREG,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1577 WIN_LEFT .39
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1578 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1579 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1580 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1581
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1582 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1583 movlw 0xB7 ; Arrow for menu
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1584 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1585 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1586
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1587 bcf sleepmode ; clear some flags
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1588 bcf menubit2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1589 bcf menubit3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1590 bcf switch_right
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1591 bcf switch_left
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1592 clrf timeout_counter2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1593 WAITMS d'100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1594
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1595 PLED_confirmbox_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1596 call check_switches_logbook
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1597
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1598 btfsc menubit3 ; SET/MENU?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1599 bra PLED_confirmbox_move_cursor; Move Cursor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1600 btfsc menubit2 ; ENTER?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1601 bra PLED_confirmbox_menu_do ; Do task
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1602
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1603 btfsc onesecupdate
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1604 call timeout_surfmode ; timeout
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1605
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1606 btfsc onesecupdate
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1607 call set_dive_modes ; check, if divemode must be entered
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1608 bcf onesecupdate ; one second update
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1609
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1610 btfsc sleepmode ; Timeout?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1611 bra PLED_confirmbox_cancel ; back with cancel
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1612 btfsc divemode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1613 bra PLED_confirmbox_cancel ; back with cancel
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1614
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1615 bra PLED_confirmbox_loop ; wait for something to do
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1616
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1617 PLED_confirmbox_cancel:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1618 retlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1619 PLED_confirmbox_ok:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1620 retlw .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1621
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1622 PLED_confirmbox_menu_do:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1623 dcfsnz menupos,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1624 bra PLED_confirmbox_cancel
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1625 dcfsnz menupos,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1626 bra PLED_confirmbox_ok
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1627 bra PLED_confirmbox_cancel
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1628
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1629 PLED_confirmbox_move_cursor:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1630 incf menupos,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1631 movlw d'3' ; number of menu options+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1632 cpfseq menupos ; =limit?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1633 bra PLED_confirmbox_move_cursor2 ; No!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1634 movlw d'1' ; Yes, reset to position 1!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1635 movwf menupos
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1636 PLED_confirmbox_move_cursor2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1637 bra PLED_confirmbox2 ; Return to Profile Menu, also updates cursor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1638
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1639
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1640 PLED_depth:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1641 ostc_debug 'r' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1642 movff rel_pressure+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1643 movff rel_pressure+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1644 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1645
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1646 movlw .039
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1647 cpfslt hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1648 bra depth_greater_99_84mtr
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1649
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1650 btfsc depth_greater_100m ; Was depth>100m during last call
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1651 call PLED_clear_depth ; Yes, clear depth area
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1652 bcf depth_greater_100m ; Do this once only...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1653
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1654 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1655
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1656 movlw HIGH d'1000'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1657 movwf sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1658 movlw LOW d'1000'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1659 movwf sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1660 movff hi,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1661 movff lo,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1662 incf sub_b+0,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1663 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1664 addwfc sub_b+1,F ; Add 1mBar offset
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1665 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1666 btfss neg_flag ; Depth lower then 10m?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1667 rcall depth_less_10mtr ; Yes, add extra space
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1668
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1669 WIN_TOP .24
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1670 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1671 WIN_FONT FT_LARGE
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1672 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1673 PLED_color_code warn_depth ; Color-code the output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1674
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1675 movlw HIGH d'99'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1676 movwf sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1677 movlw LOW d'99'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1678 movwf sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1679 movff hi,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1680 movff lo,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1681 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1682 btfss neg_flag ; Depth lower then 1m?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1683 bra pled_depth2 ; Yes, display manual Zero
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1684
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1685 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1686 bsf ignore_digit4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1687 output_16 ; Full meters in Big font
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1688 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1689 bra pled_depth3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1690
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1691 pled_depth2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1692 movlw '0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1693 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1694 pled_depth3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1695 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1696 bcf ignore_digit4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1697
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1698 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1699 WIN_TOP .50
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1700 WIN_LEFT .40
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1701 PLED_color_code warn_depth ; Color-code the output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1702
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1703 movff rel_pressure+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1704 movff rel_pressure+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1705 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1706 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1707 movlw '.'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1708 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1709
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1710 movlw HIGH d'9'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1711 movwf sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1712 movlw LOW d'9'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1713 movwf sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1714 movff hi,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1715 movff lo,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1716 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1717 btfss neg_flag ; Depth lower then 0.1m?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1718 bra pled_depth4 ; Yes, display manual Zero
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1719
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1720 movlw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1721 movwf ignore_digits
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1722 bsf ignore_digit5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1723 output_16dp d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1724 bra pled_depth5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1725
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1726 pled_depth4:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1727 movlw '0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1728 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1729
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1730 pled_depth5:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1731 call word_processor ; decimeters in medium font
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1732 bcf ignore_digit5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1733 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1734 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1735
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1736 depth_greater_99_84mtr: ; Display only in full meters
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1737 btfss depth_greater_100m ; Is depth>100m already?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1738 call PLED_clear_depth ; No, clear depth area and set flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1739 ; Depth is already in hi:lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1740 ; Show depth in Full meters
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1741 ; That means ignore figure 4 and 5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1742 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1743 WIN_TOP .24
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1744 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1745 WIN_FONT FT_LARGE
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1746 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1747 PLED_color_code warn_depth ; Color-code the output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1748
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1749 bsf ignore_digit4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1750 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1751 output_16
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1752 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1753 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1754 bcf ignore_digit4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1755 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1756 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1757
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1758 depth_less_10mtr:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1759 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1760 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1761 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1762
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1763 PLED_clear_depth ; No, clear depth area and set flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1764 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1765 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1766 movlw .24
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1767 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1768 movlw .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1769 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1770 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1771 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1772 movlw .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1773 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1774 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1775 bsf depth_greater_100m ; Set Flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1776 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1777
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1778
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1779 PLED_desaturation_time:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1780 ostc_debug 'h'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1781 WIN_TOP .150
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1782 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1783 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1784 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1785 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1786
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1787 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1788 OUTPUTTEXT d'14' ; Desat
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1789 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1790 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1791 movff int_O_desaturation_time+0,lo ; divide by 60...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1792 movff int_O_desaturation_time+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1793 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1794 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1795 movf lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1796 movff hi,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1797 movwf hi ; exchange lo and hi...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1798 output_8 ; Hours
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1799 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1800 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1801 movff hi,lo ; Minutes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1802 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1803 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1804 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1805 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1806
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1807 PLED_nofly_time:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1808 ostc_debug 'g'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1809 WIN_TOP .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1810 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1811 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1812 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1813 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1814
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1815 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1816 OUTPUTTEXT d'35' ; NoFly
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1817 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1818 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1819 movff nofly_time+0,lo ; divide by 60...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1820 movff nofly_time+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1821 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1822 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1823 movf lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1824 movff hi,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1825 movwf hi ; exchange lo and hi...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1826 output_8 ; Hours
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1827 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1828 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1829 movff hi,lo ; Minutes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1830 decf lo,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1831 btfsc lo,7 ; keep Nofly time
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1832 clrf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1833 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1834 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1835 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1836 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1837
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1838
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1839 update_surf_press:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1840 btfsc premenu ; Do not update when "Menu?" is displayed!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1841 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1842
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1843 ostc_debug 'b' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1844 WIN_TOP .25
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1845 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1846 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1847 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1848 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1849
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1850 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1851 movff amb_pressure+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1852 movff amb_pressure+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1853 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1854 output_16
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1855 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1856 movlw 'm'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1857 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1858 movlw 'b'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1859 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1860 movlw 'a'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1861 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1862 movlw 'r'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1863 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1864 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1865 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1866 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1867 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1868
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1869 update_batt_voltage_divemode:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1870 movlw -.20 ; ~Centered between ppO2 warning and max depth...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1871 movwf hi,BANKED ; Use the hi variable to offset the battery in dive mode...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1872 bra update_battery_voltage1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1873
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1874 update_batt_voltage:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1875 clrf hi,BANKED ; No vertical offset...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1876
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1877 update_battery_voltage1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1878 ostc_debug 'f'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1879
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1880 GETCUSTOM8 d'31' ; =1 if battery voltage should be visible
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1881 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1882 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1883 cpfseq lo ; =1?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1884 bra update_batt_voltage2 ; No, show symbol
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1885
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1886 WIN_TOP .175
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1887 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1888 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1889 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1890 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1891
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1892 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1893 movff batt_voltage+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1894 movff batt_voltage+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1895 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1896 movwf ignore_digits
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1897 bsf ignore_digit5 ; do not display mV
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1898 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1899 output_16dp d'2' ; e.g. 3.45V
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1900 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1901 movlw 'V'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1902 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1903 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1904 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1905 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1906 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1907
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1908 update_batt_voltage2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1909
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1910 ; 4100-Vbatt
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1911 movlw LOW d'4100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1912 movwf sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1913 movlw HIGH d'4100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1914 movwf sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1915 movff batt_voltage+0,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1916 movff batt_voltage+1,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1917 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1918 ; Battery full (>4100mV?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1919 btfsc neg_flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1920 bra update_batt_voltage2_full
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1921
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1922 ; Vbatt-3500
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1923 movlw LOW d'3500'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1924 movwf sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1925 movlw HIGH d'3500'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1926 movwf sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1927 movff batt_voltage+0,sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1928 movff batt_voltage+1,sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1929 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1930 ; Battery lower then 3500mV?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1931 btfsc neg_flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1932 bra update_batt_voltage2_empty
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1933
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1934 ; Battery is between 3500 and 4100mV
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1935 ; sub_c:2 is between 0 and 600
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1936 movff sub_c+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1937 movff sub_c+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1938 movlw d'20'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1939 movwf xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1940 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1941 call div16x16 ;xA/xB=xC with xA as remainder
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1942 ; xC is between 0 and 30
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1943 movff xC+0,wait_temp ;save value
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1944 incf wait_temp,F ; +1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1945
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1946 movlw d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1947 cpfsgt wait_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1948 movwf wait_temp ; Minimum = 3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1949
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1950 ; Check if battery level is low...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1951 movlw d'7' ; Blink threshold at 6/30 == 20% ???
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1952 cpfslt wait_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1953 bra update_batt_clear ; black if WREG > 6
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1954
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1955 update_batt_blink:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1956 ; Get BLINKING warning color, or black every other seconde:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1957 GETCUSTOM8 d'37' ; WARNING color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1958 btfss secs,0,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1959 update_batt_clear:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1960 clrf WREG
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1961
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1962 movwf box_temp+0,BANKED ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1963 movlw .172
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1964 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1965 movwf box_temp+1,BANKED ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1966 movlw .196
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1967 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1968 movwf box_temp+2,BANKED ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1969 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1970 movwf box_temp+3,BANKED ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1971 movlw .33
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1972 movwf box_temp+4,BANKED ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1973 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1974
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1975 movlw .179
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1976 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1977 movwf box_temp+1,BANKED ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1978 movlw .189
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1979 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1980 movwf box_temp+2,BANKED ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1981 movlw .33
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1982 movwf box_temp+3,BANKED ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1983 movlw .35
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1984 movwf box_temp+4,BANKED ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1985 call PLED_box ; Full Cap
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1986
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1987 GETCUSTOM8 d'34' ; Color battery
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1988 movwf box_temp+0,BANKED ; Color Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1989 movlw .176
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1990 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1991 movwf box_temp+1,BANKED ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1992 movlw .192
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1993 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1994 movwf box_temp+2,BANKED ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1995 movlw .2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1996 movwf box_temp+3,BANKED ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1997 movff wait_temp,box_temp+4; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1998 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	1999
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2000 update_batt_voltage2a:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2001 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2002 movwf box_temp+0,BANKED ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2003 movlw .174
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2004 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2005 movwf box_temp+1,BANKED ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2006 movlw .194
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2007 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2008 movwf box_temp+2,BANKED ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2009 movlw .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2010 movwf box_temp+3,BANKED ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2011 movlw .32
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2012 movwf box_temp+4,BANKED ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2013 call PLED_frame
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2014
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2015 movlw .181
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2016 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2017 movwf box_temp+1,BANKED ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2018 movlw .187
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2019 addwf hi,W,BANKED
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2020 movwf box_temp+2,BANKED ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2021 movlw .32
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2022 movwf box_temp+3,BANKED ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2023 movlw .34
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2024 movwf box_temp+4,BANKED ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2025 call PLED_box ; Full Cap
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2026
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2027 ; movlw .181
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2028 ; movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2029 ; movlw .187
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2030 ; movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2031 ; movlw .31
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2032 ; movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2033 ; movlw .33
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2034 ; movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2035 ; call PLED_frame ; Empty cap
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2036 ;
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2037 update_batt_voltage3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2038
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2039 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2040 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2041
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2042 update_batt_voltage2_empty:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2043 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2044 movwf wait_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2045 bra update_batt_blink
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2046
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2047 update_batt_voltage2_full:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2048 movlw d'30'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2049 movwf wait_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2050 bra update_batt_clear
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2051
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2052 PLED_convert_date: ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2053 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2054 tstfsz EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2055 bra PLED_convert_date1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2056
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2057 ; Use MMDDYY
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2058 movff convert_value_temp+0,lo ;month
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2059 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2060 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2061 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2062 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2063 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2064 movff convert_value_temp+1,lo ;day
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2065 bra PLED_convert_date1_common ;year
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2066
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2067 PLED_convert_date1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2068 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2069 decfsz EEDATA,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2070 bra PLED_convert_date2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2071
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2072 ; Use DDMMYY
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2073 movff convert_value_temp+1,lo ;day
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2074 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2075 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2076 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2077 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2078 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2079 movff convert_value_temp+0,lo ;month
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2080
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2081 PLED_convert_date1_common:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2082 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2083 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2084 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2085 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2086 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2087 movff convert_value_temp+2,lo ;year
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2088 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2089 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2090 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2091
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2092 PLED_convert_date2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2093 ; Use YYMMDD
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2094 movff convert_value_temp+2,lo ;year
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2095 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2096 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2097 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2098 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2099 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2100 movff convert_value_temp+0,lo ;month
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2101 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2102 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2103 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2104 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2105 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2106 movff convert_value_temp+1,lo ;day
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2107 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2108 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2109 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2110
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2111 PLED_convert_date_short: ; converts into "DD/MM" or "MM/DD" or "MM/DD" in postinc2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2112 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2113 tstfsz EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2114 bra PLED_convert_date_short1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2115
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2116 ; Use MMDDYY
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2117 PLED_convert_date_short_common:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2118 movff convert_value_temp+0,lo ;month
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2119 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2120 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2121 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2122 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2123 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2124 movff convert_value_temp+1,lo ;day
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2125 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2126 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2127 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2128 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2129
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2130 PLED_convert_date_short1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2131 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2132 decfsz EEDATA,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2133 bra PLED_convert_date_short_common ; Use YYMMDD
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2134
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2135 ; Use DDMMYY
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2136 movff convert_value_temp+1,lo ;day
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2137 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2138 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2139 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2140 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2141 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2142 movff convert_value_temp+0,lo ;month
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2143 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2144 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2145 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2146 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2147
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2148 update_date:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2149 ostc_debug 'd'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2150 WIN_TOP .75
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2151 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2152 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2153 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2154 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2155
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2156 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2157
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2158 movff month,convert_value_temp+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2159 movff day,convert_value_temp+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2160 movff year,convert_value_temp+2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2161 call PLED_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2162 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2163 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2164
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2165 PLED_menu_clear:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2166 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2167 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2168 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2169 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2170 movlw .26
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2171 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2172 movlw .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2173 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2174 movlw .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2175 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2176 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2177 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2178
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2179 PLED_max_pressure:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2180 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2181 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2182
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2183 ostc_debug 'p' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2184
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2185 WIN_TOP .184
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2186 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2187 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2188 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2189 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2190
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2191 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2192 movff max_pressure+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2193 movff max_pressure+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2194 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2195 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2196 bsf ignore_digit5 ; do not display 1cm depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2197 output_16dp d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2198 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2199 bcf show_last3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2200 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2201 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2202 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2203
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2204 PLED_divemins:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2205 btfsc menubit ; Divemode menu active?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2206 return ; Yes, do not update divetime
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2207
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2208 ostc_debug 'A' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2209
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2210 btfsc gauge_mode ; different display in gauge mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2211 bra PLED_divemins_gauge
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2212
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2213 btfsc FLAG_apnoe_mode ; different display in apnoe mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2214 bra PLED_divemins_apnoe
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2215
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2216 GETCUSTOM8 d'38' ; Show seconds (=1?)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2217 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2218 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2219 cpfseq lo ; =1?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2220 bra PLED_divemins2 ; No, minutes only
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2221 bra PLED_divemins_gauge ; Yes, use Gauge routine
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2222
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2223 PLED_divemins2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2224 movff divemins+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2225 movff divemins+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2226 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2227 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2228 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2229 WIN_TOP .20
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2230 WIN_LEFT .120
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2231 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2232 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2233
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2234 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2235 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2236 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2237
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2238 PLED_display_apnoe_surface:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2239 btfsc menubit ; Divemode menu active?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2240 return ; Yes, do not display surface mode timeout
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2241
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2242 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2243 DISPLAYTEXT d'140' ; "SURFACE"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2244 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2245
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2246
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2247 WIN_TOP .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2248 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2249 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2250 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2251
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2252
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2253 movff apnoe_surface_mins,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2254 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2255 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2256 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2257 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2258 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2259 movff apnoe_surface_secs,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2260 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2261 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2262 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2263 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2264
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2265 PLED_apnoe_clear_surface:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2266 ; Clear Surface timer....
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2267 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2268 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2269 movlw .60
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2270 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2271 movlw .119
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2272 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2273 movlw .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2274 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2275 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2276 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2277 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2278 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2279
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2280
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2281 PLED_display_apnoe_descent:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2282 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2283 DISPLAYTEXT d'139' ; "Descent"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2284 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2285
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2286
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2287 WIN_TOP .145
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2288 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2289 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2290 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2291
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2292
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2293 movff apnoe_mins,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2294 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2295 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2296 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2297 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2298 movff apnoe_secs,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2299 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2300 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2301 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2302 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2303
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2304 PLED_divemins_apnoe:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2305
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2306 PLED_divemins_gauge:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2307 movff divemins+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2308 movff divemins+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2309 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2310 bsf show_last3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2311 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2312 output_16_3 ;Displays only 0...999
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2313 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2314 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2315 movff divesecs,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2316 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2317 WIN_TOP .20
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2318 WIN_LEFT .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2319 WIN_FONT FT_MEDIUM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2320 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2321
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2322 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2323 bcf show_last3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2324 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2325 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2326
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2327 PLED_stopwatch_remove:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2328 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2329 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2330 movlw .54
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2331 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2332 movlw .102
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2333 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2334 movlw .062
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2335 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2336 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2337 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2338 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2339 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2340
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2341
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2342 PLED_stopwatch_show:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2343 btfsc menubit ; Divemode menu active?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2344 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2345
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2346 ostc_debug 'V' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2347 ; Stopwatch
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2348
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2349 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2350 DISPLAYTEXTH d'283' ; Counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2351 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2352
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2353
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2354 WIN_TOP .80
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2355 WIN_LEFT .110
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2356 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2357 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2358
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2359
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2360
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2361
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2362 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2363 movff average_divesecs+0,lo ; Stopwatch
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2364 movff average_divesecs+1,hi ; Stopwatch
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2365 movlw d'2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2366 subwf lo,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2367 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2368 subwfb hi,F ; Subtract 2 seconds
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2369
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2370 call convert_time ; converts hi:lo in seconds to mins (hi) and secs (lo)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2371
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2372 movff lo,wait_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2373 movff hi,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2374 clrf hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2375
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2376 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2377 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2378 bsf show_last3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2379 output_16_3 ;Displays only 0...999
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2380 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2381 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2382 movff wait_temp,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2383 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2384 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2385 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2386
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2387 ostc_debug 'U' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2388
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2389 WIN_TOP .80
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2390 WIN_LEFT .62
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2391 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2392 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2393
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2394
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2395 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2396 movff avr_rel_pressure+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2397 movff avr_rel_pressure+1,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2398 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2399 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2400 bsf ignore_digit5 ; do not display 1cm depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2401 output_16dp d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2402 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2403 movlw 'm'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2404 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2405 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2406 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2407 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2408 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2409
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2410
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2411 PLED_serial: ; Writes OSTC #Serial and Firmware version in surfacemode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2412 ostc_debug 'a' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2413 WIN_TOP .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2414 WIN_LEFT .1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2415 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2416 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2417 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2418
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2419
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2420 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2421 OUTPUTTEXTH d'262' ; "OSTC "
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2422 clrf EEADRH
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2423 clrf EEADR ; Get Serial number LOW
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2424 call read_eeprom ; read byte
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2425 movff EEDATA,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2426 incf EEADR,F ; Get Serial number HIGH
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2427 call read_eeprom ; read byte
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2428 movff EEDATA,hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2429
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2430 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2431 output_16
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2432 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2433 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2434 movlw 'V'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2435 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2436 movlw softwareversion_x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2437 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2438 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2439 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2440 movlw '.'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2441 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2442 movlw softwareversion_y
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2443 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2444 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2445 output_99x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2446 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2447 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2448 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2449
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2450 PLED_divemode_menu_mask_first: ; Write Divemode menu1 mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2451 ostc_debug 'o' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2452 call PLED_menu_clear ; clear "Menu?"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2453
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2454 btfsc FLAG_const_ppO2_mode ; are we in ppO2 mode?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2455 bra PLED_divemode_menu_mask_first2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2456
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2457 ; in OC Mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2458 DISPLAYTEXT .32 ;"Gaslist"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2459 DISPLAYTEXT .31 ;"Decoplan"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2460 DISPLAYTEXT .122 ;"Set Gas"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2461 bra PLED_divemode_menu_mask_first3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2462
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2463 PLED_divemode_menu_mask_first2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2464 ; in CC Mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2465 DISPLAYTEXT .238 ;"SetPoint"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2466 DISPLAYTEXT .31 ;"Decoplan"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2467 DISPLAYTEXT .137 ;"Bailout"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2468
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2469 PLED_divemode_menu_mask_first3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2470 ; In all modes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2471 DISPLAYTEXT .33 ;"More"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2472 DISPLAYTEXT .34 ;"Exit"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2473 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2474
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2475 PLED_divemode_menu_mask_second: ; Write Divemode menu1 mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2476 ostc_debug 'o' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2477 DISPLAYTEXT .240 ;"Graphs"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2478 DISPLAYTEXT .241 ;"Display"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2479 DISPLAYTEXTH .281 ;"L. Tissue"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2480 DISPLAYTEXT .147 ;"Stopwat."
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2481 DISPLAYTEXT .244 ;"Exit"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2482 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2483
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2484 PLED_divemode_set_xgas: ; Displayes the "Set Gas" menu
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2485 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2486 WIN_TOP .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2487 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2488 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2489
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2490 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2491 movlw 'S'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2492 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2493 movlw 'e'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2494 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2495 movlw 'l'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2496 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2497 read_int_eeprom d'24' ; Get Gas6 %O2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2498 movff EEDATA,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2499 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2500 output_99 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2501 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2502 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2503 read_int_eeprom d'25' ; Get Gas6 %He
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2504 movff EEDATA,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2505 output_99 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2506 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2507 DISPLAYTEXT .123 ; O2 +
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2508 DISPLAYTEXT .124 ; O2 -
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2509 DISPLAYTEXT .125 ; He +
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2510 DISPLAYTEXT .126 ; He -
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2511 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2512
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2513 PLED_divemode_simulator_mask:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2514 DISPLAYTEXT .254 ; EXIT
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2515 DISPLAYTEXT .250 ; + 1m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2516 DISPLAYTEXT .251 ; - 1m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2517 DISPLAYTEXT .252 ; +10m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2518 DISPLAYTEXT .253 ; -10m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2519 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2520
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2521 PLED_decoplan_bargraph:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2522 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2523 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2524 movff hi,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2525 incf win_top,F ; +1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2526 movff win_top,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2527 movff win_top,box_temp+2 ;
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2528 movlw d'18'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2529 addwf box_temp+2,F ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2530 movlw .122
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2531 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2532 addwf lo,F ; Add time offset
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2533 btfsc STATUS,C ; >255?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2534 setf lo ; limit to 255
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2535 decf lo,F ; No, minus one
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2536 movlw d'138' ; Limit length (16min)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2537 cpfslt lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2538 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2539 movff lo,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2540 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2541
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2542 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2543 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2544 movff win_top,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2545 movff win_top,box_temp+2 ;
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2546 movlw d'18'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2547 addwf box_temp+2,F ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2548 movff lo,box_temp+3 ;
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2549 incf box_temp+3,F ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2550 movlw .139
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2551 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2552 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2553 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2554
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2555 PLED_decoplan_delete_gf: ; Delete unused rows
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2556 movlw .238
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2557 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2558 bra PLED_decoplan_delete_common
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2559
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2560 PLED_decoplan_delete: ; Delete unused rows
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2561 movlw .184
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2562 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2563 PLED_decoplan_delete_common:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2564 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2565 movff WREG,box_temp+0 ; data 00, x0, 0y, xy clear, links, rechts, beide
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2566 movff hi,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2567 movlw .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2568 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2569 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2570 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2571 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2572 bsf last_ceiling_gf_shown ; Set flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2573 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2574
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2575
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2576 PLED_decoplan_gf_page_current:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2577 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2578 cpfseq temp8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2579 bra PLED_decoplan_gf_page2 ; =1: Dispplay Page 2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2580 bra PLED_decoplan_gf_page1 ; =0, Display Page 1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2581
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2582 PLED_decoplan_gf_page1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2583 ostc_debug 'n' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2584
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2585 movff char_O_array_decodepth+0,lo ; Get Depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2586 tstfsz lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2587 bra PLED_decoplan_gf_page1x
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2588 ; No Deco, show "no Deco"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2589 DISPLAYTEXT d'239' ;"No Deco"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2590 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2591
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2592 PLED_decoplan_gf_page2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2593 ; temp7 holds last displayed depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2594 ; temp5 list entry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2595 movff temp5,temp9 ; save
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2596 movff temp7,temp10 ; save
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2597 movlw .231
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2598 movwf temp6 ; row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2599 PLED_decoplan_gf_page2y:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2600 movlw d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2601 addwf temp7,F ; Add 3m for next stop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2602 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2603 addwf temp6,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2604 incf temp5,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2605 call PLED_decoplan_show_stop_gf
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2606 movlw d'15' ; the next 8 Stops...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2607 cpfseq temp5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2608 bra PLED_decoplan_gf_page2y
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2609 movff temp9,temp5 ; restore
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2610 movff temp10,temp7 ; restore
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2611 bsf last_ceiling_gf_shown ; Set flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2612 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2613
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2614 PLED_decoplan_gf_page1x:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2615 clrf temp8 ; Page 0-3 of deco list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2616 GETCUSTOM8 d'29' ; Last Deco in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2617 movwf temp7 ; Start with last stop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2618 setf temp5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2619 movlw .231
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2620 movwf temp6 ; row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2621
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2622 ; Show last stop manually
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2623 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2624 addwf temp6,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2625 incf temp5,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2626 call PLED_decoplan_show_stop_gf
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2627 GETCUSTOM8 d'29' ; Last Deco in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2628 movwf temp7 ; Last deco
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2629 movlw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2630 cpfslt temp7 ; >=3m?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2631 bra PLED_decoplan_gf_page1x_next_6m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2632
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2633 movlw d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2634 movwf temp7
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2635 bra PLED_decoplan_gf_page1y
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2636
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2637 PLED_decoplan_gf_page1x_next_6m:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2638 movlw d'6'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2639 movwf temp7
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2640 incf temp5,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2641 PLED_decoplan_gf_page1y:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2642 movlw d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2643 addwf temp7,F ; Add 3m for next stop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2644 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2645 addwf temp6,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2646 incf temp5,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2647 call PLED_decoplan_show_stop_gf
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2648 movlw d'7' ; the next 7 Stops...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2649 cpfseq temp5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2650 bra PLED_decoplan_gf_page1y
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2651 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2652
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2653
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2654 PLED_decoplan_show_stop_gf:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2655 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2656 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2657 movff temp6,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2658 movff temp6,hi ; copy for PLED_decoplan_bargraph
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2659
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2660 movff char_O_array_decodepth+0,WREG ; Ceiling
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2661 cpfslt temp7 ; Ceiling already displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2662 goto PLED_decoplan_delete_gf ; Yes, quit display and RETURN
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2663 movff temp7,lo ; Decodepth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2664
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2665 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2666 output_99x ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2667 movlw 'm'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2668 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2669 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2670 WIN_LEFT .140
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2671 movff temp6,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2672 ; lfsr FSR1,0x251
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2673 lfsr FSR1,0x0E1 ; Gf_decolist_copy
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2674 movf temp5,W ; number of entry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2675 movff PLUSW1,lo ; Stop length
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2676 incf lo,F ; add one dummy minute
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2677 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2678 output_99x ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2679 movlw d'39' ;"'"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2680 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2681 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2682 tstfsz lo ; 0 min "Stop"?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2683 rcall PLED_decoplan_bargraph ; draws a box representing the decotime (stored in lo...) for this depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2684 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2685
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2686
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2687 PLED_decoplan: ; display the Decoplan
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2688 ostc_debug 'n' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2689
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2690 movff char_O_array_decodepth+0,lo ; Get Depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2691 tstfsz lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2692 bra PLED_decoplan1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2693 ; No Deco, show "no Deco"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2694 ; call PLED_clear_divemode_menu ; Clear Deco area
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2695 DISPLAYTEXT d'239' ;"No Deco"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2696 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2697
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2698 PLED_decoplan1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2699 setf temp5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2700 movlw .231
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2701 movwf temp6 ; row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2702 PLED_decoplan2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2703 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2704 addwf temp6,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2705 incf temp5,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2706 call PLED_decoplan_show_stop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2707 movlw d'5' ; 6 Stops...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2708 cpfseq temp5
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2709 bra PLED_decoplan2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2710 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2711
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2712 PLED_decoplan_show_stop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2713 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2714 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2715 movff temp6,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2716 movff temp6,hi ; copy for PLED_decoplan_bargraph
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2717
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2718 lfsr FSR1,char_O_array_decodepth;+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2719 movf temp5,W ; number of entry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2720 movff PLUSW1,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2721 movf lo,w
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2722 btfsc STATUS,Z ; =0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2723 goto PLED_decoplan_delete ; Yes, quit display
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2724
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2725 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2726 output_8 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2727 movlw 'm'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2728 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2729 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2730
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2731 WIN_LEFT .140
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2732 movff temp6,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2733
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2734 lfsr FSR1,char_O_array_decotime;+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2735 movf temp5,W ; number of entry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2736 movff PLUSW1,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2737
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2738 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2739 output_99x ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2740 movlw d'39' ;"'"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2741 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2742 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2743 tstfsz lo ; 0 min "Stop"?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2744 rcall PLED_decoplan_bargraph ; draws a box representing the decotime (stored in lo...) for this depth
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2745 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2746
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2747
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2748 PLED_gas_list:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2749 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2750
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2751 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2752 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2753 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2754
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2755 movlw d'2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2756 movwf wait_temp ; here: stores eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2757 movlw d'231'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2758 movwf waitms_temp ; here: stores row for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2759 clrf hi ; here: Gas counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2760
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2761 PLED_gas_list_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2762 incf hi,F ; Increase Gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2763 movlw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2764 addwf wait_temp,F ; Increase eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2765 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2766 addwf waitms_temp,F ; Increase row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2767 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2768 movff waitms_temp,win_top ; Set Row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2769
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2770 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2771 movlw 'G'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2772 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2773 movff hi,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2774 output_8 ; display gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2775 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2776 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2777 movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2778 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2779 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2780 output_8 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2781 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2782 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2783 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2784 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2785 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2786 output_8 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2787
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2788 decf EEADR,F ; Gas #hi: %O2 - Set address in internal EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2789 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2790 PLED_color_code warn_gas_in_gaslist ; Color-code output (%O2 in "EEDATA")
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2791 ; Check if gas needs to be greyed-out (inactive)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2792 read_int_eeprom d'27' ; read flag register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2793 movff hi,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2794 PLED_gas_list_loop1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2795 rrcf EEDATA ; roll flags into carry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2796 decfsz lo,F ; max. 5 times...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2797 bra PLED_gas_list_loop1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2798
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2799 movlw color_grey
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2800 btfss STATUS,C ; test carry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2801 call PLED_set_color ; grey out inactive gases!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2802
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2803 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2804 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2805
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2806 movlw d'5' ; list all five gases
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2807 cpfseq hi ; All gases shown?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2808 bra PLED_gas_list_loop ; No
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2809
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2810 return ; No, return (OC mode)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2811
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2812 PLED_splist_start:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2813 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2814 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2815 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2816
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2817 ; list three SP in Gaslist
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2818 movlw d'35' ; 36 = current SP position in EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2819 movwf wait_temp ; here: stores eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2820 movlw d'231'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2821 movwf waitms_temp ; here: stores row for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2822 clrf temp5 ; here: SP counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2823
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2824 PLED_splist_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2825 incf wait_temp,F ; EEPROM address
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2826 incf temp5,F ; Increase SP
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2827
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2828 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2829 addwf waitms_temp,F ; Increase row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2830 movff waitms_temp,win_top ; Set Row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2831 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2832
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2833 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2834 movlw 'S'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2835 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2836 movlw 'P'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2837 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2838 movff temp5,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2839 output_8 ; display gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2840 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2841 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2842 movff wait_temp, EEADR; SP #hi position
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2843 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2844 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2845 clrf hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2846 output_16dp d'3' ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2847 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2848
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2849 movlw d'3' ; list all three SP
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2850 cpfseq temp5 ; All gases shown?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2851 bra PLED_splist_loop ; No
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2852
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2853 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2854 return ; no, return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2855
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2856 PLED_clear_divemode_menu:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2857 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2858 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2859 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2860 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2861 ; movlw .125
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2862 movlw .185
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2863 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2864 movlw .082
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2865 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2866 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2867 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2868 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2869 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2870
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2871 PLED_divemenu_cursor:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2872 ostc_debug 'l' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2873 WIN_TOP .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2874 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2875 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2876 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2877 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2878 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2879 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2880 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2881 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2882 WIN_TOP .25
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2883 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2884 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2885 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2886 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2887 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2888 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2889 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2890 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2891 WIN_TOP .50
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2892 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2893 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2894 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2895 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2896 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2897 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2898 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2899 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2900 WIN_TOP .75
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2901 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2902 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2903 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2904 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2905 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2906 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2907 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2908 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2909 WIN_TOP .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2910 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2911 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2912 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2913 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2914 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2915 movlw 0xB8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2916 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2917 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2918
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2919 movff menupos,temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2920 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2921 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2922 movlw d'0'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2923 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2924 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2925 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2926 movlw d'50'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2927 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2928 movlw d'75'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2929 dcfsnz temp1,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2930 movlw d'100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2931 movff WREG,win_top
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2932 WIN_LEFT .85
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2933 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2934 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2935 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2936
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2937 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2938 movlw 0xB7 ; Arrow for menu
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2939 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2940 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2941 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2942
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2943 ;PLED_profileview_menu:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2944 ; DISPLAYTEXT .127 ;"Exit"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2945 ; DISPLAYTEXT .128 ;"Delete"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2946 ;; DISPLAYTEXT .132 ;"Format"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2947 ; return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2948
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2949 custom_warn_surfmode: ; With CF in temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2950 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2951 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2952 movlw .56
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2953 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2954 movlw .88
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2955 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2956 movlw .69
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2957 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2958 movlw .115
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2959 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2960 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2961
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2962 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2963 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2964 movlw .58
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2965 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2966 movlw .86
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2967 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2968 movlw .70
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2969 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2970 movlw .114
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2971 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2972 call PLED_frame
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2973 ; warning text
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2974
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2975 WIN_TOP .60
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2976 WIN_LEFT .71
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2977 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2978 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2979 call PLED_warnings_color ; Set Color for Warning
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2980 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2981 movlw 'C'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2982 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2983 movlw 'F'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2984 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2985 movff temp1,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2986 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2987 movlw '!'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2988 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2989 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2990
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2991 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2992 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2993 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2994
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2995 PLED_saturation_graph_divemode:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2996 ostc_debug 'h' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2997 PLED_tissue_saturation_graph:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2998 ostc_debug 'i' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	2999
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3000 ; Clear graph area...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3001 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3002 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3003 movlw .25
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3004 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3005 movlw .120
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3006 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3007 movlw .82
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3008 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3009 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3010 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3011 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3012
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3013 ; Draw Frame
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3014 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3015 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3016 movlw .25
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3017 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3018 movlw .120
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3019 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3020 movlw .82
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3021 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3022 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3023 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3024 call PLED_frame
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3025
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3026 ; Draw N2 Tissues
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3027 lfsr FSR2, char_O_tissue_saturation+.000 ; N2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3028 movlw d'16'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3029 movwf wait_temp ; 16 tissues
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3030 clrf waitms_temp ; Row offset
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3031 PLED_tissue_saturation_graph3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3032 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3033 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3034 movlw .28
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3035 addwf waitms_temp,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3036 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3037 movlw .28
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3038 addwf waitms_temp,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3039 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3040
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3041 incf waitms_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3042 incf waitms_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3043
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3044 movlw .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3045 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3046
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3047 movff POSTINC2,box_temp+4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3048 bcf STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3049 rrcf box_temp+4,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3050 bcf STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3051 rrcf box_temp+4,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3052 movlw .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3053 addwf box_temp+4,F ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3054
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3055 movlw d'157' ; limit display
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3056 cpfslt box_temp+4 ; skip if 157 (WREG) < box_temp+4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3057 movwf box_temp+4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3058
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3059 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3060
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3061 decfsz wait_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3062 bra PLED_tissue_saturation_graph3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3063
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3064 ; Draw He Tissues
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3065 lfsr FSR2, char_O_tissue_saturation+.016 ; He
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3066 movlw d'16'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3067 movwf wait_temp ; 16 tissues
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3068 clrf waitms_temp ; Row offset
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3069 PLED_tissue_saturation_graph2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3070 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3071 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3072 movlw .86
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3073 addwf waitms_temp,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3074 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3075 movlw .86
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3076 addwf waitms_temp,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3077 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3078
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3079 incf waitms_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3080 incf waitms_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3081
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3082 movlw .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3083 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3084
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3085 movff POSTINC2,box_temp+4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3086 bcf STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3087 rrcf box_temp+4,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3088 bcf STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3089 rrcf box_temp+4,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3090 movlw .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3091 addwf box_temp+4,F ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3092
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3093 movlw d'157' ; limit display
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3094 cpfslt box_temp+4 ; skip if 157 (WREG) < box_temp+4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3095 movwf box_temp+4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3096
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3097 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3098
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3099 decfsz wait_temp,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3100 bra PLED_tissue_saturation_graph2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3101
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3102 ; Draw Text
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3103 WIN_LEFT .84
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3104 WIN_TOP .32
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3105 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3106 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3107 movlw 'N'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3108 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3109 movlw '2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3110 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3111 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3112 WIN_LEFT .84
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3113 WIN_TOP .90
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3114 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3115 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3116 movlw 'H'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3117 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3118 movlw 'e'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3119 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3120 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3121
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3122 movff char_O_gtissue_no,wait_temp ; used as temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3123
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3124 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3125 lfsr FSR1,char_O_tissue_saturation+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3126 incf wait_temp,F ; make 1-16 of 0-15
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3127 PLED_tissue_saturation_graph4: ; point to leading tissue...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3128 movff POSTINC1,lo ; copy/overwrite to lo register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3129 decfsz wait_temp,F ; count until zero
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3130 bra PLED_tissue_saturation_graph4 ;loop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3131 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3132 movlw '%'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3133 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3134 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3135 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3136 WIN_LEFT .84
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3137 WIN_TOP .62
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3138 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3139 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3140 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3141 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3142
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3143 ; Draw Scale
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3144 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3145 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3146 movlw .73
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3147 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3148 movlw .74
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3149 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3150 movlw .121
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3151 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3152 movlw .157
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3153 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3154 call PLED_frame
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3155
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3156 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3157 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3158 movlw .61
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3159 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3160 movlw .84
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3161 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3162 movlw .121
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3163 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3164 movlw .122
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3165 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3166 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3167 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3168 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3169 movlw .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3170 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3171 movlw .80
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3172 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3173 movlw .121+.9
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3174 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3175 movlw .122+.9
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3176 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3177 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3178 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3179 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3180 movlw .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3181 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3182 movlw .80
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3183 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3184 movlw .121+.18
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3185 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3186 movlw .122+.18
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3187 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3188 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3189 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3190 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3191 movlw .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3192 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3193 movlw .80
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3194 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3195 movlw .121+.27
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3196 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3197 movlw .122+.27
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3198 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3199 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3200 GETCUSTOM8 d'35' ; Standard output color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3201 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3202 movlw .61
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3203 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3204 movlw .84
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3205 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3206 movlw .121+.36
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3207 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3208 movlw .122+.36
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3209 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3210 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3211
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3212 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3213
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3214
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3215 PLED_startupscreen1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3216 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3217 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3218 DISPLAYTEXT d'3' ; "HeinrichsWeikamp"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3219 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3220 DISPLAYTEXT .68 ; Licence 1/2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3221 DISPLAYTEXT .69
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3222 DISPLAYTEXT .70
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3223 DISPLAYTEXT .71
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3224 DISPLAYTEXT .72
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3225 DISPLAYTEXT .73
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3226 DISPLAYTEXT .74
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3227 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3228
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3229 PLED_startupscreen2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3230 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3231 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3232 DISPLAYTEXT d'3' ; "HeinrichsWeikamp"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3233 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3234 DISPLAYTEXT .75 ; Licence 2/2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3235 DISPLAYTEXT .76
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3236 DISPLAYTEXT .77
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3237 DISPLAYTEXT .78
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3238 DISPLAYTEXT .79
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3239 DISPLAYTEXT .80
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3240 DISPLAYTEXT .81
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3241 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3242
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3243 PLED_new_cf_warning:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3244 call PLED_topline_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3245 WIN_INVERT .1 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3246 DISPLAYTEXTH .271 ; New CF added!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3247 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3248 DISPLAYTEXTH .272 ; New CustomFunctions
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3249 DISPLAYTEXTH .273 ; were added! Check
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3250 DISPLAYTEXTH .274 ; CF I and CF II Menu
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3251 DISPLAYTEXTH .275 ; for Details!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3252 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3253
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3254 PLED_const_ppO2_value:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3255 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3256 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3257
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3258 ostc_debug 'j' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3259
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3260 WIN_TOP .168
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3261 WIN_LEFT .65
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3262 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3263 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3264
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3265 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3266 movff char_I_const_ppO2,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3267
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3268 tstfsz lo ; In Bailout mode (char_I_const_ppO2=0)?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3269 bra PLED_const_ppO2_value2 ; No, display Setpoint
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3270
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3271 ; Yes, Display "Bail"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3272 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3273 OUTPUTTEXTH d'263' ;"Bail"
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3274 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3275 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3276
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3277 PLED_const_ppO2_value2: ; Display SetPoint
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3278 ;Show fixed SP value
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3279 movff amb_pressure+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3280 movff amb_pressure+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3281 movlw d'10'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3282 movwf xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3283 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3284 ;xA/xB=xC with xA as remainder
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3285 call div16x16 ; xC+0=p_amb/10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3286
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3287 ; char_I_const_ppO2 > p_amb/10 -> Not physically possible! -> Display actual value!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3288 tstfsz xC+1 ; xC>255
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3289 setf xC+0 ; Yes, set xC+0 to 2,55bar ppO2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3290
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3291 movff ppO2_setpoint_store,WREG
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3292 cpfslt xC+0 ; Setpoint value possible?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3293 bra PLED_const_ppO2_value1 ; Yes
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3294
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3295 movff xC+0,char_I_const_ppO2 ; No, Overwrite with actual value
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3296 bra PLED_const_ppO2_value1a
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3297
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3298 PLED_const_ppO2_value1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3299 ; char_I_const_ppO2 < ppO2[Diluent] -> Not physically possible! -> Display actual value!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3300 movff amb_pressure+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3301 movff amb_pressure+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3302 movlw d'10'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3303 movwf xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3304 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3305 call div16x16 ; xC=p_amb/10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3306 movff xC+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3307 movff xC+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3308 movff char_I_O2_ratio,xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3309 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3310 call mult16x16 ; xC:2=char_I_O2_ratio * p_amb/10
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3311
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3312 movff xC+0,sub_b+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3313 movff xC+1,sub_b+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3314 movff ppO2_setpoint_store,WREG; Setpoint
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3315 mullw d'100' ; Setpoint*100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3316 movff PRODL,sub_a+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3317 movff PRODH,sub_a+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3318 call sub16 ; sub_c = sub_a - sub_b
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3319
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3320 btfss neg_flag
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3321 bra PLED_const_ppO2_value11 ; Value in range
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3322
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3323 ; char_I_const_ppO2 < ppO2[Diluent] -> Not physically possible! -> Display actual value!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3324
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3325 movff xC+0,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3326 movff xC+1,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3327 movlw d'100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3328 movwf xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3329 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3330 call div16x16 ;xA/xB=xC with xA as remainder
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3331
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3332 movff xC+0,char_I_const_ppO2 ; No, Overwrite with actual value
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3333 bra PLED_const_ppO2_value1a
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3334
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3335 PLED_const_ppO2_value11:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3336
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3337 ; Setpoint in possible limits
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3338 movff ppO2_setpoint_store,char_I_const_ppO2 ; Restore Setpoint
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3339
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3340 PLED_const_ppO2_value1a:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3341 PLED_color_code warn_ppo2 ; Color-code output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3342 movff char_I_const_ppO2,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3343 clrf hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3344 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3345 output_16dp d'3'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3346 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3347 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3348 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3349 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3350
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3351 PLED_show_leading_tissue:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3352 call deco_main_calc_desaturation_time ; calculate desaturation time
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3353 movlb b'00000001' ; select ram bank 1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3354
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3355 DISPLAYTEXTH .282 ; L. Tissue:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3356 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3357 movlw '#'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3358 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3359 movff char_O_gtissue_no,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3360 movff char_O_gtissue_no,wait_temp ; used as temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3361 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3362 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3363 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3364 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3365 movlw '('
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3366 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3367
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3368 movlw d'16'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3369 cpfslt wait_temp
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3370 bra PLED_show_leading_tissue_he
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3371 movlw 'N'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3372 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3373 movlw '2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3374 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3375 bra PLED_show_leading_tissue2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3376 PLED_show_leading_tissue_he:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3377 movlw 'H'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3378 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3379 movlw 'e'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3380 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3381 PLED_show_leading_tissue2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3382 movlw ')'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3383 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3384 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3385 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3386 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3387 WIN_TOP .25
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3388 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3389 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3390 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3391
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3392 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3393 lfsr FSR1,char_O_tissue_saturation+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3394 incf wait_temp,F ; make 1-16 of 0-15
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3395 PLED_show_leading_tissue3: ; point to leading tissue...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3396 movff POSTINC1,lo ; copy/overwrite to lo register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3397 decfsz wait_temp,F ; count until zero
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3398 bra PLED_show_leading_tissue3 ;loop
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3399 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3400 movlw '%'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3401 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3402 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3403 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3404 WIN_LEFT .100
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3405 WIN_TOP .50
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3406 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3407 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3408 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3409 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3410 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3411
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3412 PLED_topline_box_clear: ; Writes an empty box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3413 movlw .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3414 bra PLED_topline_box2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3415 PLED_topline_box: ; Writes a filled box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3416 GETCUSTOM8 d'35'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3417 PLED_topline_box2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3418 movff WREG,box_temp+0 ; Data
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3419 movlw .000
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3420 movff WREG,box_temp+1 ; row top (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3421 movlw .026
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3422 movff WREG,box_temp+2 ; row bottom (0-239)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3423 movlw .000
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3424 movff WREG,box_temp+3 ; column left (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3425 movlw .159
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3426 movff WREG,box_temp+4 ; column right (0-159)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3427 call PLED_box
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3428 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3429
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3430 PLED_display_cns:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3431 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3432 return ; Yes, No update and return!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3433
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3434 btfsc gauge_mode ; Do not display in gauge mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3435 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3436
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3437 btfsc FLAG_apnoe_mode ; Do not display in apnoe mode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3438 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3439
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3440 btfsc pled_velocity_display ; Is velocity displayed?`
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3441 return ; Yes, do not overwrite until pled_velocity_clear was called
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3442
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3443 ostc_debug 'k' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3444
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3445 WIN_TOP .090
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3446 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3447 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3448 PLED_color_code warn_cns ; Color-code CNS output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3449
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3450 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3451 movlw 'C'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3452 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3453 movlw 'N'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3454 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3455 movlw 'S'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3456 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3457 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3458 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3459 movff char_O_CNS_fraction,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3460 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3461 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3462 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3463 movlw '%'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3464 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3465 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3466 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3467
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3468 PLED_display_cns_surface:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3469 ; Check if CNS should be displayed
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3470 movff char_O_CNS_fraction,lo ; copy into bank1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3471 GETCUSTOM8 d'15' ; cns_display_high_surfacemode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3472 subwf lo,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3473 btfss STATUS,C
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3474 return ; Do not show...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3475 ; Show CNS
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3476
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3477 ostc_debug 'W' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3478
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3479 WIN_TOP .175
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3480 WIN_LEFT .45
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3481 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3482 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3483 PLED_color_code warn_cns ; Color-code CNS output
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3484
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3485 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3486 movlw 'C'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3487 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3488 movlw 'N'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3489 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3490 movlw 'S'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3491 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3492 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3493 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3494 movff char_O_CNS_fraction,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3495 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3496 output_8
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3497 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3498 movlw '%'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3499 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3500 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3501 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3502
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3503
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3504 PLED_custom_text:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3505 read_int_eeprom d'64'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3506 movlw d'1'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3507 cpfseq EEDATA ; Custom text active?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3508 bra PLED_clear_custom_text ; No, Delete row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3509 WIN_TOP .200
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3510 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3511 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3512 WIN_INVERT .0 ; Init new Wordprocessor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3513 call PLED_divemask_color ; Set Color for Divemode mask
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3514
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3515 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3516 movlw d'64'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3517 movwf lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3518 movlw d'24'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3519 movwf hi ; counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3520
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3521 PLED_custom_text1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3522 incf lo,F
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3523 call PLED_get_custom_letter ; Get one letter for the custom text
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3524 movlw '}' ; End marker found?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3525 cpfseq EEDATA
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3526 bra PLED_custom_text2 ; No
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3527 bra PLED_custom_text3
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3528 PLED_custom_text2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3529 movff EEDATA,POSTINC2 ; Copy into Postinc
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3530
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3531 decfsz hi,F ; Max. numbers?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3532 bra PLED_custom_text1 ; No, get next letters
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3533
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3534 PLED_custom_text3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3535 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3536 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3537 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3538
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3539 PLED_get_custom_letter:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3540 movff lo,EEADR ; Address for next custom text letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3541 call read_eeprom ; Read letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3542 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3543
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3544 PLED_clear_custom_text:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3545 movlw d'24'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3546 movwf temp1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3547 WIN_TOP .200
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3548 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3549 call PLED_display_clear_common_y1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3550 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3551
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3552 PLED_simdata_screen: ;Display Pre-Dive Screen
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3553 ; List active gases/Setpoints
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3554 btfsc FLAG_const_ppO2_mode ; in ppO2 mode?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3555 bra PLED_simdata_screen3 ; Yes, display SetPoint/Sensor result list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3556
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3557 PLED_simdata_screen2:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3558 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3559
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3560 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3561 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3562 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3563
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3564 movlw d'2'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3565 movwf wait_temp ; here: stores eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3566 movlw d'10'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3567 movwf waitms_temp ; here: stores row for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3568 clrf hi ; here: Gas counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3569
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3570 PLED_simdata_screen2_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3571 incf hi,F ; Increase Gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3572 movlw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3573 addwf wait_temp,F ; Increase eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3574
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3575 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3576 movlw 'G'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3577 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3578 movff hi,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3579 output_8 ; display gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3580 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3581 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3582 movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3583 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3584 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3585 output_8 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3586 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3587 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3588 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3589 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3590 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3591 output_8 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3592 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3593 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3594 movf hi,W ; Gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3595 addlw d'27' ; -> Adress of change depth register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3596 call read_int_eeprom_1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3597 movff EEDATA,lo ; Change depth in m
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3598 output_99 ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3599 movlw 'm'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3600 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3601 read_int_eeprom d'27' ; read flag register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3602 movff hi,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3603 PLED_simdata_screen2_loop1:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3604 rrcf EEDATA ; roll flags into carry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3605 decfsz lo,F ; max. 5 times...
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3606 bra PLED_simdata_screen2_loop1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3607
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3608 btfsc STATUS,C ; test carry
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3609 bra PLED_simdata_white
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3610
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3611 movlw color_grey
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3612 call PLED_set_color ; grey out inactive gases!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3613 bra PLED_simdata_color_done
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3614
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3615 PLED_simdata_white:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3616 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3617
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3618 PLED_simdata_color_done:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3619 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3620 addwf waitms_temp,F ; Increase row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3621 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3622 movff waitms_temp,win_top ; Set Row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3623 call word_processor ; display gas
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3624
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3625 PLED_simdata_screen2b:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3626 call PLED_standard_color
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3627
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3628 movlw d'5' ; list all five gases
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3629 cpfseq hi ; All gases shown?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3630 bra PLED_simdata_screen2_loop ; No
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3631
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3632 return ; No, return (OC mode)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3633
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3634 PLED_simdata_screen3:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3635 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3636 WIN_FONT FT_SMALL
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3637 bsf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3638
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3639 ; list three SP in Gaslist
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3640 movlw d'35' ; 36 = current SP position in EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3641 movwf wait_temp ; here: stores eeprom address for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3642 movlw d'10'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3643 movwf waitms_temp ; here: stores row for gas list
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3644 clrf temp6 ; here: SP counter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3645
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3646 PLED_simdata_screen3_loop:
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3647 incf wait_temp,F ; EEPROM address
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3648 incf temp6,F ; Increase SP
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3649
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3650 movlw d'25'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3651 addwf waitms_temp,F ; Increase row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3652 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3653 movff waitms_temp,win_top ; Set Row
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3654
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3655 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3656 movlw 'S'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3657 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3658 movlw 'P'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3659 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3660 movff temp6,lo ; copy gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3661 output_8 ; display gas number
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3662 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3663 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3664 movlw ' '
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3665 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3666 movff wait_temp, EEADR; SP #hi position
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3667 call read_eeprom ; get byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3668 movff EEDATA,lo ; copy to lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3669 clrf hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3670 output_16dp d'3' ; outputs into Postinc2!
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3671 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3672
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3673 movlw d'3' ; list all three SP
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3674 cpfseq temp6 ; All gases shown?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3675 bra PLED_simdata_screen3_loop ;no
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3676
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3677 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3678 movff EEDATA,active_gas ; Read start gas (1-5)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3679 decf active_gas,W ; Gas 0-4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3680 mullw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3681 movf PRODL,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3682 addlw d'7' ; = address for He ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3683 movwf EEADR
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3684 call read_eeprom ; Read He ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3685 movff EEDATA,hi ; And copy into hold register
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3686 decf active_gas,W ; Gas 0-4
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3687 mullw d'4'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3688 movf PRODL,W
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3689 addlw d'6' ; = address for O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3690 movwf EEADR
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3691 call read_eeprom ; Read O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3692 movff EEDATA, lo ; O2 ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3693
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3694 WIN_LEFT .0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3695 WIN_TOP .110
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3696 lfsr FSR2,letter
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3697 movlw 'D'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3698 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3699 movlw 'i'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3700 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3701 movlw 'l'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3702 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3703 movlw ':'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3704 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3705 output_8 ; O2 Ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3706 movlw '/'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3707 movwf POSTINC2
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3708 movff hi,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3709 output_8 ; He Ratio
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3710 call word_processor
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3711
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3712 bcf leftbind
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3713 return ; Return (CC Mode)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3714
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3715
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3716
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3717 adjust_depth_with_salinity: ; computes salinity setting into lo:hi [mBar]
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3718
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3719 btfsc simulatormode_active ; Do apply salinity in Simulatormode
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3720 return
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3721
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3722 read_int_eeprom d'26' ; Read Salinity from EEPROM
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3723 movff EEDATA, wait_temp ; salinity
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3724
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3725 movlw d'105' ; 105% ?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3726 cpfslt wait_temp ; Salinity higher limit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3727 return ; Out of limit, do not adjust lo:hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3728
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3729 movlw d'99' ; 99% ?
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3730 cpfsgt wait_temp ; Salinity lower limit
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3731 return ; Out of limit, do not adjust lo:hi
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3732
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3733 movff lo,xA+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3734 movff hi,xA+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3735
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3736 movlw d'100'
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3737 movwf xB+0
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3738 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3739
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3740 call mult16x16 ;xAxB=xC (lo:hi 100)
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3741
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3742 movff wait_temp,xB+0 ; Salinity
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3743 clrf xB+1
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3744
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3745 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3746
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3747 movff xC+0,lo
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3748 movff xC+1,hi ; restore lo and hi with updated value
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3749
3e351e25f5d1 adding anti-aliased fonts frame and merging some patches from Jeando heinrichsweikamp parents: diff changeset	3750 return

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/pled_outputs.asm.orig @ 85:8b813f67220f