line source
;=============================================================================+ − ;+ − ; File gaslist.asm REFACTORED VERSION V2.99e+ − ;+ − ; Managing OSTC gas list+ − ;+ − ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.+ − ;=============================================================================+ − ; HISTORY+ − ; 2011-08-11 : [jDG] Creation.+ − + − #include "hwos.inc" ; mandatory header+ − #include "convert.inc"+ − #include "math.inc" ; div16x16 for MOD calculations+ − #include "strings.inc"+ − #include "tft.inc"+ − #include "tft_outputs.inc"+ − #include "shared_definitions.h"+ − #include "wait.inc"+ − + − IFDEF _rx_functions+ − #include "rx_ops.inc"+ − ENDIF+ − + − extern convert_mbar_to_feet+ − extern customview_show_mix+ − extern tSetup_GasDepth+ − extern tGasDisabled+ − extern tDilDisabled+ − extern tLiter+ − extern tbar10+ − extern tbar+ − + − gaslist CODE+ − + − ;=============================================================================+ − ; Helper Functions for divemenu_tree.asm+ − ;+ − ; They need to be put in a different file than+ − ; where the MENU_DYNAMIC macros uses them.+ − + − global do_toggle_gf_label+ − do_toggle_gf_label:+ − movff char_I_deco_model,WREG ; 0 = ZH-L16, 1 = ZH-L16-GF+ − decfsz WREG,W ; toggle GF only in GF modes - in GF mode?+ − bra do_toggle_gf_label_1 ; NO - print in disabled color+ − movff opt_enable_aGF,WREG ; =1: aGF can be selected underwater+ − decfsz WREG,W ; aGF enabled?+ − bra do_toggle_gf_label_1 ; NO - print in disabled color+ − bra do_toggle_gf_label_2 ; YES to both - print in standard color+ − do_toggle_gf_label_1:+ − call TFT_disabled_color+ − do_toggle_gf_label_2:+ − STRCAT_TEXT tDivemenu_ToggleGF+ − return+ − + − + − IFDEF _cave_mode+ − global do_turn_dive_label+ − do_turn_dive_label:+ − btfss FLAG_cave_mode ; in cave mode?+ − call TFT_disabled_color ; NO - print in disabled color+ − btfsc FLAG_dive_turned ; dive already turned?+ − call TFT_attention_color ; YES - print in attention color+ − STRCAT_TEXT tDivemenu_TurnDive ; output label+ − return+ − ENDIF+ − + − + − global do_toggle_max_pres_diff_label+ − do_toggle_max_pres_diff_label:+ − movff opt_TR_mode,WREG ; get TR mode+ − xorlw .2 ; compare with 2 (ind.double)+ − tstfsz WREG ; equal?+ − call TFT_disabled_color ; NO - print in disabled color+ − STRCAT_TEXT tTrMaxDeltaP ; output label+ − movff char_I_max_pres_diff,lo+ − output_99+ − STRCAT_TEXT tbar ; " bar"+ − return+ − + − global gaslist_copy_dil_to_oc+ − gaslist_copy_dil_to_oc:+ − ;+ − ; Memory Map:+ − ; -----------------------------------------+ − ; opt_gas_O2_ratio res 5+ − ; opt_dil_O2_ratio res 5+ − ; opt_gas_He_ratio res 5+ − ; opt_dil_He_ratio res 5+ − ; opt_gas_type res 5+ − ; opt_dil_type res 5+ − ; opt_gas_change res 5+ − ; opt_dil_change res 5+ − ;+ − ; char_I_tank_size res 10+ − ; char_I_tank_pres_fill res 10+ − ;+ − bcf aux_flag ; clear aux_flag by default+ − movf gaslist_gas,W ; copy current gas or diluent number to WREG+ − btfss FLAG_diluent_setup ; in CCR menus?+ − bra gaslist_copy_dil_to_oc_1 ; NO - gaslist_gas is already pointing to an OC gas+ − addlw -.5 ; YES - subtract offset between diluents and gases+ − movwf gaslist_gas ; - let gaslist_gas point to the corresponding OC gas+ − bsf aux_flag ; - remember we came from a CCR menu+ − bcf FLAG_diluent_setup ; - pretend we came from an OC gas menu+ − gaslist_copy_dil_to_oc_1:+ − lfsr FSR0,opt_dil_O2_ratio ; load base address of diluents settings, ASM variables+ − lfsr FSR1,opt_gas_O2_ratio ; load base address of gas settings, ASM variables+ − movff PLUSW0,PLUSW1 ; copy O2 ratio+ − addlw .10 ; add offset from O2 ratios to He ratios+ − movff PLUSW0,PLUSW1 ; copy He ratio+ − addlw .10 ; add offset from He ratios to types+ − movff PLUSW0,PLUSW1 ; copy type+ − addlw .10 ; add offset from type to change depth+ − movff PLUSW0,PLUSW1 ; copy change depth+ − addlw -.30 ; wind back to initial gas number+ − lfsr FSR0,char_I_tank_size+5 ; load base address of diluents settings, shared variables+ − lfsr FSR1,char_I_tank_size+0 ; load base address of gas settings, shared variables+ − movff PLUSW0,PLUSW1 ; copy tank size+ − addlw .10 ; add offset from tank sizes to pressure budget+ − movff PLUSW0,PLUSW1 ; copy pressure budget+ − call gaslist_cleanup_list ; make sure that there will be just one first gas+ − btfss aux_flag ; did we came from a CCR menu?+ − return ; NO - done+ − bsf FLAG_diluent_setup ; YES - restore proper origin again+ − movlw .5 ; - offset between OC gases and diluents+ − addwf gaslist_gas,F ; - let gaslist_gas point to the diluent again+ − WIN_BOX_BLACK .30,.239,.0,.159 ; - create some visual effect to show activity+ − WAITMS .200 ; - pause for 200 ms+ − return ; - done+ − + − + − ;=============================================================================+ − ; Append gas description to current string+ − ;+ − ; Input: PRODL : gas number (0..4)+ − ; FSR2 : Current string position+ − ; Output: Text appended into buffer pointed by FSR2+ − + − global gaslist_strcat_gas+ − global gaslist_strcat_gas_WREG+ − gaslist_strcat_gas: ; entry point with gas/dil in PRODL (0-4) and FLAG_diluent_setup+ − movff PRODL,gaslist_gas ; get current menu item (0-4)+ − movlw .5 ; offset between gases and diluents+ − btfsc FLAG_diluent_setup ; in CCR menus?+ − addwf gaslist_gas,F ; YES - add the offset+ − movf gaslist_gas,W ; copy to WREG+ − gaslist_strcat_gas_WREG: ; entry point with gas/dil in WREG (0-9)+ − lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio+ − movff PLUSW1,lo ; read O2 ratio+ − lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio+ − movff PLUSW1,hi ; read He ratio+ − goto customview_show_mix ; put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2, and RETURN+ − + − ;=============================================================================+ − ; Append current mix to current string (for divemode)+ − ;+ − ; Input: FSR2 : Current string position+ − ; Output: Text appended into buffer pointed by FSR2+ − + − global gaslist_strcat_gas6+ − gaslist_strcat_gas6: ; show current O2/He mix+ − STRCAT_TEXT tGas+ − STRCAT ": "+ − movff gas6_O2_ratio,hi ; TFT_color_code_gaslist needs O2 ratio in hi+ − call TFT_color_code_gaslist ; color-code according to O2 ratio and depth+ − movff gas6_O2_ratio,lo ; customview_show_mix needs O2 ratio in lo+ − movff gas6_He_ratio,hi ; ... and He ratio in hi+ − goto customview_show_mix ; put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2, and return+ − ;=============================================================================+ − ; Helper functions for menu_tree+ − + − global gaslist_GasDepth+ − gaslist_GasDepth:+ − movf gaslist_gas,W ; load gas/dil index into WREG (0-9)+ − lfsr FSR1,opt_gas_change ; load base address of change depths+ − tstfsz PLUSW1 ; change depth = 0 ?+ − bra gaslist_GasDepth_1 ; NO+ − lfsr FSR1,opt_gas_type ; YES - load base address of opt_gas_type+ − tstfsz PLUSW1 ; - type = disabled ?+ − call TFT_attention_color ; NO - print in attention color (yellow)+ − gaslist_GasDepth_1:+ − STRCAT_TEXT tSetup_GasDepth+ − return+ − + − global gaslist_show_type+ − gaslist_show_type:+ − movf gaslist_gas,W+ − lfsr FSR1,opt_gas_type ; load base address of opt_gas_type+ − movff PLUSW1,lo ; read gas type+ − STRCAT_TEXT tType+ − lfsr FSR1,tGasDisabled ; load base address of gas type labels+ − btfsc FLAG_diluent_setup ; in CCR setup?+ − lfsr FSR1,tDilDisabled ; YES - load base address of diluent type labels+ − movff lo,WREG ; 0-3+ − rlncf WREG ; x2+ − addwf FSR1L,F ; adjust address pointer to required text+ − movlw .0+ − addwfc FSR1H,F+ − call strcat_text ; copy label text+ − return+ − + − + − global gaslist_toggle_type+ − gaslist_toggle_type:+ − movf gaslist_gas,W+ − lfsr FSR1,opt_gas_type ; load base address of opt_gas_type+ − movff PLUSW1,lo ; read gas type+ − incf lo,F ; increment type+ − btfsc FLAG_diluent_setup ; in CCR setup?+ − bra gaslist_toggle_type2 ; YES - diluents+ − btfsc lo,2 ; NO - gases, type index > 3 ?+ − clrf lo ; YES - clear to zero+ − movff lo,PLUSW1 ; - copy back result+ − return+ − gaslist_toggle_type2:+ − movlw .3+ − cpfslt lo ; index > 2 ?+ − clrf lo ; YES - clear to zero+ − movf gaslist_gas,W ; restore gaslist_gas in WREG+ − movff lo,PLUSW1 ; copy back result+ − return+ − + − + − global gaslist_strcat_setpoint+ − global gaslist_strcat_setpoint_0+ − gaslist_strcat_setpoint: ; entry point with setpoint index in PRODL+ − movff PRODL,gaslist_gas ; get current menu item (0-4)+ − gaslist_strcat_setpoint_0: ; entry point with setpoint index in gaslist_gas+ − bsf leftbind+ − btfsc short_gas_decriptions ; shall use short versions of gaslist_strcat_setpoint?+ − bra gaslist_strcat_setpoint2 ; YES - use short version+ − STRCAT_TEXT tSP ; "SP"+ − incf gaslist_gas,W ; (0-4) -> (1-5) into WREG+ − movwf lo+ − output_8 ; print SP number+ − bcf leftbind+ − PUTC ":"+ − gaslist_strcat_setpoint2: ; short version+ − btfsc divemode+ − bra gaslist_strcat_setpoint4 ; no "*" in divemode+ − movf gaslist_gas,W ; (0-4) into WREG+ − bnz gaslist_strcat_setpoint3 ; SP index = 0 ?+ − PUTC "*" ; YES - print *+ − bra gaslist_strcat_setpoint4 ; - continue with cbar value+ − gaslist_strcat_setpoint3: ; NO+ − PUTC " " ; - print a space+ − gaslist_strcat_setpoint4:+ − movf gaslist_gas,W ; (0-4) into WREG+ − lfsr FSR1,char_I_setpoint_cbar ; load base address of setpoint cbar values+ − movf PLUSW1,W ; read cbar value+ − movwf lo+ − clrf hi+ − bsf leftbind+ − output_16dp d'3' ; print as X.XX+ − btfsc divemode ; in divemode?+ − bra gaslist_strcat_setpoint5 ; YES - skip text in divemode+ − STRCAT_TEXT tbar ; NO - print "bar"+ − gaslist_strcat_setpoint5:+ − PUTC " " ; print a space+ − movf gaslist_gas,W ; (0-4) into WREG+ − lfsr FSR1,char_I_setpoint_change ; load base address of switch depths+ − movff PLUSW1,lo ; read switch depth into lo+ − bra gaslist_strcat_depth ; print depth in meters or ft+ − + − + − ;----------------------------------------------------------------------------+ − ; Append gas description to current string+ − ;+ − ; Prints gas number, * if first, = if deco gas, gas composition and change depth,+ − ; including fancy color-coding+ − ;+ − ; Input: PRODL gas number (0..4)+ − ; FSR2 current string position+ − ; Output: text appended to buffer pointed by FSR2+ − ;+ − ; NOTE: used in the menu-tree for the MENU_CALLBACK entry+ − + − global gaslist_strcat_gas_cd+ − global gaslist_gastitle+ − gaslist_strcat_gas_cd: ; entry point with gas in PRODL (0-4) and usage of FLAG_diluent_setup+ − movff PRODL,gaslist_gas ; get current menu item (0-4)+ − movlw .5 ; offset between gases and diluents+ − btfsc FLAG_diluent_setup ; in diluent menus?+ − addwf gaslist_gas,F ; YES - add the offset+ − gaslist_gastitle: ; entry point with gas/dil in gaslist_gas (0-4 for gases, 5-9 for diluents)+ − bcf win_invert ; clear flag for inverted output by default+ − btfsc short_gas_decriptions ; shall use short versions of gaslist_strcat_gas_cd?+ − bra gaslist_gastitle1 ; YES - use short version+ − incf gaslist_gas,W ; (0-9) -> (1-10) into WREG+ − movwf lo+ − movlw .6 ; diluents start with 6+ − cpfslt lo ; gas number < 6 ?+ − bra gaslist_gastitle_dil ; NO - it's a diluent+ − STRCAT_TEXT tGas ; YES - it's a gas+ − bra gaslist_gastitle0+ − gaslist_gastitle_dil:+ − STRCAT_TEXT tDil+ − movlw .5 ; offset between gases and diluents+ − subwf lo,F ; subtract offset from diluent number (6-10) -> (1-5)+ − gaslist_gastitle0:+ − bsf leftbind+ − output_8 ; print gas/dil number (1-5)+ − bcf leftbind+ − PUTC ":"+ − gaslist_gastitle1: ; short version of gaslist_strcat_gas_cd+ − btfsc divemode ; in divemode?+ − bra gaslist_gastitle3 ; YES - no "*" and "=" in front of gas composition, no highlighting for transmitters paired+ − + − IFDEF _rx_functions+ − btfss FLAG_tr_enabled ; NO - TR functions enabled?+ − bra gaslist_gastitle2 ; NO - continue with gas type+ − lfsr FSR1,opt_transmitter_id_1 ; YES - load base address of transmitter ID table+ − movf gaslist_gas,W ; - (0-4 for OC/Bailout, 5-9 for Diluents)+ − rlncf WREG,W ; - index x2 because IDs are 2 byte+ − tstfsz PLUSW1 ; - transmitter ID low byte <> 0 ?+ − bsf win_invert ; YES - flag transmitter paired by inverting output+ − incf WREG,W ; - increment index+ − tstfsz PLUSW1 ; - transmitter ID high byte <> 0 ?+ − bsf win_invert ; YES - flag transmitter paired by inverting output+ − ENDIF+ − + − gaslist_gastitle2:+ − rcall gaslist_strcat_gas_type ; print "*" for first gas/dil, "=" for a deco gas or " " else+ − gaslist_gastitle3:+ − call TFT_standard_color+ − btfsc divemode ; in divemode?+ − rcall gaslist_strcat_gas_better ; YES - check if this is a "better gas"+ − lfsr FSR1,opt_gas_type ; load base address of gas types+ − movf gaslist_gas,W ; load index into WREG (0-4 for gases, 5-9 for diluents)+ − movf PLUSW1,W ; read gas/dil type into WREG+ − bnz gaslist_gastitle4 ; type = disabled? NO - keep color+ − call TFT_disabled_color ; YES - switch color to disabled+ − bra gaslist_gastitle5 ; - skip ppO2 check for disabled gases+ − gaslist_gastitle4:+ − btfss divemode ; in divemode?+ − bra gaslist_gastitle5 ; NO - no ppO2 check if not in divemode+ − lfsr FSR1,opt_gas_O2_ratio ; YES - load base address of opt_gas_O2_ratio+ − movf gaslist_gas,W ; - load index into WREG (0-4 for gases, 5-9 for diluents)+ − movff PLUSW1,hi ; - read O2 ratio into hi+ − call TFT_color_code_gaslist ; - set color according to ppO2 limits+ − gaslist_gastitle5:+ − movf gaslist_gas,W ; copy gas/dil index to WREG (0-9)+ − rcall gaslist_strcat_gas_WREG ; print gas composition+ − btfss divemode ; in divemode?+ − bra gaslist_gastitle6 ; NO - continue printing a space+ − rcall gaslist_strcat_gas_type ; YES - print "*" for first gas/dil, "=" for a deco gas, or a space else+ − bra gaslist_gastitle7 ; - continue with change depth+ − gaslist_gastitle6:+ − PUTC " " ; print a space+ − gaslist_gastitle7:+ − lfsr FSR1,opt_gas_change ; load base address of change depths+ − movf gaslist_gas,W ; load gas/dil index into WREG (0-9)+ − movff PLUSW1,lo ; read change depth into lo+ − gaslist_strcat_depth: ; entry point for general printing of depths with value in meters in lo+ − TSTOSS opt_units ; check depth units+ − bra gaslist_strcat_depth_metric ; 0 - use Meters+ − gaslist_strcat_depth_imperial: ; 1 - use Feet+ − movf lo,W+ − mullw .100 ; convert meters to mbar+ − movff PRODL,lo+ − movff PRODH,hi+ − call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet+ − ;bsf leftbind+ − output_16_3 ; limit to 999 and display only 0-999+ − STRCAT_TEXT tFeets ; append "ft" REMARK: still one char to long for space available in divemode menu!+ − return+ − gaslist_strcat_depth_metric:+ − PUTC " " ; print a space+ − output_99+ − STRCAT_TEXT tMeters ; "m"+ − return+ − + − gaslist_strcat_gas_better: ; color-code output if this is the best gas/diluent+ − btfss better_gas_hint ; shall better gas hints be given?+ − return ; NO - return+ − movf best_gas_number,W ; get best gas number into WREG+ − btfsc FLAG_diluent_setup ; in CCR (pSCR) menus?+ − movf best_dil_number,W ; YES - overwrite with best diluent number+ − tstfsz WREG ; is a best gas/dil available?+ − bra gaslist_strcat_gas_better1 ; YES - proceed+ − return ; NO - return+ − gaslist_strcat_gas_better1:+ − decf WREG,W ; (1-5) -> (0-4)+ − btfsc FLAG_diluent_setup ; in diluent menus?+ − addlw .5 ; YES - add offset between gases and diluents (0-4) -> (5-9)+ − cpfseq gaslist_gas ; compare with given gas/dil (0-4 for OC bailout gases, 5-9 for diluents)+ − return ; not equal - return+ − bsf win_invert ; equal - invert+ − movlw color_green ; - select green color (gas is something "good")+ − goto TFT_set_color ; - activate color and return+ − + − gaslist_strcat_gas_type:+ − lfsr FSR1,opt_gas_type ; load base address of gas types+ − movf gaslist_gas,W ; load index to WREG (0-4 for gases, 5-9 for diluents)+ − decf PLUSW1,W ; read gas/dil type into WREG and...+ − ; ...decrement by 1 (-1 for disabled, 0 for first, 1 for travel/normal, 2 for deco)+ − bnz gaslist_strcat_gas_type_1 ; type = first? NO - continue with checking for deco gas+ − PUTC "*" ; YES - print "*" for first+ − return ; - done+ − gaslist_strcat_gas_type_1:+ − decf WREG,W ; decrement gas type (-2 for disabled, -1 for first, 0 for travel/normal, 1 for deco)+ − decf WREG,W ; decrement gas type (-3 for disabled, -2 for first, -1 for travel/normal, 0 for deco)+ − bnz gaslist_strcat_gas_type_2 ; type = deco? NO - neither first nor deco+ − PUTC "=" ; YES - print "=" for a deco gas+ − return ; - done+ − gaslist_strcat_gas_type_2:+ − PUTC " " ; neither first nor deco, print a space+ − return+ − + − ;----------------------------------------------------------------------------+ − ; Housekeeping for the gas/dil settings, e.g. making sure there is one FIRST only+ − ;+ − ; Input: gaslist_gas last edited gas/dil (0-9)+ − + − global gaslist_cleanup_list+ − gaslist_cleanup_list:+ − lfsr FSR1,opt_gas_type ; load base address of opt_gas_type+ − movlw .5 ; offset between gases and diluents+ − btfsc FLAG_diluent_setup ; in CCR-Menu?+ − subwf gaslist_gas,F ; YES - subtract offset from gaslist_gas: (5-9) -> (0-4)+ − gaslist_cleanup_list0:+ − bcf ignore_last_edited_gas+ − gaslist_cleanup_list1:+ − clrf lo ; counter for number of "firsts" found+ − movlw .5 ; initialize hi as loop counter for checking 5 gases/diluents+ − movwf hi+ − gaslist_cleanup_list2: ; loop body+ − decf hi,W ; WREG = current gas/dil (0-4)+ − btfsc FLAG_diluent_setup ; in CCR-Menu?+ − addlw .5 ; YES - add offset from gases to diluents -> (5-9)+ − movff PLUSW1,WREG ; read type into WREG+ − decfsz WREG ; is type = first (ex type code 1)?+ − bra gaslist_cleanup_list3 ; NO - done with this gas/dil+ − incf lo,F ; YES - increment number of "firsts" found+ − btfss ignore_last_edited_gas ; - shall we ignore the last edited gas/dil?+ − bra gaslist_cleanup_list2b ; NO - continue remembering the "last first" gas/dil (do a shortcut)+ − decf hi,W ; YES - get the current gas/dil as (0-4)+ − cpfseq gaslist_gas ; - is this the last edited gas/dil?+ − gaslist_cleanup_list2b:+ − movff hi,up ; (NO) - remember the last "first gas" found+ − gaslist_cleanup_list3:+ − decfsz hi,F ; decrement loop counter+ − bra gaslist_cleanup_list2 ; loop counter became 0 ? NO - loop+ − tstfsz lo ; YES - any first gas/dil at all?+ − bra gaslist_cleanup_list4 ; YES - at least one first gas/dil existing+ − btfsc FLAG_diluent_setup ; NO - in CCR-Menu?+ − lfsr FSR1,opt_dil_type ; YES - load base address of opt_gas_type+ − movlw .1 ; - load coding for first gas+ − movwf INDF1 ; - make gas/dil 1 the first gas+ − return ; - done+ − gaslist_cleanup_list4:+ − movlw .1+ − cpfsgt lo ; more then one "first gas" found?+ − return ; NO - done+ − decf up,W ; YES - WREG = last found "first gas" - 1 (0-4)+ − cpfseq gaslist_gas ; - is this the last edited gas/dil?+ − bra gaslist_cleanup_list4b ; NO - disable it+ − bsf ignore_last_edited_gas ; YES - do not disable last edited gas, search again but ignore the last edited gas+ − bra gaslist_cleanup_list1 ; - loop until only one "first" is left over+ − gaslist_cleanup_list4b:+ − btfsc FLAG_diluent_setup ; in CCR-Menu?+ − addlw .5 ; YES - adjust offset+ − clrf PLUSW1 ; disable gas+ − bra gaslist_cleanup_list0 ; redo from start until only one "first" is left over+ − return+ − + − ;----------------------------------------------------------------------------+ − ; Tank Settings+ − ;+ − ; Inputs: char_I_tank_size size of the tank, using unit text tLiter ("l")+ − ; char_I_tank_pres_fill fill pressure in multiples of 10 bar, using unit text tbar10 ("0 bar")+ − + − global gaslist_tank_size_pres+ − gaslist_tank_size_pres: ; dynamic title: xx l, xx0 bar+ − lfsr FSR1,char_I_tank_size ; load base address of char_I_tank_size+ − movf gaslist_gas,W ; load index (0-9)+ − movff PLUSW1,lo ; read char_I_tank_size[WREG] into lo+ − lfsr FSR1,char_I_tank_pres_fill ; load base address of char_I_tank_pres_fill+ − movff PLUSW1,hi ; read char_I_tank_pres_fill[WREG] into hi+ − STRCAT " " ; print 5 leading spaces for alignment+ − output_8 ; print tank size+ − STRCAT_TEXT tLiter ; print unit (" l")+ − movff hi,lo ; copy fill pressure into lo+ − output_8 ; print fill pressure (it is stored in multiples of 10 bar)+ − STRCAT_TEXT tbar10 ; print unit ("0 bar")+ − return+ − + − global gaslist_tank_size+ − gaslist_tank_size: ; adjust char_I_tank_size between min_tank_size and max_tank_size+ − lfsr FSR1,char_I_tank_size ; load base address of char_I_tank_size+ − movf gaslist_gas,W ; load index (0-9)+ − movff PLUSW1,lo ; read char_I_tank_size[WREG] into lo+ − incf lo,F ; increment tank size by 1 liter+ − movlw max_tank_size ; load max. allowed value into WREG+ − cpfsgt lo ; tank size <= max value?+ − bra gaslist_tank_size_1 ; YES - new value can be used+ − movlw min_tank_size ; NO - wrap-around to min value+ − movwf lo ; - and write to lo+ − gaslist_tank_size_1:+ − movf gaslist_gas,W ; re-load index+ − movff lo,PLUSW1 ; write back tank size to char_I_tank_size[WREG]+ − return+ − + − global gaslist_tank_pres+ − gaslist_tank_pres: ; adjust char_I_tank_pres_fill between 5(0) and 29(0) bar+ − lfsr FSR1,char_I_tank_pres_fill ; load base address of char_I_tank_pres_fill+ − movf gaslist_gas,W ; load index (0-9)+ − movff PLUSW1,lo ; read char_I_tank_pres_fill[WREG] into lo+ − incf lo,F ; increment fill press by by 1(0) bar+ − movlw max_fill_press ; load max. allowed value into WREG+ − cpfsgt lo ; press <= max value?+ − bra gaslist_tank_pres_1 ; YES - new value can be used+ − movlw min_fill_press ; NO - wrap-around to min value+ − movwf lo ; - and write to lo+ − gaslist_tank_pres_1:+ − movf gaslist_gas,W ; re-load index+ − movff lo,PLUSW1 ; write back tank size to char_I_tank_pres_fill[WREG]+ − return+ − + − ;----------------------------------------------------------------------------+ − ; Transmitter functions+ − + − IFDEF _rx_functions+ − + − global gaslist_tank_id_pres+ − gaslist_tank_id_pres: ; dynamic title: shows ID and pressure from transmitter with ID opt_transmitter_id[gaslist_gas]+ − ; When changing layout, adapt output position TFT_menu_tank_pres!+ − STRCAT " ID: " ; print header+ − ; get ID ;+ − lfsr FSR1,opt_transmitter_id_1 ; load base address of opt_transmitter_id+ − movf gaslist_gas,W ; load index (0-9)+ − 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+ − ; check if a transmitter is paired to this tank+ − tstfsz hi ; high byte of ID <> 0 ?+ − bra gaslist_tank_id_pres_1 ; YES - a transmitter is paired to the tank+ − tstfsz lo ; low byte of ID <> 0 ?+ − bra gaslist_tank_id_pres_1 ; YES - a transmitter is paired to the tank+ − ; no transmitter paired+ − STRCAT "----" ;+ − bcf menu_update_tank_pres ; stop imprinting of tank pressure updates+ − return+ − gaslist_tank_id_pres_1:+ − ; show ID+ − movf hi,W ; copy high byte of ID to WREG+ − output_hex ; print it+ − movf lo,W ; copy low byte of ID to WREG+ − output_hex ; print it+ − bsf menu_update_tank_pres ; start imprinting of tank pressure updates+ − return+ − + − + − global gaslist_tank_pairing+ − gaslist_tank_pairing:+ − incf pairing_slot,F ; goto next RX data slot+ − btfsc pairing_slot,3 ; slot = 8?+ − bra gaslist_tank_pairing_none ; YES - offer unpairing+ − movf pairing_slot,W ; NO - copy slot to WREG+ − call get_transmitter_id_by_slot ; WREG = slot (0-7) -> hi:lo = transmitter ID+ − tstfsz hi ; transmitter found (probe on high byte)?+ − bra gaslist_tank_pairing_common ; YES - select this transmitter+ − tstfsz hi ; transmitter found (probe on low byte)?+ − bra gaslist_tank_pairing_common ; YES - select this transmitter+ − bra gaslist_tank_pairing ; NO - try next slot+ − gaslist_tank_pairing_common:+ − lfsr FSR1,opt_transmitter_id_1 ; load base address of opt_transmitter_id+ − movf gaslist_gas,W ; load index into WREG (0-9)+ − rlncf WREG,W ; multiply by 2 because IDs are 2 byte in size+ − movff lo,PLUSW1 ; copy lo to opt_transmitter_id+0[gaslist_gas]+ − incf WREG,W ; increment index+ − movff hi,PLUSW1 ; copy hi to opt_transmitter_id+1[gaslist_gas]+ − return ; done+ − gaslist_tank_pairing_none:+ − setf pairing_slot ; prime slot number with 255 aka -1+ − clrf hi ; adjust "no transmitter" ID+ − clrf lo ; adjust "no transmitter" ID+ − bra gaslist_tank_pairing_common ; continue with common part+ − + − ENDIF+ − + − ;----------------------------------------------------------------------------+ − ; Increment/Decrement O2 ratio+ − + − global gaslist_pO2+ − gaslist_pO2:+ − movf gaslist_gas,W ; load index (0-9)+ − lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio+ − movff PLUSW1,hi ; read He ratio into hi+ − lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio+ − movff PLUSW1,lo ; read O2 ratio into lo+ − + − incf lo,F ; O2+++ − movf hi,W ; get He ratio into WREG+ − addwf lo,W ; add O2 ratio to WREG+ − movwf up ; move sum He + O2 to up+ − movlw .101 ;+ − cpfslt up ; O2 + He < 101?+ − decf lo,F ; O2-- (revoke ++)+ − movf gaslist_gas,W ; re-load index+ − movff lo,PLUSW1 ; write back O2 ratio to opt_gas_O2_ratio[WREG]+ − return+ − + − global gaslist_mO2+ − gaslist_mO2:+ − movf gaslist_gas,W ; load index (0-9)+ − lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio+ − movff PLUSW1,lo ; read O2 ratio into lo+ − + − decf lo,F ; O2--+ − movlw gaslist_min_o2 ; get minimum allowed O2 ratio+ − cpfslt lo ; current O2 ratio below allowed minimum?+ − bra gaslist_mO2_1 ; NO+ − movwf lo ; YES - copy minimum O2 ratio to lo+ − gaslist_mO2_1:+ − movf gaslist_gas,W ; re-load index+ − movff lo,PLUSW1 ; write back O2 ratio to opt_gas_O2_ratio[WREG]+ − return+ − + − ;----------------------------------------------------------------------------+ − ; Increment/Decrement He ratio+ − + − global gaslist_pHe+ − gaslist_pHe:+ − movf gaslist_gas,W ; load index (0-9)+ − lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio+ − movff PLUSW1,lo ; read O2 ratio into lo+ − lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio+ − movff PLUSW1,hi ; read He ratio into hi+ − + − incf hi,F ; He+++ − movf hi,W ; get He ratio into WREG+ − addwf lo,W ; add O2 ratio to WREG+ − movwf up ; move sum He + O2 to up+ − movlw .101 ;+ − cpfslt up ; O2 + He < 101?+ − decf hi,F ; He-- (revoke ++)+ − movf gaslist_gas,W ; re-load index+ − movff hi,PLUSW1 ; write back He ratio to opt_gas_He_ratio[WREG]+ − return+ − + − global gaslist_mHe+ − gaslist_mHe:+ − movf gaslist_gas,W ; load index (0-9)+ − lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio+ − movff PLUSW1,hi ; read He ratio into hi+ − + − decf hi,F ; He--+ − bnn gaslist_mHe_1 ; He ratio negative?+ − clrf hi ; YES - set He ratio to 0+ − gaslist_mHe_1:+ − movf gaslist_gas,W ; re-load index+ − movff hi,PLUSW1 ; write back He ratio to opt_gas_He_ratio[WREG]+ − return+ − + − ;----------------------------------------------------------------------------+ − ; Increment/Decrement switch depth+ − + − global gaslist_pDepth+ − gaslist_pDepth:+ − lfsr FSR1,opt_gas_change ; load base address of opt_gas_change+ − movf gaslist_gas,W ; load index (0-4)+ − movff PLUSW1,lo ; read switch depth into lo+ − incf lo,F ; increment switch depth+ − movlw gaslist_max_change_depth ; get max change depth+ − cpfsgt lo ; above max change depth?+ − bra gaslist_pDepth_1 ; NO+ − movwf lo ; YES - revert to max change depth+ − gaslist_pDepth_1:+ − movf gaslist_gas,W ; re-load index+ − movff lo,PLUSW1 ; write back switch depth+ − return+ − + − global gaslist_mDepth+ − gaslist_mDepth:+ − lfsr FSR1,opt_gas_change ; load base address of opt_gas_change+ − movf gaslist_gas,W ; load index (0-4)+ − movff PLUSW1,lo ; read switch depth into lo+ − decf lo,F ; decrement switch depth+ − btfsc STATUS,N ; did depth became negative?+ − clrf lo ; YES - reset to zero+ − movff lo,PLUSW1 ; write back switch depth+ − return+ − + − global gaslist_spplus+ − gaslist_spplus:+ − movf gaslist_gas,W+ − lfsr FSR1,char_I_setpoint_cbar+ − movff PLUSW1,lo ; read setpoint+ − movlw gaslist_sp_stepsize+ − addwf lo,F+ − movlw gaslist_sp_max+ − cpfsgt lo+ − bra gaslist_spplus2+ − movlw gaslist_sp_min+ − movwf lo+ − gaslist_spplus2:+ − movf gaslist_gas,W+ − movff lo,PLUSW1 ; write back setpoint+ − return+ − + − global gaslist_spdepthplus+ − gaslist_spdepthplus:+ − movf gaslist_gas,W ; get setpoint number (0-4)+ − bz gaslist_spdepthplus2 ; setpoint number = 0? YES - force depth to always be 0m+ − lfsr FSR1,char_I_setpoint_change ; load base address of char_I_setpoint_change+ − movff PLUSW1,lo ; read setpoint depth into lo+ − incf lo,F ; increment depth+ − movlw gaslist_max_change_depth ; get max. depth+ − cpfsgt lo ; switch depth > max. depth?+ − bra gaslist_spdepthplus_1 ; NO+ − movwf lo ; YES - copy to lo+ − gaslist_spdepthplus_1:+ − movf gaslist_gas,W ; re-load index+ − movff lo,PLUSW1 ; write back setpoint depth+ − return+ − + − global gaslist_spdepthminus+ − gaslist_spdepthminus:+ − movf gaslist_gas,W ; get setpoint number (0-4)+ − bz gaslist_spdepthminus2 ; setpoint number = 0? YES - force depth to always be 0m+ − lfsr FSR1,char_I_setpoint_change ; load base address of char_I_setpoint_change+ − movff PLUSW1,lo ; read setpoint depth into lo+ − decf lo,F ; decrement switch depth+ − btfsc STATUS,N ; did depth became negative?+ − clrf lo ; YES - reset to zero+ − movff lo,PLUSW1 ; write back setpoint depth+ − return+ − + − gaslist_spdepthplus2:+ − gaslist_spdepthminus2:+ − movlw .0+ − movff WREG,char_I_setpoint_change+0 ; hard reset to 0m+ − return+ − + − + − ;----------------------------------------------------------------------------+ − ; Compute MOD from char_I_ppO2_max/char_I_ppO2_max_deco and current O2 ratio+ − ;+ − ; Input: gaslist_gas = current gas index.+ − ; opt_gas_O2_ratio[gaslist_gas] = current O2 ratio+ − ; Output: WREG = MOD [m]+ − ;+ − gaslist_calc_mod:+ − movf gaslist_gas,W ; load index (0...9)+ − lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio+ − movff PLUSW1,xB+0 ; read O2 ratio into xB+0+ − lfsr FSR1,opt_gas_type ; load base address of opt_gas_type+ − movff PLUSW1,xA+0 ; read gas/dil type into xA+0 (used as temp here)+ − movff char_I_ppO2_max_deco,xB+1 ; get max ppO2 for deco into xB+1 (used as temp here)+ − movlw .3 ; type code for deco gases+ − cpfseq xA+0 ; is it a deco gas?+ − movff char_I_ppO2_max,xB+1 ; NO - overwrite ppO2 max with none-deco max+ − movf xB+1,W ; copy resulting ppO2 max into WREG+ − clrf xB+1 ; clear xB+1 for div16x16 operation+ − mullw .10 ; multiply ppO2 max value with 10+ − movff PRODL,xA+0 ; copy result to xA+ − movff PRODH,xA+1+ − call div16x16 ; xC = xA / xB with xA as remainder+ − movf xC+0,W ; copy result to WREG+ − addlw -.10 ; subtract 10 cbar+ − return ; return with final result in WREG+ − + − ;----------------------------------------------------------------------------+ − + − global gaslist_ppo2+ − gaslist_ppo2:+ − STRCAT_TEXT tppO2 ; ppO2:+ − lfsr FSR1,opt_gas_change ; load base address of opt_gas_change+ − movf gaslist_gas,W ; load index (0-9)+ − movf PLUSW1,W ; read change depth into WREG+ − mullw .10 ; PROD = depth in mbar/10 (100 = 1.00 bar)+ − movlw .100 ; add 1 bar+ − addwf PRODL,F+ − movlw .0+ − addwfc PRODH,F+ − movff PRODL,xA+0 ; copy result to xA+ − movff PRODH,xA+1+ − lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio+ − movf gaslist_gas,W ; load index (0-9)+ − movff PLUSW1,xB+0 ; read O2 ratio into xB+0+ − clrf xB+1 ; clear xB+1+ − call mult16x16 ; calculate char_I_O2_ratio * (p_amb/10)+ − movff xC+0,xA+0 ; copy result to xA+ − movff xC+1,xA+1+ − movlw d'100' ; load 100 to xB+ − movwf xB+0+ − clrf xB+1+ − call div16x16 ; xC = xA / xB = (char_I_O2_ratio * p_amb/10)/100+ − ; check for very high ppO2+ − tstfsz xC+2 ; xC+2 remains from mult16x16, xC+2 > 0 (-> ppO2 is > 6.55 bar) ?+ − bra gaslist_ppo2_1 ; YES - display a fixed max value+ − movff xC+0,lo ; copy result to lo, hi+ − movff xC+1,hi+ − bcf ignore_digit4+ − bsf leftbind+ − output_16dp d'3' ; print ppO2 as x.xx+ − STRCAT_TEXT tbar ; print "bar"+ − return+ − gaslist_ppo2_1:+ − STRCAT ">6.6"+ − return+ − + − global gaslist_MOD_END+ − gaslist_MOD_END:+ − STRCAT_TEXT tMOD ; print "MOD:"+ − rcall gaslist_calc_mod ; compute MOD into WREG+ − movwf lo ; copy result to lo+ − call gaslist_strcat_depth ; print depth in meters or feet as configured+ − PUTC "/" ; print "/"+ − STRCAT_TEXT tEND ; print "END:"+ − rcall gaslist_calc_mod ; compute MOD into WREG+ − addlw .10 ; compute MOD = MOD + 10m+ − movwf xB+0+ − clrf xB+1+ − movlw d'100'+ − movwf xA+0+ − lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio+ − movf gaslist_gas,W ; load index (0...9)+ − movf PLUSW1,W ; read He ration into WREG+ − subwf xA+0,F ; xA+0 = 100 - He ratio in %+ − clrf xA+1+ − call mult16x16 ; xA*xB=xC+ − movff xC+0,xA+0+ − movff xC+1,xA+1+ − movlw d'100'+ − movwf xB+0+ − clrf xB+1+ − call div16x16 ; xC = xA / xB with xA as remainder+ − ; ; xC:2 = ((MOD+10) * 100 - HE Value in %) / 100+ − movlw d'10' ; subtract 10 m+ − subwf xC+0,F ; ...+ − movff xC+0,lo ; copy result to lo+ − bra gaslist_strcat_depth ; print depth in meters or feet as configured and return+ − + − + − global gaslist_reset_mod_title+ − gaslist_reset_mod_title:+ − STRCAT_TEXT tDepthReset+ − rcall gaslist_calc_mod ; compute MOD into WREG+ − movwf lo ; copy result to lo+ − lfsr FSR1,opt_gas_change ; load base address of opt_gas_change+ − movf gaslist_gas,W ; load index (0-9)+ − movf PLUSW1,W ; read change depth into WREG+ − cpfslt lo ; change depth > MOD ?+ − bra gaslist_strcat_depth ; NO - return+ − call TFT_warnings_color ; YES - use red color+ − bra gaslist_strcat_depth ; - return+ − + − + − global gaslist_reset_mod+ − gaslist_reset_mod:+ − rcall gaslist_calc_mod ; compute MOD into WREG+ − movwf lo ; copy result to lo+ − lfsr FSR1,opt_gas_change ; load base address of opt_gas_change+ − movf gaslist_gas,W ; load index (0-9)+ − movff lo,PLUSW1 ; write back new change depth+ − return+ − + − ;----------------------------------------------------------------------------+ − END+ −
