diff src/gaslist.asm @ 532:72ae62440597

Minor French text update, roll-back gaslist.asm changes
author heinrichsweikamp
date Mon, 21 Aug 2017 14:25:02 +0200
parents d36f9fca10ae
children a7ac5d3fd046
line wrap: on
line diff
--- a/src/gaslist.asm	Fri Aug 18 15:19:35 2017 +0200
+++ b/src/gaslist.asm	Mon Aug 21 14:25:02 2017 +0200
@@ -211,7 +211,7 @@
         movf    PLUSW1,W
         bnz     gaslist_strcat_3
         call    TFT_disabled_color
-	;bra	gaslist_strcat_3	; NEW ; No MOD-check and red color for disabled gases
+	bra	gaslist_strcat_4	; NEW ; No MOD-check and red color for disabled gases
 gaslist_strcat_3:
         rcall   gaslist_strcat_gas_0
 	PUTC	" "
@@ -226,32 +226,38 @@
         rcall   gaslist_calc_mod        ; Compute MOD into WREG
         cpfsgt  lo
         bra	gaslist_strcat_5
+        call    TFT_warnings_color      ; Turn red if bigger
+	bra	gaslist_strcat_5	; skip gaslist_strcat_gas_0 here
+gaslist_strcat_4:
+        rcall   gaslist_strcat_gas_0
+	PUTC	" "
 	
-	movf	gaslist_gas,W		; load gas index 
-	lfsr	FSR1,opt_gas_type	; set-up index read from gas table 
-	movff	PLUSW1,gaslist_Type	; get current gas type into lo 
-	movlw	.3			; compare current gas type with 3 = deco 
-	cpfseq	gaslist_Type		; skip next line if gas is of type deco 
-	bra	gaslist_strcat_5	; gas is not deco gas
-	
-        call    TFT_warnings_color      ; Turn red if bigger and gas is a deco gas
-	;bra	gaslist_strcat_5	; skip gaslist_strcat_gas_0 here
+	; Dummy code, needs some cleanup somedays...
+        ; Read switch depth
+        lfsr    FSR1,char_I_dil_change-.5   ; Setup Diluents-5
+        movlw   .4
+	cpfsgt  gaslist_gas                 ; >4? (-> Diluents)
+        lfsr    FSR1,opt_OC_bail_gas_change ; Setup OC Gases
+
+        movf    gaslist_gas,W           ; (0-4 for OC/Bailout, 5-9 for Diluents)
+        movff   PLUSW1,lo
+        ;rcall   gaslist_calc_mod        ; Compute MOD into WREG
 
 gaslist_strcat_5:
 	TSTOSS	opt_units               ; 0=Meters, 1=Feets
 	bra		gaslist_strcat_3_metric
 ;gaslist_strcat_3_imperial:
         btfsc   ccr_diluent_setup       ; =1: Setting up Diluents ("Gas6-10")
-        bra     gaslist_imperial_decogas
+        bra     gaslist_imperial_non_travel
         movf    gaslist_gas,W
         lfsr    FSR1,opt_gas_type       ; Read opt_gas_type[WREG]
         movff   PLUSW1,gaslist_Type
-        movlw   .3                      ; 0= Diabled, 1 = First, 2=Travel/Normal, 3 = Deco
-        cpfslt  gaslist_Type		; skip next line for disabled, first and travel gases
-        bra     gaslist_imperial_decogas ; Deco gas ? show meters
-        bra     gaslist_strcat_depth_nondeco   ; Show "---" instead of "0m"...
+        movlw   .2                      ; 2=Travel
+        cpfseq  gaslist_Type
+        bra     gaslist_imperial_non_travel   ; Non-Travel Gas
+        bra     gaslist_strcat_depth_travel   ; Show "---" instead of "0m"...
 
-gaslist_imperial_decogas:
+gaslist_imperial_non_travel:
         movf    lo,W
         mullw   .100                    ; convert meters to mbar
         movff   PRODL,lo
@@ -264,17 +270,17 @@
 		
 gaslist_strcat_3_metric:
         btfsc   ccr_diluent_setup       ; =1: Setting up Diluents ("Gas6-10")
-        bra     gaslist_metric_decogas
+        bra     gaslist_metric_non_travel
         movf    gaslist_gas,W
         lfsr    FSR1,opt_gas_type       ; Read opt_gas_type[WREG]
         movff   PLUSW1,gaslist_Type
-        movlw   .3                      ; 0= Diabled, 1 = First, 2=Travel/Normal, 3 = Deco
-        cpfslt  gaslist_Type		; skip next line for disabled, first and travel gases
-        bra     gaslist_metric_decogas  ; Deco gas ? show meters
-gaslist_strcat_depth_nondeco:            ; Show "---" instead of "0m"...
+        movlw   .2                      ; 2=Travel
+        cpfseq  gaslist_Type
+        bra     gaslist_metric_non_travel   ; Non-Travel Gas
+gaslist_strcat_depth_travel:            ; Show "---" instead of "0m"...
         STRCAT  "---"
         return
-gaslist_metric_decogas:
+gaslist_metric_non_travel:
         output_99
         STRCAT_TEXT	tMeters				; "m"
         return