Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/menu_custom.asm @ 574:101fec6a6137
New Custom Functions III menu (CF64-CF95)
| author | heinrichsweikamp |
|---|---|
| date | Sat, 21 Apr 2012 13:58:30 +0200 |
| parents | 77c8ff191cd7 |
| children | ab2686087bce |
| rev | line source |
|---|---|
| 0 | 1 ; OSTC - diving computer code |
| 2 ; Copyright (C) 2008 HeinrichsWeikamp GbR | |
| 3 | |
| 4 ; This program is free software: you can redistribute it and/or modify | |
| 5 ; it under the terms of the GNU General Public License as published by | |
| 6 ; the Free Software Foundation, either version 3 of the License, or | |
| 7 ; (at your option) any later version. | |
| 8 | |
| 9 ; This program is distributed in the hope that it will be useful, | |
| 10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 ; GNU General Public License for more details. | |
| 13 | |
| 14 ; You should have received a copy of the GNU General Public License | |
| 15 ; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
| 16 | |
| 17 | |
| 18 ; Menu "Custom Functions", Custom Functions checker (Displays permanent warning if critical custom functions are altered) | |
| 19 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
20 ; written: 051030 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
21 ; last updated: 120421 |
| 0 | 22 ; known bugs: |
| 23 ; ToDo: | |
| 24 | |
| 25 ;First Bank of Custom Functions: | |
| 26 ; The custom functions are stored in the internal EEPROM after 0x80 | |
| 27 ; any custom function occupies 4 byte: | |
| 28 ; 2 byte (low:high) store the default value, reset from menu "reset" | |
| 29 ; if bit16=1 then the custrom function is 15bit value, if not it's a 8bit value | |
| 30 ; 2 byte (low:high) store the actual value | |
| 31 ; defaults for custom functions are in menu "reset" | |
| 32 ; get values with GETCUSTOM8 .x with x=0...32 for 8 Bit values (stored in WREG) | |
| 33 ; or with GETCUSTOM15 .x with x=0...32 for 15 Bit values (stored in lo and hi) | |
| 34 | |
| 35 ;Second Bank of Custom Functions: | |
| 36 ; The custom functions are stored in the internal EEPROM after 0x180 | |
| 37 ; any custom function occupies 4 byte: | |
| 38 ; 2 byte (low:high) store the default value, reset from menu "reset" | |
| 39 ; if bit16=1 then the custrom function is 15bit value, if not it's a 8bit value | |
| 40 ; 2 byte (low:high) store the actual value | |
| 41 ; defaults for custom functions are in menu "reset" | |
| 42 ; get values with GETCUSTOM8 .x with x=0...32 for 8 Bit values (stored in WREG) | |
| 43 ; or with GETCUSTOM15 .x with x=0...32 for 15 Bit values (stored in lo and hi) | |
| 44 | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
45 ;Third Bank of Custom Functions: |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
46 ; The custom functions are stored in the internal EEPROM after 0x280 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
47 ; any custom function occupies 4 byte: |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
48 ; 2 byte (low:high) store the default value, reset from menu "reset" |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
49 ; if bit16=1 then the custrom function is 15bit value, if not it's a 8bit value |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
50 ; 2 byte (low:high) store the actual value |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
51 ; defaults for custom functions are in menu "reset" |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
52 ; get values with GETCUSTOM8 .x with x=0...32 for 8 Bit values (stored in WREG) |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
53 ; or with GETCUSTOM15 .x with x=0...32 for 15 Bit values (stored in lo and hi) |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
54 |
| 79 | 55 ; [jDG] 2010-11-30 More fancy displsy of the various CF types |
| 56 ; data types. When we do have a 8bit data (bit16=0), the high byte serves to | |
| 97 | 57 ; define the display format. Also stores min/max bounds into the PROM table. |
| 58 ; And provides surfacemode checking of all parameters. | |
| 79 | 59 |
|
478
fd8266b511cc
New SAC (CF56/CF57) in 5..50 l/min range (no more decimal).
JeanDo
parents:
445
diff
changeset
|
60 CF_INT8 EQU 0 ; Default display, 8 or 15 bits values. |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
61 CF_PERCENT EQU 1 ; Displays 110% |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
62 CF_DECI EQU 2 ; Displays 1.6 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
63 CF_CENTI EQU 3 ; Displays 1.50 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
64 CF_MILI EQU 4 ; Displays 1.015 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
65 CF_BOOL EQU 5 ; Displays ON/OFF |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
66 CF_SEC EQU 6 ; Displays 4:00 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
67 CF_COLOR EQU 7 ; Display 240 plus a color watch (inverse video space) |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
68 ; |
| 355 | 69 CF_TYPES EQU 0x0F |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
70 CF_MAX_BIT EQU 6 ; Default is the highest safe value. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
71 CF_MAX EQU (1<<CF_MAX_BIT) |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
72 CF_MIN_BIT EQU 5 ; Default is the lowest safe value. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
73 CF_MIN EQU (1<<CF_MIN_BIT) |
| 355 | 74 CF_NEG_BIT EQU 4 ; Allow negativ values. |
| 75 CF_NEG EQU (1<<CF_NEG_BIT) | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
76 ; |
| 79 | 77 CF_INT15 EQU 0x80; Default display. Flag for 15bit, typeless values. |
| 0 | 78 |
| 360 | 79 ;============================================================================= |
| 80 ; Overlay our tmp data in ACCESS0 bank | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
81 CBLOCK tmp ; Into safe (from C library) area. |
| 360 | 82 cf32_x4 ; CF# modulus 32, time 4. |
| 83 cf_type ; Type of the edited CF | |
| 84 cf_default:2 | |
| 85 cf_value:2 | |
| 86 cf_min | |
| 87 cf_max | |
| 88 cf_step ; Value ad add/substract: 1, 10, 100 | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
89 cf_page_number ; CF page number (0: 0-31, 1: 32-63) |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
90 cf_title_text ; # of text for title |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
91 cf_descriptor_text ; # of descriptor text offset |
| 360 | 92 ENDC |
| 93 | |
| 94 ;============================================================================= | |
| 95 | |
| 0 | 96 GETCUSTOM8 macro custom8 |
| 97 movlw custom8 | |
| 98 call getcustom8_1 | |
| 99 endm | |
| 100 | |
| 101 getcustom8_1: | |
| 102 ; # number of requested custom function in wreg | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
103 movwf customfunction_temp1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
104 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
105 clrf EEADRH |
| 0 | 106 movlw d'31' |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
107 cpfsgt customfunction_temp1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
108 bra getcustom8_3 ; bank 0 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
109 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
110 movlw d'1' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
111 movwf EEADRH ; bank 1 |
| 0 | 112 movlw d'32' |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
113 subwf customfunction_temp1,F |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
114 movlw d'63' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
115 cpfsgt customfunction_temp1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
116 bra getcustom8_3 ; bank 1 |
| 0 | 117 |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
118 movlw d'2' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
119 movwf EEADRH ; bank 2 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
120 movlw d'64' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
121 subwf customfunction_temp1,F |
| 0 | 122 getcustom8_3: |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
123 movf customfunction_temp1,W |
| 0 | 124 mullw d'4' |
| 125 movf PRODL,W ; x4 for adress | |
| 126 addlw d'130' | |
| 127 movwf EEADR ; +130 for LOW Byte of value | |
| 128 call read_eeprom ; Lowbyte | |
| 129 movf EEDATA,W ; copied into wreg | |
| 130 clrf EEADRH | |
| 131 return ; return | |
| 132 | |
| 167 | 133 GETCUSTOM15 macro number |
| 134 movlw number | |
| 135 call getcustom15 | |
| 0 | 136 endm |
| 137 | |
| 167 | 138 global getcustom15 |
| 139 getcustom15: | |
| 0 | 140 ; # number of requested custom function in wreg |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
141 movwf customfunction_temp1 |
| 0 | 142 |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
143 clrf EEADRH |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
144 movlw d'31' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
145 cpfsgt customfunction_temp1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
146 bra getcustom15_3 ; bank 0 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
147 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
148 movlw d'1' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
149 movwf EEADRH ; bank 1 |
| 0 | 150 movlw d'32' |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
151 subwf customfunction_temp1,F |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
152 movlw d'63' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
153 cpfsgt customfunction_temp1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
154 bra getcustom15_3 ; bank 1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
155 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
156 movlw d'2' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
157 movwf EEADRH ; bank 2 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
158 movlw d'64' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
159 subwf customfunction_temp1,F |
| 0 | 160 getcustom15_3: |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
161 movf customfunction_temp1,W |
| 0 | 162 mullw d'4' |
| 163 movf PRODL,W ; x4 for adress | |
| 164 addlw d'130' | |
| 165 movwf EEADR ; +130 for LOW Byte of value | |
| 166 call read_eeprom ; Lowbyte | |
| 167 movff EEDATA,lo | |
| 168 incf EEADR,F | |
| 169 call read_eeprom ; Highbyte | |
| 170 movff EEDATA,hi | |
| 171 clrf EEADRH | |
| 172 return ; return | |
| 173 | |
| 574 | 174 menu_custom_functions_page3: |
| 175 movlw .2 | |
| 176 movff WREG,cf_page_number ; CF page number (0: 0-31, 1: 32-63) | |
| 177 movlw .225 | |
| 178 movff WREG,cf_title_text ; # of text for title | |
| 179 movlw .193 | |
| 180 movff WREG,cf_descriptor_text ; # of descriptor text offset | |
| 181 bra menu_custom_functions0 | |
| 182 | |
| 0 | 183 menu_custom_functions_page2: |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
184 movlw .1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
185 movff WREG,cf_page_number ; CF page number (0: 0-31, 1: 32-63) |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
186 movlw .186 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
187 movff WREG,cf_title_text ; # of text for title |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
188 movlw .154 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
189 movff WREG,cf_descriptor_text ; # of descriptor text offset |
| 0 | 190 bra menu_custom_functions0 |
| 191 | |
| 192 menu_custom_functions: | |
| 574 | 193 movlw .0 |
| 194 movff WREG,cf_page_number ; CF page number (0: 0-31, 1: 32-63) | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
195 movlw .27 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
196 movff WREG,cf_title_text ; # of text for title |
| 574 | 197 movlw .36 |
| 198 movff WREG,cf_descriptor_text ; # of descriptor text offset | |
| 0 | 199 |
| 200 menu_custom_functions0: | |
| 201 bsf leftbind | |
| 202 call PLED_ClearScreen | |
| 203 movlw d'1' | |
| 204 movwf menupos | |
| 205 | |
| 206 bcf menubit4 | |
| 207 bcf cursor | |
| 208 bcf sleepmode | |
| 209 clrf decodata+0 ; here: # of CustomFunction | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
210 clrf cf32_x4 ; here: # of CustomFunction*4 |
| 0 | 211 bcf first_FA ; here: =1: -, =0: + |
| 360 | 212 movlw 1 ; Stepsize: 1, 10, or 100. |
| 213 movwf cf_step | |
| 0 | 214 |
| 215 call PLED_topline_box | |
| 216 WIN_INVERT .1 ; Init new Wordprocessor | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
217 movff cf_title_text,WREG ; Title text in low bank |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
218 call displaytext_1_low |
| 0 | 219 WIN_INVERT .0 ; Init new Wordprocessor |
| 220 | |
| 221 menu_custom_functions1: | |
| 123 | 222 call PLED_standard_color ; Trash EEADRH... |
| 29 | 223 |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
224 movff cf_page_number,EEADRH ; CF page number (0: 0-31, 1: 32-63) |
| 7 | 225 |
| 0 | 226 clrf timeout_counter2 |
| 227 bcf menubit2 | |
| 228 bcf menubit3 | |
| 229 WIN_LEFT .20 | |
| 230 WIN_TOP .35 | |
| 231 lfsr FSR2,letter | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
232 movff decodata+0,lo ; decodata == CF number % 32 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
233 |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
234 movff cf_page_number,WREG ; CF page number (0: 0-31, 1: 32-63) |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
235 mullw .32 ; CF page number * 32 -> PRODL:PRODH |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
236 movf PRODL,W |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
237 addwf lo,F ; Add offset for display in CF menu |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
238 |
| 0 | 239 output_99x |
| 123 | 240 STRCAT_PRINT ": " |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
241 movff cf_descriptor_text,WREG ; start of custom function descriptors |
| 0 | 242 addwf decodata+0,W ; add # of current custom function, place result in wreg |
| 174 | 243 call displaytext_1_low ; shows descriptor |
| 0 | 244 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
245 ; Read default, type and min/max from reset table. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
246 rcall cf_read_default |
| 0 | 247 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
248 movf cf_type,W ; Is it a ON/OFF flag ? |
| 79 | 249 xorlw CF_BOOL |
| 250 bnz menu_custom_functions10a ; Not a binary CF selected | |
| 0 | 251 |
| 252 menu_custom_functions10c: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
253 ; Erase unused lines when editing boolean... |
| 79 | 254 WIN_LEFT .20 |
| 255 WIN_TOP .65 | |
| 256 lfsr FSR2,letter ; Make a string of 8 spaces | |
| 84 | 257 call cf_fill_line |
| 79 | 258 call word_processor ; Clear +/- line |
| 259 | |
| 260 WIN_TOP .95 | |
| 261 call word_processor ; Clear 1/10 line | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
262 |
| 0 | 263 bra menu_custom_functions10b |
| 264 | |
| 265 menu_custom_functions10a: | |
| 266 WIN_LEFT .20 | |
| 267 WIN_TOP .65 | |
| 123 | 268 STRCPY "+/-: " |
| 0 | 269 movlw '+' |
| 270 btfsc first_FA | |
| 271 movlw '-' | |
| 272 movwf POSTINC2 | |
| 273 call word_processor | |
| 274 | |
| 275 WIN_TOP .95 | |
| 445 | 276 STRCPY TXT_STEP5 |
| 360 | 277 clrf hi |
| 278 movff cf_step,lo | |
| 279 call display_formated ; Typed display, w/o fill line. | |
| 280 STRCAT_PRINT " " ; 2 spaces for "0.01"->"1" | |
| 0 | 281 |
| 79 | 282 menu_custom_functions10b: |
| 0 | 283 WIN_LEFT .20 |
| 284 WIN_TOP .125 | |
| 285 lfsr FSR2,letter | |
| 360 | 286 OUTPUTTEXT d'89' ; "Default:" |
| 0 | 287 |
| 360 | 288 movff cf_default+0,lo |
| 289 movff cf_default+1,hi | |
| 290 call display_customfunction ; Typed display. | |
| 0 | 291 |
| 292 WIN_LEFT .20 | |
| 293 WIN_TOP .155 | |
| 294 lfsr FSR2,letter | |
| 360 | 295 OUTPUTTEXT d'97' ; "Current:" |
| 0 | 296 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
297 movf cf32_x4,W |
| 0 | 298 addlw 0x82 |
| 299 movwf EEADR | |
| 300 call read_eeprom ; Lowbyte | |
| 360 | 301 movff EEDATA,cf_value+0 |
| 79 | 302 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
303 movf cf32_x4,W |
| 0 | 304 addlw 0x83 |
| 305 movwf EEADR | |
| 306 call read_eeprom ; Highbyte | |
| 360 | 307 movff EEDATA,cf_value+1 |
| 79 | 308 |
| 123 | 309 call PLED_standard_color ; Changed by color swatches, but trash EEADRH... |
| 360 | 310 movff cf_value+0,lo |
| 311 movff cf_value+1,hi | |
| 79 | 312 call display_customfunction |
| 0 | 313 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
314 ; End of mask: min/max and the exit line... |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
315 rcall display_minmax |
| 0 | 316 DISPLAYTEXT .11 ; Exit |
| 317 | |
| 318 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 319 call PLED_menu_cursor | |
| 320 | |
| 321 customfunctions_loop: | |
| 337 | 322 call check_switches_logbook |
| 0 | 323 |
| 337 | 324 btfsc menubit3 |
| 325 bra customfunctions2 ; Move cursor or generate next page | |
| 0 | 326 |
| 337 | 327 btfsc menubit2 |
| 328 bra do_customfunction ; call subfunction | |
| 0 | 329 |
| 330 btfsc divemode | |
| 337 | 331 goto restart ; dive started during cf menu |
| 0 | 332 |
| 333 btfsc onesecupdate | |
| 334 call timeout_surfmode | |
| 335 | |
| 336 btfsc onesecupdate | |
| 337 call set_dive_modes | |
| 338 | |
| 337 | 339 bcf onesecupdate ; end of 1sek. tasks |
| 335 | 340 |
| 0 | 341 btfsc sleepmode |
| 337 | 342 bra exit_customfunctions |
| 0 | 343 |
| 337 | 344 bra customfunctions_loop |
| 0 | 345 |
| 346 customfunctions2: | |
| 347 incf menupos,F | |
| 90 | 348 movf cf_type,W ; Are we editing a boolean value ? |
| 349 xorlw CF_BOOL | |
| 350 bnz customfunctions2a ; NO : don't skip lines 2/3. | |
| 84 | 351 |
| 352 movlw d'4' ; Just after increment, | |
| 353 cpfsgt menupos ; Is current position < 4 ? | |
| 354 movwf menupos ; NO: skip set to 4. | |
| 355 | |
| 356 customfunctions2a: | |
| 0 | 357 movlw d'7' |
| 358 cpfseq menupos ; =7? | |
| 359 bra customfunctions3 ; No | |
| 360 movlw d'1' | |
| 361 movwf menupos | |
| 362 | |
| 363 customfunctions3: | |
| 364 clrf timeout_counter2 | |
| 365 call PLED_menu_cursor | |
| 366 | |
| 367 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 368 | |
| 369 bcf menubit3 ; clear flag | |
| 370 bra customfunctions_loop | |
| 371 | |
| 79 | 372 ;----------------------------------------------------------------------------- |
| 94 | 373 ; Read default value, type, and constraints |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
374 ; |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
375 ; Input: cf32_x4 |
| 360 | 376 ; Output: cf_default, cf_type, cf_min, cf_max. |
| 94 | 377 ; Trashes: TBLPTR |
| 378 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
379 cf_read_default: |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
380 movlw LOW(cf_default_table0) ; Get 24bit PROM pointer. SKIP |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
381 movwf TBLPTRL |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
382 movlw HIGH(cf_default_table0) |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
383 movwf TBLPTRH |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
384 movlw UPPER(cf_default_table0) |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
385 movwf TBLPTRU |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
386 |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
387 movff cf_page_number,WREG ; CF page number (0: 0-31, 1: 32-63) |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
388 mullw 0x80 ; CF page number * 0x80 -> PRODL:PRODH |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
389 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
390 movf PRODL,W |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
391 addwf cf32_x4,W ; Add 4 x (CF index modulus 32) |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
392 addwf TBLPTRL,F ; And to a 8+16 add into TBLPTR |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
393 movf PRODH,W |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
394 addwfc TBLPTRH,F ; Propagate to 16bit (but not 24bits). |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
395 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
396 tblrd*+ |
| 360 | 397 movff TABLAT,cf_default+0 ; Low byte |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
398 tblrd*+ |
| 360 | 399 movff TABLAT,cf_default+1 ; High byte |
| 400 btfss cf_default+1,7 ; 15bit ? | |
| 401 clrf cf_default+1 ; NO: clear extra type flags | |
| 402 bcf cf_default+1,7 ; clear 15bit flag | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
403 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
404 movff TABLAT,cf_type ; type (high byte) --> cf_type |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
405 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
406 tblrd*+ |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
407 movff TABLAT,cf_min ; Then get optional min/max |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
408 tblrd*+ |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
409 movff TABLAT,cf_max |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
410 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
411 return |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
412 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
413 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
414 ; Display a 8/15bit value, plus optional min and max bound. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
415 ; Input : hi:lo = data to display. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
416 ; cf_type = the type. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
417 ; cf_min, cf_max : the optional min/max. |
| 79 | 418 ; FSR2 = current string pointer. |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
419 ; Trash : hi:lo (when displaying min/max) |
| 79 | 420 |
| 421 display_customfunction: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
422 movff EEADRH, FSR1H ; Backup... |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
423 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
424 rcall display_formated |
| 123 | 425 incf WREG ; Color swatch drawn ? |
| 426 bz display_customfunction_1 ; YES: skip line fill... | |
| 427 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
428 rcall cf_fill_line |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
429 call word_processor |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
430 |
| 123 | 431 display_customfunction_1: |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
432 movff FSR1H, EEADRH |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
433 return |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
434 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
435 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
436 ; Display optional min/max values. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
437 ; Inputs: cf_value, cf_min, cf_max (and cf_type to display min/max). |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
438 ; Trashed: hi:lo while display min and max values. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
439 display_minmax: |
| 99 | 440 ; Min/max unsupported for 15bit values yet... |
| 79 | 441 movff EEADRH, FSR1H ; Backup... |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
442 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
443 ; Display min line |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
444 WIN_TOP .65 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
445 WIN_LEFT .100 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
446 lfsr FSR2, letter |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
447 |
| 100 | 448 btfsc cf_type,7 ; A 15bit value ? |
| 449 bra cf_no_min ; Don't display, hence clear line... | |
| 450 | |
| 355 | 451 btfss cf_type,CF_MIN_BIT ; A min value exists ? |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
452 bra cf_no_min |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
453 |
| 355 | 454 btfss cf_type,CF_NEG_BIT |
| 455 bra cf_min_unsigned | |
| 456 | |
| 457 ; Uses 16bit sub for checking signed min value. | |
| 458 movff cf_value,sub_a+0 ; A <- value | |
| 459 clrf sub_a+1 | |
| 460 btfsc cf_value,7 ; extend sign if value < 0 | |
| 461 setf sub_a+1 | |
| 462 | |
| 463 movff cf_min,sub_b+0 ; B <- min (with signed extend) | |
| 464 setf sub_b+1 ; min have to be negativ. | |
| 465 call sub16 ; Compute (A-B) | |
| 466 | |
| 467 btfss neg_flag ; Result < 0 ? | |
| 468 bra cf_min_passed ; NO | |
| 469 bra cf_min_failed ; YES | |
| 470 | |
| 471 cf_min_unsigned: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
472 movf cf_min,W ; Retrieve current 8b value |
| 355 | 473 subwf cf_value,W ; Compute (value-min) |
| 474 bc cf_min_passed ; Ok if CARRY, ie. min >= lo | |
| 475 | |
| 476 cf_min_failed: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
477 call PLED_warnings_color |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
478 WIN_INVERT 1 |
| 355 | 479 |
| 480 cf_min_passed: | |
| 123 | 481 STRCAT "> " ; A min value follows |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
482 movff cf_min, lo |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
483 rcall display_formated |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
484 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
485 cf_no_min: |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
486 rcall cf_fill_line ; Fill buffer |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
487 lfsr FSR2, letter+.7 ; Limit to 8 chars btw. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
488 call word_processor |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
489 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
490 ; Display max line |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
491 WIN_TOP .95 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
492 call PLED_standard_color |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
493 WIN_INVERT 0 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
494 lfsr FSR2, letter |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
495 |
| 100 | 496 btfsc cf_type,7 ; A 15bit value ? |
| 497 bra cf_no_max ; Don't display, hence clear line too... | |
| 498 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
499 btfss cf_type, CF_MAX_BIT ; A max value exists ? |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
500 bra cf_no_max |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
501 |
| 355 | 502 btfss cf_type,CF_NEG_BIT |
| 503 bra cf_max_unsigned | |
| 504 | |
| 505 ; Uses 16bit sub for checking signed min value. | |
| 506 movff cf_max,sub_a+0 ; A <- max (with signed extend) | |
| 507 clrf sub_a+1 ; max have to be positiv. | |
| 508 | |
| 509 movff cf_value,sub_b+0 ; B <- value | |
| 510 clrf sub_b+1 | |
| 511 btfsc cf_value,7 ; extend sign if value < 0 | |
| 512 setf sub_b+1 | |
| 513 call sub16 ; Compute (A-B) | |
| 514 | |
| 515 btfss neg_flag ; Result < 0 ? | |
| 516 bra cf_max_passed ; NO | |
| 517 bra cf_max_failed ; YES | |
| 518 | |
| 519 cf_max_unsigned: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
520 movf cf_value,W ; Retrieve current max bound |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
521 subwf cf_max,W ; Compute (max-lo) |
| 360 | 522 bc cf_max_passed ; Ok if no carry, ie. max <= lo |
| 355 | 523 |
| 524 cf_max_failed: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
525 call PLED_warnings_color |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
526 WIN_INVERT 1 |
| 355 | 527 |
| 528 cf_max_passed: | |
| 123 | 529 STRCAT "< " ; A max value follows |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
530 movff cf_max, lo |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
531 rcall display_formated |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
532 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
533 cf_no_max: |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
534 rcall cf_fill_line ; Fill buffer |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
535 lfsr FSR2, letter+.7 ; Limit to 8 chars btw. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
536 call word_processor |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
537 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
538 cf_minmax_done: |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
539 call PLED_standard_color |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
540 WIN_INVERT 0 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
541 movff FSR1H, EEADRH |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
542 return |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
543 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
544 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
545 ; Display a single 8/15 bit value, according to cf_type. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
546 ; Input : hi:lo = data to display. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
547 ; cf_type = the type. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
548 ; cf_min, cf_max : the optional min/max. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
549 ; FSR2 = current string pointer. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
550 display_formated: |
| 355 | 551 movf cf_type,W ; Just set N flags |
| 552 bn cf_type_80 ; Keep 15bits value in old format. | |
| 553 | |
| 554 ;---- handle signed values ----------------------------------------------- | |
| 555 ; NOTE: only 8bit values can have a negativ flag right now. | |
| 556 btfss cf_type,CF_NEG_BIT ; Signed value ? | |
| 557 bra cf_type_unsigned ; NO: display unsigned as-is | |
| 558 | |
| 559 btfss lo,7 ; Negativ value ? | |
| 560 bra cf_type_pos ; NO: display positives with a + sign. | |
| 561 | |
| 562 PUTC '-' ; YES: display with a - sign. | |
| 563 negf lo ; and correct the said value. | |
| 564 bra cf_type_unsigned | |
| 565 | |
| 566 cf_type_pos: | |
| 567 PUTC '+' | |
| 79 | 568 |
| 569 ;---- decode type -------------------------------------------------------- | |
| 355 | 570 cf_type_unsigned: |
| 571 ; Jump table: ; test the value with cleared flags... | |
| 572 movf cf_type,W | |
| 573 andlw CF_TYPES ; Look just at types | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
574 bz cf_type_00 ; 8bit standard mode |
| 79 | 575 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
576 dcfsnz WREG |
| 79 | 577 bra cf_type_01 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
578 dcfsnz WREG |
| 79 | 579 bra cf_type_02 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
580 dcfsnz WREG |
| 79 | 581 bra cf_type_03 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
582 dcfsnz WREG |
| 79 | 583 bra cf_type_04 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
584 dcfsnz WREG |
| 79 | 585 bra cf_type_05 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
586 dcfsnz WREG |
| 79 | 587 bra cf_type_06 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
588 dcfsnz WREG |
| 79 | 589 bra cf_type_07 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
590 bra cf_type_00 ; Default to 8bit mode... |
| 79 | 591 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
592 cf_type_01: ; Type == 1 is CF_PERCENT mode |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
593 bcf leftbind |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
594 output_8 |
| 123 | 595 PUTC '%' |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
596 retlw 0 |
| 79 | 597 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
598 cf_type_02: ; Type == 2 is CF_DECI mode. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
599 clrf hi |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
600 bsf leftbind |
| 79 | 601 output_16dp 4 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
602 retlw 0 |
| 79 | 603 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
604 cf_type_03: ; Type == 3 is CF_CENTI mode. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
605 clrf hi |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
606 bsf leftbind |
| 79 | 607 output_16dp 3 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
608 retlw 0 |
| 79 | 609 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
610 cf_type_04: ; Type == 4 is CF_MILI mode |
| 79 | 611 output_16dp 2 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
612 retlw 0 |
| 79 | 613 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
614 cf_type_05: ; Type == 5 is CF_BOOL mode. |
| 79 | 615 movf lo,W ; Get flag value... |
| 616 bz cf_type_off | |
| 617 OUTPUTTEXT d'130' ; ON | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
618 retlw 0 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
619 |
| 79 | 620 cf_type_off: |
| 621 OUTPUTTEXT d'131' ; OFF | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
622 retlw 0 |
| 79 | 623 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
624 cf_type_06: ; Type == 6 is CF_SECS mode (mm:ss or hh:mm) |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
625 clrf hi |
| 79 | 626 call convert_time ; Convert to min:sec into hi:low. |
| 123 | 627 movff lo,TABLAT ; Save seconds for later. |
| 79 | 628 movff hi,lo ; Get minutes |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
629 bsf leftbind ; Skip leading space(s). |
| 79 | 630 output_8 ; Print them |
| 123 | 631 PUTC ':' ; Separator |
| 632 movff TABLAT,lo ; Get back seconds | |
| 79 | 633 output_99x ; lo in 2 digits with trailing zeros. |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
634 retlw 0 |
| 79 | 635 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
636 cf_type_07: ; Type == 7 is CF_COLOR swatch. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
637 bcf leftbind ; Keep leading space (better alignement) |
| 79 | 638 output_8 |
| 360 | 639 |
| 640 movff win_top,WREG ; Is it the step value ? | |
| 641 xorlw .95 ; Line for "Step:" | |
| 642 btfsc STATUS,Z | |
| 643 retlw -1 ; YES : return | |
| 644 | |
| 123 | 645 STRCAT_PRINT " " |
| 79 | 646 movf lo,W ; Get color. |
| 123 | 647 call PLED_set_color |
| 648 movlw .23 | |
| 649 movff WREG,win_height ; row bottom (0-239) | |
| 79 | 650 movlw .110 |
| 123 | 651 movff WREG,win_leftx2 ; column left (0-159) |
| 652 movlw .148-.110+1 | |
| 653 movff WREG,win_width ; column right (0-159) | |
| 79 | 654 |
| 655 call PLED_box | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
656 retlw -1 ; wp already done. Skip it... |
| 79 | 657 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
658 cf_type_00: ; 8bit mode. Or unrecognized type... |
| 79 | 659 clrf hi |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
660 bsf leftbind |
| 79 | 661 |
| 355 | 662 cf_type_80: ; 15bit mode. |
| 79 | 663 bcf hi,7 |
| 664 output_16 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
665 retlw 0 |
| 84 | 666 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
667 ;----------------------------------------------------------------------------- |
| 84 | 668 |
| 669 cf_fill_line: ; Mattias: No flicker if u clear just what you need... | |
| 670 movf FSR2L,W ; How many chars lefts ? | |
| 164 | 671 sublw letter + .18 ; Remaining chars to fill: (letter + 18) - PTR |
| 84 | 672 btfsc STATUS,N ; Add chars until none left... |
| 673 return | |
| 123 | 674 PUTC ' ' |
| 84 | 675 bra cf_fill_line |
| 79 | 676 |
| 677 ;----------------------------------------------------------------------------- | |
| 0 | 678 |
| 679 do_customfunction: | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
680 movff cf_page_number,EEADRH ; CF page number (0: 0-31, 1: 32-63) |
| 0 | 681 |
| 682 dcfsnz menupos,F | |
| 683 bra next_customfunction | |
| 684 dcfsnz menupos,F | |
| 685 bra toggle_plusminus | |
| 686 dcfsnz menupos,F | |
| 687 bra toggle_oneorten | |
| 688 dcfsnz menupos,F | |
| 689 bra restore_cfn_value | |
| 690 dcfsnz menupos,F | |
| 691 bra adjust_cfn_value | |
| 84 | 692 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
693 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
694 |
| 0 | 695 exit_customfunctions: |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
696 movff cf_page_number,menupos ; CF page number (0: 0-31, 1: 32-63) |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
697 incf menupos,F |
| 0 | 698 clrf EEADRH ; Clear EEADRH ! |
| 699 goto setup_menu2 ; exit... | |
| 700 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
701 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
702 |
| 0 | 703 next_customfunction: |
| 704 incf decodata+0 | |
| 705 btfsc decodata+0,5 ;>31? | |
| 706 clrf decodata+0 ;Yes, so reset to zero | |
| 707 | |
| 708 movf decodata+0,W | |
| 709 mullw d'4' | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
710 movff PRODL, cf32_x4 ; 12bit address for correct addressing |
| 0 | 711 |
| 712 movlw d'1' | |
| 713 movwf menupos | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
714 bra menu_custom_functions1 ; also debounces switches |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
715 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
716 ;----------------------------------------------------------------------------- |
| 0 | 717 |
| 718 toggle_plusminus: | |
| 719 btg first_FA | |
| 720 movlw d'2' | |
| 721 movwf menupos | |
| 722 bra menu_custom_functions1 ; also debounces switches | |
| 723 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
724 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
725 |
| 0 | 726 toggle_oneorten: |
| 360 | 727 movlw .10 ; Multiply step by 10, |
| 728 mulwf cf_step ; Result in PROD low. | |
| 729 | |
| 730 movf PRODH,W ; Check 1000 | |
| 731 bz toggle_oneorten_1 ; HIGH(new step) null == no overflow | |
| 732 movlw .1 ; Cycle to 1. | |
| 733 movwf cf_step | |
| 734 bra toggle_oneorten_3 | |
| 735 | |
| 736 toggle_oneorten_1: ; Special case for mm:ss | |
| 737 movf cf_type,W ; Get type | |
| 738 andlw CF_TYPES ; w/o min/max/neg flags. | |
| 739 xorlw CF_SEC ; Check for mm:ss ? | |
| 740 bnz toggle_oneorten_2 ; no: continue | |
| 741 movlw .100 ; Step = 100 ? | |
| 742 xorwf PRODL,W | |
| 743 bnz toggle_oneorten_2 ; no: continue | |
| 744 movlw .60 ; yes: replace by 1:00 | |
| 745 movff WREG,cf_step | |
| 746 bra toggle_oneorten_3 ; Done. | |
| 747 | |
| 748 toggle_oneorten_2: | |
| 749 movff PRODL,cf_step ; Just keep result. | |
| 750 toggle_oneorten_3: | |
| 0 | 751 movlw d'3' |
| 752 movwf menupos | |
| 753 bra menu_custom_functions1 ; also debounces switches | |
| 754 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
755 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
756 |
| 0 | 757 restore_cfn_value: |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
758 movf cf32_x4,W ; store default value |
| 0 | 759 addlw 0x82 |
| 760 movwf EEADR | |
| 360 | 761 movff cf_default+0,EEDATA |
| 762 movff cf_default+0,cf_value+0 | |
| 0 | 763 call write_eeprom ; Lowbyte |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
764 movf cf32_x4,W |
| 0 | 765 addlw 0x83 |
| 766 movwf EEADR | |
| 360 | 767 movff cf_default+1,EEDATA |
| 768 movff cf_default+1,cf_value+1 | |
| 0 | 769 call write_eeprom ; Highbyte |
| 770 | |
| 771 movlw d'4' | |
| 772 movwf menupos | |
| 773 bra menu_custom_functions1 ; also debounces switches | |
| 774 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
775 ;----------------------------------------------------------------------------- |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
776 ; Adjust current value. |
| 0 | 777 adjust_cfn_value: |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
778 movf cf32_x4,W ; get current value |
| 0 | 779 addlw 0x82 |
| 780 movwf EEADR | |
| 781 call read_eeprom ; Lowbyte | |
| 782 movff EEDATA,lo | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
783 movf cf32_x4,W |
| 0 | 784 addlw 0x83 |
| 785 movwf EEADR | |
| 786 call read_eeprom ; Highbyte | |
| 787 movff EEDATA,hi | |
| 788 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
789 movf cf_type,W |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
790 xorlw CF_BOOL |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
791 bnz adjust_cfn_value1 |
| 0 | 792 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
793 btg lo,0 ; Change lower bit. |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
794 bra adjust_cfn_value3 ; Store result |
| 0 | 795 |
| 796 adjust_cfn_value1: | |
| 360 | 797 movf cf_step,W ; 1, 10, 100 ? |
| 0 | 798 |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
799 btfss first_FA ; Minus? |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
800 bra adjust_cfn_value2 ; No, Plus |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
801 |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
802 subwf lo,F ; substract value |
| 0 | 803 movlw d'0' |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
804 btfsc cf_type,7 ; 8Bit value |
| 0 | 805 subwfb hi,F |
| 806 | |
| 807 movlw b'01111111' | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
808 btfsc hi,7 ; >32768? |
| 0 | 809 movwf hi |
| 810 | |
| 811 bra adjust_cfn_value3 | |
| 812 | |
| 813 adjust_cfn_value2: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
814 addwf lo,F ; add value |
| 0 | 815 movlw d'0' |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
816 btfsc cf_type,7 ; 8Bit value? |
| 0 | 817 addwfc hi,F |
| 818 | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
819 btfsc hi,7 ; >32768? |
| 0 | 820 clrf hi |
| 821 | |
| 822 adjust_cfn_value3: | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
823 movf cf32_x4,W ; Store current value |
| 0 | 824 addlw 0x82 |
| 825 movwf EEADR | |
| 826 movff lo,EEDATA | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
827 call write_eeprom ; Lowbyte |
|
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
828 movf cf32_x4,W |
| 0 | 829 addlw 0x83 |
| 830 movwf EEADR | |
| 831 movff hi,EEDATA | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
832 call write_eeprom ; Highbyte |
| 0 | 833 movlw d'5' |
| 834 movwf menupos | |
|
86
b40a0a6284da
adding custom functions with limits (jeando)
heinrichsweikamp
parents:
84
diff
changeset
|
835 bra menu_custom_functions1 ; also debounces switches |
| 94 | 836 |
| 837 ;----------------------------------------------------------------------------- | |
| 838 ; Check all CF values that have max and min constraints. | |
| 839 ; Input: cf_checker_counter. | |
| 840 ; Output: Pop warning with the first CF number if bad. | |
| 841 ; cf_checker_counter incremented. | |
| 842 ; Trashes: TBLPTR, EEADR, PROD | |
| 100 | 843 ; |
| 844 ; Note: the trick here is to do two sweep over the 64 CF values, to make sure | |
| 845 ; they are all ok. | |
| 94 | 846 |
| 847 check_customfunctions: | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
848 movlw max_custom_number+1 ; Defined in definitions.asm |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
849 cpfseq cf_checker_counter ; All tested? |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
850 bra check_customfunctions1 ; No, continue |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
851 clrf cf_checker_counter ; clear counter |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
852 return ; YES: just do nothing. |
| 94 | 853 |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
854 check_customfunctions1: |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
855 ; Setup cf_page_number |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
856 movlw .0 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
857 movff WREG,cf_page_number |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
858 movlw d'31' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
859 cpfsgt cf_checker_counter |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
860 bra check_customfunctions2 ; CF I |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
861 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
862 movlw .1 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
863 movff WREG,cf_page_number |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
864 movlw d'63' |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
865 cpfsgt cf_checker_counter |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
866 bra check_customfunctions2 ; CF II |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
867 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
868 movlw .2 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
869 movff WREG,cf_page_number ; CF III |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
870 |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
871 check_customfunctions2: |
|
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
872 ; Setup cf32_x4 |
| 100 | 873 movf cf_checker_counter,W |
| 94 | 874 rlcf WREG ; x4 |
| 875 rlcf WREG | |
| 876 andlw 4*.31 | |
| 877 movwf cf32_x4 | |
| 878 | |
| 879 ; Do the check | |
| 880 rcall check_one_cf | |
| 100 | 881 iorwf WREG ; Test return value. |
| 882 bz check_failed ; 0 == FAILED. | |
| 883 | |
| 884 ; Passed: Simple loop until 128 is reached: | |
|
573
77c8ff191cd7
Preparations for third bank of Custom Functions
heinrichsweikamp
parents:
478
diff
changeset
|
885 incf cf_checker_counter,F ; Next CF to check. |
| 100 | 886 bra check_customfunctions ; And loop until 128 reached (ie twice) |
| 94 | 887 |
| 100 | 888 check_failed: |
| 889 movlw .63 ; Make sure number is back to range 0..63 | |
| 890 andwf cf_checker_counter,F | |
| 891 | |
| 892 ; Went wrong: draw the warning line... | |
| 309 | 893 WIN_TOP .0 |
| 894 WIN_LEFT .125 | |
| 100 | 895 WIN_FONT FT_SMALL |
| 896 WIN_INVERT .1 ; Init new Wordprocessor | |
| 897 call PLED_warnings_color | |
| 898 | |
| 445 | 899 STRCPY TXT_CF2 |
| 100 | 900 movff cf_checker_counter,lo |
| 901 output_99x | |
| 309 | 902 STRCAT_PRINT "!" |
| 94 | 903 |
| 100 | 904 ; When failed, increment counter modulo 64, to restart checks. |
| 905 incf cf_checker_counter,W | |
| 906 andlw .63 ; Modulo 64 | |
| 94 | 907 movwf cf_checker_counter |
| 908 return | |
| 909 | |
| 910 ; Check one CF value --------------------------------------------------------- | |
| 911 check_one_cf: | |
| 360 | 912 rcall cf_read_default ; Sets cf_value, cf_type, cf_min, cf_max. |
| 94 | 913 |
| 100 | 914 btfsc cf_type,7 ; A 15bit type ? |
| 915 bra check_cf_check ; Then we have to check it... | |
| 916 | |
| 917 movf cf_type,W ; 8bit MIN or MAX set ? | |
| 94 | 918 andlw (CF_MIN + CF_MAX) |
| 919 bnz check_cf_check ; yes: do something. | |
| 100 | 920 retlw -1 ; no: no problem then. |
| 94 | 921 |
| 922 ; It does have bound: | |
| 923 check_cf_check: | |
| 100 | 924 movf cf_checker_counter,W ; Get current CF number |
| 925 andlw .63 ; Keep range 0..63 | |
| 94 | 926 |
| 927 btfss cf_type,7 ; 15 or 8 bit value ? | |
| 928 bra cf_check_8bit | |
| 929 | |
| 99 | 930 ; Implement the 15bit check, even if not displayed... |
| 167 | 931 rcall getcustom15 ; Read into hi:lo |
| 94 | 932 |
| 933 movf cf_min,W ; Compute (bound-value) -> hi:lo | |
| 934 subwf lo,F | |
| 935 movf cf_max,W | |
| 100 | 936 bcf WREG,7 ; Clear min/max bit |
| 94 | 937 subwfb hi,F |
| 938 | |
| 939 movf lo,W ; Is it a 0 result ? | |
| 940 iorwf hi,W | |
| 941 bnz cf_15_not_equal ; NO: check sign. | |
| 942 retlw -1 ; YES: then it is ok. | |
| 943 | |
| 944 cf_15_not_equal: | |
| 99 | 945 btfss cf_max,7 ; Checking min or max ? |
| 94 | 946 btg hi,6 ; exchange wanted sign |
| 947 | |
| 948 btfss hi,6 ; Is sign correct ? | |
| 100 | 949 retlw 0 ; NO: return failed. |
| 950 retlw -1 ; YES: return passed. | |
| 94 | 951 |
| 952 ; Do a 8bit check | |
| 953 cf_check_8bit: | |
| 954 rcall getcustom8_1 ; Read into WREG | |
| 955 movwf lo ; Save it. | |
| 956 | |
| 957 btfss cf_type,CF_MIN_BIT | |
| 958 bra check_no_min | |
| 355 | 959 |
| 960 btfss cf_type,CF_NEG_BIT | |
| 961 bra check_min_unsigned | |
| 962 | |
| 963 ; Uses 16bit sub for checking signed min value. | |
| 964 movff lo,sub_a+0 ; A <- value | |
| 965 clrf sub_a+1 | |
| 360 | 966 btfsc lo,7 ; extend sign if value < 0 |
| 355 | 967 setf sub_a+1 |
| 968 | |
| 969 movff cf_min,sub_b+0 ; B <- min (with signed extend) | |
| 970 setf sub_b+1 ; min have to be negativ. | |
| 971 call sub16 ; Compute (A-B) | |
| 972 | |
| 973 btfss neg_flag ; Result < 0 ? | |
| 974 bra check_no_min ; NO | |
| 975 retlw 0 ; YES = FAILED | |
| 976 | |
| 977 check_min_unsigned: | |
| 94 | 978 cpfsgt cf_min ; Compare to cf_min |
| 100 | 979 bra check_no_min ; PASSED: continue. |
| 980 retlw 0 ; NO: return failed. | |
| 94 | 981 |
| 982 check_no_min: | |
| 100 | 983 btfss cf_type,CF_MAX_BIT ; Is there a MAX bound ? |
| 984 retlw -1 ; No check: return OK. | |
| 355 | 985 |
| 986 btfss cf_type,CF_NEG_BIT | |
| 987 bra check_max_unsigned | |
| 988 | |
| 989 ; Uses 16bit sub for checking signed min value. | |
| 990 movff cf_max,sub_a+0 ; A <- max (with signed extend) | |
| 991 clrf sub_a+1 ; max have to be positiv. | |
| 992 | |
| 993 movff lo,sub_b+0 ; B <- value | |
| 994 clrf sub_b+1 | |
| 360 | 995 btfsc lo,7 ; extend sign if value < 0 |
| 355 | 996 setf sub_b+1 |
| 997 call sub16 ; Compute (A-B) | |
| 998 | |
| 999 btfss neg_flag ; Result < 0 ? | |
| 1000 retlw -1 ; NO | |
| 1001 retlw 0 ; YES | |
| 1002 | |
| 1003 check_max_unsigned: | |
| 94 | 1004 movf lo,W ; Compute value-max |
| 1005 cpfslt cf_max | |
| 100 | 1006 retlw -1 ; Bound met: return OK. |
| 1007 retlw 0 ; NO: return failed. |