view src/tft_outputs.asm @ 654:75e90cd0c2c3

hwOS sport 10.77 release
author heinrichsweikamp
date Thu, 14 Mar 2024 16:56:46 +0100
parents bc214815deb2
children
line wrap: on
line source

;=============================================================================
;
;   File tft_outputs.asm                    * combined next generation V3.12.3
;
;   high-level Display Outputs
;
;   Copyright (c) 2011, JD Gascuel, heinrichs weikamp gmbh, all right reserved.
;=============================================================================
; HISTORY
;  2011-08-07 : [mH] moving from OSTC code

#include "hwos.inc"							; mandatory header
#include "shared_definitions.h"				; mailbox from/to p2_deco.c
#include "tft.inc"
#include "start.inc"
#include "strings.inc"
#include "convert.inc"
#include "varargs.inc"
#include "math.inc"
#include "eeprom_rs232.inc"
#include "adc_lightsensor.inc"
#include "surfmode.inc"
#include "divemode.inc"
#include "ghostwriter.inc"
#include "customview.inc"
#include "i2c.inc"
#include "calibrate.inc"
#include "gaslist.inc"
#include "rx_ops.inc"
#include "logbook.inc"
#include "external_flash.inc"
#include "colorschemes.inc"


;---- external Functions -----------------------------------------------------

	extern	get_first_gas_to_WREG

;---- external Texts ---------------------------------------------------------

	extern	tFirmware
	extern	tFirmwareDate
	extern	tHardware
	extern	tSerial
	extern	tTotalDives
	extern	tBatteryV
	extern	tSensorC
	extern	tSensorD
	extern	tUptime
	extern	tPPO2MIN
	extern	tPPO2Max
	extern	tPPO2DECO
	extern	tbar

 IFDEF _ccr_pscr
	extern	tPPO2MINCC
 ENDIF

 IFDEF _rx_functions
	extern	tFirmware_rx
 ENDIF

 IFDEF _compass
	extern	tCalX,tCalY,tCalZ
 ENDIF


;=============================================================================
pallet_table	CODE_PACK 0x09800		; must be at 0x***00
;=============================================================================


pallet_table:
	;	mask			disabled			memo			advice			attention		warning			; pallet
	;	---------------	-------------------	---------------	---------------	---------------	---------------	  --------
	DB	color_green,	color_lightblue,	color_white,	color_green,	color_yellow,	color_red		; standard
	DB	color_red,		color_dark_red,		color_orange,	color_greenish,	color_pink,		color_red		; reddish
	DB	color_cyan,		color_dark_green,	color_green,	color_green,	color_cyan,		color_red		; greenish
	DB	color_blue,		color_deepblue,		color_lightblue,color_greenish,	color_orange,	color_red		; blueish


;=============================================================================
tft_out1	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; load standard Color Pallet
;
	global	TFT_load_std_color_pallet
TFT_load_std_color_pallet:
	clrf	WREG						; select standard pallet
	bra		TFT_load_color_pallet		; load color pallet


;-----------------------------------------------------------------------------
; load Dive Mode Color Pallet
;
	global	TFT_load_dive_color_pallet
TFT_load_dive_color_pallet:
	movff	opt_dive_color_scheme,WREG	; get color scheme selection
	;bra	TFT_load_color_pallet		; load color pallet


	; Helper Function - load color pallet
TFT_load_color_pallet:
	mullw	.6							; 6 bytes per pallet, compute pallet offset

	movf	PRODL,W						; get pallet offset,  low
	movwf	TBLPTRL						; set table pointer,  low

	movlw	HIGH  (pallet_table)		; get start of table, high
	movwf	TBLPTRH						; set table pointer,  high

	movlw	UPPER (pallet_table)		; get start of table, upper
	movwf	TBLPTRU						; set table pointer,  upper

	lfsr	FSR2,pallet_color_mask		; point to first color in pallet
	movlw	.6							; initialize loop counter
TFT_load_color_pallet_loop:
	TBLRD*+								; read color
	movff	TABLAT,POSTINC2				; copy color to pallet
	decfsz	WREG						; decrement loop counter, reached zero?
	bra		TFT_load_color_pallet_loop	; NO  - loop
	return								; YES - done


;=============================================================================
tft_out2	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Color-Code a Tank Pressure or SAC Rate
;
; Input hi:lo pressure / SAC rate
;
TFT_color_code_pres_sac:
	btfss	hi,int_not_avail_flag		; is the not-available flag set?
	bra		TFT_color_code_tank_pres_1	; NO
	bcf		hi,int_not_avail_flag		; YES - clear not-available flag
TFT_color_code_tank_pres_0:				;     - entry point for outdated flag
	bcf		hi,int_outdated_flag		;     - clear outdated  flag (it may be set)
	bcf		hi,int_warning_flag			;     - clear warning   flag (it may be set)
	bcf		hi,int_attention_flag		;     - clear attention flag (it may be set)
	FONT_COLOR_DISABLED					;     - set to disabled color and return
	return								;     - done

TFT_color_code_tank_pres_1:
	btfsc	hi,int_outdated_flag		; is the outdated flag set?
	bra		TFT_color_code_tank_pres_0	; YES - handle alike with not-available flag
	btfss	hi,int_warning_flag			; NO  - is the warning flag set?
	bra		TFT_color_code_tank_pres_2	;       NO
	bcf		hi,int_attention_flag		;       YES - clear  attention flag (it may be set)
	bcf		hi,int_warning_flag			;           - clear  warning flag
	FONT_COLOR_WARNING					;           - select warning color
	return								;           - done

TFT_color_code_tank_pres_2:
	btfss	hi,int_attention_flag		; is the attention flag set?
	bra		TFT_color_code_tank_pres_3	; NO  - set memo color and return
	bcf		hi,int_attention_flag		; YES - clear attention flag
	FONT_COLOR_ATTENTION				;     - set to attention color
	return								;     - done

TFT_color_code_tank_pres_3:
	FONT_COLOR_MEMO						; set to memo color
	return								; done


;-----------------------------------------------------------------------------
; Color-Code a Gas by its ppO2
;
; Input hi                O2% of the gas
;       pressure_abs_10   current absolute pressure / 10
;
	global	TFT_color_code_gaslist
TFT_color_code_gaslist:
	; check for very high ppO2
	MOVII	pressure_abs_10,xA			; get absolute pressure / 10
	movff	hi,xB+0						; get O2%
	clrf	xB+1						; ...
	call	mult16x16					; hi * absolute pressure / 10
	; check if ppO2 > 6.55 bar
	tstfsz	xC+2						; char_I_O2_ratio * absolute pressure / 10 > 65536, i.e. ppO2 > 6.55 bar ?
	bra		TFT_color_code_gaslist_warn	; YES - set warning color and return

	; check if ppO2 > 3.30 bar
	btfsc	xC+1,7						; ppO2 > 3.30 bar ?
	bra		TFT_color_code_gaslist_warn	; YES - set warning color and return

	; check for low ppO2
	MOVII	xC,sub_a					; get ppO2 of the gas
	movff	char_I_ppO2_min,WREG		; get minimum ppO2
	mullw	d'100'						; compute (minimum ppO2) * 100
	MOVII	PRODL,sub_b					; copy result to sub_b
	call	cmpU16						; compare (sub_a - sub_b)
	btfsc	neg_flag					; lower than ppO2 min?
	bra		TFT_color_code_gaslist_warn	; YES - set warning color and return

	; check for high ppO2
	movff	char_O_deco_info,WREG		; bank-safe copy of deco info vector
	btfsc	WREG,deco_mode				; are we in deco?
	bra		TFT_color_code_gaslist_deco	; YES - check against ppO2 max deco only

	; check for ppO2 max travel/normal
	movff	char_I_ppO2_max_work,WREG	; ppo2 max during working phase
	mullw	d'100'						; char_I_ppO2_max_work*100
	ADDLI	ppO2_margin_on_max,PROD		; add ppO2 margin on max value to compensate for surface pressures > 1000 hPa
	MOVII	PRODL,sub_b					; copy result to sub_b
	call	cmpU16						; compare (sub_a - sub_b)
	btfss	neg_flag					; higher than ppO2 max travel/deco?
	FONT_COLOR_ATTENTION				; YES - set attention color
	;bra	TFT_color_code_gaslist_deco ; continue checking against max deco

	; check for ppO2 max deco
TFT_color_code_gaslist_deco:
	movff	char_I_ppO2_max_deco,WREG	; ppo2 max for deco
	mullw	d'100'						; char_I_ppO2_max_deco * 100
	ADDLI	ppO2_margin_on_max,PROD		; add ppO2 margin on max value to compensate for surface pressures > 1000 hPa
	MOVII	PRODL,sub_b					; copy result to sub_b
	call	cmpU16						; compare (sub_a - sub_b)
	btfsc	neg_flag					; higher than ppO2 max deco?
	return								; NO  - done
	;bra	TFT_color_code_gaslist_warn	; YES - set warning color and return


	; Helper Function - set waring color and return
TFT_color_code_gaslist_warn:
	FONT_COLOR_WARNING					; select warning color
	return								; done


;-----------------------------------------------------------------------------
; Color-Code the Ceiling Depth
;
; Input mpr                      ceiling depth             [mbar]
;       pressure_rel_cur_cached  current relative pressure [mbar]
;
TFT_color_code_ceiling:
	; check for invalid
	btfsc	hi,char_invalid_flag		; is the invalid flag set? (bit 7 here)
	bra		TFT_color_code_ceiling_dis	; YES - set to disabled color and return

	; check for ceiling
	MOVII	pressure_rel_cur_cached,sub_a;get current pressure to sub_a
	MOVII	mpr,sub_b					; get ceiling to sub_b
	call	cmpU16						; sub_a - sub_b = relative pressure [mbar] - int_O_ceiling [mbar]
	btfss	neg_flag					; is current depth < ceiling (too shallow) ?
	bra		TFT_color_code_ceiling_memo	; NO  - set to memo color and return

	; check for outside
	movff	char_O_deco_warnings,WREG	; bank-safe copy of deco warnings
	btfss	WREG,outside_warning		; are we currently outside of the ZH-L16 model?
	bra		TFT_color_code_ceiling_attn	; NO  - set to attention color and return
	;bra	TFT_color_code_ceiling_warn	; YES - set to warnings  color and return


	; Helper Functions - select color and return
TFT_color_code_ceiling_warn:
	FONT_COLOR_WARNING					; select color
	return								; done

TFT_color_code_ceiling_attn:
	FONT_COLOR_ATTENTION				; select color
	return								; done

TFT_color_code_ceiling_memo:
	FONT_COLOR_MEMO						; select color
	return								; done

TFT_color_code_ceiling_dis:
	bcf		hi,char_invalid_flag		; clear the invalid flag (bit 7 here)
	FONT_COLOR_DISABLED					; select disabled color
	return								; done


;-----------------------------------------------------------------------------
; Color-Code the Stop Depth
;
; memo      color if below stop depth,
; attention color if above stop but below ceiling*,
; warning   color if above stop and ceiling*
;
; Input: depth_meter       current depth
;        lo                stop    depth
;        char_O_deco_gas   deco data valid flag
;
; * the ceiling depth is calculated using current (interpolated) GF
;
TFT_color_code_stop:
	; check for invalid
	movff	char_O_deco_gas+0,WREG		; get flag for invalid deco data
	btfsc	WREG,char_invalid_flag		; is the invalid flag set?
	bra		TFT_color_code_stop_dis		; YES - set to disabled color and return

	; check for shallower than stop depth
	movf	lo,W						; get depth of first stop in meters into WREG
	subwf	depth_meter,W				; compute current depth - stop depth
	btfsc	STATUS,C					; result negative?
	bra		TFT_color_code_stop_1		; NO  - not shallower than stop depth, check for ascent advice
	MOVII	int_O_ceiling,sub_b			; YES - get ceiling depth in mbar
	btfsc	sub_b+1,char_invalid_flag	;     - is the invalid flag set? (bit 7 here)
	bra		TFT_color_code_stop_warn	;       YES - select warning color and return
	MOVII	pressure_rel_cur_cached,sub_a;      NO  - get current pressure
	call	cmpU16						;           - sub_a - sub_b = relative pressure - int_O_ceiling
	btfsc	neg_flag					;           - is ceiling > current depth?
	bra		TFT_color_code_stop_warn	;             YES - set to warning   color and return
	bra		TFT_color_code_stop_attn	;             NO  - set to attention color and return

	; check for ascent advice
TFT_color_code_stop_1:
	movf	lo,W						; get depth of first stop in meters into WREG
	incf	WREG,W						; compute stop depth + 1 meter
	subwf	depth_meter,W				; compute current depth - (first stop depth + 1 meter)
	btfss	STATUS,C					; result negative?
	bra		TFT_color_code_stop_memo	; YES - within 1 meter of stop depth, use memo color
	btfsc	deco_region					; NO  - within deco stops region?
	bra		TFT_color_code_stop_advc	;       YES - use advice color and return
	;bra	TFT_color_code_stop_memo	;       NO  - use memo   color and return


	; Helper Functions - select color and return
TFT_color_code_stop_memo:
	FONT_COLOR_MEMO						; select color
	return								; done

TFT_color_code_stop_advc:
	FONT_COLOR_ADVICE					; select color
	bsf		win_invert					; print in inverse
	return								; done

TFT_color_code_stop_attn:
	FONT_COLOR_ATTENTION				; select color
	return								; done

TFT_color_code_stop_warn:
	FONT_COLOR_WARNING					; select color
	return								; done

TFT_color_code_stop_dis:
	FONT_COLOR_DISABLED					; select color
	return								; done


;-----------------------------------------------------------------------------
; Color-Code the current Depth
;
TFT_color_code_depth:
	TSTOSS	opt_depth_warn				; depth warning switched on?
	bra		TFT_color_code_depth_no_mod	; NO
	btfsc	warn_det_depth_limit		; YES - depth limit warning active?
	bra		TFT_color_code_depth_warn	;       YES - set to warning color
	bra		TFT_color_code_depth_mod	;       NO  - check depth against MOD

TFT_color_code_depth_no_mod:
	btfsc	warn_det_depth_limit		; depth limit warning active?
	bra		TFT_color_code_depth_warn	; YES - set to warning color and return
	bra		TFT_color_code_depth_memo	; NO  - set to memo    color and return...

TFT_color_code_depth_mod:
 IFDEF _ccr_pscr
	movff	opt_dive_mode,WREG			; get deco mode: 0=OC, 1=CC, 2=Gauge, 3=Apnea, 4=PSCR
	decfsz	WREG,F						; in CCR mode?
	bra		TFT_color_code_depth_no_ccr	; NO  - continue checking for ppO2
	btfss	bailout_mode				; YES - check if in bailout
	bra		TFT_color_code_depth_outside;       NO  - continue checking for outside ZHL16 model
	;bra	TFT_color_code_depth_no_ccr ;       YES - continue checking for ppO2
 ENDIF

TFT_color_code_depth_no_ccr:
	movff	int_O_breathed_ppO2+1,WREG	; get upper byte of currently breathed ppO2
	btfsc	WREG,int_warning_flag		; is the warning flag set?
	bra		TFT_color_code_depth_warn	; YES - animate in warning design
	;bra	TFT_color_code_depth_outside; NO  - continue checking for outside ZHL16 model

TFT_color_code_depth_outside:
	movff	char_O_deco_warnings,WREG	; bank-safe copy of deco warnings
	btfsc	WREG,outside_warning		; are we currently outside of the ZH-L16 model?
	bra		TFT_color_code_depth_warn	; YES - activate  depth warning
	btfsc	WREG,outside_attention		; NO  - are we near to outside of the ZH-L16 model?
	bra		TFT_color_code_depth_att	;       YES - activate  depth attention
	;bra	TFT_color_code_depth_memo	;       NO  - select memo color and return


	; Helper Functions - set colors and attention/warning flags
TFT_color_code_depth_memo:
	bcf		depth_color_warning			; terminate depth warning
	bcf		depth_color_attention		; terminate depth attention
	FONT_COLOR_MEMO						; select color
	return								; done

TFT_color_code_depth_warn:
	bsf		depth_color_warning			; activate  depth warning
	bcf		depth_color_attention		; terminate depth attention
	FONT_COLOR_WARNING					; select warning color
	return								; done

TFT_color_code_depth_att:
	bcf		depth_color_warning			; terminate depth warning
	bsf		depth_color_attention		; activate  depth attention
	FONT_COLOR_ATTENTION				; select attention
	return								; done


;-----------------------------------------------------------------------------
; Color-Code a CNS Value
;
; Input  hi:lo  CNS value [%]
;
	global	TFT_color_code_cns
TFT_color_code_cns:
	btfss	hi,int_invalid_flag			; is the invalid flag set?
	bra		TFT_color_code_cns_1		; NO
	bcf		hi,int_invalid_flag			; YES - clear invalid flag
	bcf		hi,int_warning_flag			;     - clear warning   flag (it may be set)
	bcf		hi,int_attention_flag		;     - clear attention flag (it may be set)
	FONT_COLOR_DISABLED					;     - select disabled color
	return								;     - done

TFT_color_code_cns_1:
	btfss	hi,int_warning_flag			; is the warning flag set?
	bra		TFT_color_code_cns_2		; NO
	bcf		hi,int_warning_flag			; YES - clear warning   flag
	bcf		hi,int_attention_flag		;     - clear attention flag (it may be set)
	FONT_COLOR_WARNING					;     - select warning color
	return								;     - done

TFT_color_code_cns_2:
	btfss	hi,int_attention_flag		; is the attention flag set?
	bra		TFT_color_code_cns_3		; NO  - select memo color
	bcf		hi,int_attention_flag		; YES - clear attention flag
	FONT_COLOR_ATTENTION				;     - select attention color
	return								;     - done

TFT_color_code_cns_3:
	FONT_COLOR_MEMO						; select memo color
	return								; done


;-----------------------------------------------------------------------------
; Color-Code a Supersaturation Value
;
; Input  hi:lo  CNS value [%]
;
; with int_O_lead_supersat, the upper byte is solely used for the flags
; and not for the value, thus there is no need to clear the flags
;
TFT_color_code_supersat:
	movf	pallet_color_memo,W			; load memo color by default
	btfsc	hi,int_attention_flag		; is the attention flag set?
	movf	pallet_color_attention,W	; YES - replace by attention color
	btfsc	hi,int_warning_flag			; is the warning flag set?
	movf	pallet_color_warning,W		; YES - replace by warning   color
	btfsc	hi,int_invalid_flag			; is the invalid flag set?
	movf	pallet_color_disabled,W		; YES - replace by disabled  color
	movwf	font_color					; set font color
	return								; done


;-----------------------------------------------------------------------------
; Color-Code a ppO2 Value by its warning flags (16 bit)
;
; Input  hi:lo  ppO2 value [cbar]
;
TFT_color_code_ppo2:
	btfss	hi,int_warning_flag			; is the warning flag set?
	bra		TFT_color_code_ppo2_1		; NO
	bcf		hi,int_warning_flag			; YES - clear warning flag
	bcf		hi,int_attention_flag		;     - clear attention    flag (it may be set)
	bcf		hi,int_high_flag			;     - clear high warning flag (it may be set)
	bcf		hi,int_low_flag				;     - clear low  warning flag (it may be set)
	FONT_COLOR_WARNING					;     - select warning color
	return								;     - done

TFT_color_code_ppo2_1:
	btfss	hi,int_attention_flag		; is the attention flag set?
	bra		TFT_color_code_ppo2_2		; NO
	bcf		hi,int_attention_flag		; YES - clear attention    flag (it may be set)
	bcf		hi,int_high_flag			;     - clear high warning flag (it may be set)
	bcf		hi,int_low_flag				;     - clear low  warning flag (it may be set)
	FONT_COLOR_ATTENTION				;     - select to attention color
	return								;     - done

TFT_color_code_ppo2_2:
	bcf		hi,int_high_flag			; clear high warning flag (it may be set)
	bcf		hi,int_low_flag				; clear low  warning flag (it may be set)
	FONT_COLOR_MEMO						; select memo color
	return								; done


 IFDEF _ccr_pscr

;-----------------------------------------------------------------------------
; Color-Code a ppO2 Value by its warning flags (8 bit)
;
; Input  lo  ppO2 value [cbar]
;
TFT_color_code_ppo2_hud:
	movff	char_O_deco_info,WREG		; get the deco info vector
	btfss	WREG,deco_mode				; in deco?
	bra		TFT_color_code_ppo2_hud_a	; NO  - load normal max value as threshold
	movff	char_I_ppO2_max_deco,WREG	; YES - load deco   max value as threshold
	bra		TFT_color_code_ppo2_hud_b	; continue

TFT_color_code_ppo2_hud_a:
	movff	char_I_ppO2_max_work,WREG	; ppO2 max while in working phase
	;bra	TFT_color_code_ppo2_hud_b	; continue

TFT_color_code_ppo2_hud_b:
	cpfsgt	lo							; lo > threshold?
	bra		TFT_color_code_ppo2_hud1	; NO  - continue with checking for ppO2 low
	FONT_COLOR_WARNING					; YES - set warning color
	return								;     - done

TFT_color_code_ppo2_hud1:
	movff	opt_dive_mode,WREG			; 0=OC, 1=CC, 2=Gauge, 3=Apnea, 4=PSCR
	decfsz	WREG,F						; in CCR mode?
	bra		TFT_color_code_ppo2_hud_nocc; NO  - check with ppO2 min for OC mode
	btfsc	bailout_mode				; YES - in bailout mode?
	bra		TFT_color_code_ppo2_hud_nocc;       YES - check with ppO2 min for OC mode
	movff	char_I_ppO2_min_loop,WREG	;       NO  - check with ppO2 min for loop mode
	bra		TFT_color_code_ppo2_hud_com	;           - continue with common part

TFT_color_code_ppo2_hud_nocc:
	movff	char_I_ppO2_min,WREG		; get ppO2 min for all other modes
	;bra	TFT_color_code_ppo2_hud_com	; continue with common part

TFT_color_code_ppo2_hud_com:
	cpfslt	lo							; lo < char_I_ppO2_min?
	bra		TFT_color_code_ppo2_hud_com1; NO  - set memo    color
	FONT_COLOR_WARNING					; YES - set warning color
	return								;     - done

TFT_color_code_ppo2_hud_com1:
	FONT_COLOR_MEMO						; select memo color
	return								; done

 ENDIF	; _ccr_pscr


;-----------------------------------------------------------------------------
; Color-Code the Battery Level
;
; Input  battery_low_condition  battery status flag
;
TFT_color_code_battery:
	movf	pallet_color_memo,W			; get memo color by default
	btfsc	battery_low_condition		; battery low condition detected?
	movf	pallet_color_warning,W		; YES - switch to warning color
	movwf	font_color					; set font color
	return								; done


;-----------------------------------------------------------------------------
; Color-Code according to Gas Number
;
; Input  WREG  gas number
;
	global	TFT_color_code_gas
TFT_color_code_gas:
	movwf	up							; copy gas number (1-6) to up
	movlw	color_white					; default color
	dcfsnz	up,F						; gas 1 ?
	movlw	color_white					; YES - color for gas 1
	dcfsnz	up,F						; gas 2 ?
	movlw	color_green					; YES - color for gas 2
	dcfsnz	up,F						; gas 3 ?
	movlw	color_red					; YSE - color for gas 3
	dcfsnz	up,F						; gas 4 ?
	movlw	color_yellow				; YES - color for gas 4
	dcfsnz	up,F						; gas 5 ?
	movlw	color_cyan					; YES - color for gas 5
	dcfsnz	up,F						; gas 6 ?
	movlw	color_pink					; YES - color for gas 6
	movwf	font_color					; set color
	return								; done


;=============================================================================
tft_out3	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Surface Mode Screen - current Time
;
	global	TFT_surfmode_time
TFT_surfmode_time:
    	TSTOSS	opt_timeformat					; =1: Use 12h format
	bra	TFT_surfmode_time24				; <>1: Use 24h format
	; 12h Format
	WIN_SMALL surf_clock_column,surf_clock_row
	FONT_COLOR_MEMO						; set color
	SMOVSS	rtc_year,rtc_latched_year			; ISR-safe 6 byte copy of date and time
	movff	rtc_latched_hour,lo			; get   hours
	call	TFT_convert_lo_into_12h_format			; converts lo (0-23h) into lo (1-12) and sets aux_flag for PM/AM
	output_99							; print hours (0-99)
	movlw	':'							; load a ":"
	movff	rtc_latched_secs,lo			; get seconds
	btfss	lo,0						; on even second?
	movlw	' '							; NO - load a space char
	movwf	POSTINC2					; print ":" or space char
	movff	rtc_latched_mins,lo			; get   minutes
	output_99x							; print minutes (00-99)
	btfsc	aux_flag					; =1 for PM
	bra	TFT_surfmode_time_PM
	STRCAT_PRINT "AM"
	return								; done
TFT_surfmode_time_PM:	
        STRCAT_PRINT "PM"
	return								; done
	
TFT_surfmode_time24:
	WIN_SMALL surf_clock_column+.7,surf_clock_row
	FONT_COLOR_MEMO						; set color
	SMOVSS	rtc_year,rtc_latched_year	; ISR-safe 6 byte copy of date and time
	movff	rtc_latched_hour,lo			; get   hours
	output_99							; print hours (0-99)
	movlw	':'							; load a ":"
	movff	rtc_latched_secs,lo			; get seconds
	btfss	lo,0						; on even second?
	movlw	' '							; NO - load a space char
	movwf	POSTINC2					; print ":" or space char
	movff	rtc_latched_mins,lo			; get   minutes
	output_99x							; print minutes (00-99)
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Surface Mode Screen - current Date
;
	global	TFT_surfmode_date
TFT_surfmode_date:
	WIN_SMALL	surf_date_column,surf_date_row
	FONT_COLOR_MEMO						; set color
	SMOVSS	rtc_year,rtc_latched_year	; ISR-safe 6 byte copy of date and time
	movff	rtc_latched_year, lo		; copy year  to lo
	movff	rtc_latched_month,hi		; copy month to hi
	movff	rtc_latched_day,  up		; copy day   to up
	call	output_date					; print date
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Surface Mode Screen - show Pressure, on condition deltaP > threshold
;
	global	TFT_surfmode_pres_fast
TFT_surfmode_pres_fast:
	SMOVII	pressure_abs,    sub_a		; ISR-safe 2 byte copy of current absolute pressure to sub_a
	MOVII	pressure_abs_ref,sub_b		; standard 2 byte copy 10 min ago absolute pressure to sub_b
	call	subU16						; sub_c = | sub_a - sub_b | = deltaP
	tstfsz	sub_c+1						; deltaP > 255 mbar ?
	bra		TFT_pres_surfmode_fast_1	; YES - show current pressure
	movlw	pressure_noise_threshold+.1	; NO  - load noise suppression threshold
	subwf	sub_c+0,W					;     - subtract threshold from deltaP
	bc		TFT_pres_surfmode_fast_1	;     - result negative -> show current pressure
	tstfsz	pressure_update_lag_counter	;     - still in lag time?
	bra		TFT_pres_surfmode_fast_0	;       YES - continue updating the display
	return								;       NO  - no display updates any more, done

TFT_pres_surfmode_fast_0:
	decf	pressure_update_lag_counter,F	; clock down lag time counter
	bra		TFT_surfmode_pres				; update display

TFT_pres_surfmode_fast_1:
	movlw	pressure_noise_lag_time		; get    lag time
	movwf	pressure_update_lag_counter	; re-set lag time counter
	;bra	TFT_surfmode_pres			; update display


;-----------------------------------------------------------------------------
; Surface Mode Screen - show Pressure (unconditional)
;
	global	TFT_surfmode_pres
TFT_surfmode_pres:
	; value
	WIN_SMALL surf_press_column+.8,surf_press_row
	FONT_COLOR_MEMO						; set color
	SMOVII	pressure_abs,mpr			; get current pressure
	FONT_COLOR_MEMO						; print in standard color
	output_9999							; print (0-9999)
	PRINT								; dump buffer to screen
	; unit
	WIN_SMALL	surf_press_column+(4+1)*8,surf_press_row
	FONT_COLOR_MASK						; switch to mask color
	STRCPY_TEXT_PRINT tMBAR				; print unit (hPa)
	return								; done


;-----------------------------------------------------------------------------
; Surface Mode Screen - Temperature
;
	global	TFT_surfmode_temp
TFT_surfmode_temp:
	; unit
	WIN_SMALL surf_temp_column+3*8,surf_temp_row
	FONT_COLOR_MASK						; select mask color
	TSTOSS	opt_units					; 0=°C, 1=°F
	bra		TFT_temp_surfmode_metric	; 0: metric
	;bra	TFT_temp_surfmode_imperial	; 1: imperial

TFT_temp_surfmode_imperial:
	STRCAT_TEXT tLogTunitF				; print "°F"
	bra		TFT_temp_surfmode_common	; continue with common part

TFT_temp_surfmode_metric:
	STRCAT_TEXT tLogTunitC				; print "°C"
	;bra	TFT_temp_surfmode_common	; continue with common part

TFT_temp_surfmode_common:
	PRINT								; dump the unit to screen

	; value
	WIN_SMALL surf_temp_column,surf_temp_row
	bra		TFT_temp_common				; continue with common part


	; Helper Function - common output for surface and dive mode temperature
TFT_temp_common:
	FONT_COLOR_MEMO						; set color
	SMOVII	temperature_cur,mpr			; ISR-safe 2 byte copy of current temperature to hi:lo

;	DEBUG CODE  -  manual override temp
;	-----------------------------------
;	MOVLI	0xFFF6,mpr		; - 1.0 °C
;	MOVLI	0xFF9C,mpr		; -10.0 °C

	TSTOSC	opt_units					; 0=°C, 1=°F
	call	convert_celsius_to_fahrenheit;1 - convert value in lo:hi from Celsius to Fahrenheit
	call	convert_signed_16bit		; convert lo:hi into signed-short and print '-' if negative
	btfsc	neg_flag					; is the temperature negative?
	bsf		hide_digit4					; YES - do not print digit 4
	bsf		omit_digit_1				; do not print digit 1 (0.1°)
	output_9999							; print temperature (0x-999x / 0x-99x if negative)

	btfss	divemode					; in dive mode?
	bra		TFT_temp_common_no_unit		; NO  - no unit to append
	TSTOSS	opt_units					; YES - check unit type: 0=°C, 1=°F
	bra		TFT_temp_common_metric		;       0 - metric
	;bra	TFT_temp_common_imperial	;       1 - imperial

TFT_temp_common_imperial:
	STRCAT_TEXT_PRINT tLogTunitF		; append "°F" and dump to screen
	return								; done

TFT_temp_common_metric:
	STRCAT_TEXT_PRINT tLogTunitC		; append "°C" and dump to screen
	return								; done

TFT_temp_common_no_unit:
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Surface Mode Screen - Battery Status
;
	global	TFT_surfmode_batt
TFT_surfmode_batt:
	FONT_COLOR_MEMO						; set default color

	; apply charging indicator and warnings
	clrf	WREG						; default to no indication/warning
	btfsc	cc_active					; charging in CC mode?
	movlw	color_yellow				; YES - set output color to yellow
	btfsc	cv_active					; charging in CV mode?
	movlw	color_green					; YES - set output color to green
	btfsc	battery_low_condition		; battery low condition detected?
	movf	pallet_color_warning,W		; YES - set output to warning color
	btfsc	battery_overtemp			; battery over-temperature detector tripped?
	movf	pallet_color_warning,W		; YES - set output to warning color
	tstfsz	WREG						; any indicator or warning active?
	bsf		win_invert					; YES - set output to inverse
	tstfsz	WREG						; any indicator or warning active (asked again)?
	movwf	font_color					; YES - change color

	WIN_SMALL batt_percent_column+.2,batt_percent_row
	movff	batt_percent,lo				; get   battery %
	output_256							; print battery % (0-255)
	STRCAT_PRINT "% "					; append unit with trailing space and dump to screen

	WIN_TINY batt_voltage_column+.15,batt_voltage_row
	FONT_COLOR_MEMO						; set color
	movff	battery_type,lo				; get battery type
	PUTC	"T"							; print "T"
	output_9							; print battery type code (0-9)
	PUTC	":"							; print ":"
	MOVII	batt_voltage,mpr			; get battery voltage
	bsf		omit_digit_2				; do not print 2nd and 1st digit
	bsf		decimal_digit3				; place a decimal point in front of digit 3
	output_9999							; print x.x--
	PUTC_PRINT 'V'						; append unit and dump to screen
	return								; done

;update_battery_debug:
;	FONT_COLOR_MEMO	
;	WIN_TINY .70,.0
;	movff	battery_gauge+5,xC+3
;	movff	battery_gauge+4,xC+2
;	movff	battery_gauge+3,xC+1
;	movff	battery_gauge+2,xC+0
;	; battery_gauge:6 is nAs
;	; devide through 65536
;	; devide through 152
;	; Result is 0.01Ah in xC+1:xC+0
;	MOVLI	.152,xB
;	call	div32x16					; xC:4 = xC:4 / xB:2 with xA as remainder
;	MOVII	xC,mpr
;	bsf		leftbind
;	output_65535
;	STRCAT_PRINT "x.01Ah"
;	return


;-----------------------------------------------------------------------------
; Surface Mode Screen - Deco Mode  (0=OC, 1=CCR, 2=Gauge, 3=Apnoe, 4=pSCR)
;
	global	TFT_surfmode_decotype
TFT_surfmode_decotype:
	WIN_STD surf_decotype_column,surf_decotype_row
	FONT_COLOR color_lightblue			; set font color
	movff	opt_dive_mode,lo			; get deco mode 
	tstfsz	lo							; in OC mode?
	bra		TFT_decotype_surface_2		; NO
	STRCAT_TEXT_PRINT tDvOC				; YES - print OC
	return								;     - done

TFT_decotype_surface_2:
	decfsz	lo,F						; in CCR mode?
	bra		TFT_decotype_surface_3		; NO
 IFDEF _ccr_pscr
	STRCAT_TEXT_PRINT tDvCC				; YES - print CCR

	WIN_TINY surf_decotype_column+.18,surf_decotype_row+.12
	FONT_COLOR_MEMO						;     - set color
	movff	opt_ccr_mode,WREG			;     - ccr mode
	tstfsz	WREG						;     - ccr_mode = 0 (FixedSP) ?
	bra		TFT_surfmode_decotype_cc_var;       NO  - not fixed
	;bra	TFT_surfmode_decotype_cc_fix;       YES - fixed

TFT_surfmode_decotype_cc_fix:
	STRCPY_TEXT tCCRModeFixedSP			; print "fixed SP"
	bra		TFT_decotype_surface_cc_com	; continue

TFT_surfmode_decotype_cc_var:
	; Sensor or Auto SP mode
	sublw	.2							; ccr_mode = 2 (Auto SP) ?
	bz		TFT_decotype_surface_cc_auto; YES - AutoSP
 IFDEF _external_sensor
	STRCPY_TEXT tCCRModeSensor			; NO  - print "Sensor"
	bra		TFT_decotype_surface_cc_com	;     - continue
 ENDIF	; _external_sensor

TFT_decotype_surface_cc_auto:
	STRCPY_TEXT tCCRModeAutoSP			; print "Auto SP"
	;bra	TFT_decotype_surface_cc_com	; continue

TFT_decotype_surface_cc_com:
	clrf	WREG						; load string terminator
	movff	WREG,buffer+.8				; limit string length to 8
	PRINT								; dump to screen
	return								; done
 ENDIF	; _ccr_pscr

TFT_decotype_surface_3:
	decfsz	lo,F						; in gauge mode?
	bra		TFT_decotype_surface_4		; NO
	STRCAT_TEXT_PRINT tDvGauge			; YES - print "Gauge"
	return								;     - done

TFT_decotype_surface_4:
	decfsz	lo,F						; in apnea mode?
	bra		TFT_decotype_surface_5		; NO
	STRCAT_TEXT_PRINT tDvApnea			; YES - print "Apnoe"
	return								;     - done

TFT_decotype_surface_5:
	STRCAT_TEXT_PRINT tDvPSCR			; print "pSCR"
	return								; done


;-----------------------------------------------------------------------------
; Surface Mode Screen - small Gas List
;
	global	TFT_surfmode_startgas
TFT_surfmode_startgas:
	; FIRST gas
	WIN_SMALL surf_decotype_column+.1,surf_decotype_row+.30
	FONT_COLOR_MEMO						; set font color
	call	get_first_gas_to_WREG		; get first gas (1-5) into WREG
	decf	WREG,W						; 1-5 -> 0-4
	movwf	PRODL						; copy to PRODL
	call	gaslist_strcat_mix_PRODL	; print gas description
	PRINT								; dump to screen

	; show gases
	WIN_TOP  surf_decotype_row+.30+.25	; set row position

	; 1st gas
	WIN_LEFT surf_decotype_boxes_left1+.1
	movff	opt_gas_type+0,hi			; 0=Disabled, 1=First, 2=Travel, 3=Deco
	rcall	TFT_surfmode_startgas_helper; set font color
	STRCPY_PRINT "1"					; print "1"
	decfsz	hi,F						; Type = 1 (First)?
	bra		TFT_surfmode_startgas_2		; NO - skip box
	WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left1, surf_decotype_boxes_left1+.8

	; 2nd gas
TFT_surfmode_startgas_2:
	WIN_LEFT surf_decotype_boxes_left2+.1
	movff	opt_gas_type+1,hi			; 0=Disabled, 1=First, 2=Travel, 3=Deco
	rcall	TFT_surfmode_startgas_helper; set font color
	STRCPY_PRINT "2"					; print "2"
	decfsz	hi,F						; Type = 1 (First)?
	bra		TFT_surfmode_startgas_3		; NO - skip box
	WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left2, surf_decotype_boxes_left2+.8

	; 3rd gas
TFT_surfmode_startgas_3:
	WIN_LEFT surf_decotype_boxes_left3+.1
	movff	opt_gas_type+2,hi			; 0=Disabled, 1=First, 2=Travel, 3=Deco
	rcall	TFT_surfmode_startgas_helper; set font color
	STRCPY_PRINT "3"					; print "3"
	decfsz	hi,F						; Type = 1 (First)?
	bra		TFT_surfmode_startgas_4		; NO - skip box
	WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left3, surf_decotype_boxes_left3+.8

	; 4th gas
TFT_surfmode_startgas_4:
	WIN_LEFT surf_decotype_boxes_left4+.1
	movff	opt_gas_type+3,hi			; 0=Disabled, 1=First, 2=Travel, 3=Deco
	rcall	TFT_surfmode_startgas_helper; set font color
	STRCPY_PRINT "4"					; print "4"
	decfsz	hi,F						; Type = 1 (First)?
	bra		TFT_surfmode_startgas_5		; NO - skip box
	WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left4, surf_decotype_boxes_left4+.8

	; 5th gas
TFT_surfmode_startgas_5:
	WIN_LEFT surf_decotype_boxes_left5+.1
	movff	opt_gas_type+4,hi			; 0=Disabled, 1=First, 2=Travel, 3=Deco
	rcall	TFT_surfmode_startgas_helper; set font color
	STRCPY_PRINT "5"					; print "5"
	decfsz	hi,F						; type = 1 (First)?
	return								; NO - done
	WIN_FRAME_STD surf_decotype_boxes_top, surf_decotype_boxes_bottom, surf_decotype_boxes_left5, surf_decotype_boxes_left5+.8
	return								; done


	; Helper Function - set font color
TFT_surfmode_startgas_helper:
	movf	pallet_color_disabled,W		; set default color
	tstfsz	hi							; gas not disabled?
	movf	pallet_color_memo,W			; YES - change to memo color
	movwf	font_color					; set font color
	return

 IFDEF _rx_functions

;-----------------------------------------------------------------------------
; Surface Mode Screen - Tank Pressure Reading above Surface Pressure
;
	global	TFT_surfmode_tankpres
TFT_surfmode_tankpres:
	WIN_SMALL surf_decotype_column+.6,surf_decotype_row+.30+.47
	movff	int_IO_pressure_value+0,lo	; copy pressure from 1st reading to hi:lo
	movff	int_IO_pressure_value+1,hi	; ...
	btfss	hi,int_not_avail_flag		; pressure reading 1 available?
	bra		TFT_surface_tank_pres_0		; YES
	movff	int_IO_pressure_value+2,lo	; NO - copy pressure from 2nd reading to hi:lo
	movff	int_IO_pressure_value+3,hi	;    - ...
	btfsc	hi,int_not_avail_flag		;    - pressure reading 2 available?
	bra		TFT_surface_tank_pres_1		;      NO  - show not avail message

TFT_surface_tank_pres_0:
	call	TFT_color_code_pres_sac		; set output color according to flags
	bsf		omit_digit_1				; do not print 1st digit (0.1 bar)
	output_9999							; print (0x-999x)
	PRINT								; dump to screen
	bra		TFT_surface_tank_pres_2		; print unit

TFT_surface_tank_pres_1:
	FONT_COLOR_DISABLED					; select disabled color
	STRCAT_PRINT " ---"					; output for no pressure data available

TFT_surface_tank_pres_2:
	WIN_SMALL surf_decotype_column+.38,surf_decotype_row+.30+.47
	FONT_COLOR_MASK						; select mask color
	STRCAT_PRINT "bar"					; can not use tbar because it has a leading space
	return								; done

 ENDIF	; _rx_functions


;=============================================================================
tft_out4	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Imprint the Color Schemes
;
	global	TFT_imprint_color_schemes
TFT_imprint_color_schemes:
	call	TFT_load_dive_color_pallet	; load dive mode color pallet

	FONT_COLOR_MASK						; select mask color
	WIN_TINY .12,.40					; print labels
	STRCAT_TEXT_PRINT tDepth			; ...
	WIN_TINY .62,.40					; ...
	STRCAT_TEXT_PRINT tMaxDepth			; ...
	WIN_TINY .122,.40					; ...
	STRCAT_TEXT_PRINT tDivetime			; ...

	FONT_COLOR_DISABLED					; select disabled color

	; max. depth demo
	WIN_MEDIUM .64,.54					; set font and position
	movlw	.63							; load demo depth
	movwf	lo							; ...
	output_99							; print full meters (0-99)
	PRINT								; dump to screen

	WIN_SMALL .87,.66					; set font and position
	PUTC	"."							; print ":"
	movlw	.4							; load demo depth
	movwf	lo							; ...
	output_9							; print decimeters (0-9)
	PRINT								; dump to screen

	FONT_COLOR_MEMO						; select memo color

	; depth demo
	WIN_MEDIUM .3,.54					; set font and position
	movlw	.17							; load a demo depth
	movwf	lo							; ...
	output_99							; print full meters (0-99)
	PRINT								; dump to screen

	WIN_SMALL .25,.66					; set font and position
	PUTC	"."							; print ":"
	movlw	.5							; load demo depth
	movwf	lo							; ...
	output_9							; print decimeters (0-9)
	PRINT								; dump to screen

	; dive time demo
	WIN_MEDIUM .103, .54				; set font and position
	SMOVSS	rtc_year,rtc_latched_year	; ISR-safe 6 byte copy of date and time
	movff	rtc_latched_mins,lo			; get   minutes
	output_256							; print minutes (in 3 digits, 1st digit used as spacer)
	PRINT								; dump to screen

	WIN_SMALL .139, .66					; set font and position
	PUTC	':'							; print ":"
	movff	rtc_latched_secs,lo			; get   seconds
	output_99x							; print seconds (00-99)
	PRINT								; dump to screen

	; messages demo
	WIN_SMALL dm_warning1_column-.78, dm_warning1_row+.39+.12
	FONT_COLOR_ADVICE					; select advice color
	STRCPY_TEXT_PRINT tgaschange		; sample text "Change?"

	WIN_SMALL dm_warning1_column, dm_warning1_row+.39
	FONT_COLOR_ATTENTION				; select attention color
	STRCPY_TEXT_PRINT tCNSeod			; sample text "CNS final"

	WIN_SMALL dm_warning2_column, dm_warning2_row+.38
	FONT_COLOR_WARNING					; select warning color
	STRCPY_TEXT_PRINT tGasNeedsWarn		; sample text "Gas Needs"

	call	TFT_load_std_color_pallet	; re-load standard color pallet

	return								; done


;-----------------------------------------------------------------------------
; Surface Menu - Imprint Time & Date
;
	global	TFT_imprint_time_date
TFT_imprint_time_date:
	SMOVSS	rtc_year,rtc_latched_year	; ISR-safe 6 byte copy of current date & time
	;bra	TFT_imprint_time_date_fast	; continue


;-----------------------------------------------------------------------------
; Surface Menu - Imprint Time & Date - fast Updating
;
	global	TFT_imprint_time_date_fast
TFT_imprint_time_date_fast:
    	WIN_SMALL .20,.35					; column, row - keep clear of the cursor area on the left!
	FONT_COLOR_MEMO						; set color
	TSTOSS	opt_timeformat					; =1: Use 12h format
	bra	TFT_imprint_time_date_fast24			; <>1: Use 24h format
	; 12h Format
	movff	rtc_latched_hour,lo				; get   hours
	rcall	TFT_convert_lo_into_12h_format			; converts lo (0-23h) into lo (1-12) and sets aux_flag for PM/AM
	output_99							; print hours (0-99)
	movlw	':'							; load a ":"
	movff	rtc_latched_secs,lo			; get seconds
	btfss	lo,0						; on even second?
	movlw	' '							; NO - load a space char
	movwf	POSTINC2					; print ":" or space char
	movff	rtc_latched_mins,lo			; get   minutes
	output_99x							; print minutes (00-99)
	PUTC	':'							; print ":"
	movff	rtc_latched_secs,lo			; get   seconds
	output_99x							; print seconds (00-99)
	btfsc	aux_flag					; =1 for PM
	bra	TFT_surfmode_time_PM_fast
	STRCAT "AM "
	bra	TFT_imprint_time_date_fast_date				; done
TFT_surfmode_time_PM_fast:	
        STRCAT "PM "
	bra	TFT_imprint_time_date_fast_date				; done
TFT_imprint_time_date_fast24:
	movff	rtc_latched_hour,lo			; get   hours
	output_99							; print hours (0-99)
	PUTC	':'							; print ":"
	movff	rtc_latched_mins,lo			; get   minutes
	output_99x							; print minutes (00-99)
	PUTC	':'							; print ":"
	movff	rtc_latched_secs,lo			; get   seconds
	output_99x							; print seconds (00-99)
	STRCAT	"  "						; append two spaces
TFT_imprint_time_date_fast_date:
	movff	rtc_latched_year, lo		; get date
	movff	rtc_latched_month,hi		; ...
	movff	rtc_latched_day,  up		; ...
	call	output_date					; print date
	PUTC_PRINT " "						; append a space and dump to screen
	return								; done

	global	TFT_convert_lo_into_12h_format
TFT_convert_lo_into_12h_format:	; converts lo (0-23h) into lo (1-12) with PM/AM flag in aux_flag
	tstfsz	lo
	bra	TFT_convert_lo_into_12h_format1
	; 0 -> 12AM
	movlw	.12
	movwf	lo
	bcf	aux_flag			; PM/AM Bit
	return
TFT_convert_lo_into_12h_format1:
	movlw	.13
	cpfslt	lo				; >12h?
	bra	TFT_convert_lo_into_12h_format2	; yes
	; lo stays the same
	bsf	aux_flag			; PM/AM Bit
	movlw	.12				; 12:00 is 12:00 PM...
	cpfseq	lo
	bcf	aux_flag
	return
TFT_convert_lo_into_12h_format2:
	movlw	.12
	subwf	lo,F
	bsf	aux_flag			; PM/AM Bit
	return
    
 IFDEF _external_sensor

;-----------------------------------------------------------------------------
; Surface Mode - Imprint ppO2 from Sensors
;
	global	TFT_imprint_surf_ppO2
TFT_imprint_surf_ppO2:

TFT_imprint_surf_ppO2_1:
	WIN_SMALL surf_hud_sensor1_column,surf_hud_sensor1_row
	btfsc	sensor1_calibrated_ok		; sensor calibrated?
	bra		TFT_imprint_surf_ppO2_1a	; YES
	btfsc	sensor1_active				; NO - valid HUD data for this sensor?
	bra		TFT_imprint_surf_ppO2_1a	;      YES
	rcall	TFT_imprint_surf_ppO2_h2	;      NO  - print dashes
	bra		TFT_imprint_surf_ppO2_2		;          - continue with sensor 2
TFT_imprint_surf_ppO2_1a:
	movff	sensor1_ppO2,lo				; get ppO2
	rcall	TFT_imprint_surf_ppO2_h1	; print ppO2

TFT_imprint_surf_ppO2_2:
	WIN_SMALL surf_hud_sensor2_column,surf_hud_sensor2_row
	btfsc	sensor2_calibrated_ok		; sensor calibrated?
	bra		TFT_imprint_surf_ppO2_2a	; YES
	btfsc	sensor2_active				; NO  - valid HUD data for this sensor
	bra		TFT_imprint_surf_ppO2_2a	;       YES
	rcall	TFT_imprint_surf_ppO2_h2	;       NO  - print dashes
	bra		TFT_imprint_surf_ppO2_3		;           - continue with sensor 3
TFT_imprint_surf_ppO2_2a:
	movff	sensor2_ppO2,lo				; get ppO2
	rcall	TFT_imprint_surf_ppO2_h1	; print ppO2

TFT_imprint_surf_ppO2_3:
	WIN_SMALL surf_hud_sensor3_column,surf_hud_sensor3_row
	btfsc	sensor3_calibrated_ok		; sensor calibrated?
	bra		TFT_imprint_surf_ppO2_3a	; YES
	btfsc	sensor3_active				; NO  - valid HUD data for this sensor
	bra		TFT_imprint_surf_ppO2_3a	;       YES
	bra		TFT_imprint_surf_ppO2_h2	;       NO  - print dashes and return
	return								;           - done
TFT_imprint_surf_ppO2_3a:
	movff	sensor3_ppO2,lo				; get ppO2
	;bra	TFT_imprint_surf_ppO2_h1	; print ppO2 and return

TFT_imprint_surf_ppO2_h1:
	call	TFT_color_code_ppo2_hud		; color-code with ppO2 [cbar] in lo
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_256							; print (0.00-2.55)
	PRINT								; dump to screen
	return								; done

TFT_imprint_surf_ppO2_h2:
	FONT_COLOR_MEMO						; select standard color
	STRCPY_PRINT "--- "					; print dashes
	return								; done


;-----------------------------------------------------------------------------
; Surface Mode - Imprint mV from Sensors
;
	global	TFT_imprint_surf_mV
TFT_imprint_surf_mV:
	FONT_COLOR_MEMO						; set font color

	; sensor 1
	WIN_SMALL surf_mV_sensor_column,surf_mV_sensor1_row
	SMOVII	sensor1_mv,mpr				; in 0.1mV steps
	STRCAT	"1: "						; print number
	rcall	TFT_sensor_mV_helper		; print mV

	; sensor 2
	WIN_SMALL surf_mV_sensor_column,surf_mV_sensor2_row
	SMOVII	sensor2_mv,mpr				; in 0.1mV steps
	STRCAT	"2: "						; print number
	rcall	TFT_sensor_mV_helper

	; sensor 3
	WIN_SMALL surf_mV_sensor_column,surf_mV_sensor3_row
	SMOVII	sensor3_mv,mpr				; in 0.1mV steps
	STRCAT	"3: "						; print number
	rcall	TFT_sensor_mV_helper		; print mV

	; print sensor connection type
	WIN_SMALL surf_mV_sensor_column,surf_mV_sensor3_row+.24
	btfsc	ext_input_optical			; optical input?
	bra		TFT_sensor_mV_optical		; YES
	TSTOSS	opt_s8_mode					; NO  - S8 input selected?
	bra		TFT_sensor_mV_analog		;       NO  - analog input
	;bra	TFT_sensor_mV_s8			;       YES - S8

TFT_sensor_mV_s8:
	STRCAT_PRINT	"Digital"			; print "Digital"
	return								; done

TFT_sensor_mV_optical:
	STRCAT_PRINT	"Optical"			; print "Optical"
	return								; done

TFT_sensor_mV_analog:
	STRCAT_PRINT	"Analog"			; print "analog"
	return								; done


	; Helper Function - print mV value
TFT_sensor_mV_helper:
	bsf		decimal_digit1				; place a decimal point in front of digit 1
	output_9999							; print (0.0-999.9)
	STRCAT_PRINT "mV "					; append unit and dump buffer to screen
	return								; done


;-----------------------------------------------------------------------------
; Surface Mode - Imprint End-of-Life from Sensors
;
; when opt_x_sx > 255 the sensor will just give 8 mV at a ppO2 of 0.21
;
	global	TFT_imprint_surf_sensor_eol
TFT_imprint_surf_sensor_eol:
	FONT_COLOR_WARNING					; set color

TFT_imprint_surf_eol_1:
	; sensor 1
	btfss	sensor1_calibrated_ok		; valid calibration?
	bra		TFT_imprint_surf_eol_2		; NO  - skip
	movff	opt_x_s1+1,WREG				; YES - get high(opt_x_s1)
	movf	WREG,W						;     - excite flags
	bz		TFT_imprint_surf_eol_2		;     - opt_x_s1 > 255 -> the sensor is not too bad yet for a warning
	WIN_SMALL surf_mV_sensor_status_column,surf_mV_sensor1_row-.5
	STRCPY_PRINT "\xb8"					; mark sensor as being at end of lifetime

TFT_imprint_surf_eol_2:
	; sensor 2
	btfss	sensor2_calibrated_ok		; valid calibration?
	bra		TFT_imprint_surf_eol_3		; NO  - skip
	movff	opt_x_s2+1,WREG				; YES - get high(opt_x_s2)
	movf	WREG,W						;     - excite flags
	bz		TFT_imprint_surf_eol_3		;     - opt_x_s2 > 255 -> the sensor is not too bad yet for a warning
	WIN_SMALL surf_mV_sensor_status_column,surf_mV_sensor2_row-.5
	STRCPY_PRINT "\xb8"					; mark sensor as being at end of lifetime

TFT_imprint_surf_eol_3:
	; sensor 3
	btfss	sensor3_calibrated_ok		; valid calibration?
	bra		TFT_imprint_surf_eol_4		; NO  - skip
	movff	opt_x_s3+1,WREG				; YES - get high(opt_x_s3)
	movf	WREG,W						;     - excite flags
	bz		TFT_imprint_surf_eol_4		;     - opt_x_s3 > 255 -> the sensor is not too bad yet for a warning
	WIN_SMALL surf_mV_sensor_status_column,surf_mV_sensor3_row-.5
	STRCPY_PRINT "\xb8"					; mark sensor as being at end of lifetime

TFT_imprint_surf_eol_4:
	return								; done


;-----------------------------------------------------------------------------
; Imprint Function for the Calibration Menu
;
	global	TFT_imprint_menu_mV
TFT_imprint_menu_mV:
	FONT_COLOR color_yellow				; show in yellow
	rcall	TFT_sensor_mv_get			; get sensor mV values

	; sensor 1
	WIN_SMALL	surf_menu_sensor1_column,surf_menu2_sensor1_row
	SMOVII	sensor1_mv,mpr				; in 0.1mV steps
	rcall	TFT_imprint_menu_mV_helper	; print mV value

	; sensor 2
	WIN_SMALL	surf_menu_sensor2_column,surf_menu2_sensor2_row
	SMOVII	sensor2_mv,mpr				; in 0.1mV steps
	rcall	TFT_imprint_menu_mV_helper	; print mV value

	; sensor 3
	WIN_SMALL	surf_menu_sensor3_column,surf_menu2_sensor3_row
	SMOVII	sensor3_mv,mpr				; in 0.1mV steps
	rcall	TFT_imprint_menu_mV_helper	; print mV value

	TSTOSS	opt_s8_mode					; =0: analog, =1: digital
	return								; analog - done

	; imprint HUD battery voltage
	WIN_TINY .20,.209					; set position
	STRCPY	"HUD Batt: "				; print label
	SMOVII	hud_battery_mv,mpr			; get HUD battery voltage
	bsf		decimal_digit3				; place a decimal point in front of digit 3
	output_9999							; print (0.000-9.999)
	PUTC_PRINT "V"						; append unit and dump buffer to screen
	return								; done

	; Helper Function - get sensor mV values
TFT_sensor_mv_get:
;	btfsc	ext_input_optical			; do we have an optical interface?
;	return								; YES - optical interface delivers ready-to-use mV data, done
	TSTOSS	opt_s8_mode					; NO  - S8 input selected?
	bra		TFT_sensor_mv_get_ana		;       NO  - read analog inputs
	;bra	TFT_sensor_mv_get_dig		;       YES - convert digitally received ppO2 into mV

TFT_sensor_mv_get_dig:
	btfss	trigger_S8_data_update		; new data frame received?
	return								; NO  - use old values
	bcf		trigger_S8_data_update		; YES - clear update flag
	call	compute_mvolts_from_rawdata	;     - compute mV values from received raw data
	return								;     - done

TFT_sensor_mv_get_ana:
	call	get_analog_inputs			; read mV values from analog inputs
	return								; done


	; Helper Function - print mV value
TFT_imprint_menu_mV_helper:
	bsf		decimal_digit1				; place a decimal point in front of digit 1 (no 0.1 mV)
	output_9999							; print (0.0-999.9)
	STRCAT_PRINT "mV"					; append unit and dump buffer to screen
	return								; done

 ENDIF	; _external_sensor


 IFDEF _rx_functions
;-----------------------------------------------------------------------------
; Imprint Function for the Tank Setup Menu
;
	global	TFT_imprint_tank_pres
TFT_imprint_tank_pres:
	FONT_COLOR_MEMO						; set color
	; get ID
	lfsr	FSR1,opt_transmitter_id_1	; load base address of opt_transmitter_id
	movf	gaslist_gas,W				; get current gas
	rlncf	WREG,W						; multiply by 2 because IDs are 2 byte in size
	movff	PLUSW1,lo					; copy opt_transmitter_id+0[gaslist_gas] to lo
	incf	WREG,W						; increment index
	movff	PLUSW1,hi					; copy opt_transmitter_id+1[gaslist_gas] to hi
	; show pressure
	WIN_SMALL .90, .61					; column, row (+/- 27 per row)
	call	get_pres_by_transmitter_id	; get pressure into hi:lo
	tstfsz	WREG						; do we have valid tank data (WREG=0) ?
	bra		TFT_menu_tank_pres_1		; NO - transmitter not found
	call	TFT_color_code_pres_sac		; set output color according to flags
	bsf		omit_digit_1				; do not print 1st digit (0.1 bar)
	output_9999							; print (0x-999x)
	bra		TFT_menu_tank_pres_2
TFT_menu_tank_pres_1:
	FONT_COLOR_DISABLED					; select color
	STRCAT	" ---"						; print dashes for no pressure data available
TFT_menu_tank_pres_2:
	STRCAT_TEXT_PRINT tbar				; print " bar"
	return								; done

 ENDIF	; _rx_functions


;=============================================================================
tft_out5	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Dive Mode - static Layout
;
	global	TFT_show_divemode_mask
TFT_show_divemode_mask:										; display mask in dive mode
	FONT_COLOR_MASK											; select color

	; current depth
	WIN_TINY dm_mask_depth_column,dm_mask_depth_row			; position for "Depth"
	btfss	alt_layout_active								; alternative layout active?
	bra		TFT_divemode_mask_depth_text					; NO
	btfsc	cur_depth_greater_100m							; YES - current depth >= 100 m?
	bra		TFT_divemode_mask_max_avg						;       YES - skip depth label as it collides with depth number
	WIN_TINY dm_mask_depth_column_alt,dm_mask_depth_row		;       NO  - set alternative position for "Depth"
TFT_divemode_mask_depth_text:
	STRCAT_TEXT_PRINT tDepth								; print "Depth"

TFT_divemode_mask_max_avg:
	; avg or max depth
	btfsc	alt_layout_active								; alternative layout active?
	bra		TFT_divemode_mask_avg_max_alt					; YES

	WIN_TINY dm_mask_maxdepth_col_nvsi,dm_mask_maxdepth_row ; default position for "max.Depth"/"avg.Depth"
	TSTOSS	opt_vsigraph									; graphical VSI bar enabled?
	bra		TFT_divemode_mask_max_avg_pos					; NO  - keep  position
	WIN_TINY dm_mask_maxdepth_col,dm_mask_maxdepth_row		; YES - adopt position
TFT_divemode_mask_max_avg_pos:
	btfsc	FLAG_apnoe_mode									; in apnea mode?
	bra		TFT_divemode_mask_max_text						; YES - always draw max depth
	TSTOSS	opt_2ndDepthDisp								; NO  - shall draw avg depth instead of max depth?
	bra		TFT_divemode_mask_max_text						;       NO  - print "max.Depth"
	STRCAT_TEXT_PRINT tAvgDepth								;       YES - print "avg.Depth"
	bra		TFT_divemode_mask_time_pos						;           - continue with dive time
TFT_divemode_mask_max_text:
	STRCAT_TEXT_PRINT tMaxDepth								; print "max.Depth"
	bra		TFT_divemode_mask_time_pos						; continue with dive time
TFT_divemode_mask_avg_max_alt:
	btfss	FLAG_gauge_mode												; in gauge mode?
	bra		TFT_divemode_mask_time_pos									; NO  - continue with dive time
	WIN_TINY dm_gauge_max_depth_text_col,dm_gauge_max_depth_text_row	; YES - set position
	STRCAT_TEXT_PRINT tMaxDepth											;     - print "max.Depth"
	WIN_TINY dm_gauge_avg_depth_text_col,dm_gauge_avg_depth_text_row	;     - set position
	STRCAT_TEXT_PRINT tDiveTotalAvg										;     - print "Total Avg"
	;bra	TFT_divemode_mask_time_pos									;     - continue with dive time

	; dive time
TFT_divemode_mask_time_pos:
	WIN_TINY dm_mask_divetime_column,dm_mask_divetime_row	; position for "Divetime"
TFT_divemode_mask_time_text:
	STRCAT_TEXT_PRINT tDivetime								; print "Divetime"
	btfss	FLAG_apnoe_mode									; in apnea mode?
	return													; NO  - done
	WIN_TINY dm_total_apnoe_text_col,dm_total_apnoe_text_row; YES - set position
	STRCPY_TEXT_PRINT tApnoeTotal							;     - print "Total"
	return													;     - done


;-----------------------------------------------------------------------------
; Dive Mode - NDL  Layout Add-on
;
	global	TFT_show_ndl_mask
TFT_show_ndl_mask:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	FONT_COLOR_MASK						; NO  - set color
										;     - set position
	WIN_STD dm_ndl_text_column, dm_ndl_text_row
	STRCPY_TEXT_PRINT tNDL				;     - print "NDL"
	btfss	deco_region					;     - was the dive within deco stops region?
	return								;       NO  - done
	btfsc	safety_stop_active			;       YES - safety stop shown?
	return								;             YES - done
	btfsc	alt_layout_active			;   In alternative layout?
	return						;       YES - DONE.
	goto	TFT_show_slow_reminder		;             NO  - show "slow" reminder


;-----------------------------------------------------------------------------
; Dive Mode - Deco Layout Add-on
;
	global	TFT_show_deco_mask
TFT_show_deco_mask:
	bcf		safety_stop_active			; flag safety stop is not shown any more	TODO: needed?
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	btfsc	alt_layout_active			; NO  - in alternative layout?
	bra		TFT_show_deco_mask_alt		;       YES
	;bra	TFT_show_deco_mask_norm		;       NO

TFT_show_deco_mask_norm:
	WIN_STD dm_tts_text_col_norm, dm_tts_text_row_norm
	bra		TFT_show_deco_mask_common	; continue with common part

TFT_show_deco_mask_alt:
	WIN_TINY dm_tts_text_col_alt, dm_tts_text_row_alt
	STRCPY	"Stop/"						; print "Stop/"
	;bra	TFT_show_deco_mask_common	; continue with common part

TFT_show_deco_mask_common:
	FONT_COLOR_MASK						; set color
	STRCAT_TEXT_PRINT tTTS				; print "TTS"
	return								; done


;=============================================================================
tft_out6	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Dive Mode - show Dive Time
;
	global	TFT_show_divetime
TFT_show_divetime:
	FONT_COLOR_MEMO							; set color
	SMOVTT	counted_divetime_mins,mpr		; ISR-safe 3 byte copy of minutes:2 (mpr+1:mpr+0) and seconds (mpr+2)
	btfsc	show_only_divemins				; shall suppress display of seconds?
	bra		TFT_show_divetime_min_only		; YES - show minutes only
	movlw	.99								; NO  - load 99
	cpfsgt	mpr+0							;     - dive time > 99 minutes ?
	bra		TFT_show_divetime_min_sec		;       NO  - show min:sec
	bsf		show_only_divemins				;       YES - set flag to suppress the display of seconds for the rest of the dive
	btfsc	alt_layout_active				;           - in alternative layout?
	bra		TFT_show_divetime_clear_alt		;             YES - clear min:sec area of alternative layout
	;bra	TFT_show_divetime_clear_norm	;             NO  - clear min:sec area of normal      layout

TFT_show_divetime_clear_norm:
	WIN_BOX_BLACK dm_divetime_row, dm_divetime_bot_medium, dm_divetime_col_medium, dm_divetime_rgt ;top, bottom, left, right
	bra		TFT_show_divetime_min_only_norm	; show minutes only

TFT_show_divetime_clear_alt:
	WIN_BOX_BLACK dm_divetime_row, dm_divetime_bot_large,  dm_divetime_col_large,  dm_divetime_rgt ;top, bottom, left, right
	bra		TFT_show_divetime_min_only_alt	; show minutes only

TFT_show_divetime_min_sec:
	; show the minutes
	btfsc	alt_layout_active				; in alternative layout?
	bra		TFT_show_divetime_min_alt		; YES
	;bra	TFT_show_divetime_min_norm		; NO

TFT_show_divetime_min_norm:
	WIN_MEDIUM dm_divetime_col_medium, dm_divetime_row
	bra		TFT_show_divetime_min_com		; continue with common part

TFT_show_divetime_min_alt:
	WIN_LARGE  dm_divetime_col_large,  dm_divetime_row
	;bra	TFT_show_divetime_min_com		; continue with common part

TFT_show_divetime_min_com:
	output_99								; print minutes (0-99)
	PRINT									; dump buffer to screen

	; show the seconds
	btfsc	alt_layout_active				; in alternative layout?
	bra		TFT_show_divetime_sec_alt		; YES
	;bra	TFT_show_divetime_sec_norm		; NO

TFT_show_divetime_sec_norm:
	WIN_SMALL  dm_divetime_sec_col_small,  dm_divetime_sec_row_small
	bra		TFT_show_divetime_sec_com		; continue with common part

TFT_show_divetime_sec_alt:
	WIN_MEDIUM dm_divetime_sec_col_medium, dm_divetime_sec_row_medium
	;bra	TFT_show_divetime_sec_com		; continue with common part

TFT_show_divetime_sec_com:
	PUTC	':'								; print separator char
	movff	mpr+2,lo						; copy  seconds to lo
	output_99x								; print seconds (00-99)
	bra		TFT_divemins_exit				; continue with common part

TFT_show_divetime_min_only:
	btfsc	alt_layout_active				; in alternative layout?
	bra		TFT_show_divetime_min_only_alt	; YES
	;bra	TFT_show_divetime_min_only_norm	; NO

TFT_show_divetime_min_only_norm:
	WIN_MEDIUM dm_divetime_minonly_col_medium, dm_divetime_row
	output_9999								; print minutes (0-9999)
	bra		TFT_divemins_exit				; continue with common part

TFT_show_divetime_min_only_alt:
	WIN_LARGE  dm_divetime_minonly_col_large,  dm_divetime_row
	output_999								; print minutes (0-999)
	;bra	TFT_divemins_exit				; continue with common part

TFT_divemins_exit:
	PRINT									; dump buffer to screen
	return									; done


;-----------------------------------------------------------------------------
; Dive Mode - show current Depth
;
	global	TFT_show_depth
TFT_show_depth:
	MOVII	pressure_rel_cur_cached,mpr	; copy relative pressure to MPR
	call	convert_pres_to_depth		; convert pressure in [mbar] to depth in [cm]
	call	TFT_color_code_depth		; set warning / attention flags and color-code the output
	rcall	TFT_depth_blink				; control animation (blinking)

	rcall	TFT_depth_position_m_ft		; set output position for full meters/feet
	TSTOSS	opt_units					; 0=m, 1=ft ?
	bra		TFT_depth_metric			; 0 - metric
	;bra	TFT_depth_imperial			; 1 - imperial

TFT_depth_imperial:
	MOVLI	.30,sub_a					; load depth threshold of 30 cm (for showing 0 if shallower)
	MOVII	mpr,sub_b					; get current depth
	call	cmpU16						; compute sub_a - sub_b = threshold - current depth
	btfss	neg_flag					; shallower than 30 cm ?
	bra		depth_0_feet				; YES - print a zero directly
	call	convert_cm_to_feet			; NO  - convert value in hi:lo from [cm] to [feet]
	output_999							;     - feet in large or huge font
	PRINT								;     - dump to screen
	bra		TFT_depth_exit				;     - do some cleanup and show target depth if in simulator mode

depth_0_feet:
	STRCAT_PRINT "  0"					; print a zero directly
	bra		TFT_depth_exit				; do some cleanup and show target depth if in simulator mode

TFT_depth_metric:
	bsf		omit_digit_2				; print depth in full meters, i.e. do not print 2nd and 1st digit
	output_9999							; test-print depth for range up to 99.9 meter (0xx-99xx)
	btfsc	output_overflow				; did the printing clip, i.e. deeper than 99.9 meter?
	bra		TFT_depth_metric_100m		; YES - print depth in full meters only

	; depth in meters and decimeters
	btfsc	cur_depth_greater_100m		; was the depth >= 100 meter during last call?
	rcall	TFT_depth_box_black			; YES - clear depth area

	btfsc	cur_depth_greater_100m		; was the depth >= 100 meter during last call?
	rcall	TFT_depth_position_m_ft		; re-set output position for full meters/feet

	bcf		cur_depth_greater_100m		; current depth is now < 100 meter
	PRINT								; dump full meters to screen

	btfsc	depth_inverse_last			; in inverse printing cycle?
	bsf		win_invert					; YES - print inverse
	rcall	TFT_depth_position_dm		; set output position for decimeters
	MOVLI	.30,sub_a					; 30 mbar = 0.3 meter
	MOVII	mpr,sub_b					; current depth
	call	cmpU16						; compare (sub_a - sub_b)
	btfss	neg_flag					; current depth < 0.3 meter ?
	bra		depth_0_decimeter			; YES - print a zero
	output_65535						; NO  - print full depth to buffer
	REINIT_BUFFER						;     - re-initialize the output buffer
	PUTC	"."							;     - print a decimal point
	movff	buffer+3,POSTINC2			;     - get and print the decimeters
	PRINT								;     - dump to screen
	bra		TFT_depth_exit				;     - do some cleanup and show target depth if in simulator mode
depth_0_decimeter:
	STRCAT_PRINT ".0"					; print a zero directly and dump buffer to screen
	bra		TFT_depth_exit				; do some cleanup and show target depth if in simulator mode

TFT_depth_metric_100m:
	; full meters only
	btfss	cur_depth_greater_100m		; was the depth >= 100 meter during last call?
	rcall	TFT_depth_box_black			; NO - clear depth area
	
	btfss	cur_depth_greater_100m		; was the depth >= 100 meter during last call?
	rcall	TFT_depth_position_m_ft		; re-set output position for full meters/feet
	
	bsf		cur_depth_greater_100m		; depth is >= 100 meter now
	REINIT_BUFFER						; re-initialize the output buffer
	bsf		omit_digit_2				; print depth in full meters, i.e. do not print 1st and 2nd digit
	output_65535						; print depth for range >= 100 meter (0xx-655xx)
	PRINT								; dump to screen
	;bra	TFT_depth_exit				; do some cleanup and show target depth if in simulator mode

TFT_depth_exit:
	btfss	alt_layout_active			; alternative layout active?
	bra		TFT_depth_exit_2			; NO
	btfsc	depth_inverse_last			; YES - was last output in inverse mode?
	bra		TFT_depth_exit_2			;       YES - do not restore "Depth" as it collides with depth number
	btfsc	cur_depth_greater_100m		;       NO  - current depth >= 100 m?
	bra		TFT_depth_exit_2			;             YES
	;bra	TFT_depth_exit_1			;             NO

TFT_depth_exit_1
	WIN_TINY dm_mask_depth_column_alt,dm_mask_depth_row
	FONT_COLOR_MASK						; set color
	STRCAT_TEXT_PRINT tDepth			; restore "Depth" title

TFT_depth_exit_2:
	btfss	sensor_override_active		; pressure sensor override active (simulator mode)?
	return								; NO  - done
	bra		TFT_depth_target			; YES - show simulator target depth


	; Helper Function - control animation (blinking)
TFT_depth_blink:
	TSTOSS	opt_depth_warn				; 0=standard, 1=blink
	return								; standard, done
	btfsc	depth_color_last			; was there a warning or attention on the depth in the previous cycle?
	bra		TFT_depth_blink_prev		; YES
	btfsc	depth_color_warning			; NO  - do we have a depth warning now?
	bra		TFT_depth_blink_new			;       YES - so we have a warning now but not previously
	btfsc	depth_color_attention		;       NO  - do we have a depth attention now?
	bra		TFT_depth_blink_new			;             YES - so we have attention now but not previously
	bra		TFT_depth_blink_none		;             NO  - no warning in previous cycle, no warning now, reset all flags

TFT_depth_blink_prev:
	; we had a warning or attention in previous cycle, check if we still have a warning or attention
	btfsc	depth_color_warning			; do we still have a warning?
	bra		TFT_depth_blink_prev_1		; YES
	btfsc	depth_color_attention		; NO  - do we still have an attention?
	bra		TFT_depth_blink_prev_1		;       YES
	; we had a warning or attention before, but not now any more - clear depth area from previous color
	rcall	TFT_depth_box_black			;       NO  - clear depth area
	;bra	TFT_depth_blink_none		;           - reset all flags

TFT_depth_blink_none:
	bcf		depth_inverse_last			; memorize depth was printed in normal
	bcf		depth_color_last			; memorize there was no warning or attention
	FONT_COLOR_MEMO						; select memo color
	return								; done

TFT_depth_blink_prev_1:
	; we had a warning or attention in previous cycle, and we still have a warning or attention
	btfss	depth_inverse_last			; was the depth printed in inverse last time?
	bra		TFT_depth_blink_set			; NO  - print in inverse now
	bra		TFT_depth_blink_reset		; YES - print in normal  now

TFT_depth_blink_new:
	; we had no warning or attention in previous cycle, but now
	bsf		depth_color_last			; memorize that the depth had a warning or attention
	;bra	TFT_depth_blink_set			; start with inverse display

TFT_depth_blink_set:
	; fill the area with respective color
	movf	pallet_color_attention,W	; select attention color as default
	btfsc	depth_color_warning			; do we have a warning?
	movf	pallet_color_warning,W		; YES - replace with warning color
	rcall	TFT_depth_box_color			; color depth area with color in WREG
	bsf		win_invert					; print in inverse
	bsf		depth_inverse_last			; memorize depth was printed in inverse
	return								; done

TFT_depth_blink_reset:
	; fill the area with black color
	rcall	TFT_depth_box_black			; clear depth area
	bcf		depth_inverse_last			; memorize depth was printed in normal
	return								; done


	; Helper Function - set output position for full meters/feet
TFT_depth_position_m_ft:				; output position meters / feet
	btfsc	alt_layout_active			; alternative layout active?
	bra		TFT_depth_position_m_ft_alt	; YES
	;bra	TFT_depth_position_m_ft_norm; NO

TFT_depth_position_m_ft_norm:
	WIN_LARGE dm_depth_col_large,dm_depth_row_large
	return								; done

TFT_depth_position_m_ft_alt:
	WIN_HUGE dm_depth_col_huge, dm_depth_row_huge
	return								; done


	; Helper Function - set output position for decimeters
TFT_depth_position_dm:					; output position decimeters
	btfsc	alt_layout_active			; alternative layout active?
	bra		TFT_depth_position_dm_alt	; YES
	bra		TFT_depth_position_dm_norm	; NO

TFT_depth_position_dm_norm:
	WIN_MEDIUM dm_depth_dm_col_medium, dm_depth_dm_row_medium
	return								; done
TFT_depth_position_dm_alt:
	WIN_LARGE  dm_depth_dm_col_large,  dm_depth_dm_row_large
	return								; done


	; Helper Function - clear depth area
TFT_depth_box_black:
	clrf	WREG						; select black color
	;bra	TFT_depth_box_color			; continue with colored box


	; Helper Function - color depth area with color in WREG
TFT_depth_box_color:
	btfsc	alt_layout_active			; alternative layout active?
	bra		TFT_depth_box_alt			; YES
	;bra	TFT_depth_box_norm			; NO

TFT_depth_box_norm:
	WIN_BOX_COLOR dm_depth_row_large,dm_depth_bot_large,dm_depth_col_large,dm_depth_rgt_large
	return								; done

TFT_depth_box_alt:
	WIN_BOX_COLOR dm_mask_depth_row, dm_depth_bot_huge, dm_depth_col_huge, dm_depth_rgt_huge
TFT_depth_box_exit:
	return								; done


	; Helper Function - show simulated target depth
TFT_depth_target:
	FONT_COLOR_ATTENTION					; select attention color
	movff	simulatormode_depth,lo			; copy target depth to lo
	TSTOSS	opt_units						; check unit selection (0=m or 1=ft)
	bra		TFT_depth_target_metric			; 0 - metric
	;bra	TFT_depth_target_imperial		; 1 - imperial

TFT_depth_target_imperial:
	btfsc	alt_layout_active				; alternative layout active?
	bra		TFT_depth_target_imperial_alt	; YES
	;bra	TFT_depth_target_imperial_norm	; NO

TFT_depth_target_imperial_norm:
	WIN_TINY dm_mask_depth_column+.40,dm_mask_depth_row		; position right of depth label
	bra		TFT_depth_target_imperial_com					; continue with common part

TFT_depth_target_imperial_alt:
	WIN_TINY dm_mask_depth_column+.62,dm_mask_depth_row+.20	; position within last digit
	;bra	TFT_depth_target_imperial_com					; continue with common part

TFT_depth_target_imperial_com:
	call	convert_meter_to_feet			; convert value in lo from meters to feet
	output_999								; display only last three digits from a 16 bit value (0-999)
	STRCAT_PRINT "ft"						; append unit and dump buffer to screen
	return									; done

TFT_depth_target_metric:
	btfsc	alt_layout_active				; alternative layout active?
	bra		TFT_depth_target_metric_alt		; YES
	;bra	TFT_depth_target_metric_norm	; NO

TFT_depth_target_metric_norm:
	WIN_TINY dm_mask_depth_column+.38,dm_mask_depth_row+.22		; position right of full meters, above decimal
	bra		TFT_depth_target_metric_com							; continue with common part

TFT_depth_target_metric_alt:
	WIN_TINY dm_mask_depth_column+.65,dm_mask_depth_row+.20		; position right of full meters, above decimal
	;bra	TFT_depth_target_metric_com							; continue with common part

TFT_depth_target_metric_com:
	output_256								; display target depth (0-255)
	PUTC_PRINT "m"							; append unit and dump to screen
	return									; done


;-----------------------------------------------------------------------------
; Dive Mode - show maximum Depth
;
	global	TFT_show_max_depth
TFT_show_max_depth:
	FONT_COLOR_MEMO						; select color
	btfsc	alt_layout_active			; alternative layout active?
	bra		TFT_show_max_depth_alt		; YES
	;bra	TFT_show_max_depth_norm		; NO

TFT_show_max_depth_norm:
	WIN_MEDIUM dm_max_depth_column_nvsi, dm_max_depth_row
	TSTOSS	opt_vsigraph								; graphical VSI bar enabled?
	bra		TFT_show_max_depth_norm_1					; NO  - keep position
	WIN_MEDIUM dm_max_depth_column, dm_max_depth_row	; YES - adopt output position

TFT_show_max_depth_norm_1:
	btfsc	FLAG_apnoe_mode				; in apnoe mode?
	bra		TFT_max_depth_apnoe			; YES - different handling in apnoe mode
	TSTOSS	opt_2ndDepthDisp			; NO  - show average depth instead of max depth?
	bra		TFT_max_depth_current		;       NO  - show max depth
	bra		TFT_avg_depth_current		;       YES - show avg depth

TFT_max_depth_apnoe:
	btfss	apnoe_at_surface			; apnoe mode, at the surface?
	bra		TFT_max_depth_current		; NO  - show max depth of current dive
	MOVII	apnoe_max_pressure,mpr		; YES - get max pressure of all dives so far
	bra		TFT_max_depth_common		;     - continue with common part

TFT_max_depth_current:
	MOVII	pressure_rel_max_cached,mpr	; get the "normal" max pressure
	bra		TFT_max_depth_common		; continue with common part

TFT_avg_depth_current:
	MOVII	pressure_rel_avg_total,mpr	; get total dive average pressure
	;bra	TFT_max_depth_common		; continue with common part

TFT_max_depth_common:
	call	convert_pres_to_depth		; convert pressure in [mbar] to depth in [cm]
	TSTOSS	opt_units					; 0=m or 1=ft ?
	bra		TFT_max_depth_metric		; 0 - use metric   version
	;bra	TFT_max_depth_imperial		; 1 - use imperial version

TFT_max_depth_imperial:
	bra		TFT_show_depth_helper_imperial

TFT_max_depth_metric:
	bsf		omit_digit_2				; print depth in full meters, i.e. do not print 2nd and 1st digit
	output_9999							; test-print depth for range up to 99.9 meter (0xx-99xx)
	btfsc	output_overflow				; did the printing clip, i.e. deeper than 99.9 meter?
	bra		TFT_max_depth_metric_100m	; YES - print depth in full meters only
	;bra	TFT_max_depth_metric_99m	; NO  - print depth in meters and decimeters

TFT_max_depth_metric_99m:
	; full meters
	btfsc	max_depth_greater_100m		; was the depth >= 100 meter during last call?
	rcall	TFT_max_depth_box_black		; NO - clear max depth area
	bcf		max_depth_greater_100m		; current depth is now < 100 meter
	PRINT								; dump full meters to screen
	; decimeters
	rcall	TFT_max_depth_metric_dm		; set output position for decimeters
	output_65535						; print full depth to buffer
	REINIT_BUFFER						; re-initialize the output buffer
	PUTC	"."							; print a decimal point
	movff	buffer+3,POSTINC2			; get and print the decimeters
	PRINT								; dump to screen
	return								; done

TFT_max_depth_metric_100m:
	; full meters only
	btfss	max_depth_greater_100m		; was the depth >= 100 meter during last call?
	rcall	TFT_max_depth_box_black		; NO - clear max depth area
	bsf		max_depth_greater_100m		; depth is >= 100 meter now
	REINIT_BUFFER						; re-initialize the output buffer
	bsf		omit_digit_2				; print depth in full meters, i.e. do not print 1st and 2nd digit
	output_65535						; print depth for range >= 100 meter (0xx-655xx)
	PRINT								; dump to screen
	return								; done

TFT_show_max_depth_alt:
	btfsc	FLAG_apnoe_mode				; in apnoe mode?
	bra		TFT_show_apnoe_max_depth	; YES - use apnoe surface output also in alternative dive mode screen
	btfss	FLAG_gauge_mode				; NO  - in gauge mode?
	return								;       NO  - done
	;bra	TFT_show_gauge_max_avg_depth;       YES

TFT_show_gauge_max_avg_depth:
	WIN_MEDIUM dm_gauge_max_depth_col, dm_gauge_max_depth_row	; set position for max depth
	MOVII	pressure_rel_max_cached,mpr							; get max pressure into hi:lo
	rcall	TFT_show_depth_helper								; print max depth
	WIN_MEDIUM dm_gauge_avg_depth_col, dm_gauge_avg_depth_row	; set position for avg depth
	MOVII	pressure_rel_avg_total,mpr							; get average pressure into hi:lo
	bra		TFT_show_depth_helper								; print avg depth and return


	; Helper Function - clear max depth area
TFT_max_depth_box_black:
	WIN_BOX_BLACK dm_max_depth_row, dm_max_depth_bot, dm_max_depth_column, dm_max_depth_rgt
	return									; done


	; Helper Function - set output position for decimeters
TFT_max_depth_metric_dm:
	WIN_SMALL dm_max_depth_dm_column_nvsi, dm_max_depth_dm_row	; default position
	TSTOSS	opt_vsigraph										; graphical VSI bar enabled?
	return														; NO  - keep position
	WIN_SMALL dm_max_depth_dm_column, dm_max_depth_dm_row		; YES - adopt position
	return														; done


	; Helper Function - print depth in mpr
TFT_show_depth_helper:
	call	convert_pres_to_depth			; convert pressure in [mbar] to depth in [cm]
	TSTOSS	opt_units						; 0=m, 1=ft
	bra		TFT_show_depth_helper_metric 	; 0 - metric
	;bra	TFT_show_depth_helper_imperial	; 1 - imperial

TFT_show_depth_helper_imperial:
	call	convert_cm_to_feet				; convert value in hi:lo from [cm] to [feet]
	output_999								; print depth (0-999)
	PRINT									; dump to screen
	return									; done

TFT_show_depth_helper_metric:
	bsf		omit_digit_1					; do not print 1st digit
	bsf		decimal_digit2					; place a decimal point in front of digit 2
	output_65535							; print depth (0.0x-655.3x)
	PRINT									; dump to screen
	return									; done


;-----------------------------------------------------------------------------
; Dive Mode - show maximum Depth - Apnoe Mode
;
	global	TFT_show_apnoe_max_depth
TFT_show_apnoe_max_depth:
	; title
	WIN_TINY dm_apnoe_last_max_depth_text_col, dm_apnoe_last_max_depth_text_row
	FONT_COLOR_MASK							; set color
	btfsc	alt_layout_active				; alternative layout active?
	bra		TFT_show_apnoe_max_depth_alt	; YES
	;bra	TFT_show_apnoe_max_depth_norm	; NO

TFT_show_apnoe_max_depth_norm:
	STRCPY_TEXT_PRINT tApnoeMax				; print "Last Descent"
	bra		TFT_show_apnoe_max_depth_com	; continue with common part

TFT_show_apnoe_max_depth_alt:
	STRCPY_TEXT_PRINT tMaxDepth				; print "Max.Depth"
	;bra	TFT_show_apnoe_max_depth_com	; continue with common part

TFT_show_apnoe_max_depth_com:
	; value
	WIN_MEDIUM	dm_apnoe_last_max_depth_column, dm_apnoe_last_max_depth_row
	FONT_COLOR_MEMO							; select color
	MOVII	pressure_rel_max_cached,mpr		; get max pressure into hi:lo
	bra		TFT_show_depth_helper			; print max depth and return


;-----------------------------------------------------------------------------
; Dive Mode - show Temperature
;
	global	TFT_show_temp_divemode
TFT_show_temp_divemode:
	btfsc	dive_pre_menu				; is the pre-menu shown?
	return								; YES - abort
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort, no update of temperature now
	btfsc	better_gas_blinking			; blinking better gas?
	return								; YES - abort, no update of temperature now
	btfsc	better_dil_blinking			; blinking better diluent?
	return								; YES - abort, no update of temperature now

	WIN_SMALL dm_temp_column,dm_temp_row; set position
	FONT_COLOR_MEMO						; set color
	movlw	index_compass_dm			; index of compass custom view
	cpfseq	active_customview			; compass shown in custom view?
	goto	TFT_temp_common				; NO  - continue with common part for temperature
	goto	TFT_update_stopwatch		; YES - show resettable dive time instead of temperature


;-----------------------------------------------------------------------------
; Dive Mode - active Gas and Setpoint
;
	global	TFT_show_active_gas_divemode
TFT_show_active_gas_divemode:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	btfsc	FLAG_apnoe_mode				; in apnoe mode?
	return								; YES - done
	btfsc	FLAG_gauge_mode				; in gauge mode?
	return								; YES - done

 IFDEF _ccr_pscr

	btfsc	FLAG_oc_mode				; in OC mode?
	bra		TFT_active_gas				; YES - show OC gas
	btfss	bailout_mode				; NO  - in bailout?
	bra		TFT_active_sp_loop			;       NO
	;bra	TFT_active_sp_bailout		;       YES

TFT_active_sp_bailout:
	WIN_SMALL dm_active_dil_column, dm_active_dil_row
	FONT_COLOR_ATTENTION				; set color
	STRCPY_TEXT_PRINT tDiveBailout		; print "Bailout"
	bra		TFT_active_gas				; continue showing OC bailout gas

TFT_active_sp_loop:
	MOVII	int_O_breathed_ppO2,mpr		; copy ppO2 [cbar] to hi:lo
	call	TFT_color_code_ppo2			; color-code the output by the ppO2 of the loop gas mixture
	btfss	timebase_1sec				; on even second?
	bra		TFT_active_sp_print			; YES - print ppO2 with normal rendering
	btfsc	warn_det_sensors_lost		; NO  - all sensors lost?
	bra		TFT_active_sp_fallback		;       YES - process fallback case
	movff	int_O_breathed_ppO2+1,WREG	;       NO  - get flags again (have been cleared in hi:lo by TFT_color_code_ppo2 meanwhile)
	btfss	WREG,int_warning_flag		;             warning flag set?
	bra		TFT_active_sp_print			;             NO  - ppO2 is ok, print ppO2 with normal rendering
	bra		TFT_active_sp_invers		;             YES - print with inverse rendering
TFT_active_sp_fallback:					; set up fallback case
	FONT_COLOR_ATTENTION				; set color to attention
TFT_active_sp_invers:
	bsf		win_invert					; print in inverse
TFT_active_sp_print:
	WIN_MEDIUM dm_active_gas_sp_value_col, dm_active_gas_sp_value_row
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_999							; print ppO2 (0.00-9.99)
	PRINT								; dump to screen

	btfsc	sign_shown					; advice/attention/warning sign shown?
	bra		TFT_active_diluent			; YES - do not overwrite in case of alternative layout

	btfsc	velocity_active_vsi			; graphical vertical speed indicator shown?
	bra		TFT_active_diluent			; YES - do not overwrite in case of alternative layout

TFT_active_sp_label_1:
	WIN_STD dm_active_sp_label_col, dm_active_sp_label_row
	FONT_COLOR_MEMO						; select memo color
	STRCAT	"bar"						; print "bar"

 IFDEF _external_sensor

	movf	dive_ccr_mode,W				; get setpoint mode =0: Fixed SP, =1: Sensor, =2: Auto SP
	sublw	.1							; dive_ccr_mode = 1 (Sensor) ?
	bnz		TFT_active_sp_label_2		; NO  - skip
	btfsc	alt_layout_active			; YES - in alternative layout?
	bra		TFT_active_sp_label_2		;       YES - no space available for the "*"
	PUTC	"*"							;       NO  - append "*"

 ENDIF

TFT_active_sp_label_2:
	PRINT								; dump buffer to screen

TFT_active_loop_mode:
	WIN_TINY dm_active_sp_label_col, dm_active_dil_row+.3
	FONT_COLOR_MEMO						; set memo color
	btfsc	FLAG_ccr_mode				; in CCR mode?
	bra		TFT_active_loop_mode_ccr	; YES - print CCR label
	btfsc	FLAG_pscr_mode				; in pSCR mode?
	bra		TFT_active_loop_mode_pscr	; YES - print pSCR label
	bra		TFT_active_diluent			; NO  to both - should not happen

TFT_active_loop_mode_ccr:
	STRCPY_TEXT_PRINT tDvCCR			; print "CCR"
	bra		TFT_active_diluent			; continue with diluent

TFT_active_loop_mode_pscr:
	STRCPY_TEXT_PRINT tDvPSCR			; print "pSCR"
	;bra	TFT_active_diluent			; continue with diluent

TFT_active_diluent:
	MOVII	int_O_pure_ppO2,mpr			; get ppO2 [cbar] into hi:lo
	call	TFT_color_code_ppo2			; color-code the output
	btfss	better_dil_available		; better diluent available?
	bra		TFT_active_diluent_show		; NO  - print in normal rendering
	btg		better_dil_blinking			; YES - toggle blink bit...
	btfss	better_dil_blinking			;     - blink now?
	bra		TFT_active_diluent_show		;       NO  - print in normal rendering
	FONT_COLOR_ATTENTION				;       YES - print in attention color
	bsf		win_invert					;           - print in inverse

TFT_active_diluent_show:
	WIN_SMALL dm_active_dil_column, dm_active_dil_row
	bra		TFT_active_dil_gas_common	; continue with common part

 ENDIF	; _ccr_pscr

TFT_active_gas:
	MOVII	int_O_breathed_ppO2,mpr		; copy ppO2 [cbar] into hi:lo
	call	TFT_color_code_ppo2			; color-code the output
	btfss	better_gas_available		; better gas available?
	bra		TFT_active_gas_print		; NO  - print in normal rendering
	btg		better_gas_blinking			; YES - toggle blink bit
	btfss	better_gas_blinking			;       blink now?
	bra		TFT_active_gas_print		;       NO  - print in normal rendering
	FONT_COLOR_ATTENTION				;       YES - blink in attention color
	bsf		win_invert					;             print in inverse

TFT_active_gas_print:
	WIN_STD	dm_active_gas_sp_value_col, dm_active_sp_label_row

TFT_active_dil_gas_common:
	movff	char_I_O2_ratio,lo			; lo now stores O2 in %
 IFDEF _helium
	movff	char_I_He_ratio,hi			; hi now stores He in %
 ELSE
	clrf	hi							; set hi to zero (no He)
 ENDIF
	call	gaslist_strcat_mix			; print "Nxlo", "Txlo/hi", "Air" or "O2"
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - NDL Time
;
	global	TFT_show_ndl
TFT_show_ndl:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	MOVII	int_O_NDL_norm,mpr			; NO  - get NDL time in normal plan
	rcall	TFT_show_ndl_tts_set_color	;     - set color
;	btfsc	deco_locked					;     - was the dive in deco?
;	bra		TFT_show_ndl_norm			;       YES - use normal layout
	btfsc	alt_layout_active			;       NO  - alternative layout active?
	bra		TFT_show_ndl_alt			;             YES - use alternative layout
	;bra	TFT_show_ndl_norm			;             NO  - use normal layout

TFT_show_ndl_norm:
	WIN_MEDIUM dm_ndl_value_col_norm,dm_ndl_value_row_norm
	output_256							; print NDL (0-255)
	PUTC_PRINT "'"						; append unit and dump buffer to screen
	return								; done

TFT_show_ndl_alt:
	btfsc	safety_stop_active			; is the safety stop active?
	bra		TFT_show_ndl_alt_safety		; YES
	;bra	TFT_show_ndl_alt_no_safety	; NO

TFT_show_ndl_alt_no_safety:				; clear potential remains from NDL normal
	WIN_BOX_BLACK dm_ndl_value_row_norm, dm_3rdrow_bot, dm_ndl_value_col_norm, dm_ndl_value_col_alt ; top, bottom, left, right
	WIN_LARGE dm_ndl_value_col_alt, dm_ndl_value_row_alt
	output_99							; print NDL (0-99)
	PRINT								; dump buffer to screen
	return								; done

TFT_show_ndl_alt_safety:
	WIN_MEDIUM dm_ndl_value_col_norm,dm_ndl_value_row_norm
	output_256							; print NDL (0-255)
	PUTC_PRINT "'"						; append unit and dump buffer to screen
	return								; done


	; Helper Function - set color
TFT_show_ndl_tts_set_color:
	movf	pallet_color_memo,W			; load memo color as default
	btfsc	mpr+1,int_invalid_flag		; is the invalid flag set?
	movf	pallet_color_disabled,W		; YES - replace by disabled color
	movwf	font_color					; set font color
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - TTS Time
;
	global	TFT_show_tts
TFT_show_tts:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	MOVII	int_O_TTS_norm,mpr			; NO  - get the TTS
	rcall	TFT_show_ndl_tts_set_color	;     - color-code
	bcf		hi,int_invalid_flag			;     - clear the invalid flag if applicable
	btfsc	alt_layout_active			;     - in alternative layout?
	bra		TFT_display_tts_alt			;       YES
	;bra	TFT_display_tts_norm		;       NO

TFT_display_tts_norm:
	WIN_MEDIUM dm_tts_value_col_999x, dm_tts_value_row
	output_999							; print (0...999)
	PUTC_PRINT "'"						; append unit and dump buffer to screen
	return								; done

TFT_display_tts_alt:
	output_99							; print TTS for range 0-99
	btfsc	output_overflow				; does TTS fit into 0-99 ?
	bra		TFT_display_tts_alt_999		; NO  - print in 999 format
	;bra	TFT_display_tts_alt_99		; YES - print in  99 format

TFT_display_tts_alt_99:
	btfsc	tts_over_99_last			; was TTS > 99 last time?
	rcall	TFT_display_tts_clear		; YES - clear remains from TTS > 99
	WIN_MEDIUM dm_tts_value_col_99, dm_tts_value_row
	output_99							; print TTS (0...99)
	PUTC_PRINT "'"						; append unit and dump buffer to screen
	return								; done

TFT_display_tts_alt_999:
	WIN_MEDIUM dm_tts_value_col_999, dm_tts_value_row
	REINIT_BUFFER						; clear the buffer
	output_999							; print (0...999), no space for unit
	PRINT								; dump to screen
	bsf		tts_over_99_last			; remember last TTS was > 99 mins
	return								; done


	; Helper Function - clear remains from TTS > 99
TFT_display_tts_clear:					; clear remains from TTS > 99
	WIN_BOX_BLACK dm_tts_value_row, dm_tts_value_row+.31, dm_tts_value_col_999, dm_tts_value_col_99 ; top, bottom, left, right
	bcf		tts_over_99_last			; remember last TTS was NOT > 99 mins
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - Deco Stop Time & Depth
;
	global	TFT_show_deco
TFT_show_deco:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort

	movff	char_O_deco_depth,lo		; get depth of first stop in meters
	call	TFT_color_code_stop			; color-code output
	TSTOSC	opt_units					; get unit (0=m, 1=ft)
	bra		TFT_show_deco_norm			; 1 - ft can only be displayed in normal layout due to space required for 3 digit depth
	btfsc	alt_layout_active			; 0 - in alternative layout?
	bra		TFT_show_deco_alt			;     YES
	;bra	TFT_show_deco_norm			;     NO  - combined depth and time

TFT_show_deco_norm:
	WIN_MEDIUM dm_decostop_col_norm, dm_decostop_row_norm
	call	TFT_display_stop_depth		; print stop (depth in lo)
	PUTC	' '							; put a space char between depth and time
	bra		TFT_display_deco_common		; continue with common part

TFT_show_deco_alt:
	WIN_LARGE  dm_decostop_col_alt_depth, dm_decostop_row_alt_depth
	output_99							; print stop depth (0-99)
	PRINT								; dump buffer to screen
	WIN_MEDIUM dm_decostop_col_alt_time,  dm_decostop_row_alt_time
	FONT_COLOR_MEMO						; select memo color
	;bra	TFT_display_deco_common		; continue with common part

TFT_display_deco_common:
	movff	char_O_deco_time,lo			; get stop time of the first stop in minutes
	output_99DD							; print minutes or double dots if null
	PUTC_PRINT "'"						; append unit and dump buffer to screen
	return								; done


;=============================================================================
tft_out7	CODE
;=============================================================================

;-----------------------------------------------------------------------------
; Dive Mode - Apnoe current and overall Dive Time
;
	global	TFT_show_apnoe_times
TFT_show_apnoe_times:
	; current dive time
	FONT_COLOR_MEMO						; select color
	WIN_MEDIUM dm_divetime_apnoe_col, dm_divetime_apnoe_row
	SMOVII	apnoe_dive_mins,mpr			; ISR-safe copy of minutes to lo and seconds to hi
	output_99							; print minutes (0-99)
	PRINT								; dump to screen
	WIN_SMALL	dm_divetime_apnoe_secs_col, dm_divetime_apnoe_secs_row
	PUTC	':'							; print ":"
	movff	hi,lo						; copy  seconds to lo
	output_99x							; print seconds (00-99)
	PRINT								; dump to screen
	; overall dive time
	WIN_MEDIUM dm_apnoe_total_divetime_col, dm_apnoe_total_divetime_row
	SMOVTT	counted_divetime_mins,mpr	; ISR-safe 3 byte copy of minutes:2 and seconds
	output_256							; minutes (0-256)
	PRINT								; show minutes in large font
	WIN_SMALL dm_apnoe_total_divetime_secs_col, dm_apnoe_total_divetime_secs_row ; left position for two sec figures
	PUTC	':'							; print ":"
	movff	up,lo						; copy seconds from up to lo
	output_99x							; print seconds (00-99)
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - show Apnoe Surface Time
;
	global	TFT_show_apnoe_surface
TFT_show_apnoe_surface:
	FONT_COLOR_MASK						; select mask color
	WIN_TINY dm_apnoe_surface_time_text_col, dm_apnoe_surface_time_text_row
	STRCPY_TEXT_PRINT tApnoeSurface		; print label
	FONT_COLOR_MEMO						; select memo color
	WIN_MEDIUM dm_apnoe_surface_time_column, dm_apnoe_surface_time_row
	SMOVII	apnoe_surface_mins,mpr		; ISR-safe copy of minutes to lo and seconds to hi
	output_256							; print minutes (0-255)
	PUTC	':'							; print ":"
	movff	hi,lo						; copy  seconds to lo
	output_99x							; print seconds (00-99)
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - clear Apnoe Surface Time
;
	global	TFT_clear_apnoe_surface
TFT_clear_apnoe_surface:
	WIN_BOX_BLACK dm_apnoe_last_max_depth_text_row, .239, dm_apnoe_last_max_depth_column, .159
	WIN_BOX_BLACK dm_customview_bot, dm_apnoe_last_max_depth_text_row, dm_apnoe_surface_dive_text_col, .159
	return								; done

;-----------------------------------------------------------------------------
; Dive Mode - show apnoe #dive counter
;
	global	TFT_apnoe_divecounter
TFT_apnoe_divecounter:
	FONT_COLOR_MASK						; select mask color
	WIN_TINY dm_apnoe_surface_dive_text_col, dm_apnoe_surface_dive_text_row
	STRCPY_TEXT_PRINT tTotalDives		; print label
	FONT_COLOR_MEMO						; select memo color
	WIN_STD dm_apnoe_surface_divecnt_col, dm_apnoe_surface_divecnt_row
	movff	apnoe_dive_counter,lo
	output_256							; print #dives (0-255)
	PRINT								; dump to screen
	return								; done

;=============================================================================
tft_out8	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Dive Mode - clear Deco Data (NDL / Stop & TTS )
;
	global	TFT_clear_deco_data
TFT_clear_deco_data:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES

	WIN_BOX_BLACK dm_decostop_row_alt_depth, dm_3rdrow_bot, dm_decostop_col_alt_depth, dm_3rdrow_rgt	; top, bottom, left, right
	return


;-----------------------------------------------------------------------------
; Dive Mode - clear Dive Mode Menu
;
; starts 2 pixel higher to completely wipe away the temperature display
;
	global	TFT_clear_divemode_menu
TFT_clear_divemode_menu:
	WIN_BOX_BLACK	dm_menu_row-.2, dm_menu_lower, dm_menu_left, dm_menu_right
	return


;=============================================================================
VSI_table	CODE_PACK
;=============================================================================

VSI_table:

	; use a depth-dependent ascent rate warning
	; depth(ft):     <20 >20 >40 >60 >75 >88 >101 >115 >128 >144 >164
	; speed(ft/min):  23  26  29  33  36  43   49   56   59   62   66
	; depth(m):      <=6  >6 >12 >18 >23 >27  >31  >35  >39  >44  >50
	; speed(m/min):    7   8   9  10  11  13   15   17   18   19   20 (warning)
	; speed(m/min):    5   6   7   8   8  10   12   13   14   15   15 (attention)

	; < depth (m), warning speed, attention speed
	DB    .6, .7, .5
	DB   .12, .8, .6
	DB   .18, .9, .7
	DB   .23,.10, .8
	DB   .27,.11, .8
	DB   .31,.13,.10
	DB   .35,.15,.12
	DB   .39,.17,.13
	DB   .44,.18,.14
	DB   .50,.19,.15
	DB  .255,.20,.15


;=============================================================================
tft_out9	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Dive Mode - show vertical Velocity
;
	global	TFT_velocity_show
TFT_velocity_show:
	FONT_COLOR_MEMO						; set default color
	btfsc	neg_flag_velocity			; descending?
	rcall	TFT_velocity_set_color		; NO - set color for text dependent on speed and set threshold for VSI graph
	rcall	TFT_velocity_num			; show the numerical VSI
	TSTOSS	opt_vsigraph				; graphical VSI bar enabled?
	return								; NO  - done
	btfss	neg_flag_velocity			; YES - in ascent?
	bra		TFT_velocity_clear_graph	;       NO  - clear the graph
	;bra	TFT_velocity_graph_show		;       YES - show  the graph

TFT_velocity_graph_show:
	btfsc	alt_layout_active			; in alternative layout?
	return								; YES - done (not implemented)

	btfsc	velocity_active_vsi			; was the graphical VSI shown before?
	bra		TFT_velocity_graph_1		; YES - no need to redraw the framework box
	bsf		velocity_active_vsi			; NO  - remember it is shown as of now
										;     - draw the framework box
	movf	pallet_color_mask,W			;     - color -> WREG
	WIN_FRAME_COLOR	dm_velocity_graph_top+.00, dm_velocity_graph_bot-.00, dm_velocity_graph_lft, dm_velocity_graph_rgt
	movf	pallet_color_mask,W			;     - color -> WREG
	WIN_FRAME_COLOR	dm_velocity_graph_top+.10, dm_velocity_graph_bot-.10, dm_velocity_graph_lft, dm_velocity_graph_rgt
	movf	pallet_color_mask,W			;     - color -> WREG
	WIN_FRAME_COLOR	dm_velocity_graph_top+.20, dm_velocity_graph_bot-.20, dm_velocity_graph_lft, dm_velocity_graph_rgt
	movf	pallet_color_mask,W			;     - color -> WREG
	WIN_FRAME_COLOR	dm_velocity_graph_top+.30, dm_velocity_graph_bot-.30, dm_velocity_graph_lft, dm_velocity_graph_rgt

TFT_velocity_graph_1:
	movff	divA+0,hi					; copy ascend speed (in m/min) to hi
	movff	divA+1,xA+0					; m/min for warning level (upper two blocks)
	clrf	xA+1
	MOVLI	.5,xB						; threshold for color warning (5 color normal + 2 color warning)
	call	div16x16					; xC = xA / xB with xA as remainder
	; xC+0 holds step size in m/min (e.g. =3 for 15m/min warning threshold)
	movff	hi,xA+0						; velocity in m/min
	clrf	xA+1						; ...
	movff	xC+0,xB+0					; step size
	clrf	xB+1						; ...
	call	div16x16					; xC = xA / xB with xA as remainder
	movff	xC+0,lo						; copy amount of segments to show to lo
	incf	lo,F						; lo +=1
	dcfsnz	lo,F						; lo = 1 ?
	bra		DISP_graph_vel_0_fill		; YES - fill lowest  segment
	dcfsnz	lo,F						; lo = 2 ?
	bra		DISP_graph_vel_1_fill		; YES - fill lower 2 segments
	dcfsnz	lo,F						; lo = 3 ?
	bra		DISP_graph_vel_2_fill		; YES - fill lower 3 segments
	dcfsnz	lo,F						; lo = 4 ?
	bra		DISP_graph_vel_3_fill		; YES - fill lower 4 segments
	dcfsnz	lo,F						; lo = 5 ?
	bra		DISP_graph_vel_4_fill		; YES - fill lower 5 segments
	dcfsnz	lo,F						; lo = 6 ?
	bra		DISP_graph_vel_5_fill		; YES - fill lower 6 segments
	dcfsnz	lo,F						; lo = 7 ?
	bra		DISP_graph_vel_6_fill		; YES - fill lower 7 segments
	;bra	DISP_graph_vel_7_fill		; YES - fill all     segments

DISP_graph_vel_7_fill:
	movf	pallet_color_warning,W
	WIN_BOX_COLOR dm_velocity_graph_top+.2,  dm_velocity_graph_top+.8,  dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_6_fill:
	movf	pallet_color_warning,W
	WIN_BOX_COLOR dm_velocity_graph_top+.12, dm_velocity_graph_top+.18, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_5_fill:
	movf	pallet_color_attention,W
	WIN_BOX_COLOR dm_velocity_graph_top+.22, dm_velocity_graph_top+.28, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_4_fill:
	movf	pallet_color_memo,W
	WIN_BOX_COLOR dm_velocity_graph_top+.32, dm_velocity_graph_top+.38, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_3_fill:
	movf	pallet_color_memo,W
	WIN_BOX_COLOR dm_velocity_graph_top+.42, dm_velocity_graph_top+.48, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_2_fill:
	movf	pallet_color_memo,W
	WIN_BOX_COLOR dm_velocity_graph_top+.52, dm_velocity_graph_top+.58, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_1_fill:
	movf	pallet_color_memo,W
	WIN_BOX_COLOR dm_velocity_graph_top+.62, dm_velocity_graph_top+.68, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_0_fill:

	movff	xC+0,lo						; copy amount of segments to show to lo
	incf	lo,F						; lo += 1
	dcfsnz	lo,F						; lo = 1 ?
	bra		DISP_graph_vel_0_clear		; YES - clear upper 7 segments
	dcfsnz	lo,F						; lo = 2 ?
	bra		DISP_graph_vel_1_clear		; YES - clear upper 6 segments
	dcfsnz	lo,F						; lo = 3 ?
	bra		DISP_graph_vel_2_clear		; YES - clear upper 5 segments
	dcfsnz	lo,F						; lo = 4 ?
	bra		DISP_graph_vel_3_clear		; YES - clear upper 4 segments
	dcfsnz	lo,F						; lo = 5 ?
	bra		DISP_graph_vel_4_clear		; YES - clear upper 3 segments
	dcfsnz	lo,F						; lo = 6 ?
	bra		DISP_graph_vel_5_clear		; YES - clear upper 2 segments
	dcfsnz	lo,F						; lo = 7 ?
	bra		DISP_graph_vel_6_clear		; YES - clear upper 1 segments
	bra		DISP_graph_vel_7_clear		; YES - clear no      segments

DISP_graph_vel_0_clear:
	WIN_BOX_BLACK dm_velocity_graph_top+.62, dm_velocity_graph_top+.68, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_1_clear:
	WIN_BOX_BLACK dm_velocity_graph_top+.52, dm_velocity_graph_top+.58, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_2_clear:
	WIN_BOX_BLACK dm_velocity_graph_top+.42, dm_velocity_graph_top+.48, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_3_clear:
	WIN_BOX_BLACK dm_velocity_graph_top+.32, dm_velocity_graph_top+.38, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_4_clear:
	WIN_BOX_BLACK dm_velocity_graph_top+.22, dm_velocity_graph_top+.28, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_5_clear:
	WIN_BOX_BLACK dm_velocity_graph_top+.12, dm_velocity_graph_top+.18, dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_6_clear:
	WIN_BOX_BLACK dm_velocity_graph_top+.2,  dm_velocity_graph_top+.8,  dm_velocity_graph_lft+.2, dm_velocity_graph_rgt-.2 ;top, bottom, left, right
DISP_graph_vel_7_clear:
	return								; done


	; Helper Function - set color based on speed table or use static thresholds, with divA+0 = m/min
TFT_velocity_set_color:
	bsf		aux_flag						; for alternative layout: default is to show numerical VSI
	; check if old/new ascend logic is used
	TSTOSS	opt_vsitext						; 0=standard, 1=dynamic
	bra		TFT_velocity_set_color_static	; 0 - static  ascend rate limit
	;bra	TFT_velocity_set_color_dynamic	; 1 - dynamic ascend rate limit

TFT_velocity_set_color_dynamic:
	movlw	LOW   (VSI_table-.2)		; point to 2 entries ahead of the speed table
	movwf	TBLPTRL						; ...
	movlw	HIGH  (VSI_table-.2)		; ...
	movwf	TBLPTRH						; ...
	movlw	UPPER (VSI_table-.2)		; ...
	movwf	TBLPTRU						; ...
TFT_velocity_set_color_loop:
	TBLRD*+								; consume waring    speed form last round
	TBLRD*+								; consume attention speed form last round
	TBLRD*+								; get table   depth
	movf	depth_meter,W				; get current depth
	cpfsgt	TABLAT						; table depth > current depth ?
	bra		TFT_velocity_set_color_loop	; NO  - try next
	TBLRD*+								; YES - read warning speed threshold
	movf	TABLAT,W					;     - ...
	movwf	divA+1						;     - copy to graph routine
	cpfslt	divA+0						;     - actual vertical speed smaller than warning threshold?
	bra		TFT_velocity_set_color_warn	;       NO - set warning color and return
	TBLRD*+								;       YES - read attention speed threshold
	movf	TABLAT,W					;           - ...
	cpfslt	divA+0						;           - actual vertical speed smaller than attention threshold?
	bra		TFT_velocity_set_color_attn	;             NO  - set attention color and return
	bcf		aux_flag					;             YES - don't show in alternative layout
	bra		TFT_velocity_set_color_memo	;                 - set memo color and return

TFT_velocity_set_color_static:
	movlw	color_code_velocity_warn_high	; get static threshold for warning in m/min
	movwf	divA+1							; copy for graph routine
	cpfslt	divA+0							; actual vertical speed smaller than warning threshold?
	bra		TFT_velocity_set_color_warn		; NO  - set warning color and return
	movlw	color_code_velocity_attn_high	; YES - get static threshold for attention in m/min
	cpfslt	divA+0							;     - actual vertical speed smaller than attention threshold?
	bra		TFT_velocity_set_color_attn		;       NO  - set attention color and return
	bcf		aux_flag						;       YES - don't show in alternative layout
	;bra	TFT_velocity_set_color_memo		;           - set memo color and return


	; Helper Function - select color
TFT_velocity_set_color_memo:
	FONT_COLOR_MEMO						; select memo color
	return								; done

TFT_velocity_set_color_attn:
	FONT_COLOR_ATTENTION				; select attention color
	return								; done

TFT_velocity_set_color_warn:
	FONT_COLOR_WARNING					; select warning color
	return								; done


	; Helper Function - show the numerical VSI
TFT_velocity_num:
	btfsc	alt_layout_active			; in alternative layout?
	bra		TFT_velocity_num_alt		; YES
	;bra	TFT_velocity_num_norm		; NO

TFT_velocity_num_norm:
	WIN_SMALL dm_velocity_text_col_norm, dm_velocity_text_row_norm
	bra		TFT_velocity_num_com		; continue with common part

TFT_velocity_num_alt:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	btfss	neg_flag_velocity			; NO  - in ascent?
	bcf		aux_flag					;       NO  - clear aux flag
	btfsc	aux_flag					;     - above attention or warning threshold?
	bsf		win_invert					;       YES - print inverse
	WIN_SMALL dm_velocity_text_col_alt, dm_velocity_text_row_alt
	;bra	TFT_velocity_num_com		;     - continue with common part

TFT_velocity_num_com:
	bsf		velocity_active_num			; set numerical velocity as shown
	TSTOSS	opt_units					; 0=meter, 1=feet
	bra		TFT_velocity_num_metric		; 0 - meter
	;bra	TFT_velocity_num_imperial	; 1 - feet

TFT_velocity_num_imperial:
	movff	divA+0,WREG					; divA+0 = m/min
	mullw	.100						; PROD   = mbar/min
	MOVII	PRODL,mpr					; copy to hi:lo
	call	convert_cm_to_feet			; convert value in hi:lo from [cm] to [feet]
	tstfsz	hi							; > 255 ?
	setf	lo							; YES - set lo to 255
	rcall	TFT_velocity_num_helper		; print vertical speed
	STRCAT_TEXT tVelImperial			; print unit
	bra		TFT_velocity_num_finish		; do finishing tasks

TFT_velocity_num_metric:
	movff	divA+0,lo					; divA+0 = m/min
	rcall	TFT_velocity_num_helper		; print vertical speed
	STRCAT_TEXT tVelMetric				; print unit
	;bra	TFT_velocity_num_finish		; do finishing tasks

TFT_velocity_num_finish:
	btfss	alt_layout_active			; in alternative layout?
	bra		TFT_velocity_num_finish_1	; NO
	movlw	"'"							; load encoding of minute sign
	movff	WREG,buffer+4				; put it after m (meter) / f (feet)
	clrf	WREG						; load string terminator
	movff	WREG,buffer+5				; terminate string after minute sign
TFT_velocity_num_finish_1:
	PRINT								; dump to screen
	return								; done


	; Helper Function - print vertical speed
TFT_velocity_num_helper:
	movlw	'-'							; load coding for minus sign
	btfsc	neg_flag_velocity			; ascending?
	movlw	'+'							; YES - replace with coding for plus sign
	movwf	POSTINC2					; put sign into output buffer
	output_99							; print rate (0-99)
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - clear vertical Velocity
;
	global	TFT_velocity_clear
TFT_velocity_clear:
	btfss	velocity_active_num			; was the numerical VSI shown in last cycle?
	bra		TFT_velocity_check_graph	; NO  - no need to clear it, continue with graphical VSI
	;bra	TFT_velocity_clear_num		; YES

TFT_velocity_clear_num:
	bcf		velocity_active_num			; clear flag
	btfsc	alt_layout_active			; in alternative layout?
	bra		TFT_velocity_clear_num_alt	; YES
	;bra	TFT_velocity_clear_num_norm	; NO

TFT_velocity_clear_num_norm:			; clear normal numerical area
	WIN_BOX_BLACK dm_velocity_text_row_norm, dm_velocity_text_bot_norm, dm_velocity_text_col_norm, dm_velocity_text_rgt_norm
	bra		TFT_velocity_check_graph	; continue with graphical VSI

TFT_velocity_clear_num_alt:				; clear alternative numerical area
	btfsc	dive_main_menu				; is the dive mode menu shown?
	bra		TFT_velocity_check_graph	; YES - skip
	WIN_BOX_BLACK dm_velocity_text_row_alt,  dm_velocity_text_bot_alt,  dm_velocity_text_col_alt,  dm_velocity_text_rgt_alt
	;bra	TFT_velocity_check_graph	; continue with graphical VSI

TFT_velocity_check_graph:
	btfss	velocity_active_vsi			; was the graphical VSI shown in last cycle?
	return								; NO  - no need to clear it, done
	;bra	TFT_velocity_clear_graph	; YES - clear it

TFT_velocity_clear_graph:
	bcf		velocity_active_vsi			; clear flag
	btfsc	alt_layout_active			; in alternative layout?
	return								; YES - done (not implemented)
	WIN_BOX_BLACK dm_velocity_graph_top, dm_velocity_graph_bot, dm_velocity_graph_lft, dm_velocity_graph_rgt
	return								; done


;=============================================================================
tft_out10	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Dive Mode - show Sign
;
	global	TFT_divemode_sign_show
TFT_divemode_sign_show:
	btfsc	alt_layout_active			; alternative layout active?
	bra		TFT_divemode_sign_show_alt	; YES
	;bra	TFT_divemode_sign_show_norm	; NO

TFT_divemode_sign_show_norm:
	WIN_TOP  dm_sign_row_norm			; set row    position
	WIN_LEFT dm_sign_col_norm			; set column position
	bra		TFT_divemode_sign_show_com	; continue with common part

TFT_divemode_sign_show_alt:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	btfsc	sign_shown					; NO  - sign already shown?
	bra		TFT_divemode_sign_show_alt_1;       YES - no need to clear area again
	btfsc	bailout_mode				;       NO  - in bailout?
	bra		TFT_divemode_sign_show_alt_1;             YES - no need to clear the area
										;             NO  - clear area from "bar" label and loop mode if applicable
	WIN_BOX_BLACK dm_active_dil_row, dm_3rdrow_bot, dm_active_sp_label_col, dm_sign_rgt_alt ; top, bottom, left, right

TFT_divemode_sign_show_alt_1:
	WIN_TOP  dm_sign_row_alt			;     - set row    position
	WIN_LEFT dm_sign_col_alt			;     - set column position
	;bra	TFT_divemode_sign_show_com	;     - continue with common part

TFT_divemode_sign_show_com:
	bsf		sign_shown					; flag sign is shown
	btfsc	sign_warning				; shall show warning sign?
	bra		TFT_divemode_sign_show_warn	; YES - show warning sign
	btfsc	sign_attention				; NO  - shall show attention sign?
	bra		TFT_divemode_sign_show_att	;       YES - show attention sign
	btfsc	sign_advice					;       NO  - shall show advice sign?
	bra		TFT_divemode_sign_show_adv	;             YES - show advice sign
	return								;             NO  - false alarm

TFT_divemode_sign_color_warn:			; custom colors table for dive_warning2 icon - warning
	db	.4, 0							; #colors, spare
	dw	0x0000							; color 0x00: outside           black
	dw	0xff80							; color 0x01: triangle          yellow
	dw	0xff80							; color 0x02: exclamation mark  yellow
	dw	0xf800							; color 0x03: inside            red

TFT_divemode_sign_color_adv:			; custom colors table for dive_warning2 icon - advice
	db	.4, 0							; #colors, spare
	dw	0x0000							; color 0x00: outside           black
	dw	0xffff							; color 0x01: triangle          white
	dw	0xffff							; color 0x02: exclamation mark  white
	dw	0x0780							; color 0x03: inside            green

TFT_divemode_sign_show_warn:
	TFT_WRITE_PROM_IMAGE_CUST_COLOR TFT_divemode_sign_color_warn; set custom colors for warning
	TFT_WRITE_PROM_IMAGE_BY_LABEL   dive_warning2_block			; show sign
	return														; done

TFT_divemode_sign_show_att:
	TFT_WRITE_PROM_IMAGE_BY_LABEL   dive_warning2_block			; show sign (with default colors)
	return														; done

TFT_divemode_sign_show_adv:
	TFT_WRITE_PROM_IMAGE_CUST_COLOR TFT_divemode_sign_color_adv	; set custom colors for advice
	TFT_WRITE_PROM_IMAGE_BY_LABEL   dive_warning2_block			; show sign
	return														; done


;-----------------------------------------------------------------------------
; Dive Mode - show Sign
;
	global	TFT_divemode_sign_clear
TFT_divemode_sign_clear:
	btfss	sign_shown					; is the advice/attention/warning sign shown?
	return								; NO  - done
	bcf		sign_shown					; YES - clear flag
	btfsc	alt_layout_active			;     - alternative layout active?
	bra		TFT_divemode_sign_clear_alt	;     - YES
	;bra	TFT_divemode_sign_clear_norm;     - NO

TFT_divemode_sign_clear_norm:
	WIN_BOX_BLACK dm_sign_row_norm, dm_sign_bot_norm, dm_sign_col_norm, dm_sign_rgt_norm
	return								; done

TFT_divemode_sign_clear_alt:
	WIN_BOX_BLACK dm_sign_row_alt, dm_sign_bot_alt, dm_sign_col_alt, dm_sign_rgt_alt
	return								; done


;=============================================================================
tft_out11	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Dive Mode - show Safety Stop
;
	global	TFT_safety_stop_show
TFT_safety_stop_show:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	btfsc	safety_stop_active			; NO  - is the safety stop shown already?
	bra		TFT_safety_stop_show_time	;       YES - just update the time
										;       NO  - clear area that may be polluted by alternative NDL
	WIN_BOX_BLACK dm_safetystop_row, dm_tts_value_row, dm_ndl_value_col_alt, dm_safetystop_rgt ; top, bottom, left, right
	bsf		safety_stop_active			;           - flag safety stop is shown now
	WIN_STD dm_safetystop_text_column, dm_safetystop_text_row
	FONT_COLOR_MASK						;           - set color
	STRCPY_PRINT "Stop "				;           - print "Stop" with a trailing space to wipe away potential other remains

TFT_safety_stop_show_time:
	WIN_MEDIUM dm_safetystop_column, dm_safetystop_row
	FONT_COLOR_ATTENTION				; set color
	movff	safety_stop_countdown,lo	; get remaining time in seconds, low  byte, from safety stop timer
	clrf	hi							; set remaining time in seconds, high byte, to zero
	call	convert_time				; convert hi:lo in seconds to minutes (up:hi) and seconds (lo)
	movff	lo,up						; save seconds in up
	movff	hi,lo						; move minutes to lo
	output_9							; print minutes (0-9)
	PUTC	':'							; print ":"
	movff	up,lo						; move seconds to lo
	output_99x							; print seconds (00-99)
	PRINT								; dump buffer to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - clear Safety Stop
;
	global	TFT_safety_stop_clear
TFT_safety_stop_clear:
	btfsc	dive_main_menu				; is the dive mode menu shown?
	return								; YES - abort
	btfss	safety_stop_active			; NO  - is the safety stop shown?
	return								;       NO  - done, nothing to do
										;       YES - clear safety stop area
	WIN_BOX_BLACK dm_safetystop_row, dm_safetystop_bot, dm_safetystop_text_column, dm_safetystop_rgt ; top, bottom, left, right
	bcf		safety_stop_active			;           - safety stop not shown any more
	btfss	deco_region					;           - was the dive within deco stops region?
	return			
	btfsc	alt_layout_active			; In alternative layout?
	return						;     YES - DONE.
	;bra	TFT_show_slow_reminder		;             YES - show "SLOW" reminder


;-----------------------------------------------------------------------------
; Dive Mode - show "slow" Reminder
;
TFT_show_slow_reminder:
	WIN_STD dm_safetystop_text_column+.5,dm_safetystop_text_row+.5
	FONT_COLOR_ATTENTION				; set color
	STRCPY_TEXT  tSlow					; print "SLOW" reminder
	STRCAT_PRINT 0x94					; append an up-arrow
	return								; done


;=============================================================================
tft_out12	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; clear complete Message Window
;
	global	TFT_clear_message_window
TFT_clear_message_window:
	btfss	divemode						; in dive mode?
	bra		TFT_clear_message_window_surf	; NO  - clear surface mode area
	;bra	TFT_clear_message_window_dive	; YES - clear dive    mode area

TFT_clear_message_window_dive:
	btfsc	alt_layout_active				; in alternative layout?
	bra		TFT_clear_message_window_dive_2	; YES - clear dive mode area, 2nd  row only

	WIN_BOX_BLACK dm_warning_row, dm_warning_bot, dm_warning_column, dm_warning_rgt
	return									; done

TFT_clear_message_window_surf:
	WIN_BOX_BLACK surf_warning1_row, surf_warning2_row+.24, surf_warning1_column, surf_warning1_column+.76	; top, bottom, left, right
	return									; done


;-----------------------------------------------------------------------------
; clear 2nd Line of Message Window
;
	global	TFT_clear_message_window_row2
TFT_clear_message_window_row2:
	bcf		message_2nd_row_used			; 2nd row is cleared
	btfss	divemode						; in dive mode?
	bra		TFT_clear_message_window_surf_2	; NO  - clear surface mode area, 2nd row only
	;bra	TFT_clear_message_window_dive_2	; YES - clear dive    mode area, 2nd row only

TFT_clear_message_window_dive_2:
	WIN_BOX_BLACK dm_warning2_row, dm_warning2_bot, dm_warning2_column, dm_warning2_rgt
	return									; done

TFT_clear_message_window_surf_2:
	WIN_BOX_BLACK surf_warning2_row, surf_warning2_row+.24, surf_warning2_column, surf_warning2_column+.76	; top, bottom, left, right
	return									; done

;-----------------------------------------------------------------------------
; Surface Mode - Message - when "I2CFail" was triggered
;
	global	TFT_message_i2c_error
TFT_message_i2c_error:	
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle
	STRCPY	"I2C "						; print "I2C Error:"
	movff	i2c_error_vault+0,WREG				; last device adress
	output_hex
	PUTC	" "
	movff	i2c_error_vault+1,WREG				; last data byte 
	output_hex
	bra		TFT_message_close			; finalize message output

;-----------------------------------------------------------------------------
; Surface Mode - Message - Desaturation
;
	global	TFT_surf_mesg_desat
TFT_surf_mesg_desat:
	movlw	.11
	cpfseq	active_customview			; custom view 11 (DSAT/NOFLY/CNS) shown?
	bra	TFT_surf_mesg_desat1			; No, continue
	return						; Yes. Skip the warning then
TFT_surf_mesg_desat1:	
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle

TFT_surf_mesg_desat2:	
	FONT_COLOR_MEMO						; select color
	STRCPY	"Desat:"					; print label
	MOVII	int_O_desaturation_time,mpr	; get desaturation time in minutes
	bra		TFT_dsat_nofly_common		; continue with common part


;-----------------------------------------------------------------------------
; Surface Mode - Message - No-Fly / NO-Altitude
;
	global	TFT_surf_mesg_nofly
TFT_surf_mesg_nofly:
    	movlw	.11
	cpfseq	active_customview			; custom view 11 (DSAT/NOFLY/CNS) shown?
	bra	TFT_surf_mesg_nofly1			; No, continue
	return						; Yes. Skip the warning then
TFT_surf_mesg_nofly1:	
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle

	FONT_COLOR_MEMO						; select color
	movff	char_I_altitude_wait,WREG	; get mode
	tstfsz	WREG						; mode = altitude?
	bra		TFT_nofly_time_alt			; YES
	;bra	TFT_nofly_time_fly			; NO

TFT_nofly_time_fly:
	STRCPY	"NoFly:"					; print no-fly label
	bra		TFT_nofly_time_com			; continue

TFT_nofly_time_alt:
	STRCPY	"NoAlt:"					; print no-altitude label
	;bra	TFT_nofly_time_com			; continue

TFT_nofly_time_com:
	MOVII	int_O_nofly_time,mpr		; get no-fly time in minutes
	;bra	TFT_dsat_nofly_common		; continue with common part


	; Helper Function - common part for TFT_surf_mesg_desat and TFT_surf_mesg_nofly
TFT_dsat_nofly_common:
	call	convert_time				; convert hi:lo in minutes to hours (up:hi) and minutes (lo)
	movff	lo,up						; backup lo
	movff	hi,lo						; get   hours into lo
	output_99							; print hours (0-99)
	PUTC	':'							; print ":"
	movff	up,lo						; get   minutes into lo
	output_99x							; print minutes (00-99)
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - fTTS
;
	global	TFT_message_ftts
TFT_message_ftts:
	call	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

 IFDEF _cave_mode
	btfss	cave_mode					; cave mode switched on?
	bra		TFT_display_ftts_2			; NO  - classic open water TTS
	btfss	dive_turned					; YES - dive turned?
	bra		TFT_display_ftts_1			;       NO  - cTTS from current position
	STRCPY	"WP"						;       YES - print waypoint mark
	movf	backtrack_waypoint_num,W	;           - copy current waypoint number to WREG
	cpfseq	backtrack_waypoint_turn		;           - current waypoint = turn point ?
	bra		TFT_display_ftts_0			;             NO - print waypoint number
	STRCAT	"-| "						;             YES - print turn point symbol
	bra		TFT_display_ftts_5			;                 - continue with TTS
TFT_display_ftts_0:
	movwf	lo							; copy current waypoint number to lo
	bsf		leftbind					; print left-aligned
	output_99							; print waypoint number (0-99)
	PUTC	" "							; append a space char
	bra		TFT_display_ftts_5			; continue with TTS
TFT_display_ftts_1:
	STRCPY	"cTTS "						; print cave TTS label followed by a space
	bra		TFT_display_ftts_5			; continue with TTS
 ENDIF	; _cave_mode
TFT_display_ftts_2:
	btfsc	FLAG_oc_mode				; in OC mode?
	bra		TFT_display_ftts_3			; YES - print fTTS label
	TSTOSS	opt_calc_gasvolume			; NO  - bailout volume calculation requested?
	bra		TFT_display_ftts_3			;       NO  - print fTTS label
	STRCPY	"B/O"						;       YES - print bailout label
	bra		TFT_display_ftts_4			;           - continue
TFT_display_ftts_3:						; OC or CCR/pSCR but no bailout volume calculation
	STRCPY	"@+"						; print fTTS label
TFT_display_ftts_4:
	movff	char_I_extra_time,lo		; get   fTTS delay time
	output_9							; print fTTS delay time (0-9)
	PUTC	":"							; print ":"
TFT_display_ftts_5:
	MOVII	int_O_TTS_alt,mpr			; get alternative TTS
	FONT_COLOR_MEMO						; set memo color
	btfss	hi,int_invalid_flag			; is the invalid flag set?
	bra		TFT_display_ftts_6			; NO  - keep memo color
	bcf		hi,int_invalid_flag			; YES - clear flag
	FONT_COLOR_DISABLED					;     - switch to disabled color
TFT_display_ftts_6:
	btfsc	hi,int_not_yet_computed		; is the not-yet-computed flag set?
	bra		TFT_display_ftts_8			; YES - show dashes
 IFDEF _cave_mode
	btfsc	cave_mode					; cave mode switched on?
	bra		TFT_display_ftts_7			; YES - take shortcut
 ENDIF
	movff	int_O_TST_alt+1,WREG		; get high byte of the alternative total stops time
	btfsc	WREG,int_is_zero			; total stops time = zero ?
	bra		TFT_display_ftts_9			; YES - show "NDL"
	movff	char_O_deco_info,WREG		; NO  - get deco info vector
	btfsc	WREG,deco_zone				;     - fTTS <= TTS ?
	FONT_COLOR_ADVICE					;       YES - set to advice color (green)
TFT_display_ftts_7:
	bsf		leftbind					; print left-aligned
	output_999							; print ascent time (0-999)
	PUTC	"'"							; print minutes symbol
	bra		TFT_message_close			; finalize message output
TFT_display_ftts_8:
	STRCAT	"---"						; print "---" for not computed
	bra		TFT_message_close			; finalize message output
TFT_display_ftts_9:
	STRCAT_TEXT tNDL					; print "NDL"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - ppO2
;
	global	TFT_message_ppo2
TFT_message_ppo2:
	call	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle

	call	TFT_color_code_ppo2			; color-code output

	btfsc	bailout_mode				; in bailout?
	bra		TFT_display_diluent_oc		; YES - bailout (OC)
	btfsc	FLAG_ccr_mode				; NO  - in CCR mode?
	bra		TFT_display_diluent_ccr		;       YES - CCR
	btfsc	FLAG_pscr_mode				;       NO  - in pSCR mode?
	bra		TFT_display_diluent_pscr	;             YES - pSCR
	;bra	TFT_display_diluent_oc		;             NO  - OC

TFT_display_diluent_oc:
	STRCPY_TEXT tppO2					; bailout or OC mode, print "ppO2:"
	bra		TFT_display_diluent_comm	; continue with ppO2 value

TFT_display_diluent_ccr:
	STRCPY_TEXT tdil					; print "Dil:"
	bra		TFT_display_diluent_comm	; continue with ppO2 value

TFT_display_diluent_pscr:
	STRCPY_TEXT tmix					; YES - print "Mix:"
	;bra	TFT_display_diluent_comm	;     - continue with ppO2 value

TFT_display_diluent_comm:
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_999							; print ppO2 (0.00-9.99)
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Battery
;
	global	TFT_message_battery_percent
TFT_message_battery_percent:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle

	call	TFT_color_code_battery		; color-code according to battery_low_condition flag
	STRCPY	"Batt:"						; print "Batt:"
	bsf		leftbind					; print left-aligned
	movff	batt_percent,lo				; get   battery % 
	output_256							; print battery % (0-255)
	PUTC	"%"							; print "%"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - current CNS
;
	global	TFT_message_cns
TFT_message_cns:
	call	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle

	MOVII	int_O_CNS_current,mpr		; get current CNS
	call	TFT_color_code_cns			; color-code CNS output
	STRCPY_TEXT tCNS					; CNS:
	bsf		leftbind					; print left-aligned
	output_999							; print (0-999)
	PUTC	"%"							; append unit
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - End-of-Dive CNS
;
	global	TFT_message_cns_eod
TFT_message_cns_eod:
	call	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle

	FONT_COLOR_WARNING					; switch to warnings (red) text color
	STRCPY_TEXT tCNSeod					; end-of-dive CNS warning text
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Saturation
;
	global	TFT_message_saturation
TFT_message_saturation:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	MOVII	int_O_lead_supersat,mpr		; get leading tissue's supersaturation
	call	TFT_color_code_supersat		; color-code output
	STRCPY_TEXT tSAT					; print "Sat:"
	PUTC	" "							; add a space to align the output with other warnings' outputs
	bsf		leftbind					; print left-aligned
	output_256							; print value of lo only, int_O_lead_supersat is limited to 255
	PUTC	"%"							; print "%"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - alternative GF
;
	global	TFT_message_agf
TFT_message_agf:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ATTENTION				; set attention color
	STRCPY_TEXT tDiveaGF_active			; print "aGF!"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Dive Timeout
;
	global	TFT_message_divetimeout
TFT_message_divetimeout:
	call	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO - skip message in this cycle

	FONT_COLOR_MEMO						; select color
	STRCPY	0x94						; "End of dive" symbol (up-arrow)
	movff	opt_diveTimeout,WREG		; get timeout in minutes
	mullw	.60							; get timeout in seconds
	MOVII	PRODL,             sub_a	; calculate timeout - elapsed time = countdown
	MOVII	dive_timeout_timer,sub_b	; ...
	call	subU16						; ...
	MOVII	sub_c,mpr					; transfer to mpr
	call	convert_time				; convert hi:lo in seconds to minutes (up:hi) and seconds (lo)
	movff	lo,up						; back-up lo
	movff	hi,lo						; get   minutes
	output_99							; print minutes (0-99)
	PUTC	':'							; print ":"
	movff	up,lo						; get   seconds
	output_99x							; print seconds (00-99)
	movlw	dm_warning_length			; get dive mode string length
	rcall	TFT_buffer_trim_length		; fill / cut buffer to target length
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - Message - Gas Needs
;
	global	TFT_message_gas_needs
TFT_message_gas_needs:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	btfsc	attn_det_gas_needs			; attention?
	FONT_COLOR_ATTENTION				; YES - set attention color
	btfsc	warn_det_gas_needs			; warning?
	FONT_COLOR_WARNING					; YES - set warning color
	STRCPY_TEXT tGasNeedsWarn			; print "Gas Needs"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Gas Change
;
	global	TFT_message_gas_change
TFT_message_gas_change:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ADVICE					; set advice color
	STRCPY_TEXT tgaschange				; print "Change?"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - no Bailout Gas
;
	global	TFT_message_no_BO_gas
TFT_message_no_BO_gas:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_WARNING					; set warning color
	STRCPY_TEXT tnoBOgas				; print "-B/O-Gas-"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Message - open Message
;
; sets the row and column for the current message
;
TFT_message_open:
	; ignore warning (now)?
	decf	message_counter,W				; load (message counter - 1) into WREG
	bcf		STATUS,C						; clear carry bit
	btfss	alt_layout_active				; in alternative layout?
	rrcf	WREG,W							; NO - divide (message_counter-1) by 2 to get the page of the message
	cpfseq	message_page					; page of the message = current page ?
	retlw	.255							; NO  - do not show in this cycle  (message window is not defined)
	btfss	divemode						; YES - in dive mode?
	bra		TFT_set_message_window_sf		;       NO  - setup for surface mode
	;bra	TFT_set_message_window_dm		;       YES - setup for dive mode

; Dive Mode
TFT_set_message_window_dm:
	btfsc	alt_layout_active				; in alternative layout?
	bra		TFT_set_message_window_dm_row2	; YES - alternative layout only uses 2nd row
	btfss	message_counter,0				; NO  - is the message number uneven?
	bra		TFT_set_message_window_dm_row2	;       NO  - use 2nd row
	;bra	TFT_set_message_window_dm_row1	;       YES - use 1st row

TFT_set_message_window_dm_row1:
	WIN_SMALL dm_warning1_column, dm_warning1_row
	bcf		message_2nd_row_used			; flag that the 2nd does not contain a message yet
	retlw	.0								; show in this cycle (message window is defined)

TFT_set_message_window_dm_row2:
	WIN_SMALL dm_warning2_column, dm_warning2_row
	bsf		message_2nd_row_used			; flag that the 2nd row contains a message now
	retlw	.0								; show in this cycle (message window is defined)

; Surface Mode
TFT_set_message_window_sf:
	btfss	message_counter,0				; is the message counter uneven?
	bra		TFT_set_message_window_sf_row2	; NO  - use 2nd row
	;bra	TFT_set_message_window_sf_row1	; YES - use 1st row

TFT_set_message_window_sf_row1:
	WIN_SMALL surf_warning1_column,surf_warning1_row
	bcf		message_2nd_row_used			; flag that the 2nd row does not contain a message yet
	retlw	.0								; show in this cycle (message window is defined)

TFT_set_message_window_sf_row2:
	WIN_SMALL surf_warning2_column,surf_warning2_row
	bsf		message_2nd_row_used			; flag that the 2nd row contains a message now
	retlw	.0								; show in this cycle (message window is defined)


;-----------------------------------------------------------------------------
; Message - fill to a given Length, or cut if too long
;
; Input: buffer  message
;        WREG    max length
;
	global	TFT_buffer_trim_length
TFT_buffer_trim_length:
	movwf	lo							; copy max.   string length to lo
	movf	FSR2L,W						; get current string length to WREG
	subwf	lo,F						; lo = max length - current length
	bn		TFT_fillup_with_spaces_cut	; string too long        -> cut string at max length
	bnz		TFT_fillup_with_spaces_apnd	; string too short       -> append spaces and string terminator
	bra		TFT_fillup_with_spaces_term	; string at exact length -> append            string terminator

TFT_fillup_with_spaces_apnd:
	PUTC	" "							; add one space
	decfsz	lo,F						; all spaces done?
	bra		TFT_fillup_with_spaces_apnd	; NO  - loop
	bra		TFT_fillup_with_spaces_term	; YES - append string terminator

TFT_fillup_with_spaces_cut:
	movf	lo,W						; get over-length (as negative number) into WREG
	addwf	FSR2L,F						; set back buffer pointer to end of max length
	;bra	TFT_fillup_with_spaces_term	; append string terminator

TFT_fillup_with_spaces_term:
	clrf	INDF2						; append string terminator
	return								; done


;-----------------------------------------------------------------------------
; Message - close Message
;
TFT_message_close:
	movlw	surf_warning_length			; get surface string length
	btfsc	divemode					; in dive mode?
	movlw	dm_warning_length			; YES - replace by dive mode string length
	rcall	TFT_buffer_trim_length		; fill / cut buffer to target length
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Mode - Message - Micro-Bubbles
;
	global	TFT_message_mbubbles
TFT_message_mbubbles:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ATTENTION				; set attention color as default
	movff	char_O_deco_warnings,WREG	; bank-safe copy for deco warnings
	btfsc	WREG,mbubble_warning		; currently in the micro bubbles zone?
	FONT_COLOR_WARNING					; YES - reconfigure to warning color
	STRCPY_TEXT tMicroBubbles			; print message text
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Outside Buhlmann Model
;
	global	TFT_message_outside
TFT_message_outside:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ATTENTION				; set attention color
	movff	char_O_deco_warnings,WREG	; bank-safe copy for deco warnings
	btfsc	WREG,outside_warning		; currently outside the ZH-L16 model?
	FONT_COLOR_WARNING					; YES - reconfigure to warning color
	STRCPY	"X-ZHL16-X"					; print message text
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Depth Limit
;
	global	TFT_message_depth_limit
TFT_message_depth_limit:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_WARNING					; set warning color
	STRCPY_TEXT tMaxDepth				; print "max.Depth"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Deco Info
;
	global	TFT_message_deco_info
TFT_message_deco_info:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ADVICE					; actually it is a memo, but we break the rules here and display in advice color (green)
	STRCPY_TEXT tDecoInfo				; write "Deco Zone"
	bra		TFT_message_close			; finalize message output


 IFDEF _helium

;-----------------------------------------------------------------------------
; Dive Mode - Message - IBCD
;
	global	TFT_message_IBCD
TFT_message_IBCD:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ATTENTION				; set attention color
	STRCPY_TEXT tIBCD					; Print "IBCD N2He"
	bra		TFT_message_close			; finalize message output

 ENDIF	; _helium

 IFDEF _ccr_pscr

;-----------------------------------------------------------------------------
; Dive Mode - Message - Gas Density
;
	global	TFT_message_gas_density
TFT_message_gas_density:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	btfsc	attn_det_gas_density		; on attention level?
	FONT_COLOR_ATTENTION				; YES - set attention color
	btfsc	warn_det_gas_density		; on warning level?
	FONT_COLOR_WARNING					; YES set warning color
	STRCPY_TEXT tGasDensity				; print "G.Density"
	bra		TFT_message_close			; finalize message output

 ENDIF	; _ccr_pscr

 IFDEF _external_sensor

;-----------------------------------------------------------------------------
; Dive Mode - Message - Sensor ppO2 Divergence
;
	global	TFT_message_divergence
TFT_message_divergence:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_WARNING					; set warning color
	STRCPY_TEXT tSensorDisagree			; print "Sensors<>"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - Fallback
;
	global	TFT_message_fallback
TFT_message_fallback:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_WARNING					; set warning color
	STRCPY_TEXT tDiveFallback			; print "Fallback!"
	bra		TFT_message_close			; finalize message output

 ENDIF	; _external_sensor

 IFDEF _rx_functions

;-----------------------------------------------------------------------------
; Dive Mode - Message - TR - Transmitter
;
	global	TFT_message_transmitter
TFT_message_transmitter:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ATTENTION				; set attention color
	STRCPY_TEXT tTransmitter			; print "P.Transm."
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - TR - Pressure
;
	global	TFT_message_pressure
TFT_message_pressure:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	btfsc	attn_det_pressure1			; on attention level - pressure 1 ?
	FONT_COLOR_ATTENTION				; YES - set attention color
	btfsc	attn_det_pressure2			; on attention level - pressure 2 ?
	FONT_COLOR_ATTENTION				; YES - set attention color
	btfsc	warn_det_pressure1			; on warning   level - pressure 1 ?
	FONT_COLOR_WARNING					; YES - set warning color
	btfsc	warn_det_pressure2			; on warning   level - pressure 2 ?
	FONT_COLOR_WARNING					; YES - set warning color
	STRCPY_TEXT tPressure				; print "Tank Pres"
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - TR - SAC
;
	global	TFT_message_sac
TFT_message_sac:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	MOVII	int_O_SAC_measured,mpr		; copy measured SAC rate to hi:lo
	call	TFT_color_code_pres_sac		; color-code the output
	STRCPY_TEXT tSAC					; print "SAC" (needs to be exactly 3 chars long)
	STRCAT	": "						; print ": "
	bsf		decimal_digit1				; place a decimal point in front of digit 1
	output_999							; print (0.0-99.9)
	bra		TFT_message_close			; finalize message output


;-----------------------------------------------------------------------------
; Dive Mode - Message - TR - switch Tank Advice
;
	global	TFT_message_switch_tanks
TFT_message_switch_tanks:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	FONT_COLOR_ADVICE					; set advice color
	STRCPY_TEXT tswap					; print "Swap Tank"
	bra		TFT_message_close			; finalize message output

 ENDIF	; _rx_functions

 IFDEF _cave_mode
 
;-----------------------------------------------------------------------------
; Dive Mode - Message - Cave Mode
;
	global	TFT_message_cave_mode
TFT_message_cave_mode:
	rcall	TFT_message_open			; set row and column for the message
	tstfsz	WREG						; is there room for the message?
	return								; NO  - skip message in this cycle

	btfss	attn_det_cave_shut_down		; on attention level?
	bra		TFT_message_cave_mode_1		; NO
	FONT_COLOR_ATTENTION				; YES - select attention color
	bra		TFT_message_cave_mode_sd	;     - print shutdown message

TFT_message_cave_mode_1:
	btfss	warn_det_cave_shut_down		; on warning level?
	bra		TFT_message_cave_mode_info	; NO
	FONT_COLOR_WARNING					; YES - select warning color
	;bra	TFT_message_cave_mode_sd	;     - print shutdown message

TFT_message_cave_mode_sd:
	STRCPY_TEXT tCaveModeShutdown		; print "X-Cave-X"
	bra		TFT_message_close			; finalize message output

TFT_message_cave_mode_info:
	FONT_COLOR_MEMO						; set memo color
	bsf		win_invert					; print in inverse
	STRCPY_TEXT tCaveMode				; write "Cave Mode"
	bra		TFT_message_close			; finalize message output

 ENDIF	; _cave_mode


;=============================================================================
tft_out13	CODE
;=============================================================================

;-----------------------------------------------------------------------------
; Surface Custom View - DESAT, NoFly, CNS
;
	
	global	TFT_surf_desat_nofly_cns
TFT_surf_desat_nofly_cns:
	WIN_SMALL surf_gaslist_column+.10,surf_gaslist_row+.5
	call	TFT_surf_mesg_desat2
	WIN_SMALL surf_gaslist_column+.10,surf_gaslist_row+(surf_gaslist_spacing*.1)+.5
	call	TFT_nofly_time_fly
	WIN_SMALL surf_gaslist_column+.10,surf_gaslist_row+(surf_gaslist_spacing*.2)+.5
	bra	TFT_surface_tissues_5		; continue
	
	
;-----------------------------------------------------------------------------
; Surface Custom View - Last Dive Summery
;
	global	TFT_surf_cv_lastdive
TFT_surf_cv_lastdive:
	FONT_COLOR_MEMO						; set color

	WIN_TINY surf_gaslist_column,surf_gaslist_row+.5
	STRCAT_TEXT_PRINT	tLastDive		; "Last Dive:"

	WIN_TINY surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)+.5
	STRCAT_TEXT_PRINT	tDivetime		; "Divetime:"

	WIN_TINY surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)+.5
	STRCAT_TEXT_PRINT	tMaxDepth		; "Max.Depth"

	WIN_TINY surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)+.5
	STRCAT_TEXT_PRINT	tAvgDepth		; "Average"

	WIN_SMALL surf_gaslist_column+.48,surf_gaslist_row
	SMOVII	int_O_desaturation_time,mpr	; ISR-safe copy of the desaturation time
	movf	mpr+0,W						; get low byte into WREG
	iorwf	mpr+1,W						; inclusive-or with high byte, check if desaturation time is zero
	bz		TFT_surface_lastdive_2		; YES - show last dive time
	;bra	TFT_surface_lastdive_1		; NO  - show surface interval

TFT_surface_lastdive_1:
	; surface interval
	SMOVII	surface_interval_mins,mpr	; ISR-safe copy of surface interval in minutes
	call	convert_time				; convert hi:lo in minutes to hours (up:hi) and minutes (lo)
	movff	lo,up						; back-up low
	movff	hi,lo						; get    hours
	output_99							; print  hours (0-99)
	PUTC	'h'							; append hours unit
	movff	up,lo						; get    minutes
	output_99x							; print  minutes (00-99)
	PUTC_PRINT "m"						; append minutes unit and dump to screen
	bra		TFT_surface_lastdive_com	; continue

TFT_surface_lastdive_2:
	; last dive time
	SMOVQQ	surface_interval_secs,xC	; ISR-safe copy of surface_interval_secs:4 to xC:4
	call	output_secs_as_days_hours	; print seconds as days and hours
	PRINT								; dump to screen
	;bra	TFT_surface_lastdive_com	; continue

TFT_surface_lastdive_com:
	; last dive duration
	WIN_SMALL surf_gaslist_column+.48,surf_gaslist_row+(surf_gaslist_spacing*.1)
	MOVII	lastdive_duration,mpr		; get duration of last dive, minutes
	output_999							; print minutes
	PUTC	":"							; print ":"
	movff	lastdive_duration+2,lo		; get duration of last dive, seconds
	output_99x							; print seconds
	PRINT								; dump to screen

	; last dive max depth
	WIN_SMALL	surf_gaslist_column+.48,surf_gaslist_row+(surf_gaslist_spacing*.2)
	MOVII	lastdive_maxdepth,mpr		; get max depth of last dive
	rcall	TFT_surface_lastdive_depth	; print depth

	; average depth
	WIN_SMALL	surf_gaslist_column+.48,surf_gaslist_row+(surf_gaslist_spacing*.3)
	MOVII	lastdive_avgdepth,mpr		; get avg depth of last dive
	;bra	TFT_surface_lastdive_depth	; print depth and return

	; Helper Function - print depth
TFT_surface_lastdive_depth:
	TSTOSS	opt_units					; 0=Meter, 1=Feet
	bra		TFT_surface_lastdive_m		; 0 - metric
	;bra	TFT_surface_lastdive_ft		; 1 - imperial

TFT_surface_lastdive_ft:
	call	convert_cm_to_feet			; convert value in hi:lo from [cm] to [feet]
	output_999							; print (0-999)
	STRCAT_TEXT tFeets1					; "ft"
	PRINT								; dump to screen
	return								; done

TFT_surface_lastdive_m:
	bsf		omit_digit_1				; do not print 1st digit
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_65535						; print (0.0x-655.3x)
	STRCAT_TEXT tMeters					; "m"
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Surface Custom View - OC Gas List
;
	global	TFT_surf_cv_list_gas
TFT_surf_cv_list_gas:
	clrf	WREG						; do OC gases (0-4)
	;bra	TFT_surf_cv_list_gas_common ; continue with common part

	; common list for OC gases and diluents
TFT_surf_cv_list_gas_common:
	movwf	gaslist_gas					; set first gas/dil to show
	FONT_COLOR_MEMO						; set color

	bsf		short_gas_descriptions		; use short versions of gaslist_strcat_gas and gaslist_strcat_setpoint
	bcf		better_gas_hint				; do not mark the best gas/diluent (to be used in dive mode only)

	; Gas 1
	WIN_SMALL surf_gaslist_column,surf_gaslist_row
	call	gaslist_strcat_gas			; print gas description
	PRINT								; dump to screen

	; Gas 2
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
	incf	gaslist_gas,F				; select next gas/dil
	call	gaslist_strcat_gas			; print gas description
	PRINT								; dump to screen

	; Gas 3
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)
	incf	gaslist_gas,F				; select next gas/dil
	call	gaslist_strcat_gas			; print gas description
	PRINT								; dump to screen

	; Gas 4
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)
	incf	gaslist_gas,F				; select next gas/dil
	call	gaslist_strcat_gas			; print gas description
	PRINT								; dump to screen

	; Gas 5
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.4)
	incf	gaslist_gas,F				; select next gas/dil
	call	gaslist_strcat_gas			; print gas description
	PRINT								; dump to screen

	return								; done


;-----------------------------------------------------------------------------
; Surface Custom View - Custom Text
;
	global	TFT_surf_cv_text
TFT_surf_cv_text:
	FONT_COLOR_MEMO						; set color

	; 1st row
	WIN_SMALL surf_customtext_column,surf_customtext_row1
	MOVRR	opt_name+ .0,buffer,.12		; copy 1st 12 chars to output buffer
	PRINT								; dump to screen

	; 2nd row
	WIN_SMALL surf_customtext_column,surf_customtext_row2
	MOVRR	opt_name+.12,buffer,.12		; copy 2nd 12 chars to output buffer
	PRINT								; dump to screen

	; 3rd row
	WIN_SMALL surf_customtext_column,surf_customtext_row3
	MOVRR	opt_name+.24,buffer,.12		; copy 3rd 12 chars to output buffer
	PRINT								; dump to screen

	; 4th row
	WIN_SMALL surf_customtext_column,surf_customtext_row4
	MOVRR	opt_name+.36,buffer,.12		; copy 4th 12 chars to output buffer
	PRINT								; dump to screen

	; 5th row
	WIN_SMALL surf_customtext_column,surf_customtext_row5
	MOVRR	opt_name+.48,buffer,.12		; copy 5th 12 chars to output buffer
	PRINT								; dump to screen

	return								; done


;-----------------------------------------------------------------------------
; Surface Custom View - Tissue Graphics
;
	global	TFT_surf_cv_tissues
TFT_surf_cv_tissues:

	; draw outer frame
	WIN_FRAME_STD surf_tissue_diagram_top, surf_tissue_diagram_bottom, surf_tissue_diagram_left, surf_tissue_diagram_right

	; draw labels
	FONT_COLOR_MEMO						; set color
	WIN_SMALL surf_tissue_N2_column,surf_tissue_N2_row
 IFDEF _helium
	btfss	tissue_graphic_layout		; shall N2 and He?
	bra		TFT_surface_tissues_1		; NO  - print "Tissues"
	STRCPY_TEXT_PRINT tN2				; YES - print "N2"
	WIN_SMALL surf_tissue_He_column,surf_tissue_He_row
	STRCPY_TEXT_PRINT tHe				;     - print "He"
	bra		TFT_surface_tissues_2		;     - continue with common part
 ENDIF

TFT_surface_tissues_1:
	STRCPY_TEXT_PRINT tDiveTissues		; print "Tissues"

TFT_surface_tissues_2:
	; draw scale

SCALELINE	macro	x
	movlw	color_deepblue
	WIN_FRAME_COLOR surf_tissue_diagram_top+.23,surf_tissue_diagram_bottom-.4,surf_tissue_diagram_left+.4+x,surf_tissue_diagram_left+.4+x
	endm

	SCALELINE  .0
	SCALELINE  .8
	SCALELINE .16
	SCALELINE .24
	SCALELINE .32
	SCALELINE .40
	SCALELINE .48
	SCALELINE .56
	SCALELINE .64
	SCALELINE .72
	SCALELINE .80

	; common initialization for tissue pressures and saturation
	movlw	.1
	movwf	win_height							; hight of the bargraph (0-239)
	movlw	surf_tissue_diagram_left+.4			; left start position for N2 bars
	movwf	win_leftx2							; column left (0-159)
	movlw	surf_tissue_diagram_right-surf_tissue_diagram_left-.4 ; get max width for N2 bars (78 pixel)
	movwf	win_width+0							; set width of the bar box
	clrf	win_width+1							; ...
	movlw	color_white							; color for tissues not exceeding surface max pressure
	movwf	ex									; store in ex
	movlw	color_red							; color for tissues exceeding surface max pressure
	movwf	ul									; store in ul
	bcf		aux_flag							; draw tissue pressures by default

	; draw combined or N2 tissue pressures
	lfsr	FSR2,char_O_tissue_pressure			; load base address of combined pressures by default
 IFDEF _helium
	btfsc	tissue_graphic_layout				; shall show N2+He ?
	lfsr	FSR2,char_O_tissue_pres_N2			; YES - replace with base address of N2 pressures
 ENDIF
	btfsc	tissue_graphic_mode							; in logbook mode?
	lfsr	FSR2,header_buffer+index_tissue_pres_total	; YES - replace with base address from logbook
	movlw	d'16'
	movwf	lo									; tissue counter, 16 tissues
	clrf	hi									; row    counter
TFT_surf_tissues_N2_loop:
	movlw	surf_tissue_diagram_top+.23			; surface mode top start position N2
	rcall	TFT_surf_tissues_bargraph			; show one tissue
	movlw	.2									; bargraph spacing
	addwf	hi,F								; increment row counter
	decfsz	lo,F								; decrement tissue counter, done?
	bra		TFT_surf_tissues_N2_loop			; NO - loop
 IFDEF _helium
	btfsc	tissue_graphic_layout				; shall show N2+He ?
	bra		TFT_surface_tissues_3				; YES - show He tissue pressures
 ENDIF

	; draw tissue saturations
	lfsr	FSR2,char_O_tissue_saturation				; load base address of tissue supersaturation
	btfsc	tissue_graphic_mode							; in logbook mode?
	lfsr	FSR2,header_buffer+index_tissue_supersat	; YES - replace with base address from logbook
	movlw	d'16'
	movwf	lo									; tissue counter, 16 tissues
	clrf	hi									; row    counter
	movlw	color_grey							; color for tissue saturation
	movwf	ex									; store in ex
;	movlw	color_yellow						; 2nd color is not used by tissue saturation
;	movwf	ul									; ...
	bsf		aux_flag							; draw tissue saturation
TFT_surf_tissues_sat_loop:
	movlw	surf_tissue_diagram_top+.23+.57		; surface mode top start position saturations
	rcall	TFT_surf_tissues_bargraph			; draw tissue bargraph
	movlw	.2									; bargraph spacing
	addwf	hi,F								; increment row counter
	decfsz	lo,F								; decrement tissue counter, done?
	bra		TFT_surf_tissues_sat_loop			; NO - loop

	; common part for vertical lines
	movlw	surf_tissue_diagram_top+.23+.57		; get top position
	movwf	win_top								; set top position (0-239)
	movlw	.30									; get hight
	movwf	win_height							; set height
	movlw	.1									; get width
	movwf	win_width+0							; set width, low  byte
	clrf	win_width+1							; set width, high byte

	; print 100% line
	movlw	surf_tissue_diagram_left+.4+.64		; get left position
	movwf	win_leftx2							; set left position (0-159)
	movlw	color_red							; color for 100% line
	BOX_COLOR									; draw the line

	; GF factors enabled?
	btfss	tissue_graphic_gf					; GF factors enabled?
	bra		TFT_surface_tissues_4				; NO - continue with CNS

	; print GF low line
	movlw	surf_tissue_diagram_left+.4			; get left base position
	movwf	win_leftx2							; set left base position (0-159)
	movff	opt_GF_low,WREG						; get GF low in 0.01 %
	btfsc	tissue_graphic_mode					; in logbook mode?
	movff	header_buffer+index_gf_lo_hi+0,WREG	; YES - replace by GF low from logbook
	mullw	.164								; multiply with 164
	movf	PRODH,W								; divide   by   256 -> resulting scale factor is 164/256 = 0.640625
	addwf	win_leftx2,F						; add to base position
	movlw	color_green							; color for GF low line
	BOX_COLOR									; draw the line

	; print GF high line
	movlw	surf_tissue_diagram_left+.4			; get left base position
	movwf	win_leftx2							; set left base position (0-159)
	movff	opt_GF_high,WREG					; get GF high in 0.01 %
	btfsc	tissue_graphic_mode					; in logbook mode?
	movff	header_buffer+index_gf_lo_hi+1,WREG	; YES - replace by GF high from logbook
	mullw	.164								; multiply with 164
	movf	PRODH,W								; divide   by   256 -> resulting scale factor is 164/256 = 0.640625
	addwf	win_leftx2,F						; add to base position
	movlw	color_yellow						; color for GF high line
	BOX_COLOR									; draw the line
	bra		TFT_surface_tissues_4				; continue with CNS

 IFDEF _helium
TFT_surface_tissues_3:
	; draw He tissue pressures
	movlw	surf_tissue_diagram_left+.4+.16		; start position for He bars
	movwf	win_leftx2							; column left (0-159)
	movlw	surf_tissue_diagram_right-surf_tissue_diagram_left-.4-.16 ; max width for He bars
	movwf	win_width+0							; set total width of the bar box
	clrf	win_width+1							; ...
	lfsr	FSR2,char_O_tissue_pres_He			; load base address of He pressures
	movlw	d'16'
	movwf	lo									; tissue counter, 16 tissues
	clrf	hi									; row    counter
TFT_surf_tissues_He_loop:
	movlw	surf_tissue_diagram_top+.23+.57		; surface mode top start position He
	rcall	TFT_surf_tissues_bargraph			; show one tissue
	movlw	.2									; bargraph spacing
	addwf	hi,F								; increment row counter
	decfsz	lo,F								; decrement tissue counter, done?
	bra		TFT_surf_tissues_He_loop			; NO - loop
 ENDIF

TFT_surface_tissues_4:
	btfss	tissue_graphic_cns			; shall show CNS value?
	return								; NO  - done

	; draw CNS% in-between tissue bars
	WIN_SMALL surf_tissue_He_column+.22,surf_tissue_He_row
TFT_surface_tissues_5:	
	MOVII	int_O_CNS_current,mpr		; get current CNS
	call	TFT_color_code_cns			; color-code CNS value
	STRCPY_TEXT tCNS2					; "CNS: "
	bsf		leftbind					; print left-aligned
	output_999							; print (0-999)
	PUTC_PRINT "%"						; append unit and dump to screen
	return								; done


	; Helper Function - draw a bargraph
TFT_surf_tissues_bargraph:
	addwf	hi,W						; add row number to start position
	movwf	win_top						; set as row top (0-239)
	movff	POSTINC2,up					; get tissue value
	movf	ex,W						; default color
	btfsc	up,7						; check if flag in bit 7 is set
	movf	ul,W						; YES - switch to 2nd color
	bcf		up,7						; clear flag bit
	btfss	aux_flag					; drawing saturations?
	rlncf	up,F						; NO - multiply with 2 (previously cleared bit 7 will be rotated to bit 0)
	movff	up,win_bargraph				; set length of the bargraph
	incf	win_bargraph,F				; add 1 for a minimum visible bar (He-bars could be invisible else-wise)
	BOX_COLOR							; draw bargraph with color in WREG
	return								; done


;-----------------------------------------------------------------------------
; Surface Custom View - Tissue Graphics
;
	global	TFT_surf_cv_settings
TFT_surf_cv_settings:
	; Deco Mode
	FONT_COLOR_MEMO						; select color
	WIN_SMALL surf_gaslist_column,surf_gaslist_row
	STRCAT_PRINT "ZH-L16"				; print fix part of model
	movff	char_I_model,WREG			; get model
	iorwf	WREG						; GF enabled?
	bnz		TFT_surface_decosettings1	; YES
	;bra	TFT_surface_decosettings0	; NO

TFT_surface_decosettings0:
	; Display ZH-L16 sat/desat model
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
	STRCPY_TEXT tSD								; print label (S/D)
	movff	char_I_saturation_multiplier,  lo	; get sat   mult.
	movff	char_I_desaturation_multiplier,hi	; get desat mult.
	bra		TFT_surface_decosettings_com		; continue with common part

TFT_surface_decosettings1:
	; Display ZH-L16-GF low/high model
	WIN_SMALL surf_gaslist_column+.43,surf_gaslist_row
	STRCPY_TEXT_PRINT tZHL16GF					; print GF label behind deco model label

	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
	STRCPY_TEXT tGF								; print label (GF:)
	PUTC	' '									; print a space
	movff	opt_GF_low, lo						; get GF low
	movff	opt_GF_high,hi						; get GF high
	;bra	TFT_surface_decosettings_com		; continue with common part

TFT_surface_decosettings_com:
	; percentage pair
	output_256							; print (0-255)
	STRCAT	"%/"						; print "%/"
	movff	hi,lo						; get 2nd value
	output_256							; print (0-255)
	PUTC_PRINT "%"						; append unit and dump to screen

	; fTTS
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)
	STRCPY_TEXT tFTTSSurf				; print label
	movff	char_I_extra_time,lo		; get time
	output_9							; print time (0-9)
	STRCAT_TEXT_PRINT tMinutes			; append unit and dump to screen

	; Last Stop
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)
	STRCPY_TEXT tLastDecostopSurf		; print label
	movff	opt_last_stop,lo			; get depth
	output_9							; print depth (0-9)
	STRCAT_TEXT_PRINT tMeters			; append unit and dump to screen

	; Salinity
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.4)
	STRCPY_TEXT tDvSalinitySurf			; print label
	movff	opt_salinity,lo				; get salinity
	output_9							; print salinity (0-9)
	STRCAT_TEXT_PRINT tPercent			; append unit and dump to screen

	return								; done


 IFDEF _rx_functions

;-----------------------------------------------------------------------------
; Surface Custom View - TR - Tank Data
;
	global	TFT_surf_cv_tankdata
TFT_surf_cv_tankdata:
	lfsr	FSR1,rx_buffer				; load base address of RX buffer

 IFNDEF _rx_functions_debug

	WIN_SMALL surf_customtext_column,surf_customtext_row1
	rcall	TFT_surface_tankdata_print
	WIN_SMALL surf_customtext_column,surf_customtext_row2
	rcall	TFT_surface_tankdata_print
	WIN_SMALL surf_customtext_column,surf_customtext_row3
	rcall	TFT_surface_tankdata_print
	WIN_SMALL surf_customtext_column,surf_customtext_row4
	rcall	TFT_surface_tankdata_print
	WIN_SMALL surf_customtext_column,surf_customtext_row5
	rcall	TFT_surface_tankdata_print

	return								; done


	; Helper Function - print transmitter data (max 12 char)
TFT_surface_tankdata_print:
	FONT_COLOR_MEMO						; set color
	movff	POSTINC1,hi					; get ID high (+0)
	movff	POSTINC1,lo					; get ID low  (+1)
	tstfsz	hi							; ID high = 0 ?
	bra		TFT_surface_tankdata_print_1; NO  - slot in use
	tstfsz	lo							; ID low  = 0?
	bra		TFT_surface_tankdata_print_1; NO  - slot in use
	STRCAT_PRINT "----        "			; YES - mark as unused and clear rest of line from previous remains
	movf	POSTINC1,W					;     - dummy read (+2) to advance index
	movf	POSTINC1,W					;     - dummy read (+3) to advance index
	movf	POSTINC1,W					;     - dummy read (+4) to advance index
	bra		TFT_surface_tankdata_print_3;     - one more dummy read and return

TFT_surface_tankdata_print_1:
	movf	hi,W						; copy ID high to WREG
	output_hex							; print as hex        2 chars
	movf	lo,W						; copy ID low  to WREG
	output_hex							; print as hex        2 chars (4 in total)
	movff	POSTINC1,hi					; get pressure high (+2)
	movff	POSTINC1,lo					; get pressure low  (+3)
	call	TFT_color_code_pres_sac		; needed to clear the status flags before output
	bsf		omit_digit_1				; do not print 1st digit (0.1 bar)
	output_65535						; print (0x-6553x)    4 chars (8 in total)
	PUTC	" "							;                     1 char  (9 in total)
	movf	POSTINC1,W					; get status (+4)
	andlw	.7							; mask out battery voltage
	bnz		TFT_surface_tankdata_2		; branch if battery is not completely drained
	FONT_COLOR_WARNING					; output in red
	STRCAT_PRINT "XXX"					; "XXX" for low
	bra		TFT_surface_tankdata_print_3; one more dummy read and return

TFT_surface_tankdata_2:
	addlw	.28							; add offset of 2.8 Volt
	movff	WREG,lo						; copy to lo
	bsf		decimal_digit1  			; put a decimal point in front of digit 1
	output_99							; print voltage       2 chars (11 in total)
	PUTC_PRINT " "						; dummy char          1 char  (12 in total)

TFT_surface_tankdata_print_3:
	movf	POSTINC1,W					; dummy read (+5) to advance index
	return								; done

 ELSE	; _rx_functions_debug

TFT_surface_tankdata_debug:				; surface custom view debug output
	FONT_COLOR_MEMO						; set color
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*0
	rcall	TFT_surface_tankdata_debug_print
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*1
	rcall	TFT_surface_tankdata_debug_print
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*2
	rcall	TFT_surface_tankdata_debug_print
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*3
	rcall	TFT_surface_tankdata_debug_print
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*4
	rcall	TFT_surface_tankdata_debug_print
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*5
	rcall	TFT_surface_tankdata_debug_print
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*6
	rcall	TFT_surface_tankdata_debug_print
	WIN_TINY surf_customtext_column,surf_customtext_row1+.14*7
	rcall	TFT_surface_tankdata_debug_print
	return								; done

TFT_surface_tankdata_debug_print:
	movff	POSTINC1,hi					; read ID high (+0)
	output_hex							; print as hex
	movff	POSTINC1,lo					; read ID low  (+1)
	output_hex							; print as hex
	PUTC	","							; print ","
	movff	POSTINC1,hi					; read pressure high (+2)
	movff	POSTINC1,lo					; read pressure low  (+3)
	call	TFT_color_code_pres_sac		; needed to clear the status flags before output
	bsf		decimal_digit1				; place a decimal point in front of digit 1 
	output_9999							; print pressure (0.0-999.9)
	PUTC	","							; print ","
	movff	POSTINC1,lo					; read status (+4)
	output_hex							; print as hex
	PUTC	","							; print ","
	movff	POSTINC1,lo					; read date   (+5)
	output_256							; print (0-255)
	PRINT								; dump to screen
	return								; done

 ENDIF	; _rx_functions_debug
 ENDIF	; _rx_functions

 IFDEF _compass

;-----------------------------------------------------------------------------
; Surface Custom View - Compass - "set Bearing Dialog"
;
	global	TFT_surf_cv_compass_bearing
TFT_surf_cv_compass_bearing:
	btfsc	compass_menu				; is the "set bearing" selection shown?
	return								; YES - done
	bsf		compass_menu				; NO  - set "set bearing" selection as shown
	WIN_BOX_BLACK surf_compass_bear_row,surf_warning1_row-1, surf_compass_bear_column, surf_decotype_column-.1 ; top, bottom, left, right
	WIN_SMALL surf_compass_bear_column,surf_compass_bear_row
	FONT_COLOR color_yellow				; set color
	bsf		win_invert					; print inverse
	STRCPY_TEXT_PRINT tSetHeading		; 7 chars
	return								; done

 ENDIF	; _compass

 IFDEF _ccr_pscr

;-----------------------------------------------------------------------------
; Surface Custom View - Diluent List
;
	global	TFT_surf_cv_list_dil
TFT_surf_cv_list_dil:
	movlw	.5							; do diluents (5-9)
	bra		TFT_surf_cv_list_gas_common ; continue with common part


;-----------------------------------------------------------------------------
; Surface Custom View - Setpoint List
;
	global	TFT_surf_cv_list_sp			; show setpoint list
TFT_surf_cv_list_sp:
	FONT_COLOR_MEMO						; set color
	bsf		short_gas_descriptions		; use short versions of gaslist_strcat_gas_PRODL and gaslist_strcat_setpoint
	bcf		better_gas_hint				; do not mark the best gas/diluent (to be used in dive mode only)

	;SP 1
	WIN_SMALL surf_gaslist_column,surf_gaslist_row
	clrf	gaslist_gas					; select SP 1
	call	gaslist_strcat_setpoint		; show setpoint data
	PRINT								; dump to screen

	;SP 2
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.1)
	incf	gaslist_gas,F				; select next SP
	call	gaslist_strcat_setpoint		; show SP#+1 of PRODL#
	PRINT								; dump to screen

	;SP 3
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.2)
	incf	gaslist_gas,F				; select next SP
	call	gaslist_strcat_setpoint		; show SP#+1 of PRODL#
	PRINT								; dump to screen

	;SP 4
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.3)
	incf	gaslist_gas,F				; select next SP
	call	gaslist_strcat_setpoint		; show SP#+1 of PRODL#
	PRINT								; dump to screen

	;SP 5
	WIN_SMALL surf_gaslist_column,surf_gaslist_row+(surf_gaslist_spacing*.4)
	incf	gaslist_gas,F				; select next SP
	call	gaslist_strcat_setpoint		; show SP#+1 of PRODL#
	PRINT								; dump to screen

	return								; done

 ENDIF	; _ccr_pscr


;=============================================================================
tft_out14	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Dive Custom View - AVR / Stopwatch - Mask
;
	global	TFT_avr_stopwatch_mask
TFT_avr_stopwatch_mask:
	FONT_COLOR_MASK						; select color

 IFNDEF _min_depth_option

	WIN_TINY dm_custom_avr_stop_column1+.2,dm_custom_avr_stop_title_row
	TSTOSS	opt_2ndDepthDisp			; show avg depth instead of max depth in main screen?
	bra		TFT_avr_stopwatch_mask_1	; NO  - draw avg depth in custom view then
	btfss	alt_layout_active			; YES - in alternative layout?
	bra		TFT_avr_stopwatch_mask_max	;       NO  - show max depth
	;bra	TFT_avr_stopwatch_mask_avg	;       YES - show avg depth

TFT_avr_stopwatch_mask_avg:
	STRCPY_TEXT_PRINT tDiveTotalAvg		; mask for average depth
	bra		TFT_avr_stopwatch_mask_2	; continue

TFT_avr_stopwatch_mask_1:
	btfss	alt_layout_active			; YES - in alternative layout?
	bra		TFT_avr_stopwatch_mask_avg	;       NO  - show avg depth
	;bra	TFT_avr_stopwatch_mask_max	;       YES - show max depth

TFT_avr_stopwatch_mask_max:
	STRCPY_TEXT_PRINT tMaxDepth			; mask for maximum depth
	;bra	TFT_avr_stopwatch_mask_2	; continue

TFT_avr_stopwatch_mask_2:
	WIN_TINY dm_custom_avr_stop_column2+.3,dm_custom_avr_stop_title_row
	STRCPY_TEXT_PRINT tDiveStopwatch	; print label

	WIN_TINY dm_custom_avr_stop_column3-.8,dm_custom_avr_stop_title_row
	STRCPY_TEXT_PRINT tDiveStopAvg		; print label

	return								; done

 ELSE

	WIN_TINY dm_custom_avr_stop_column1+.2,dm_custom_avr_stop_title_row
	STRCPY_PRINT "Max.Depth"			; print label

	WIN_TINY dm_custom_avr_stop_column2+.3,dm_custom_avr_stop_title_row
	STRCPY_PRINT "Avg.Depth"			; print label

	WIN_TINY dm_custom_avr_stop_column3-.8,dm_custom_avr_stop_title_row
	STRCPY_PRINT "Min.Depth"			; print label

	return								; done

 ENDIF


;-----------------------------------------------------------------------------
; Dive Custom View - AVR / Stopwatch - Data
;
	global	TFT_avr_stopwatch
TFT_avr_stopwatch:
	FONT_COLOR_MEMO							; select color

 IFNDEF _min_depth_option

	; total average depth or max depth
	WIN_MEDIUM dm_custom_avr_stop_column1,dm_custom_avr_stop_row
	TSTOSS	opt_2ndDepthDisp				; show average depth instead of maximum depth in main screen?
	bra		TFT_avr_stopwatch_1				; NO  - draw avg depth in custom view then
	btfsc	alt_layout_active				; YES - in alternative layout?
	bra		TFT_avr_stopwatch_avg			;       YES - show avg depth
	bra		TFT_avr_stopwatch_max			;       NO  - show max depth

TFT_avr_stopwatch_1:
	btfsc	alt_layout_active				; YES - in alternative layout?
	bra		TFT_avr_stopwatch_max			;       YES - show max depth
	;bra	TFT_avr_stopwatch_avg			;       NO  - show avg depth

TFT_avr_stopwatch_avg:
	MOVII	pressure_rel_avg_total,mpr		; get total dive average pressure into hi:lo
	bra		TFT_avr_stopwatch_2				; continue

TFT_avr_stopwatch_max:
	MOVII	pressure_rel_max_cached,mpr		; get maximum pressure into hi:lo
	;bra	TFT_avr_stopwatch_2				; continue

TFT_avr_stopwatch_2:
	call	convert_pres_to_depth			; convert pressure in [mbar] to depth in [cm]
	TSTOSS	opt_units						; 0=m, 1=ft
	bra		TFT_update_avr_stopwatch1_metric; 0 - metric
	;bra	TFT_update_avr_stopwatch1_imp	; 1 - imperial

TFT_update_avr_stopwatch1_imp:
	call	convert_cm_to_feet				; convert value in hi:lo from [cm] to [feet]
	output_999								; print (0-999)
	PRINT									; dump to screen
	bra		TFT_update_avr_stopwatch2		; continue

TFT_update_avr_stopwatch1_metric:
	rcall	TFT_update_avr_stopwatch_metric	; print metric depth
	;bra	TFT_update_avr_stopwatch2		; continue

TFT_update_avr_stopwatch2:
	; stopped average depth
	WIN_MEDIUM dm_custom_avr_stop_column3,dm_custom_avr_stop_row
	MOVII	pressure_rel_avg_trip,mpr		; get the resettable average pressure
	call	convert_pres_to_depth			; convert pressure in [mbar] to depth in [cm]
	TSTOSS	opt_units						; 0=m, 1=ft
	bra		TFT_update_avr_stopwatch2_metric; 0 - metric
	;bra	TFT_update_avr_stopwatch2_imp	; 1 - imperial

TFT_update_avr_stopwatch2_imp:
	call	convert_cm_to_feet				; convert value in hi:lo from [cm] to [feet]
	output_999								; print (0-999)
	PRINT									; dump to screen
	bra		TFT_update_avr_stopwatch3		; continue

TFT_update_avr_stopwatch2_metric:
	rcall	TFT_update_avr_stopwatch_metric	; print metric depth
	bra		TFT_update_avr_stopwatch3		; continue


; Helper Function - print metric depth
TFT_update_avr_stopwatch_metric:
	bsf		leftbind					; print left-aligned
	bsf		omit_digit_1				; do not print 1st digit (no cm)
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_65535						; print (0.0x-655.3x)
	PUTC	" "							; wipe out remains from last output
	clrf	WREG
	movff	WREG,buffer+.4				; limit string length to 4 = 3 digits + 1 half-size decimal dot
	PRINT								; dump to screen
	return								; done

 ELSE

	; resettable maximum depth - needs ISR-safe copy!
	WIN_MEDIUM dm_custom_avr_stop_column1,dm_custom_avr_stop_row
	FONT_COLOR_MEMO						; select color
	SMOVII	pressure_rel_max_trip,mpr	; get resettable maximum pressure
	rcall	TFT_avr_stopwatch_helper	; print depth

	; resettable average depth
	WIN_MEDIUM dm_custom_avr_stop_column2-.1,dm_custom_avr_stop_row
	FONT_COLOR_ATTENTION				; select color
	MOVII	pressure_rel_avg_trip,mpr	; get resettable average pressure
	rcall	TFT_avr_stopwatch_helper	; print depth

	; resettable minimum depth - needs ISR safe copy!
	WIN_MEDIUM dm_custom_avr_stop_column3-.12,dm_custom_avr_stop_row
	FONT_COLOR_MEMO						; select color
	SMOVII	pressure_rel_min_trip,mpr	; get resettable minimum pressure
	rcall	TFT_avr_stopwatch_helper	; print depth

	return								; done

TFT_avr_stopwatch_helper:
	call	convert_pres_to_depth		; convert pressure in [mbar] to depth in [cm]
	bsf		leftbind					; print left-aligned
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_65535						; print (0.00-655.35)
	PUTC	" "							; wipe out remains from last output
	clrf	WREG						; load string terminator
	movff	WREG,buffer+.5				; limit string length to 5 = 4 digits + 1 half-size decimal dot
	PRINT								; dump to screen
	return								; done

 ENDIF

TFT_update_avr_stopwatch3:
	WIN_MEDIUM dm_custom_avr_stop_column2,dm_custom_avr_stop_row
	;bra	TFT_update_stopwatch		; continue

TFT_update_stopwatch:
	; jump-in point for stopped dive time in compass custom view
	MOVII	divesecs_avg_trip,mpr		; get the resettable dive time (stopwatch)
	call	convert_time				; convert hi:lo in seconds to minutes (up:hi) and seconds (lo)
	movlw	.100						; display layout will change if minutes become >= 100
	cpfslt	hi							; minutes < 100 ?
	bra		TFT_update_stopwatch_1		; NO  - display hours:minutes
	bcf		aux_flag					; YES - will print minutes : seconds
	bra		TFT_update_stopwatch_2		;     - continue

TFT_update_stopwatch_1:
	movff	hi,lo						; transfer minutes (low  byte) to lo
	movff	up,hi						; transfer minutes (high byte) to hi
	call	convert_time				; convert hi:lo in minutes to hours (up:hi) and minutes (lo)
	bsf		aux_flag					; will print hours : minutes

TFT_update_stopwatch_2:
	movf	hi,W						; exchange lo and hi
	movff	lo,hi						; ...
	movwf	lo							; ...
	output_99							; print minutes or hours (0 - 99)
	movlw	":"							; load standard separator
	btfsc	aux_flag					; will print hours : minutes ?
	movlw	"'"							; YES - swap to alternative separator
	movwf	POSTINC2					; print separator
	movff	hi,lo						; restore lo
	output_99x							; print seconds or minutes (00-99)
	movlw	.5							; set target length
	call	TFT_buffer_trim_length		; fill / cut buffer to target length
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Gas Needs - Mask
;
	global	TFT_gas_needs_mask
TFT_gas_needs_mask:
	WIN_TINY dm_custom_gas_column_title, dm_custom_gas_mask_row
	FONT_COLOR_MASK						; select color

 IFDEF _cave_mode

	movff	char_O_deco_info,WREG		; get the deco info vector
	btfss	WREG,gas_needs_cave			; are the gas needs calculated for cave mode?
	bra		TFT_gas_needs_mask_ascent_1	; NO  - show as direct ascent needs
	;bra	TFT_gas_needs_mask_ascent_0	; YES - show as cave   return needs

TFT_gas_needs_mask_ascent_0:
	bsf		gas_needs_mode_last			; remember last results were for cave mode
	STRCPY_TEXT tGasNeedsCaveMode		; print "Gas Needs Cave Mode"
	bra		TFT_gas_needs_mask_ascent_2	; continue

TFT_gas_needs_mask_ascent_1:
	bcf		gas_needs_mode_last			; remember last results were for direct ascent
	STRCPY_TEXT tGasNeedsAscent			; "Gas Needs Ascent"
	;bra	TFT_gas_needs_mask_ascent_2	; continue

 ELSE

	STRCPY_TEXT tGasNeedsAscent			; "Gas Needs Ascent"

 ENDIF

TFT_gas_needs_mask_ascent_2:
	TSTOSS	char_I_extra_time			; fTTS enabled?
	bra		TFT_gas_needs_mask_ascent_3	; NO  - continue
	STRCAT	" fTTS"						; YES - append fTTS marking
TFT_gas_needs_mask_ascent_3:
	STRCAT_PRINT " (bar)"				; append " (bar)" and dump buffer to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Gas Needs - Data
;
; LIMITATION: there is only space for 4 gases on the screen - if 5 gases
;             have a pres_need > 0, then only the first 4 will be shown!
;
	global	TFT_gas_needs
TFT_gas_needs:

 IFDEF _cave_mode

	movff	char_O_deco_info,WREG		; get deco info vector
	btfss	WREG,gas_needs_cave			; are the gas needs calculated for cave mode?
	bra		TFT_gas_needs_ascent_1		; NO  - continue below...
	btfsc	gas_needs_mode_last			; YES - were the last results calculated for cave mode?
	bra		TFT_gas_needs_ascent_3		;       YES - mask still valid
	bra		TFT_gas_needs_ascent_2		;       NO  - redraw mask

TFT_gas_needs_ascent_1:
	btfss	gas_needs_mode_last			; NO  - were the last results calculated for direct ascent?
	bra		TFT_gas_needs_ascent_3		;       YES - mask still valid
	;bra	TFT_gas_needs_ascent_2		;       NO  - redraw mask

TFT_gas_needs_ascent_2:
	rcall	TFT_gas_needs_mask			; redraw mask
	;bra	TFT_gas_needs_ascent_3		; continue

 ENDIF

TFT_gas_needs_ascent_3:
	clrf	up												; initialize gas index (0-4)
	WIN_SMALL dm_custom_gas_column1+.5,dm_custom_gas_row1	; set position
	rcall	TFT_gas_needs_helper							; print need
	WIN_SMALL dm_custom_gas_column1+.5,dm_custom_gas_row2	; set position
	rcall	TFT_gas_needs_helper							; print need
	WIN_SMALL dm_custom_gas_column2+.5,dm_custom_gas_row1	; set position
	rcall	TFT_gas_needs_helper							; print need
	WIN_SMALL dm_custom_gas_column2+.5,dm_custom_gas_row2	; set position
	rcall	TFT_gas_needs_helper							; print need
	return													; done


	; Helper Function - print need for next gas
TFT_gas_needs_helper:
	FONT_COLOR_MEMO						; select default color
	movlw	.5							; total number of gases
	cpfslt	up							; check if all gases have been processed
	bra		TFT_gas_needs_helper_1		; YES - clear display area
	movf	up,W						; NO  - get gas number and check if need of that gas is > 0
	rlncf	WREG,W						;     - multiply by 2
	incf	WREG,W						;     - add 1 to address high byte
	lfsr	FSR1,int_O_gas_need_pres	;     - load base of gas needs in pressure
	movff	PLUSW1,hi					;     - read HIGH(int_O_gas_need_pres[up])
	btfss	hi,int_is_zero				;     - check flag for pres_need == 0
	bra		TFT_gas_needs_helper_2		;       NO  - print gas type and pressure needed
	incf	up,F						;       YES - increment to next gas
	bra		TFT_gas_needs_helper		;           - loop and try the next gas

TFT_gas_needs_helper_1:	
	; no gases to show anymore, clear display area from potential remains of last invocation
	STRCAT_PRINT "  ----   "			; overwrite outdated stuff if screen position is not needed
	return								; done

TFT_gas_needs_helper_2:
	; output gas type and pressure needed
	movf	up,W						; get gas number (0-4) to WREG
	lfsr	FSR1,opt_gas_O2_ratio		; read opt_gas_O2_ratio[WREG]
	movff	PLUSW1,lo					; copy result to lo
	lfsr	FSR1,opt_gas_He_ratio		; read opt_gas_He_ratio[WREG]
	movff	PLUSW1,hi					; copy result to hi
	call	gaslist_strcat_mix			; print "Air", "O2", "21/35", etc.
	PUTC	':'							; print ":"
	movf	up,W						; get gas number (0-4) to WREG
	rlncf	WREG,W						; multiply by 2
	lfsr	FSR1,int_O_gas_need_pres	; load base of gas needs in pressure
	movff	PLUSW1,lo					; read LOW(int_O_gas_need_pres[up])
	incf	WREG,W						; add 1 to address high byte
	movff	PLUSW1,hi					; read HIGH(int_O_gas_need_pres[up])
	btfsc	hi,int_attention_flag		; check if attention flag is set (pres_need > pres_fill * threshold)
	FONT_COLOR_ATTENTION				; YES - print gas need in attention color
	btfsc	hi,int_warning_flag			; check if warning   flag is set (pres_need > pres_fill)
	FONT_COLOR_WARNING					; YES - print gas need in warning color
	movff	int_O_gas_need_pres+1,WREG	; get HIGH(int_O_gas_need_pres[0]) which holds flag for invalid data
	btfsc	WREG,int_invalid_flag		; check if invalid data flag is set
	FONT_COLOR_DISABLED					; YES - print gas need in disabled color
	bcf		hi,int_attention_flag		; clear flag for attention
	bcf		hi,int_warning_flag			; clear flag for warning
	bcf		hi,int_high_flag			; clear flag for > 999 bar
	bcf		hi,int_invalid_flag			; clear flag for invalid data (will actually only be set with 1st gas)
	output_999							; print (0-999)
	PUTC_PRINT " "						; add a space to overwrite any potential remains of earlier outputs and dump buffer to screen
	incf	up,F						; increment to next gas
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Deco Plan - Mask
;
	global	TFT_decoplan_mask			; mask for deco plan
TFT_decoplan_mask:
	WIN_TINY dm_custom_decoplan_title_column, dm_custom_decoplan_title_row
	FONT_COLOR_MASK						; select color
	STRCPY_TEXT_PRINT tDiveDecoplan		; print label

	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Deco Plan - Data
;
	global	TFT_decoplan
TFT_decoplan:
	lfsr	FSR0,char_O_deco_depth		; load base address of stops table
	clrf	ex							; will be used for auxiliary flags
	FONT_COLOR_MEMO						; set default output color
	movff	char_O_deco_gas+0,lo		; get flag for invalid deco data
	btfsc	lo,char_invalid_flag		; is the invalid flag set?
	FONT_COLOR_DISABLED					; YES - set to disabled color
	; 2nd stop
	WIN_SMALL dm_cust_dstop_2nd_stop_column, dm_cust_dstop_2nd_stop_row
	rcall	TFT_decoplan_helper			; show stop data
	; 3rd stop
	WIN_SMALL dm_cust_dstop_3rd_stop_column, dm_cust_dstop_3rd_stop_row
	rcall	TFT_decoplan_helper			; show stop data
	; 4th stop
	bsf		ex,4						; flag we are on 4th screen position
	WIN_SMALL dm_cust_dstop_4th_stop_column, dm_cust_dstop_4th_stop_row
	rcall	TFT_decoplan_helper			; show stop data
	bcf		ex,4						; clear 4th position flag again
	; 5th stop
	WIN_SMALL dm_cust_dstop_5th_stop_column, dm_cust_dstop_5th_stop_row
	rcall	TFT_decoplan_helper			; show stop data
	; 6th stop
	WIN_SMALL dm_cust_dstop_6th_stop_column, dm_cust_dstop_6th_stop_row
	rcall	TFT_decoplan_helper			; show stop data
	; 7th stop
	WIN_SMALL dm_cust_dstop_7th_stop_column, dm_cust_dstop_7th_stop_row
	rcall	TFT_decoplan_helper			; show stop data
	return								; done


	; Helper Function - show stop data
TFT_decoplan_helper:
	btfsc	ex,0						; no more stops to show?
	bra		TFT_decoplan_helper_1		; YES - skip checking next entry - it will be empty, too
	movff	PREINC0,lo					; NO  - advance pointer to get the depth of the 2nd, 3rd, 4th, ... stop
	tstfsz	lo							;       is the stop depth = 0, i.e. no stop entry?
	bra		TFT_decoplan_helper_3		;       NO  - show stop data

TFT_decoplan_helper_1:					; no more stop table entries
	bsf		ex,0						; flag that there are no more stop table entries
	btfss	ex,4						; are we on the 4th screen position?
	bra		TFT_decoplan_helper_2		; NO  - normal handling on this position
	btfsc	ex,1						; YES - special handling, has any stop been shown?
	bra		TFT_decoplan_helper_2		;       YES - print normal blanking
	STRCPY_PRINT "  ---- "				;       NO  - print a "no stops" indication (blanking potential previous content, too)
	return								;            done

TFT_decoplan_helper_2:					; no more stop table entries, blank potential previous content
	STRCPY_PRINT "       "				; wipe screen position by printing 7 spaces
	return								; done

TFT_decoplan_helper_3:
	rcall	TFT_display_stop_depth		; print stop depth (depth in lo)
	PUTC	" "							; put a space char between depth and time
	movlw	NUM_STOPS					; offset between arrays holding depths and durations
	movff	PLUSW0,lo					; get duration of the current stop
	output_99dd							; print duration, prints double dots if duration is zero
	PUTC_PRINT "'"						; append unit and dump buffer to screen
	bsf		ex,1						; flag that a stop was shown
	return								; done


	; Helper Function - print stop depth
TFT_display_stop_depth:					; print depth (stored in lo)
	TSTOSS	opt_units					; get unit (0=m, 1=ft)
	bra		TFT_display_stop_depth_m	; 0 - meter
	;bra	TFT_display_stop_depth_ft	; 1 - feet

TFT_display_stop_depth_ft:
	call	convert_meter_to_feet		; convert value in lo from meters to feet
	output_999							; output stop depth (0-999)
	return								; done

TFT_display_stop_depth_m:
	output_99							; output stop depth (0-99)
	STRCAT_TEXT tMeters					; append unit
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Ceiling, Supersaturation & Tissues - Mask
;
	global	TFT_ceiling_GF_tissue_mask
TFT_ceiling_GF_tissue_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_ceiling_column+.2,dm_custom_ceiling_title_row
	STRCPY_TEXT_PRINT tCeiling			; print label

	WIN_TINY dm_custom_tissue_title_column, dm_custom_tissue_title_row
	STRCPY_TEXT_PRINT tDiveTissues		; print label

	WIN_TINY dm_custom_gf_column1+.5, dm_custom_gf_title_row
	STRCPY_TEXT_PRINT tGFInfo			; print label

	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Ceiling, Supersaturation & Tissues - Data
;
	global	TFT_ceiling_GF_tissue
TFT_ceiling_GF_tissue:
	WIN_MEDIUM dm_custom_ceiling_column,dm_custom_ceiling_row
	MOVII	int_O_ceiling,mpr			; get ceiling in [mbar] relative pressure
	call	TFT_color_code_ceiling		; color-code the output (also strips off flags)
	call	convert_pres_to_depth		; convert pressure in [mbar] to depth in [cm]

	TSTOSS	opt_units						; 0=m, 1=ft
	bra		TFT_ceiling_GF_tissue_metric	; 0 - meter
	;bra	TFT_ceiling_GF_tissue_imperial	; 1 - feet

TFT_ceiling_GF_tissue_imperial:
	call	convert_cm_to_feet			; convert value in hi:lo from [cm] to [feet]
	output_999							; print (0-999)
	bra		TFT_ceiling_GF_tissue0		; continue

TFT_ceiling_GF_tissue_metric:
	bsf		omit_digit_1				; do not print 1st digit
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	bsf		leftbind					; print left-aligned
	output_65535						; print (xxx.x-)
	bra		TFT_ceiling_GF_tissue0		; continue

TFT_ceiling_GF_tissue0:
	PUTC_PRINT " "						; append a space and dump to screen
	; show tissue diagram
	rcall	TFT_dive_tissues			; show tissue pressure diagram
	; show current supersaturation
	WIN_MEDIUM dm_custom_clock_column+.3, dm_custom_gf_row
	MOVII	int_O_lead_supersat,mpr		; bank-safe copy of leading tissue's supersaturation
	call	TFT_color_code_supersat		; color-code output
	output_256							; need to print lo only, int_O_lead_supersat value is limited to 255
	PRINT								; dump to screen
	WIN_STD	dm_custom_clock_column+.40, dm_custom_gf_row+.5
	PUTC_PRINT "%"						; print "%" and dump to screen
	return								; done


	;-------------------------------------------------------------------------
	; Draw saturation graph in dive mode custom view
	;
TFT_dive_tissues:
	; draw outer frame
	movf	pallet_color_memo,W					; get color into WREG
	WIN_FRAME_COLOR dm_custom_tissue_diagram_top, dm_custom_tissue_diagram_bottom, dm_custom_tissue_diagram_left, .159 ; outer frame

	; clear area showing leading tissue number as it may not be printed over
	WIN_BOX_BLACK dm_custom_tissue_diagram_top+.16, dm_custom_tissue_diagram_top+.16+.10, dm_custom_tissue_diagram_left+.32, dm_custom_tissue_diagram_left+.32+.8 ; top, bottom, left, right

TFT_dive_tissues_1:
	; common initialization for tissue pressures and saturation
	movlw	.1
	movwf	win_height							; hight of the bargraph (0-239)
	movlw	dm_custom_tissue_diagram_left+.3	; get dive mode left start position
	movwf	win_leftx2							; set column left (0-159)
	movlw	.159-dm_custom_tissue_diagram_left-.4 ; get max width
	movwf	win_width+0							; set width (low byte)
	clrf	win_width+1							; high byte of with is always zero
	movlw	color_cyan							; color for tissues with decreasing pressure
	movwf	ex									; store in ex
	movlw	color_orange						; color for tissues with increasing pressure
	movwf	ul									; store in ul

	; draw combined or N2 tissue pressures
	lfsr	FSR2,char_O_tissue_pressure			; load base address of combined pressures by default
 IFDEF _helium
	btfsc	tissue_graphic_layout				; shall show N2+He ?
	lfsr	FSR2,char_O_tissue_pres_N2			; YES - load base address of N2 pressures
 ENDIF
	movlw	d'16'
	movwf	lo									; tissue counter, 16 tissues
	clrf	hi									; row    counter
TFT_dive_tissues_N2_loop:
	movlw	dm_custom_tissue_diagram_top+.3		; dive mode top start position N2
	rcall	TFT_dive_tissues_bargraph			; draw tissue bargraph
	incf	hi,F								; increment row counter
	decfsz	lo,F								; decrement tissue counter, done?
	bra		TFT_dive_tissues_N2_loop			; NO - loop
 IFDEF _helium
	btfsc	tissue_graphic_layout				; shall show N2+He ?
	bra		TFT_dive_tissues_3					; YES - show He tissue pressures
 ENDIF

	; draw tissue saturations
	lfsr	FSR2,char_O_tissue_saturation		; load base address of tissue supersaturation
	movlw	d'16'
	movwf	lo									; tissue counter, 16 tissues
	clrf	hi									; row    counter
	movlw	color_grey							; color for tissue saturation, alternative: color_lightblue
	movwf	ex									; store in ex
;	movlw	color_yellow						; 2nd color is not used by tissue saturation
;	movwf	ul									; ...
TFT_dive_tissues_sat_loop:
	movlw	dm_custom_tissue_diagram_top+.25	; dive mode top start position saturations
	rcall	TFT_dive_tissues_bargraph			; draw tissue bargraph
	incf	hi,F								; increment row counter
	decfsz	lo,F								; decrement tissue counter, done?
	bra		TFT_dive_tissues_sat_loop			; NO - loop

	; common part for vertical lines
	movlw	dm_custom_tissue_diagram_top+.25	; get top position
	movwf	win_top								; set top position (0-239)
	movlw	.15									; get hight
	movwf	win_height							; set height
	movlw	.1									; get width
	movwf	win_width+0							; set width, low  byte
	clrf	win_width+1							; set width, high byte

	; print 100% line
	movlw	dm_custom_tissue_diagram_left+.36	; get left position
	movwf	win_leftx2							; set left position (0-159)
	movlw	color_red							; color for 100% line
	BOX_COLOR									; draw line

	; GF factors enabled?
	btfss	tissue_graphic_gf					; shall show GF lines?
	bra		TFT_dive_tissues_4					; NO - continue with number of leading tissue

	; print GF low line
	movlw	dm_custom_tissue_diagram_left+.3	; get left base position
	movwf	win_leftx2							; set left base position (0-159)
	movff	char_I_GF_Low_percentage,WREG		; get GF low in 0.01 %
	mullw	.82									; multiply with 82
	movf	PRODH,W								; divide   by   256 -> resulting scale factor is 82/256 = 0.3203125
	addwf	win_leftx2,F						; add to base position
	movlw	color_green							; color for GF low line
	BOX_COLOR									; draw line

	; print GF high line
	movlw	dm_custom_tissue_diagram_left+.3	; get left base position
	movwf	win_leftx2							; set left base position (0-159)
	movff	char_I_GF_High_percentage,WREG		; get GF high in 0.01 %
	mullw	.82									; multiply with 82
	movf	PRODH,W								; divide   by   256 -> resulting scale factor is 82/256 = 0.3203125
	addwf	win_leftx2,F						; add to base position
	movlw	color_yellow						; color for GF high line
	BOX_COLOR									; draw line
	bra		TFT_dive_tissues_4					; continue with number of leading tissue

 IFDEF _helium
TFT_dive_tissues_3:
	; draw He tissues pressures
	lfsr	FSR2,char_O_tissue_pres_He			; load base address of He pressures
	movlw	dm_custom_tissue_diagram_left+.7	; get dive mode left start position for He bars
	movwf	win_leftx2							; set column left (0-159)
	movlw	.159-dm_custom_tissue_diagram_left-.8 ; get max width for He bars
	movwf	win_width+0							; set width (low byte)
	clrf	win_width+1							; ...
	movlw	d'16'
	movwf	lo									; tissue counter, 16 tissues
	clrf	hi									; row    counter
TFT_dive_tissues_He_loop:
	movlw	dm_custom_tissue_diagram_top+.25	; dive mode top start position H2
	rcall	TFT_dive_tissues_bargraph			; draw tissue bargraph
	incf	hi,F								; increment row counter
	decfsz	lo,F								; decrement tissue counter, done?
	bra		TFT_dive_tissues_He_loop			; NO  - loop
 ENDIF

TFT_dive_tissues_4:
	; print number of leading tissue	; TODO: some flicker due to overwriting by tissue bars
	movff	int_O_lead_supersat+0,WREG	; get current leading tissue's supersaturation (only low byte used for value)
	tstfsz	WREG						; current supersaturation = 0 ?
	bra		TFT_dive_tissues_5			; NO  - print number of leading tissue
	movff	char_O_deco_info,WREG		; YES - get deco info vector
	btfss	WREG,deco_ceiling			;     - do we have a ceiling obligation?
	return								;       NO  - can ascent directly, don't print number, set standard color and return
										;       YES - print number of leading tissue
TFT_dive_tissues_5:
	movff	char_O_lead_tissue,lo		; get number of leading tissue as 0-15
	incf	lo,F						; adjust to 1-16
	movlw	.10
	cpfsgt	lo							; is it > 10 ?
	bra		TFT_dive_tissues_6			; NO - will output a single digit number
	; start position for a 2 digit number
	WIN_TINY dm_custom_tissue_diagram_left+.32,dm_custom_tissue_diagram_top+.10
	bra		TFT_dive_tissues_7
TFT_dive_tissues_6:
	; start position for a 1 digit number
	WIN_TINY dm_custom_tissue_diagram_left+.32+.4,dm_custom_tissue_diagram_top+.10
TFT_dive_tissues_7:
	FONT_COLOR_MEMO						; set output color
	bsf		leftbind					; print left-aligned
	output_99							; print tissue number (0-99)
	PRINT								; dump buffer to screen
	return								; done


	; Helper Function - draw a bargraph
TFT_dive_tissues_bargraph:
	addwf	hi,W						; add row number to start position
	movwf	win_top						; set as row top (0-239)
	movff	POSTINC2,up					; get tissue value
	movf	ex,W						; default color
	btfsc	up,7						; check if flag in bit 7 is set
	movf	ul,W						; YES - switch to 2nd color
	bcf		up,7						; clear flag  bit
	bcf		STATUS,C					; clear carry bit
	rrcf	up,F						; divide by 2
	movff	up,win_bargraph				; set bargraph length
	incf	win_bargraph,F				; add a bit for a minimum visible bar
	BOX_COLOR							; draw bargraph
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - CNS - Mask
;
	global	TFT_CNS_mask
TFT_CNS_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_cns3_column1, dm_custom_cns3_title_row
	STRCPY_TEXT_PRINT tCNSsurf			; print label

	WIN_TINY dm_custom_cns3_column2, dm_custom_cns3_title_row

 IFDEF _cave_mode
	btfss	cave_mode					; cave mode switched on?
	bra		TFT_CNS_mask_col2			; NO
	STRCPY_TEXT_PRINT tCNScave			; YES - print cave TTS label
	bra		TFT_CNS_mask_col3			;     - continue with 3rd column
 ENDIF

TFT_CNS_mask_col2:
	btfsc	FLAG_oc_mode				; in OC mode?
	bra		TFT_CNS_mask_ftts			; YES - print fTTS label
	btfsc	bailout_mode				; NO  - in bailout?
	bra		TFT_CNS_mask_ftts			;       YES - print fTTS label (label will be printed, but a fTTS will actually not be calculated)
	TSTOSS	opt_calc_gasvolume			;       NO  - bailout volume calculation requested?
	bra		TFT_CNS_mask_ftts			;             NO  - print fTTS label
	;bra	TFT_CNS_mask_bo				;             YES - print bailout label

TFT_CNS_mask_bo:
	STRCPY_TEXT_PRINT tCNSBO			; print bailout label
	bra		TFT_CNS_mask_col3			; continue with 3rd column

TFT_CNS_mask_ftts:
	STRCPY_TEXT_PRINT tCNSfTTS			; print fTTS label
	;bra	TFT_CNS_mask_col3			; continue with 3rd column

TFT_CNS_mask_col3:
	WIN_TINY dm_custom_cns3_column3, dm_custom_cns3_title_row
	STRCPY_TEXT_PRINT tCNSnow			; print CNS now label
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - CNS - Data
;
	global	TFT_CNS
TFT_CNS:
	; CNS at end of normal dive
	WIN_STD dm_custom_cns3_column1+.3,dm_custom_cns3_row
	MOVII	int_O_CNS_norm,mpr			; get CNS at end of dive in normal plan
	call	TFT_color_code_cns			; color-code the CNS value
	bsf		leftbind					; print left-aligned
	output_999							; print (0-999)
	STRCAT_PRINT "% "					; append unit and trailing space and dump to screen
	; fTTS / Bailout CNS, if enabled
	WIN_STD dm_custom_cns3_column2+.2,dm_custom_cns3_row
	btfsc	bailout_mode				; in bailout?
	bra		TFT_CNS_3					; YES - show "---"
	TSTOSS	opt_calc_gasvolume			; NO  - bailout volume calculation requested?
	bra		TFT_CNS_1					;       NO  - continue checking fTTS extra time
	btfss	FLAG_oc_mode				;       YES - in OC mode?
	bra		TFT_CNS_2					;             NO  - show CNS%
	;bra	TFT_CNS_1					;             YES - continue checking fTTS extra time

TFT_CNS_1:
	; not in bailout, no volume calculation, and/or in OC mode
	TSTOSS	char_I_extra_time			; fTTS extra time configured?
	bra		TFT_CNS_3					; NO  - show "---"
	;bra	TFT_CNS_2					; YES - show CNS%

TFT_CNS_2:
	MOVII	int_O_CNS_alt,mpr			; get CNS at end of dive in alternative plan
	call	TFT_color_code_cns			; color-code the CNS value
	bsf		leftbind					; print left-aligned
	output_999							; print (0-999)
	STRCAT_PRINT "% "					; append unit and trailing space and dump to screen
	bra		TFT_CNS_4					; continue

TFT_CNS_3:
 IFDEF _cave_mode
	btfss	cave_mode					; cave mode switched on?
	bra		TFT_CNS_3a					; NO  - show dashes
	btfsc	backtrack_entire_full		; YES - cave mode shut down due to storage fully used up?
	bra		TFT_CNS_3a					;       YES - show dashes
	btfss	dive_turned					;       NO  - dive turned?
	bra		TFT_CNS_2					;             NO  - show cave CNS
	;bra	TFT_CNS_3a					;             YES - show dashes
 ENDIF

TFT_CNS_3a:
	FONT_COLOR_MEMO						; select color
	STRCPY_PRINT "---  "				; print non-avail symbol
	;bra	TFT_CNS_4					; continue

TFT_CNS_4:
	; current CNS
	WIN_STD dm_custom_cns3_column3+.3,dm_custom_cns3_row
	MOVII	int_O_CNS_current,mpr		; get current CNS
	call	TFT_color_code_cns			; color-code the CNS value
	bsf		leftbind					; print left-aligned
	output_999							; print (0-999)
	PUTC_PRINT "%"						; append unit and dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - ppO2, EAD/END & Gas Density - Mask
;
	global TFT_ppo2_ead_end_cns_mask
TFT_ppo2_ead_end_cns_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_ppo2_column-.2,dm_custom_ppo2_title_row
	STRCPY_TEXT_PRINT tppO2				; print label

	WIN_TINY dm_custom_ead_column,dm_custom_eadend_title_row
	STRCPY_TEXT_PRINT tDiveEAD_END		; print label

 IFDEF _ccr_pscr
	WIN_TINY dm_custom_cns_column-.5,dm_custom_eadend_title_row
	STRCPY_TEXT_PRINT tGasDensity		; print label
 ELSE
	WIN_TINY dm_custom_cns_column,dm_custom_cns_title_row
	STRCPY_TEXT_PRINT tCNS2				; print label
 ENDIF

	return								; done



;-----------------------------------------------------------------------------
; Dive Custom View - ppO2, EAD/END & Gas Density - Data
;
	global	TFT_ppo2_ead_end_cns
TFT_ppo2_ead_end_cns:
	; show ppO2
	WIN_MEDIUM dm_custom_ppo2_column, dm_custom_ppo2_row
	MOVII	int_O_breathed_ppO2,mpr		; copy ppO2 of the currently breathed gas to hi:lo
	call	TFT_color_code_ppo2			; color-code output
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_999							; print ppO2 (0.00-9.99)
	PRINT								; dump to screen
	; show END/EAD
	FONT_COLOR_MEMO						; select color
	WIN_SMALL	dm_custom_ead_column, dm_custom_ead_row
	STRCPY_TEXT tEAD					; print "EAD:"
	MOVII	int_O_EAD_pres,mpr			; copy EAD in [mbar] to MPR
	rcall	TFT_end_ead_common			; convert to depth, print and limit to 8 chars
	WIN_SMALL dm_custom_end_column, dm_custom_end_row
	STRCPY_TEXT tEND					; print "END:"
	MOVII	int_O_END_pres,mpr			; copy END in [mbar] to MPR
	rcall	TFT_end_ead_common			; convert to depth, print and limit to 8 chars
 IFDEF _helium
	; show gas density
	WIN_MEDIUM	dm_custom_cns_column-.5, dm_custom_cns_row
	MOVII	int_O_gas_density,mpr		; get current gas density
	call	TFT_color_code_cns			; color-code output
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_999							; print (0.00-9.99)
	PRINT								; dump to screen
 ELSE
	; show CNS
	WIN_STD	dm_custom_cns_column+.3, dm_custom_cns_row
	MOVII	int_O_CNS_current,mpr		; get current CNS
	call	TFT_color_code_cns			; color-code CNS output
	bsf		leftbind					; print left-aligned
	output_999							; print (0-999)
	PUTC_PRINT "%"						; append unit and dump buffer to screen
 ENDIF
	return								; done


	; Helper Function - convert to depth, print and limit to 8 chars
TFT_end_ead_common:
	call	convert_pres_to_depth		; convert pressure in [mbar] to depth in [cm]
	TSTOSS	opt_units					; 0=Meter, 1=Feet
	bra		TFT_end_ead_common_metric	; 0: meter
	;bra	TFT_end_ead_common_imperial	; 1: feet

TFT_end_ead_common_imperial:
	call	convert_cm_to_feet			; convert depth in [cm] to depth in [feet]
	output_999							; print (0-999)
	PRINT								; dump buffer to screen
	return								; done

TFT_end_ead_common_metric:
	bsf		omit_digit_2				; do not print 2nd and 1st digit
	output_65535						; print (0xx-655xx)
	PUTC_PRINT 'm'						; append unit and dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - GF Factors (Mask only)
;
	global	TFT_gf_factors_mask
TFT_gf_factors_mask:
	FONT_COLOR_MASK						; select color

	; show labels
	WIN_TINY dm_custom_gf_column1,dm_custom_gf_title_row
	STRCPY_TEXT_PRINT tGFactors
	WIN_TINY dm_custom_gf_column3,dm_custom_gf_title_row
	STRCPY_TEXT_PRINT taGFactors

	; show GF (static)
	WIN_STD	dm_custom_gf_column1, dm_custom_gf_row
	FONT_COLOR_DISABLED					; default to disabled color
	btfss	use_aGF						; shall use alternative GF factors?
	FONT_COLOR_MEMO						; NO - switch to memo color
	movff	opt_GF_low, lo				; get   normal GF low
	movff	opt_GF_high,hi				; get   normal GF high
	rcall	TFT_gf_factors_mask_helper	; print GFs

	; show aGF (static)
	FONT_COLOR_MEMO						; select memo color
	TSTOSS	opt_enable_aGF				; are alternative GF factors enabled?
	bra		TFT_gf_factors_mask_3		; NO  - show "---" and return
	; bra	TFT_gf_factors_mask_0		; YES - show arrow

TFT_gf_factors_mask_0:
	WIN_STD	dm_custom_gf_column2, dm_custom_gf_row
	btfss	use_aGF						; shall use aGF?
	bra		TFT_gf_factors_mask_1L		; NO   - print "<- "
	;bra	TFT_gf_factors_mask_1R		; YES  - print " ->"

TFT_gf_factors_mask_1R:
	STRCPY_PRINT " ->"					; print " ->"
	bra		TFT_gf_factors_mask_2		; continue

TFT_gf_factors_mask_1L:
	STRCPY_PRINT "<- "					; print "<- "
	;bra	TFT_gf_factors_mask_2		; continue

TFT_gf_factors_mask_2:
	WIN_STD	dm_custom_gf_column3, dm_custom_gf_row
	;FONT_COLOR_MEMO						; select memo color (still selected)
	btfss	use_aGF						; shall use aGF?
	FONT_COLOR_DISABLED					; NO - switch to disabled color
	movff	opt_aGF_low, lo				; get aGF low
	movff	opt_aGF_high,hi				; get aGF high
	rcall	TFT_gf_factors_mask_helper	; print GFs
	return								; done

TFT_gf_factors_mask_3:
	WIN_STD	dm_custom_gf_column3+.10, dm_custom_gf_row
	STRCPY_PRINT "---"					; print not-avail symbol
	return								; done

	; Helper Function - print GF pair
TFT_gf_factors_mask_helper:
	output_256							; print GF low  (0-255)
	PUTC	"/"							; print "/"
	movff	hi,lo						; get   GF high
	output_256							; print GF high (0-255)
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Clock, Battery & Surface Pressure - Mask
;
	global	TFT_clock_batt_surfpress_mask
TFT_clock_batt_surfpress_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_clock_column, dm_custom_clock_title_row
	STRCPY_TEXT_PRINT tTime				; "Time"

	WIN_TINY dm_custom_battery_column, dm_custom_battery_title_row
	STRCPY_TEXT_PRINT tBattery			; "Battery"

	WIN_TINY dm_custom_surfpres_column+.8, dm_custom_surfpres_title_row
	STRCPY_TEXT_PRINT tSurface			; "Surface"

	; show configured surface pressure (done in mask, because it's static during the dive)
	WIN_SMALL dm_custom_surfpres_column, dm_custom_surfpres_row
	FONT_COLOR_MEMO						; select color
	MOVII	pressure_surf,mpr			; get surface pressure
	output_65535						; print (5 digits, first one used as spacer)
	PUTC	' '							; print a space
	STRCAT_TEXT_PRINT tMBAR				; append unit and dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Clock, Battery & Surface Pressure - Data
;
	global	TFT_clock_batt_surfpress
TFT_clock_batt_surfpress:
	; update clock
	WIN_SMALL dm_custom_clock_column, dm_custom_clock_row
	FONT_COLOR_MEMO						; select color
	SMOVSS	rtc_year,rtc_latched_year	; ISR-safe 6 byte copy of date and time
	TSTOSS	opt_timeformat					; =1: Use 12h format
	bra	TFT_clock_batt_surfpress24			; <>1: Use 24h format
	; 12h Format
	movff	rtc_latched_hour,lo				; get   hours
	call	TFT_convert_lo_into_12h_format			; converts lo (0-23h) into lo (1-12) and sets aux_flag for PM/AM
	output_99							; print hours (0-99)
	movlw	':'							; load a ":"
	movff	rtc_latched_secs,lo			; get seconds
	btfss	lo,0						; on even second?
	movlw	' '							; NO - load a space char
	movwf	POSTINC2					; print ":" or space char
	movff	rtc_latched_mins,lo			; get   minutes
	output_99x							; print minutes (00-99)
	btfsc	aux_flag					; =1 for PM
	bra	TFT_clock_batt_surfpress_PM
	STRCAT_PRINT "AM"
	bra	TFT_clock_batt_surfpress_batt				; done
TFT_clock_batt_surfpress_PM:	
        STRCAT_PRINT "PM"
	bra	TFT_clock_batt_surfpress_batt				; done
TFT_clock_batt_surfpress24:
	movff	rtc_latched_hour,lo			; get   hours
	output_99							; print hours (0-99)
	PUTC	':'							; print ":"
	movff	rtc_latched_mins,lo			; get   minutes
	output_99x							; print minutes (00-99)
	PUTC	":"							; print ":"
	movff	rtc_latched_secs,lo			; get   seconds
	output_99x							; print seconds (00-99)
	PRINT								; dump to screen
TFT_clock_batt_surfpress_batt:
	; show battery voltage
	WIN_SMALL dm_custom_battery_column, dm_custom_battery_volt_row
	;FONT_COLOR_MEMO						; select color
	MOVII	batt_voltage,mpr			; get voltage
	bsf		decimal_digit3				; place a decimal point in front of digit 3
	bsf		omit_digit_1				; do not print 1st digit 
	output_9999							; print voltage (0.00x-9.99x)
	PUTC_PRINT 'V'						; append unit and dump to screen

	; show battery percent
	WIN_SMALL dm_custom_battery_column+.7, dm_custom_battery_percent_row
	call	TFT_color_code_battery		; color-code according to battery_low_condition flag
	movff	batt_percent,lo				; get   battery %
	output_256							; print battery % (0-999)
	PUTC_PRINT "%"						; append unit and dump to screen

	; surface pressure is shown via the mask because it is static
	return								; done


 IFDEF _ccr_pscr

;-----------------------------------------------------------------------------
; Dive Custom View - Sensor Check - Mask
;
	global	TFT_sensor_check_mask
TFT_sensor_check_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_s_check_title_column, dm_custom_s_check_title_row
	STRCPY_TEXT_PRINT tSensorCheck		; print label

	WIN_TINY dm_custom_ppO2_column, dm_custom_s_check_title_row
	STRCPY_TEXT_PRINT tppO2O2			; print label

	WIN_TINY dm_custom_ppDil_column, dm_custom_s_check_title_row
	STRCPY_TEXT_PRINT tppO2Dil			; print label

	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Sensor Check - Data
;
	global	TFT_sensor_check
TFT_sensor_check:
	; show ppO2 of O2 in this depth
	WIN_MEDIUM dm_custom_ppO2_column, dm_custom_s_check_row
	MOVII	int_O_O2_ppO2,mpr			; copy ppO2 of pure O2 to hi:lo
	rcall	TFT_sensor_check_helper		; print ppO2
	; show ppO2 of the diluent in this depth
	WIN_MEDIUM	dm_custom_ppDil_column, dm_custom_s_check_row
	MOVII	int_O_pure_ppO2,mpr			; copy ppO2 of pure gas to hi:lo
	rcall	TFT_sensor_check_helper		; print ppO2
	return								; done

TFT_sensor_check_helper:
	call	TFT_color_code_ppo2			; color-code output
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_999							; print ppO2 (0.00-9.99)
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - pSCR Info - Mask
;
	global	TFT_pscr_info_mask
TFT_pscr_info_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_pscr_drop_column, dm_custom_pscr_title_row
	STRCPY_TEXT_PRINT tPSCR_O2_drop		; print label

	WIN_TINY dm_custom_pscr_ratio_column, dm_custom_pscr_title_row
	STRCPY_TEXT_PRINT tPSCR_lungratio	; print label

	WIN_TINY dm_custom_ppo2_column-.2,dm_custom_ppo2_title_row
	btfsc	bailout_mode				; in bailout?
	bra		TFT_pscr_info_mask_2		; YES
	;bra	TFT_pscr_info_mask_1		; NO

TFT_pscr_info_mask_1:
	STRCPY_TEXT_PRINT tppO2Mix			; print "ppO2(Mix)"
	return								; done

TFT_pscr_info_mask_2:
	STRCPY_TEXT_PRINT tppO2				; print "ppO2"
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - pSCR Info - Data
;
	global	TFT_pscr_info
TFT_pscr_info:
	;show ppO2
	WIN_MEDIUM dm_custom_ppo2_column,dm_custom_ppo2_row
	MOVII	int_O_pSCR_ppO2,mpr			; copy pSCR ppO2 to hi:lo
	call	TFT_color_code_ppo2			; color-code output
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_999							; print ppO2 (0.00-9-99)
	PRINT								; dump to screen
	; show drop
	WIN_STD dm_custom_pscr_drop_column+.11,dm_custom_pscr_row
	FONT_COLOR_MEMO						; select color
	movff	char_I_PSCR_drop,lo			; get   drop
	output_99							; print drop (0-99)
	PUTC_PRINT "%"						; append unit and dump to screen
	; show lung ratio
	WIN_STD	dm_custom_pscr_ratio_column+.5,dm_custom_pscr_row
	;FONT_COLOR_MEMO						; select color
	movff	char_I_PSCR_lungratio,lo	; get ratio
	STRCPY	"1/"						; print "1/"
	bsf		leftbind					; print left-aligned
	output_256							; print ratio number (0-256)
	PRINT								; dump to screen
	return								; done

 ENDIF	; _ccr_psrc

 IFDEF _external_sensor

;-----------------------------------------------------------------------------
; Dive Custom View - Sensor ppO2 - Mask
;
	global	TFT_ppo2_sensors_mask
TFT_ppo2_sensors_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_hud_sensor1_column+.4,dm_custom_hud_title_row
	STRCPY_TEXT_PRINT tDiveHudMask1		; print label

	WIN_TINY dm_custom_hud_sensor2_column+.3,dm_custom_hud_title_row
	STRCPY_TEXT_PRINT tDiveHudMask2		; print label

	WIN_TINY dm_custom_hud_sensor3_column+.2,dm_custom_hud_title_row
	STRCPY_TEXT_PRINT tDiveHudMask3		; print label

	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Sensor ppO2 - Data
;
; Definition of the output:
;
;  sensorX       use        voting         o2
; _calibrated    _O2       _logic        _ppo2          Output           Color
;    _ok      _sensorX    _sensorX     _sensorX
;-----------------------------------------------------------------------------------------------
;    0          -/-          -/-            -/-         "----"           memo
;    1           0           -/-            = 0         o2_ppo2_sensorX  attention
;    1           0           -/-            > 0         o2_ppo2_sensorX  disabled
;    1           1            0             -/-         o2_ppo2_sensorX  TFT_color_code_ppo2_hud + win_invert
;    1           1            1             -/-         o2_ppo2_sensorX  TFT_color_code_ppo2_hud
;
	global	TFT_ppo2_sensors
TFT_ppo2_sensors:

	; sensor 1
TFT_ppo2_sensors_1:
	btfsc	sensor1_calibrated_ok		; valid calibration?
	bra		TFT_ppo2_sensors_1b			; YES
	btfsc	sensor1_active				; NO - valid HUD data for this sensor?
	bra		TFT_ppo2_sensors_1b			;      YES
	;bra	TFT_ppo2_sensors_1a			;      NO

TFT_ppo2_sensors_1a:
	; no valid calibration
	WIN_STD dm_custom_hud_sensor1_column+.7, dm_custom_hud_row+.5
	FONT_COLOR_MEMO						; set color
	STRCPY_PRINT "---"					; print dashes
	bra		TFT_ppo2_sensors_2			; continue with sensor 2

TFT_ppo2_sensors_1b:
	; sensor has a valid calibration
	WIN_MEDIUM dm_custom_hud_sensor1_column,dm_custom_hud_row
	movff	sensor1_ppO2,lo				; load ppO2 value into transfer storage for output
	btfsc	use_O2_sensor1				; in use?
	bra		TFT_ppo2_sensors_1d			; YES
	tstfsz	lo							; NO  - sensor value = 0 ?
	bra		TFT_ppo2_sensors_1c			;       NO
	FONT_COLOR_ATTENTION				;       YES - set attention color
	bra		TFT_ppo2_sensors_1e			;           - print ppO2 value

TFT_ppo2_sensors_1c:
	; sensor has valid calibration, is not in use and has a value > 0
	FONT_COLOR_DISABLED					; set disabled color
	bra		TFT_ppo2_sensors_1e			; print ppO2 value

TFT_ppo2_sensors_1d:
	; sensor has valid calibration and is in use
	call	TFT_color_code_ppo2_hud		; color-code with ppO2 [cbar] in lo
	btfsc	voting_logic_sensor1		; sensor value agrees with values of other sensors?
	bra		TFT_ppo2_sensors_1e			; YES
	bsf		win_invert					; NO  - invert output
	;bra	TFT_ppo2_sensors_1e			; print ppO2 value

TFT_ppo2_sensors_1e:
	; all coloring is set up now, let's write the value to the display!
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_256							; print (0.00-2.55)
	PRINT								; dump to screen

	; sensor 2
TFT_ppo2_sensors_2:
	btfsc	sensor2_calibrated_ok		; valid calibration?
	bra		TFT_ppo2_sensors_2b			; YES
	btfsc	sensor2_active				; NO  - valid HUD data for this sensor?
	bra		TFT_ppo2_sensors_2b			;       YES
	;bra	TFT_ppo2_sensors_2a			;       NO

TFT_ppo2_sensors_2a:
	; no valid calibration
	WIN_STD dm_custom_hud_sensor2_column+.7, dm_custom_hud_row+.5
	FONT_COLOR_MEMO						; set color
	STRCPY_PRINT "---"					; print dashes
	bra		TFT_ppo2_sensors_3			; continue with sensor 3

TFT_ppo2_sensors_2b:
	; sensor has a valid calibration
	WIN_MEDIUM dm_custom_hud_sensor2_column,dm_custom_hud_row
	movff	sensor2_ppO2,lo				; load ppO2 value into transfer storage for output
	btfsc	use_O2_sensor2				; in use?
	bra		TFT_ppo2_sensors_2d			; YES
	tstfsz	lo							; NO  - sensor value = 0?
	bra		TFT_ppo2_sensors_2c			;       NO
	FONT_COLOR_ATTENTION				;       YES - print in attention color
	bra		TFT_ppo2_sensors_2e			;           - print ppO2 value

TFT_ppo2_sensors_2c:
	; sensor has valid calibration, is not in use and has a value > 0
	FONT_COLOR_DISABLED					; output in light blue
	bra		TFT_ppo2_sensors_2e			; print ppO2 value

TFT_ppo2_sensors_2d:
	; sensor has valid calibration and is in use
	call	TFT_color_code_ppo2_hud		; color-code with ppO2 [cbar] in lo
	btfsc	voting_logic_sensor2		; sensor value agrees with values of other sensors?
	bra		TFT_ppo2_sensors_2e			; YES
	bsf		win_invert					; NO  - invert output
	;bra	TFT_ppo2_sensors_2e			;     - print ppO2 value

TFT_ppo2_sensors_2e:
	; all coloring is set up now, let's write the value to the display!
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_256							; print (0.00-2.55)
	PRINT								; dump to screen

	; sensor 3
TFT_ppo2_sensors_3:
	btfsc	sensor3_calibrated_ok		; valid calibration?
	bra		TFT_ppo2_sensors_3b			; YES
	btfsc	sensor3_active				; NO - valid HUD data for this sensor?
	bra		TFT_ppo2_sensors_3b			;      YES
	;bra	TFT_ppo2_sensors_3a			;      NO

TFT_ppo2_sensors_3a:
	WIN_STD dm_custom_hud_sensor3_column+.7, dm_custom_hud_row+.5
	FONT_COLOR_MEMO						; set color
	STRCPY_PRINT "---"					; print dashes
	bra		TFT_ppo2_sensors_4			; done

TFT_ppo2_sensors_3b:
	; sensor has a valid calibration
	WIN_MEDIUM dm_custom_hud_sensor3_column,dm_custom_hud_row
	movff	sensor3_ppO2,lo				; load ppO2 value into transfer storage for output
	btfsc	use_O2_sensor3				; in use?
	bra		TFT_ppo2_sensors_3d			; YES
	tstfsz	lo							; NO  - sensor value = 0?
	bra		TFT_ppo2_sensors_3c			;       NO
	FONT_COLOR_ATTENTION				;       YES - print in attention color
	bra		TFT_ppo2_sensors_3e			;           - print ppO2 value

TFT_ppo2_sensors_3c:
	; sensor has valid calibration, is not in use and has a value > 0
	FONT_COLOR_DISABLED					; print in disabled color
	bra		TFT_ppo2_sensors_3e			; print ppO2 value

TFT_ppo2_sensors_3d:
	; sensor has valid calibration and is in use
	call	TFT_color_code_ppo2_hud		; color-code with ppO2 [cbar] in lo
	btfsc	voting_logic_sensor3		; sensor value agrees with values other sensors?
	bra		TFT_ppo2_sensors_3e			; YES
	bsf		win_invert					; NO  - invert output
	;bra	TFT_ppo2_sensors_3e			;     - print ppO2 value

TFT_ppo2_sensors_3e:
	; all coloring is set up now, let's write the value to the display!
	bsf		decimal_digit2				; place a decimal point in front of digit 2
	output_256							; print (0.00-2.55)
	PRINT								; dump to screen

TFT_ppo2_sensors_4:
	return								; done

 ENDIF	; _external_sensor

 IFDEF _rx_functions

;-----------------------------------------------------------------------------
; Dive Custom View - Pressures & SAC - Mask
;
	global	TFT_pressures_SAC_mask
TFT_pressures_SAC_mask:
	FONT_COLOR_MASK						; select color

	; pressure reading 1
	WIN_TINY dm_custom_tankdata_pres1_col, dm_custom_tankdata_mask_row
	movff	char_I_pressure_gas+0,WREG	; =0: disabled, =1..10: gases/dils
	bcf		aux_flag					; selector for disabled / need set to disabled
	rcall	TFT_pressures_SAC_mask_h1	; print gas composition or " ---" if disabled

	; pressure reading 2
	WIN_TINY dm_custom_tankdata_pres2_col, dm_custom_tankdata_mask_row
	movff	char_I_pressure_gas+1,WREG	; =0: need to reading 1, =1..10: gases/dils
	bsf		aux_flag					; selector for disabled / need set to need
	rcall	TFT_pressures_SAC_mask_h1	; print gas composition or "Need " if 0

	; SAC rate
	WIN_TINY dm_custom_tankdata_SAC_col, dm_custom_tankdata_mask_row
	STRCPY_TEXT tSAC					; "SAC
	STRCAT	" ("						;      (
	STRCAT_TEXT tLitersMinute			;       l/min
	PUTC_PRINT ")"						;            )"
	return								; done


	; Helper Function - print gas composition or " ---" if disabled
TFT_pressures_SAC_mask_h1:
	tstfsz	WREG						; pressure reading assigned?
	bra		TFT_pressures_SAC_mask_h2	; YES - print gas composition
	btfsc	aux_flag					; NO  - check auxiliary flag
	bra		TFT_pressures_SAC_mask_h3	;       1 - print "Need "
	STRCAT_PRINT "    ---"				;       0 - print "    ---"
	return								;         - done

TFT_pressures_SAC_mask_h2:
	decf	WREG,W						; (1..10) -> (0..9)
	bsf		short_gas_descriptions		; just "Air", "O2" or "xx/yy"
	call	gaslist_strcat_mix_WREG		; print composition of gas/dil in WREG (0..9)
	bra		TFT_pressures_SAC_mask_h4	; finish with adding "(bar)"

TFT_pressures_SAC_mask_h3:
	STRCPY_TEXT tNeed					; "Need"
	;bra	TFT_pressures_SAC_mask_h4 ; finish with adding "(bar)"

TFT_pressures_SAC_mask_h4:
	STRCAT_PRINT "(bar)"				; print "(bar)"
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Pressures & SAC - Data
;
	global	TFT_pressures_SAC
TFT_pressures_SAC:
	; check mode for second reading
	bcf		aux_flag					; clear auxiliary flag by default (reading 2 is pressure)
	movff	char_I_pressure_gas+1,WREG	; =0: need to reading 1, =1..10: gases/dils
	addlw	.0							; dummy operation to set status register flags
	btfsc	STATUS,Z					; gas selected = 0 (i.e. no 2nd pressure reading) ?
	bsf		aux_flag					; YES - set auxiliary flag (display position of reading 2 shall show need to reading 1)
	; get data of reading 1
	movff	int_IO_pressure_value+0,lo	; copy pressure 1 to hi:lo
	movff	int_IO_pressure_value+1,hi	; ...
	movff	char_I_pressure_stat+0,ex	; copy status data
	; pressure of reading 1
	WIN_STD dm_custom_tankdata_pres1_col+.4,dm_custom_tankdata_row
	rcall	TFT_pressures_SAC_helper_1	; print pressure if available, else " ---"
	; battery status of reading 1
	WIN_SMALL dm_custom_hud_sensor1_column+.4+.36,dm_custom_tankdata_row
	rcall	TFT_pressures_SAC_helper_2	; print or clear down arrow as low bat indicator
	; get data for reading 2
	btfsc	aux_flag					; shall reading 2 show need to reading 1 ?
	bra		TFT_pressures_SAC_1			; YES
	movff	int_IO_pressure_value+2,lo	; NO  - copy pressure 2 to hi:lo
	movff	int_IO_pressure_value+3,hi	;     - ...
	movff	char_I_pressure_stat+1,ex	;     - copy status data
	bra		TFT_pressures_SAC_2			;     - continue

TFT_pressures_SAC_1:
	MOVII	int_O_pressure_need,mpr		; copy need to pressure 1 to hi:lo
	clrf	ex							; set status data to 0
	bra		TFT_pressures_SAC_2			; continue

TFT_pressures_SAC_2:
	; pressure of reading 2
	WIN_STD dm_custom_tankdata_pres2_col+.2,dm_custom_tankdata_row
	rcall	TFT_pressures_SAC_helper_1	; print pressure if available, else " ---"
	; battery status of reading 2
	WIN_SMALL dm_custom_tankdata_pres2_col+.2+.36,dm_custom_tankdata_row
	rcall	TFT_pressures_SAC_helper_2	; print or clear down arrow as low bat indicator

TFT_pressures_SAC_3:
	; SAC
	WIN_STD dm_custom_tankdata_SAC_col+.6,dm_custom_tankdata_row
	MOVII	int_O_SAC_measured,mpr		; copy measured SAC rate to hi:lo
	btfsc	hi,int_not_avail_flag		; SAC rate available?
	bra		TFT_pressures_SAC_4			; NO - print " --.-"
	call	TFT_color_code_pres_sac		; color-code the output
	bsf		decimal_digit1				; place a decimal point in front of digit 1
	output_999							; print (0.0-99.9)
	PRINT								; dump to screen
	return								; done

TFT_pressures_SAC_4:
	FONT_COLOR_DISABLED					; set color
	STRCAT_PRINT "--.-"					; output for no SAC data available
	return								; done


	; Helper Function - print pressure if available, else " ---"
TFT_pressures_SAC_helper_1:
	btfss	hi,int_not_avail_flag		; pressure available?
	bra		TFT_pressures_SAC_helper_1a	; YES - print pressure
	FONT_COLOR_DISABLED					; NO  - use disabled color as default
;	btfsc	ex,char_transmitter_lost	;     - transmitter lost?
;	FONT_COLOR_ATTENTION				;       YES - use attention color
	STRCAT_PRINT " ---"					;     - print " ---"
	return

TFT_pressures_SAC_helper_1a:
	btfsc	hi,int_warning_flag			; out of range (signaled by warning flag)?
	bra		TFT_pressures_SAC_helper_1c	; YES - special treatment
	call	TFT_color_code_pres_sac		; NO  - color-code the output
	PUTC	' '							;     - add a space
	bsf		omit_digit_1				;     - do not print 1st digit (0.1 bar)
	output_999							;     - print pressure (0x-999x)
	PRINT								;     - dump buffer to screen
	return								;     - done

TFT_pressures_SAC_helper_1c:
	call	TFT_color_code_pres_sac		; color-code the output
	STRCPY_PRINT ">400"					; print ">400"
	return								; done


	; Helper Function - print or clear down arrow as low bat indicator
TFT_pressures_SAC_helper_2:
	btfss	ex,char_transmitter_low_bat	; low battery flag set?
	bra		TFT_pressures_SAC_helper_2b	; NO  - clear down arrow (low bat indicator)
	;bra	TFT_pressures_SAC_helper_2a	; YES - show  down arrow (low bat indicator)

TFT_pressures_SAC_helper_2a:
	FONT_COLOR_ATTENTION				; use attention color
	STRCPY_PRINT "\xb8"					; print down arrow as bat low indication
	return								; done

TFT_pressures_SAC_helper_2b:
	STRCPY_PRINT " "					; wipe out down arrow (low bat indicator)
	return								; done

 ENDIF _rx_functions

 IFDEF _cave_mode

;-----------------------------------------------------------------------------
; Dive Custom View - Cave Mode TTS, total Stops and Run Time - Mask
;

	global	TFT_cave_tts_mask
TFT_cave_tts_mask:
	FONT_COLOR_MASK						; select color

	WIN_TINY dm_custom_cave_title_column1,dm_custom_cave_title_row
	STRCPY_TEXT_PRINT tCaveStops		; print label

	WIN_TINY dm_custom_cave_title_column2,dm_custom_cave_title_row
	STRCPY_TEXT_PRINT tCaveTTS			; print label

	WIN_TINY dm_custom_cave_title_column3,dm_custom_cave_title_row
	STRCPY_TEXT_PRINT tCaveRuntime		; print label

	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Cave Mode TTS, total Stops and Run Time - Data
;
	global	TFT_cave_tts
TFT_cave_tts:
	; total time of all stops
	WIN_MEDIUM dm_custom_cave_data_column1,dm_custom_cave_data_row
	FONT_COLOR_MEMO						; set default color
	btfss	cave_mode					; cave mode switched on?
	bra		TFT_cave_1b					; NO  - print dashes
	MOVII	int_O_TST_norm,mpr			; YES - get normal plan total stops time
	btfss	mpr+1,int_not_yet_computed	;     - not yet computed?
	bra		TFT_cave_1a					;       NO  - continue
	FONT_COLOR_DISABLED					;       YES - switch to disabled color
	bra		TFT_cave_1b					;           - print dashes

TFT_cave_1a:
	btfsc	mpr+1,int_invalid_flag		; stops time invalid?
	FONT_COLOR_DISABLED					; YES - switch to disabled color
	bcf		mpr+1,int_invalid_flag		; clear invalid flag if applicable
	movf	mpr+0,W						; copy     low  byte of stops time to WREG
	iorwf	mpr+1,W						; ior with high byte of stops time
	bz		TFT_cave_1b					; print dashes if stops time is zero
	output_999							; print (0-999)
	PUTC_PRINT "'"						; append unit and dump to screen
	bra		TFT_cave_2					; continue

TFT_cave_1b:
	STRCAT_PRINT ",-,-,-,"				; print 3 dashes (',' produces a half-width space)
	;bra	TFT_cave_2					; continue

TFT_cave_2:
	; cave TTS
	WIN_MEDIUM dm_custom_cave_data_column2,dm_custom_cave_data_row		; column 60
	FONT_COLOR_MEMO						; set default color
	btfsS	cave_mode					; cave mode switched on?
	bra		TFT_cave_2b					; NO  - print dashes
	MOVII	int_O_TTS_norm,mpr			; YES - get normal plan total time to surface
	btfss	mpr+1,int_not_yet_computed	;     - not yet computed?
	bra		TFT_cave_2a					;       NO  - continue
	FONT_COLOR_DISABLED					;       YES - switch to disabled color
	bra		TFT_cave_2b					;           - print dashes

TFT_cave_2a:
	btfsc	mpr+1,int_invalid_flag		; TTS invalid?
	FONT_COLOR_DISABLED					; YES - switch to disabled color
	bcf		mpr+1,int_invalid_flag		; clear invalid flag if applicable
	output_999							; print (0-999)
	PUTC_PRINT "'"						; append unit and dump to screen
	bra		TFT_cave_3					; continue

TFT_cave_2b:
	STRCAT_PRINT ",-,-,-,"				; print 3 dashes (',' produces a half-width space)
	;bra	TFT_cave_3					; continue

TFT_cave_3:
	; estimated total runtime
	WIN_MEDIUM dm_custom_cave_data_column3,dm_custom_cave_data_row
	;									; keep color from cave TTS
	btfss	cave_mode					; cave mode switched on?
	bra		TFT_cave_3b					; NO  - print dashes
	SMOVII	counted_divetime_mins,mpr	; YES - ISR safe copy of counted dive time to MPR
	movff	int_O_TTS_norm+0,WREG		;     - get TTS, low  byte, into WREG
	addwf	mpr+0,F						;     - add TTS, low  byte, to dive time in MPR
	movff	int_O_TTS_norm+1,WREG		;     - get TTS, high byte, into WREG
	btfsc	WREG,int_not_yet_computed	;     - not yet computed?
	bra		TFT_cave_3b					;       YES - print dashes
	bcf		WREG,int_invalid_flag		;       NO  - clear invalid flag if applicable
	addwfc	mpr+1,F						;           - add TTS, high byte, to dive time in MPR
	output_999							;           - print (0-999)
	PUTC_PRINT "'"						;           - append unit and dump to screen
	return								;           - done

TFT_cave_3b:
	STRCAT_PRINT ",-,-,-,"				; print 3 dashes (',' produces a half-width space)
	return								; done


;-----------------------------------------------------------------------------
; Dive Custom View - Cave Mode Waypoints
;
	global	TFT_cave_waypoints
TFT_cave_waypoints:
	; arrow
	WIN_TINY .70,dm_custom_cave_title_row
	FONT_COLOR_ATTENTION				; select color
	btfss	cave_mode					; cave mode switched on?
	bra		TFT_cave_waypoints_3		; NO  - do not show any marker (any more)
	btfsc	dive_turned					; YES - dive turned?
	bra		TFT_cave_waypoints_2		;       YES - print marker in the middle
	;bra	TFT_cave_waypoints_1		;       NO  - print marker on right side

TFT_cave_waypoints_1:
	movlw	.12							; start with 12 space chars
	call	TFT_buffer_trim_length		; fill / cut buffer to target length
	;bra	TFT_cave_waypoints_2		; continue

TFT_cave_waypoints_2:
	STRCAT	"<====="					; print marker symbol
	;bra	TFT_cave_waypoints_3		; continue

TFT_cave_waypoints_3:
	movlw	.18							; set overall number of chars
	call	TFT_buffer_trim_length		; fill / cut buffer to target length
	PRINT								; dump buffer to screen
	; waypoint band
	btfsc	cave_mode					; cave mode switched on?
	bra		TFT_cave_waypoints_4		; YES - show graphics
	WIN_STD .0,dm_custom_cave_data_row	; NO  - show "Cave Mode off" text
	FONT_COLOR_ATTENTION				;     - select attention color
	PUTC	" "							;     - print 2 space chars
	PUTC	" "							;     - ...
	STRCAT_TEXT tCaveMode				;     - print "Cave Mode"
	PUTC	" "							;     - print 1 space char
	STRCAT_TEXT tOff					;     - print "off"
	movlw	.17							;     - set max number of chars
	call	TFT_buffer_trim_length		;     - fill / cut buffer to target length
	PRINT								;     - dump buffer to screen
	return								;     - done

TFT_cave_waypoints_4:
	WIN_MEDIUM .0,dm_custom_cave_data_row; start in column 0
	FONT_COLOR_MEMO						; select default color
	tstfsz	DM_flags_cavereq			; any pending cave mode requests?
	FONT_COLOR_DISABLED					; YES - switch to disabled color
	; 1st section: previous waypoint number or beginning line
	movlw	.1							; load a one into WREG
	cpfsgt	backtrack_waypoint_num		; current waypoint number > 1 ?
	bra		TFT_cave_waypoints_5		; NO  - print line segment only
	STRCAT	",-,"						; YES - print one dash
	movff	backtrack_waypoint_num,lo	;     - copy current waypoint number to lo
	decf	lo,F						;     - create previous waypoint number
	output_99							;     - print  previous waypoint number in two digit format
	STRCAT	","							;     - print a half-space
	bra		TFT_cave_waypoints_6		;     - continue with next section

TFT_cave_waypoints_5:
	STRCAT	",-,-----"					; print line segment
	;bra	TFT_cave_waypoints_6		; continue with next section

TFT_cave_waypoints_6:
	; 2nd section: solid line
	STRCAT	"---"						; print a solid line
	; 3rd section: current waypoint number, turn point symbol or line segment
	tstfsz	backtrack_waypoint_num		; does a current waypoint exist?
	bra		TFT_cave_waypoints_8		; YES - print its number or the turn point symbol
	btfss	dive_turned					; NO  - dive turned?
	bra		TFT_cave_waypoints_7		;       NO  - print a separated  line segment
	STRCAT	"------"					;       YES - print a continuous line
	bra		TFT_cave_waypoints_10		;           - continue with next section

TFT_cave_waypoints_7:
	STRCAT	",----,"					; print a separated line segment
	bra		TFT_cave_waypoints_10		; continue with next section

TFT_cave_waypoints_8:
	STRCAT	","							; print a half-width space
	movff	backtrack_waypoint_num,lo	; copy current waypoint number to lo
	movf	backtrack_waypoint_turn,W	; copy turn point number to WREG
	cpfseq	lo							; current waypoint = turn point ?
	bra		TFT_cave_waypoints_9		; NO  - show waypoint number
	STRCAT_PRINT "--|,     "			; YES - print end-of-line symbol, clear remaining output and dump buffer to screen
	return								;     - done

TFT_cave_waypoints_9:
	movff	backtrack_waypoint_num,lo	; copy  current waypoint number to lo
	output_99 							; print current waypoint number in two digit format
	STRCAT	","							; print a half-space
	;bra	TFT_cave_waypoints_10		; continue with next section

TFT_cave_waypoints_10:
	; 4th section: solid line
	STRCAT	"---"						; print a solid line
	; 5th section: next waypoint number or end of line symbol
	incf	backtrack_waypoint_num,W	; load WREG with next waypoint number
	cpfseq	backtrack_waypoint_turn		; next waypoint number = turn point number ?
	btfsc	waypoint_reached_last		; NO  - is the current waypoint the last waypoint?
	bra		TFT_cave_waypoints_11		; YES / YES - print end-of-line symbol
	STRCAT	","							;       NO  - print a half-space
	incf	backtrack_waypoint_num,W	;           - (re)load WREG with next waypoint number
	movwf	lo							;       NO  - copy  next waypoint number to lo
	output_99 							;           - print next waypoint number in two digit format
	PRINT								;           - dump buffer to screen
	return								;           - done

TFT_cave_waypoints_11:
	STRCAT_PRINT "---|,"				; print end-of-line symbol and dump buffer to screen
	return								; done

 ENDIF	; _cave_mode


;=============================================================================
tft_out15	CODE
;=============================================================================


;-----------------------------------------------------------------------------
; Helper Function - check if firmware is within expiry period
;
; Output:  aux_flag set if not
;
check_expiry:
	SMOVSS	rtc_year,rtc_latched_year	; ISR-safe 6 byte copy of date and time
	movff	rtc_latched_day,lo			; get current day
	movff	rtc_latched_month,hi		; get current month
	movff	rtc_latched_year,up			; get current year
	bsf		aux_flag					; set firmware as expired by default
	movlw	firmware_expire_year		; start with checking year
	cpfsgt	up							; current year > expiry year ?
	bra		check_expiry_Y				; NO  - continue checks
	return								; YES - expired

check_expiry_Y:
	cpfseq	up							; current year = expiry year ?
	bra		check_expiry_ok				; NO  - must be < then, OK whatever month & day
	movlw	firmware_expire_month		; YES - continue checking month
	cpfsgt	hi							; current month > expiry month ?
	bra		check_expiry_M				; NO  - continue checks
	return								; YES - expired

check_expiry_M:
	cpfseq	hi							; current month = expiry month ?
	bra		check_expiry_ok				; NO  - must be < then, OK whatever day
	movlw	firmware_expire_day			; YES - continue checking day
	cpfsgt	lo							; current day > expiry day ?
	bra		check_expiry_ok				; NO  - must be <= then, OK
	return								; YES - expired

check_expiry_ok:
	bcf		aux_flag					; not expired
	return								; done 


;-----------------------------------------------------------------------------
; show Firmware updated Message
;
; Attention:
; Pallet colors and language switching are not
; available yet, all text outputs are hard-coded!
;
	global	TFT_message_fw_update
TFT_message_fw_update:
	FONT_COLOR_STANDARD					; set color

	; show update message
	WIN_SMALL .20,.100					; set position
	STRCPY_PRINT "Update successful!"	; print message

	; show firmware version
	WIN_SMALL .20,.140					; set position
	STRCPY	"New Firmware: "			; print message

	bra		TFT_message_fw_common		; show firmware version


;-----------------------------------------------------------------------------
; show Firmware kept Message
;
; Attention:
; Pallet colors and language switching are not
; available yet, all text outputs are hard-coded!
;
	global	TFT_message_fw_kept
TFT_message_fw_kept:
	FONT_COLOR_STANDARD					; set color

	; show reboot message
	WIN_SMALL .60,.100					; set position
	STRCPY_PRINT "Reboot"				; print message

	; show firmware version
	WIN_SMALL .30,.140					; set position
	STRCPY	"Firmware: "				; print message

	;bra	TFT_message_fw_common		; show firmware version


	; Helper Function - show firmware version x.y and color-code + invert if outdated
TFT_message_fw_common:
	rcall	TFT_cat_firmware			; append major/minor and color-code on expiry
	PRINT								; dump to screen
	; show firmware beta status
	WIN_SMALL .60,.180
	FONT_COLOR_STANDARD					; set default color for a release version
	rcall	TFT_cat_beta_long			; show "Release" or "BETA" + issue
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; append Firmware Version to current String, including color-coding on expiry
;
	global	TFT_cat_firmware
TFT_cat_firmware:
	movlw	fw_version_major			; get major
	movwf	lo							; ...
	bsf		leftbind					; print left-aligned
	output_99							; print major (0-99)
	PUTC	'.'							; print a dot
	movlw	fw_version_minor			; get minor
	movwf	lo							; ...
	output_99x							; print minor in two digit format
	rcall	check_expiry				; check if firmware is expired
	btfss	aux_flag					; expired?
	return								; NO
	bsf		win_invert					; YES - print in inverse
	FONT_COLOR color_yellow				;     - print in yellow
	return								;     - done


;-----------------------------------------------------------------------------
; append Firmware BETA Status to current String, including color-coding on BETA
;
	global	TFT_cat_beta_long
TFT_cat_beta_long:
	bsf		aux_flag					; do long version
	bra		TFT_cat_beta_common			; continue with common part

	global	TFT_cat_beta_short
TFT_cat_beta_short:
	bcf		aux_flag					; do short version
	;bra	TFT_cat_beta_common			; continue with common part

TFT_cat_beta_common:

 IFDEF _DEBUG

	FONT_COLOR color_red				; set color
	btfss	aux_flag					; shall show long version?
	bra		TFT_cat_debug_short			; NO  - show short version
	;bra	TFT_cat_debug_long			; YES - show long  version

TFT_cat_debug_long:
	STRCAT	"DEBUG"						; print long  debug
	return								; done

TFT_cat_debug_short:
	STRCAT	"DBG."						; print short debug
	return								; done

 ELSE

	movlw	fw_version_beta				; =0: release, =1: beta 1, =2: beta 2, ...
	movwf	lo							; copy to lo
	tstfsz	lo							; release version?
	bra		TFT_cat_beta_com			; NO  - must be beta version then
	btfss	aux_flag					; YES - shall show long version?
	bra		TFT_cat_beta_rel_short		;       NO  - show short version
	rcall	check_expiry				;       YES - check  expiry date
	btfsc	aux_flag					;           - within expiry date?
	bra		TFT_cat_beta_update			;             NO  - give update cue
	;bra	TFT_cat_beta_rel_long		;             YES - "Release"

TFT_cat_beta_rel_long:
	STRCAT	"Release"					; print long "Release"
	return								; done

TFT_cat_beta_rel_short:
	STRCAT "Rel."						; print short "Release"
	return								; done

TFT_cat_beta_com:
	FONT_COLOR color_yellow				; set color
	btfss	aux_flag					; shall show long  version?
	bra		TFT_cat_beta_short_exec		; NO  - show short version
	;bra	TFT_cat_beta_long_exec		; YES - show long  version

TFT_cat_beta_long_exec:
	STRCAT	"Beta "						; print long "Beta"
	bra		TFT_cat_beta_version		; print version

TFT_cat_beta_short_exec:
	STRCAT "B."							; print short "Beta"
	;bra	TFT_cat_beta_version		; append beta version number

TFT_cat_beta_version:
	bsf		leftbind					; print left-aligned
	output_256							; print beta version number (0-255)
	return								; done

TFT_cat_beta_update:
	FONT_COLOR color_yellow
	STRCAT "update!"					; print update cue
	return								; done

 ENDIF


;-----------------------------------------------------------------------------
; append Serial Number to to current String
;
	global	TFT_cat_serial
TFT_cat_serial:
	call	eeprom_serial_number_read	; read OSTC serial number
	bsf		leftbind					; print left-aligned
	output_65535						; print serial number
	return								; done


;-----------------------------------------------------------------------------
; print Serial Number and Firmware Version (used by comm mode)
;
	global	TFT_print_serial_and_firmware
TFT_print_serial_and_firmware:
	STRCPY	"#"							; print "#"
	rcall	TFT_cat_serial				; print serial number
	STRCAT	" "							; print a space
	STRCAT	"v"							; print a "v" (version)
	;bra	TFT_print_firmware			; print firmware version


;-----------------------------------------------------------------------------
; print Firmware Version
;
	global	TFT_print_firmware
TFT_print_firmware:
	rcall	TFT_cat_firmware			; print firmware major/minor, will set win_invert if outdated
	STRCAT	" "							; print a space
	rcall	TFT_cat_beta_long			; print release/beta and update notification if expired
	PRINT								; dump to screen
	return								; done


;-----------------------------------------------------------------------------
; print Deco Type (OC, CCR, ...)
;
; Input: lo  deco type number:  0=OC, 1=CCR, 2=Gauge, 3=Apnea, 4=pSCR
;
	global	TFT_print_decotype
TFT_print_decotype:
	bsf		aux_flag					; default to dive with deco calculation (used by logbook)
	incf	lo,W						; WREG = lo + 1
TFT_print_decotype_1
	decfsz	WREG,W						; in OC mode?
	bra		TFT_print_decotype_2		; NO  - try next
	STRCAT_TEXT_PRINT tDvOC				; YES - print "OC"
	return								;     - done
TFT_print_decotype_2:
	decfsz	WREG,W						; in CCR mode?
	bra		TFT_print_decotype_3		; NO  - try next
	STRCAT_TEXT_PRINT tDvCC				; YES - print "CCR"
	return								;     - done
TFT_print_decotype_3:
	decfsz	WREG,W						; in gauge mode?
	bra		TFT_print_decotype_4		; NO  - try next
	bcf		aux_flag					; YES - dive without deco data
	STRCAT_TEXT_PRINT tDvGauge			;     - Print "Gauge"
	return								;     - done
TFT_print_decotype_4:
	decfsz	WREG,W						; in apnea mode?
	bra		TFT_print_decotype_5		; NO  - try next
	bcf		aux_flag					; YES - dive without deco data
	STRCAT_TEXT_PRINT tDvApnea			;     - print "Apnoe"
	return								;     - done
TFT_print_decotype_5:
	STRCAT_TEXT_PRINT tDvPSCR			; print "pSCR"
	return								; done


;=============================================================================
tft_out16	CODE
;=============================================================================

	global	TFT_debug_output
TFT_debug_output:

 IFNDEF _debug_output

	return										; do nothing

 ELSE

;	btfsc	alt_layout_active					; alternative layout active?
;	return										; YES - abort

	WIN_TINY .100,.30							; surface mode: fits under the textual logo in the upper right corner
;	WIN_TINY  .35, .0							; dive    mode: fits to the right side of the depth label
;	WIN_TINY   .0, .		0					; dive    mode: overwrites depth label
	FONT_COLOR_MEMO								; set color
	
	movff	gp_debug+0,lo
	output_256
	PUTC	","
	movff	gp_debug+1,lo
	output_256

	;	; deco engine scheduling performance
;	MOVII	int_O_profiling_overrun,mpr			; runtime +/- versus target
;	btfss	mpr+1,7								; overrun?
;	bra		TFT_debug_output_1					; YES
;	bcf		mpr+1,7								; NO - clear flag
;	PUTC	"-"									;    - print a minus
;	bra		TFT_debug_output_2					;    - continue
;TFT_debug_output_1:
;	PUTC	" "									; print a space instead of the minus
;TFT_debug_output_2:
;	output_999									; print time (0-999)
;	PUTC	"."									; print a dot as separator
;	MOVII	int_O_profiling_overrun_max,mpr		; get max runtime so far
;	output_999									; print (0-999)
;	PUTC	"."									; print a dot as separator
;	movff	char_O_profiling_overrun_phase,WREG	; get calculation phase causing the max runtime
;	output_hex									; print a hex
;	PUTC	"."									; print a dot as separator
;	movff	char_O_profiling_runs_norm,mpr		; get runs/cycle normal plan
;	output_99									; print (0-99)
;	PUTC	"."									; print a dot as separator
;	movff	char_O_profiling_runs_alt,mpr		; get runs/cycle alternative plan
;	output_99									; print (0-99)
	PRINT										; dump to screen
	return										; done

 ENDIF	; _debug_output

;-----------------------------------------------------------------------------

	END