Mercurial > public > hwos_code

comparison src/convert.asm @ 0:11d4fc797f74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
init
author heinrichsweikamp
date Wed, 24 Apr 2013 19:22:45 +0200
parents
children 31088352ee32
comparison
equal deleted inserted replaced
-1:000000000000 0:11d4fc797f74
1 ;=============================================================================
2 ;
3 ; File convert.asm
4 ;
5 ; Converts register values to string
6 ;
7 ; Copyright (c) 2011, Matthias Heinrichs, HeinrichsWeikamp, all right reserved.
8 ;=============================================================================
9 ; HISTORY
10 ; 2007-10-07 : [MH] Creation for OSTC sources
11 ; 2010-12-10 : [jDG] Optimize macro size
12 ;
13
14 #include "ostc3.inc" ; Mandatory header
15
16 ;=============================================================================
17
18 CBLOCK tmp+0x08 ; space for aa_wordprocessor
19 temp3
20 temp4
21 cvt_flags2
22 ; Reserved to tmp+0x10...
23 ENDC
24
25 #define pre_zero_flag cvt_flags2,0
26 #define all_zeros_flag cvt_flags2,1
27 #define DP_done cvt_flags2,2
28 #define DP_done2 cvt_flags2,3
29 #define show_last3 cvt_flags2,4
30 #define leading_zeros cvt_flags2,5
31
32 basic CODE
33
34 ;=============================================================================
35 global output99_call
36 output99_call:
37 clrf ignore_digits
38 incf ignore_digits,F
39 clrf temp4
40
41 global output99
42 output99:
43 movlw d'99'
44 cpfslt lo
45 movwf lo ; Limit to 99
46 movff lo,lo_temp
47 clrf hi_temp
48 bcf pre_zero_flag ; do not display leading zeros
49
50 LCD_val99_2:
51 movlw b'00001010' ; 10
52 movwf temp2
53 clrf temp3
54 rcall DEC2ASCII
55
56 movlw b'00000001' ; 1
57 movwf temp2
58 clrf temp3
59 bsf pre_zero_flag ; last figure, display zero (0)
60 rcall DEC2ASCII
61 RETURN
62
63 global output99x_call
64
65 output99x_call:
66 clrf ignore_digits
67 incf ignore_digits,F
68 clrf temp4
69
70 movlw d'99'
71 cpfslt lo
72 movwf lo ; Limit to 99
73 movff lo, lo_temp
74 clrf hi_temp
75 bsf pre_zero_flag ; display leading zeros
76 bra LCD_val99_2
77
78 global output8_call
79
80 output8_call:
81 clrf ignore_digits
82 incf ignore_digits,F
83 clrf temp4
84
85 output8:
86 movff lo, lo_temp
87 clrf hi_temp
88 bcf pre_zero_flag ; do not display leading zeros
89
90 movlw b'01100100' ; 100
91 movwf temp2
92 clrf temp3
93 rcall DEC2ASCII
94 bra LCD_val99_2
95
96 global output16_3_call
97 global output16_call
98 global output16
99 output16_3_call:
100 bsf show_last3
101 output16_call:
102 clrf ignore_digits
103 incf ignore_digits,F
104 clrf WREG
105 output16:
106 movwf temp4 ; Passed from output16dp macro, cleared by others.
107
108 bcf all_zeros_flag ; do not display any zero from here unless there was at least one figure /zero
109
110 bsf leading_zeros
111 tstfsz temp4 ; Display leading zeros at all?
112 bcf leading_zeros
113
114 bsf DP_done2
115 tstfsz temp4
116 bcf DP_done2 ; decimal point not yet set
117
118 movff lo, lo_temp
119 movff hi, hi_temp
120 bcf pre_zero_flag ; do not display leading zeros
121
122 movlw b'00010000' ; 10000s
123 movwf temp2
124 movlw b'00100111'
125 movwf temp3
126 btfss show_last3 ; display only last three figures?
127 rcall DEC2ASCII ; No, show all. Here: 5th order digit
128
129 movlw b'11101000' ; 1000s
130 movwf temp2
131 movlw b'00000011'
132 movwf temp3
133 btfsc DP_done2 ; Is there a decimal point at all?
134 bra output16_2 ; no, use normal display mode
135
136 btfsc all_zeros_flag ; display any zero from here
137 bra output16_1 ; there was a figure /zero already
138
139 bsf pre_zero_flag ; display figure if zero?
140 decfsz temp4,W
141 bcf pre_zero_flag ; No
142
143 output16_1:
144 btfsc DP_done ; Decimal point set already?
145 bsf pre_zero_flag ; Yes, so display the rest
146 output16_2:
147 btfss show_last3 ; display only last three figures?
148 rcall DEC2ASCII ; No, show all. Here: 4th order digit
149 bcf show_last3 ; Yes, so display the rest
150
151 movlw b'01100100' ; 100s
152 movwf temp2
153 clrf temp3
154
155 btfsc ignore_digit3 ; Ignore 3rd-5th digit?
156 bra output16_5 ; Yes, skip the rest
157
158 btfsc DP_done2 ; Is there a decimal point at all?
159 bra output16_3 ; no, use normal display mode
160
161 btfsc all_zeros_flag ; display any zero from here
162 bra output16_2_1 ; there was a figure /zero already
163
164 bsf pre_zero_flag ; display figure if zero?
165 decfsz temp4,W
166 bcf pre_zero_flag ; No
167
168 output16_2_1:
169 btfsc DP_done ; Decimal point set already?
170 bsf pre_zero_flag ; Yes, so display the rest
171 btfsc DP_done2 ; Is there a decimal point at all?
172 bsf pre_zero_flag ; No, so display the rest
173 output16_3:
174 rcall DEC2ASCII ;3th order digit...
175
176 movlw b'00001010' ; 10s
177 movwf temp2
178 clrf temp3
179 btfsc DP_done2
180 bra output16_4
181
182 btfsc all_zeros_flag ; display any zero from here
183 bra output16_3_1 ; there was a figure /zero already
184
185 bsf pre_zero_flag
186 decfsz temp4,W
187 bcf pre_zero_flag
188
189 output16_3_1:
190 btfsc DP_done
191 bsf pre_zero_flag
192 btfsc DP_done2
193 bsf pre_zero_flag
194 output16_4:
195 btfsc ignore_digit4 ; Ignore 4-5th digit?
196 bra output16_5 ; Yes, skip the rest
197 rcall DEC2ASCII ; 2nd order digit
198
199 movlw b'00000001' ; 1s
200 movwf temp2
201 clrf temp3
202 bsf pre_zero_flag
203 btfss ignore_digit5 ; Ignore 5th digit?
204 rcall DEC2ASCII ; 1st order digit
205 bcf ignore_digit5 ; yes, and clear flag
206 output16_5:
207 bcf ignore_digit4 ; Clear flag
208 bcf ignore_digit3 ; Clear flag
209 clrf ignore_digits
210 incf ignore_digits,F
211 bcf DP_done
212 RETURN ; Done with convert.asm...
213
214 DEC2ASCII clrf temp1 ; converts into ASCII code
215 DEC2ASCII_2 movf temp3,W
216 subwf hi_temp,W
217 btfss STATUS,C
218 bra DEC2ASCII_4
219 bnz DEC2ASCII_3
220
221 movf temp2,W
222 subwf lo_temp,W
223 btfss STATUS,C
224 bra DEC2ASCII_4
225
226 DEC2ASCII_3 movf temp3,W
227 subwf hi_temp,F
228 movf temp2,W
229 subwf lo_temp,F
230 btfss STATUS,C
231 decf hi_temp,F
232 incf temp1,F
233 bsf pre_zero_flag
234 bra DEC2ASCII_2
235
236 DEC2ASCII_4
237 decfsz ignore_digits,F
238 return
239 incf ignore_digits,F ; so ignore_digits stays zero for the test above
240 movlw '0' ; Offset for Ascii-value
241 addwf temp1,W
242 btfsc pre_zero_flag ; is this a leading zero?
243 bra DEC2ASCII_4_1 ; no
244 btfsc leftbind
245 bra DEC2ASCII_6
246 movlw ' ' ; instead of leading zeros a space!
247 bra DEC2ASCII_5
248 DEC2ASCII_4_1:
249 bsf all_zeros_flag ; display any zero from here
250 DEC2ASCII_5
251 movwf POSTINC2
252 DEC2ASCII_6
253 decfsz temp4,F ; Set decimal point?
254 RETURN ; No
255 movlw "." ; Yes
256 movwf POSTINC2
257 bsf DP_done
258 RETURN
259
260 END