Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 75:35d947d7a6e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.73beta started, small fixes
author heinrichsweikamp
date Sun, 05 Dec 2010 21:40:58 +0100
parents a1ccb92b59cd
children cc657f9915d8
comparison
equal deleted inserted replaced
74:a1ccb92b59cd 75:35d947d7a6e7
383 bcf LED_red 383 bcf LED_red
384 return 384 return
385 385
386 PLED_divemode_mask: ; Displays mask in Dive-Mode 386 PLED_divemode_mask: ; Displays mask in Dive-Mode
387 call PLED_divemask_color ; Set Color for Divemode mask 387 call PLED_divemask_color ; Set Color for Divemode mask
388 DISPLAYTEXTH .267 ; Max Depth 388 DISPLAYTEXTH .267 ; Max.
389 DISPLAYTEXT .86 ; Divetime 389 DISPLAYTEXT .86 ; Divetime
390 DISPLAYTEXT .87 ; Depth 390 DISPLAYTEXT .87 ; Depth
391 call PLED_standard_color 391 call PLED_standard_color
392 return 392 return
393 393
936 ; temperature 936 ; temperature
937 movff temperature+0,last_temperature+0 937 movff temperature+0,last_temperature+0
938 movff temperature+1,last_temperature+1 938 movff temperature+1,last_temperature+1
939 939
940 WIN_TOP .216 940 WIN_TOP .216
941 WIN_LEFT .65 941 WIN_LEFT .50
942 WIN_FONT FT_SMALL 942 WIN_FONT FT_SMALL
943 WIN_INVERT .0 ; Init new Wordprocessor 943 WIN_INVERT .0 ; Init new Wordprocessor
944 call PLED_standard_color 944 call PLED_standard_color
945 945
946 lfsr FSR2,letter 946 lfsr FSR2,letter
1015 call PLED_display_clear_common_y1 1015 call PLED_display_clear_common_y1
1016 return 1016 return
1017 1017
1018 PLED_active_gas_clear: ; clears active gas! 1018 PLED_active_gas_clear: ; clears active gas!
1019 WIN_TOP .192 1019 WIN_TOP .192
1020 WIN_LEFT .65 1020 WIN_LEFT .50
1021 movlw d'5' 1021 movlw d'5'
1022 movwf temp1 1022 movwf temp1
1023 bra PLED_display_clear_common_y1; also returns! 1023 bra PLED_display_clear_common_y1; also returns!
1024 1024
1025 PLED_active_gas_divemode: ; Displays current gas (e.g. 40/20) if a) He>0 or b) O2>Custom9 1025 PLED_active_gas_divemode: ; Displays current gas (e.g. 40/20) if a) He>0 or b) O2>Custom9
1052 1052
1053 PLED_active_gas_divemode_show: 1053 PLED_active_gas_divemode_show:
1054 ostc_debug 's' ; Sends debug-information to screen if debugmode active 1054 ostc_debug 's' ; Sends debug-information to screen if debugmode active
1055 ; gas 1055 ; gas
1056 WIN_TOP .192 1056 WIN_TOP .192
1057 WIN_LEFT .65 1057 WIN_LEFT .50
1058 WIN_FONT FT_SMALL 1058 WIN_FONT FT_SMALL
1059 call PLED_standard_color 1059 call PLED_standard_color
1060 1060
1061 movlw d'100' ; 100% in the tank 1061 movlw d'100' ; 100% in the tank
1062 movff char_I_N2_ratio,lo ; minus N2 1062 movff char_I_N2_ratio,lo ; minus N2
2128 movff WREG,box_temp+4 ; column right (0-159) 2128 movff WREG,box_temp+4 ; column right (0-159)
2129 call PLED_box 2129 call PLED_box
2130 return 2130 return
2131 2131
2132 PLED_max_pressure: 2132 PLED_max_pressure:
2133 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
2134 return ; Yes, No update and return!
2135
2136 ostc_debug 'p' ; Sends debug-information to screen if debugmode active 2133 ostc_debug 'p' ; Sends debug-information to screen if debugmode active
2137 2134 movff max_pressure+0,lo
2135 movff max_pressure+1,hi
2136 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
2137
2138 movlw .039
2139 cpfslt hi
2140 bra maxdepth_greater_99_84mtr
2141
2142 ; Display normal "xx.y"
2143 lfsr FSR2,letter
2144 call PLED_standard_color
2138 WIN_TOP .184 2145 WIN_TOP .184
2139 WIN_LEFT .0 2146 WIN_LEFT .0
2140 WIN_FONT FT_MEDIUM 2147 WIN_FONT FT_MEDIUM
2141 WIN_INVERT .0 ; Init new Wordprocessor 2148 WIN_INVERT .0 ; Init new Wordprocessor
2142 call PLED_standard_color
2143
2144 lfsr FSR2,letter
2145 movff max_pressure+0,lo
2146 movff max_pressure+1,hi
2147 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
2148 bsf leftbind 2149 bsf leftbind
2149 bsf ignore_digit5 ; do not display 1cm depth 2150 bsf ignore_digit5 ; do not display 1cm depth
2150 output_16dp d'3' 2151 output_16dp d'3'
2151 bcf leftbind 2152 bcf leftbind
2152 bcf show_last3 2153 bcf show_last3
2153 call word_processor 2154 call word_processor
2154 WIN_FONT FT_SMALL 2155 WIN_FONT FT_SMALL
2156 return
2157
2158 maxdepth_greater_99_84mtr: ; Display only in full meters
2159 btfss maxdepth_greater_100m ; Is max.depth>100m already?
2160 call PLED_clear_maxdepth ; No, clear maxdepth area and set flag
2161 ; max Depth is already in hi:lo
2162 ; Show max depth in Full meters
2163 ; That means ignore figure 4 and 5
2164 lfsr FSR2,letter
2165 call PLED_standard_color
2166 WIN_TOP .184
2167 WIN_LEFT .0
2168 WIN_FONT FT_MEDIUM
2169 WIN_INVERT .0 ; Init new Wordprocessor
2170
2171 bsf ignore_digit4
2172 bsf leftbind
2173 output_16
2174 bcf leftbind
2175 call word_processor
2176 bcf ignore_digit4
2177 WIN_FONT FT_SMALL
2178 return
2179
2180 PLED_clear_maxdepth:
2181 movlw .0
2182 movff WREG,box_temp+0 ; Data
2183 movlw .184
2184 movff WREG,box_temp+1 ; row top (0-239)
2185 movlw .215
2186 movff WREG,box_temp+2 ; row bottom (0-239)
2187 movlw .0
2188 movff WREG,box_temp+3 ; column left (0-159)
2189 movlw .41
2190 movff WREG,box_temp+4 ; column right (0-159)
2191 call PLED_box
2192 bsf maxdepth_greater_100m ; Set Flag
2155 return 2193 return
2156 2194
2157 PLED_divemins: 2195 PLED_divemins:
2158 btfsc menubit ; Divemode menu active? 2196 btfsc menubit ; Divemode menu active?
2159 return ; Yes, do not update divetime 2197 return ; Yes, do not update divetime
3209 return ; Yes, No update and return! 3247 return ; Yes, No update and return!
3210 3248
3211 ostc_debug 'j' ; Sends debug-information to screen if debugmode active 3249 ostc_debug 'j' ; Sends debug-information to screen if debugmode active
3212 3250
3213 WIN_TOP .168 3251 WIN_TOP .168
3214 WIN_LEFT .65 3252 WIN_LEFT .50
3215 WIN_FONT FT_SMALL 3253 WIN_FONT FT_SMALL
3216 WIN_INVERT .0 ; Init new Wordprocessor 3254 WIN_INVERT .0 ; Init new Wordprocessor
3217 3255
3218 lfsr FSR2,letter 3256 lfsr FSR2,letter
3219 movff char_I_const_ppO2,lo 3257 movff char_I_const_ppO2,lo