Mercurial > public > hwos_code

comparison src/tft_outputs.asm @ 621:1ad0531e9078

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
3.01 release
author heinrichsweikamp
date Sat, 23 Feb 2019 16:51:14 +0100
parents b87f23fae743
children c40025d8e750
comparison
equal deleted inserted replaced
620:cd986267a5ca 621:1ad0531e9078
3076 bsf leftbind 3076 bsf leftbind
3077 output_8 3077 output_8
3078 PUTC '.' 3078 PUTC '.'
3079 movlw softwareversion_y 3079 movlw softwareversion_y
3080 movwf lo 3080 movwf lo
3081 output_8 3081 output_99x
3082 bcf leftbind 3082 bcf leftbind
3083 rcall check_expiry 3083 rcall check_expiry
3084 btfss aux_flag 3084 btfss aux_flag
3085 return 3085 return
3086 bsf win_invert 3086 bsf win_invert
3123 bra TFT_cat_beta_common 3123 bra TFT_cat_beta_common
3124 TFT_cat_beta_rel: ; entry point for printing "Rel." / "B. #" 3124 TFT_cat_beta_rel: ; entry point for printing "Rel." / "B. #"
3125 bcf aux_flag 3125 bcf aux_flag
3126 TFT_cat_beta_common: 3126 TFT_cat_beta_common:
3127 IFDEF __DEBUG 3127 IFDEF __DEBUG
3128 STRCAT "DEBUG" 3128 STRCAT "DBG "
3129 goto TFT_warnings_color 3129 goto TFT_warnings_color
3130 ELSE 3130 ELSE
3131 movlw softwareversion_beta ; =0: release, =1: beta 1, =2: beta 2, ... 3131 movlw softwareversion_beta ; =0: release, =1: beta 1, =2: beta 2, ...
3132 movwf lo ; copy to lo 3132 movwf lo ; copy to lo
3133 tstfsz lo ; release version? 3133 tstfsz lo ; release version?
3135 btfss aux_flag ; YES - shall show long version? 3135 btfss aux_flag ; YES - shall show long version?
3136 bra TFT_cat_beta_2 ; NO - show short version 3136 bra TFT_cat_beta_2 ; NO - show short version
3137 rcall check_expiry ; YES - check expiry date 3137 rcall check_expiry ; YES - check expiry date
3138 btfsc aux_flag ; - within expiry date? 3138 btfsc aux_flag ; - within expiry date?
3139 bra TFT_cat_beta_4 ; NO - give update cue 3139 bra TFT_cat_beta_4 ; NO - give update cue
3140 STRCAT "Release" ; YES - print "Release" 3140 STRCAT "Rel. " ; YES - print "Release"
3141 return ; - done 3141 return ; - done
3142 TFT_cat_beta_1: 3142 TFT_cat_beta_1:
3143 btfss aux_flag ; shall show long version? 3143 btfss aux_flag ; shall show long version?
3144 bra TFT_cat_beta_3 ; NO - show short version 3144 bra TFT_cat_beta_3 ; NO - show short version
3145 STRCAT "Beta " ; YES - show long version 3145 STRCAT "Beta " ; YES - show long version
4891 TFT_surface_tankdata_print_3: 4891 TFT_surface_tankdata_print_3:
4892 movf POSTINC1,W ; dummy read (+5) to advance index 4892 movf POSTINC1,W ; dummy read (+5) to advance index
4893 return 4893 return
4894 4894
4895 4895
4896 ; TFT_surface_tankdata_debug: ; surface custom view debug output 4896 TFT_surface_tankdata_debug: ; surface custom view debug output
4897 ; call TFT_standard_color 4897 call TFT_standard_color
4898 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*0 4898 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*0
4899 ; rcall TFT_surface_tankdata_debug_print 4899 rcall TFT_surface_tankdata_debug_print
4900 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*1 4900 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*1
4901 ; rcall TFT_surface_tankdata_debug_print 4901 rcall TFT_surface_tankdata_debug_print
4902 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*2 4902 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*2
4903 ; rcall TFT_surface_tankdata_debug_print 4903 rcall TFT_surface_tankdata_debug_print
4904 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*3 4904 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*3
4905 ; rcall TFT_surface_tankdata_debug_print 4905 rcall TFT_surface_tankdata_debug_print
4906 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*4 4906 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*4
4907 ; rcall TFT_surface_tankdata_debug_print 4907 rcall TFT_surface_tankdata_debug_print
4908 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*5 4908 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*5
4909 ; rcall TFT_surface_tankdata_debug_print 4909 rcall TFT_surface_tankdata_debug_print
4910 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*6 4910 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*6
4911 ; rcall TFT_surface_tankdata_debug_print 4911 rcall TFT_surface_tankdata_debug_print
4912 ; WIN_TINY surf_customtext_column,surf_customtext_row1+.14*7 4912 WIN_TINY surf_customtext_column,surf_customtext_row1+.14*7
4913 ; rcall TFT_surface_tankdata_debug_print 4913 rcall TFT_surface_tankdata_debug_print
4914 ; return 4914 return
4915 4915
4916 ; TFT_surface_tankdata_debug_print: 4916 TFT_surface_tankdata_debug_print:
4917 ; movff POSTINC1,hi ; ID high (+0) 4917 movff POSTINC1,hi ; ID high (+0)
4918 ; movff POSTINC1,lo ; ID low (+1) 4918 movff POSTINC1,lo ; ID low (+1)
4919 ; output_16 4919 output_16
4920 ; PUTC "," 4920 PUTC ","
4921 ; movff POSTINC1,hi ; pressure high (+2) 4921 movff POSTINC1,hi ; pressure high (+2)
4922 ; movff POSTINC1,lo ; pressure low (+3) 4922 movff POSTINC1,lo ; pressure low (+3)
4923 ; call TFT_color_code_tank_pres_sac; needed to clear the status flags before output 4923 call TFT_color_code_tank_pres_sac; needed to clear the status flags before output
4924 ; output_16 4924 output_16
4925 ; PUTC "," 4925 PUTC ","
4926 ; movff POSTINC1,lo ; status (+4) 4926 movff POSTINC1,lo ; status (+4)
4927 ; output_8 4927 output_8
4928 ; PUTC "," 4928 PUTC ","
4929 ; movff POSTINC1,lo ; date (+5) 4929 movff POSTINC1,lo ; date (+5)
4930 ; output_8 4930 output_8
4931 ; STRCAT_PRINT "" 4931 STRCAT_PRINT ""
4932 ; return 4932 return
4933
4934 ENDIF 4933 ENDIF
4935 4934
4936 ;============================================================================= 4935 ;=============================================================================
4937 4936
4938 global adjust_depth_with_salinity 4937 global adjust_depth_with_salinity