|
2824
|
1 * Disassembly by Os9disasm of utime.r
|
|
|
2
|
|
|
3 * class X standard named label equates
|
|
|
4
|
|
|
5 D.SysPrc equ $004a
|
|
|
6
|
|
|
7 * class D external label equates
|
|
|
8
|
|
|
9 D0000 equ $0000
|
|
|
10 D0025 equ $0025
|
|
|
11 D0041 equ $0041
|
|
|
12 D0044 equ $0044
|
|
|
13 D0046 equ $0046
|
|
|
14 D004a equ $004a
|
|
|
15 D004d equ $004d
|
|
|
16 D004e equ $004e
|
|
|
17 D0053 equ $0053
|
|
|
18 D0054 equ $0054
|
|
|
19 D0057 equ $0057
|
|
|
20
|
|
|
21 * class X external label equates
|
|
|
22
|
|
|
23 X004f equ $004f
|
|
|
24 X2025 equ $2025
|
|
|
25 X7200 equ $7200
|
|
|
26
|
|
|
27 section bss
|
|
|
28
|
|
|
29 * Uninitialized data (class B)
|
|
|
30 B0000 rmb 16
|
|
|
31 B0010 rmb 26
|
|
|
32 * Initialized Data (class G)
|
|
|
33 G0000 fcb $00
|
|
|
34 fcb $1f
|
|
|
35 fcb $00
|
|
|
36 fcb $1c
|
|
|
37 fcb $00
|
|
|
38 fcb $1f
|
|
|
39 fcb $00
|
|
|
40 fcb $1e
|
|
|
41 fcb $00
|
|
|
42 fcb $1f
|
|
|
43 fcb $00
|
|
|
44 fcb $1e
|
|
|
45 fcb $00
|
|
|
46 fcb $1f
|
|
|
47 fcb $00
|
|
|
48 fcb $1f
|
|
|
49 fcb $00
|
|
|
50 fcb $1e
|
|
|
51 fcb $00
|
|
|
52 fcb $1f
|
|
|
53 fcb $00
|
|
|
54 fcb $1e
|
|
|
55 fcb $00
|
|
|
56 fcb $1f
|
|
|
57
|
|
|
58 endsect
|
|
|
59
|
|
|
60 section code
|
|
|
61
|
|
|
62 time: pshs u
|
|
|
63 leas -6,s
|
|
|
64 leau ,s
|
|
|
65 pshs u
|
|
|
66 lbsr getime
|
|
|
67 stu ,s
|
|
|
68 bsr o2utime
|
|
|
69 ldu 12,s
|
|
|
70 beq L001b
|
|
|
71 ldd ,x
|
|
|
72 std ,u
|
|
|
73 ldd 2,x
|
|
|
74 std 2,u
|
|
|
75 L001b leas 8,s
|
|
|
76 puls u,pc
|
|
|
77 L001f fcb $01
|
|
|
78 tst 1,x
|
|
|
79 jmp -12,y
|
|
|
80 o2utime equ *-1
|
|
|
81 rora
|
|
|
82 ldu 6,s
|
|
|
83 clra
|
|
|
84 clrb
|
|
|
85 pshs d
|
|
|
86 pshs d
|
|
|
87 ldb #$45
|
|
|
88 ldx #0
|
|
|
89 bra L003e
|
|
|
90 L0034 leax 365,x
|
|
|
91 bitb #3
|
|
|
92 bne L003e
|
|
|
93 leax 1,x
|
|
|
94 L003e incb
|
|
|
95 cmpb ,u
|
|
|
96 blt L0034
|
|
|
97 stx 2,s
|
|
|
98 leax G0000,y
|
|
|
99 lda #$1d
|
|
|
100 ldb ,u+
|
|
|
101 andb #3
|
|
|
102 beq L0053
|
|
|
103 lda #$1c
|
|
|
104 L0053 sta 3,x
|
|
|
105 ldb #1
|
|
|
106 bra L0062
|
|
|
107 L0059 ldd ,x++
|
|
|
108 addd 2,s
|
|
|
109 std 2,s
|
|
|
110 ldb 4,s
|
|
|
111 incb
|
|
|
112 L0062 stb 4,s
|
|
|
113 cmpb ,u
|
|
|
114 blt L0059
|
|
|
115 leau 1,u
|
|
|
116 ldb ,u+
|
|
|
117 decb
|
|
|
118 clra
|
|
|
119 addd 2,s
|
|
|
120 std 2,s
|
|
|
121 lslb
|
|
|
122 rola
|
|
|
123 addd 2,s
|
|
|
124 lslb
|
|
|
125 rola
|
|
|
126 rol 1,s
|
|
|
127 lslb
|
|
|
128 rola
|
|
|
129 rol 1,s
|
|
|
130 lslb
|
|
|
131 rola
|
|
|
132 rol 1,s
|
|
|
133 std 2,s
|
|
|
134 ldb ,u+
|
|
|
135 clra
|
|
|
136 addd 2,s
|
|
|
137 std 2,s
|
|
|
138 ldb 1,s
|
|
|
139 adcb #0
|
|
|
140 stb 1,s
|
|
|
141 bsr L00c5
|
|
|
142 ldb ,u+
|
|
|
143 clra
|
|
|
144 addd 2,s
|
|
|
145 std 2,s
|
|
|
146 ldd ,s
|
|
|
147 adcb #0
|
|
|
148 adca #0
|
|
|
149 std ,s
|
|
|
150 bsr L00c5
|
|
|
151 ldb ,u+
|
|
|
152 clra
|
|
|
153 addd 2,s
|
|
|
154 std 2,s
|
|
|
155 ldd ,s
|
|
|
156 adcb #0
|
|
|
157 adca #0
|
|
|
158 std ,s
|
|
|
159 leau ,s
|
|
|
160 leax _flacc,y
|
|
|
161 ldd ,u
|
|
|
162 std ,x
|
|
|
163 ldd 2,u
|
|
|
164 std 2,x
|
|
|
165 leas 6,s
|
|
|
166 puls u,pc
|
|
|
167 L00c5 ldx 2,s
|
|
|
168 ldd 4,s
|
|
|
169 bsr L00f0
|
|
|
170 bsr L00f0
|
|
|
171 addd 4,s
|
|
|
172 exg d,x
|
|
|
173 adcb 3,s
|
|
|
174 adca 2,s
|
|
|
175 exg d,x
|
|
|
176 stx 2,s
|
|
|
177 std 4,s
|
|
|
178 bsr L00f0
|
|
|
179 addd 4,s
|
|
|
180 exg d,x
|
|
|
181 adcb 3,s
|
|
|
182 adca 2,s
|
|
|
183 exg d,x
|
|
|
184 bsr L00f0
|
|
|
185 bsr L00f0
|
|
|
186 stx 2,s
|
|
|
187 std 4,s
|
|
|
188 rts
|
|
|
189 L00f0 lslb
|
|
|
190 rola
|
|
|
191 exg d,x
|
|
|
192 rolb
|
|
|
193 rola
|
|
|
194 exg d,x
|
|
|
195 rts
|
|
|
196 u2otime: pshs u
|
|
|
197 ldu 6,s
|
|
|
198 ldx 4,s
|
|
|
199 leax 6,x
|
|
|
200 lda #6
|
|
|
201 L0103 ldb ,u+
|
|
|
202 ldb ,u+
|
|
|
203 stb ,-x
|
|
|
204 deca
|
|
|
205 bne L0103
|
|
|
206 puls u,pc
|
|
|
207 daylight: neg D0000
|
|
|
208 timezone: neg D0000
|
|
|
209 neg D0000
|
|
|
210 localtim: pshs d,u
|
|
|
211 leau B0000,y
|
|
|
212 ldx 6,s
|
|
|
213 ldd 2,x
|
|
|
214 pshs d
|
|
|
215 ldd ,x
|
|
|
216 pshs d
|
|
|
217 leax ,s
|
|
|
218 ldd #$003c
|
|
|
219 bsr L019b
|
|
|
220 std ,u
|
|
|
221 ldd #$003c
|
|
|
222 bsr L019b
|
|
|
223 std 2,u
|
|
|
224 ldd #$0018
|
|
|
225 bsr L019b
|
|
|
226 std 4,u
|
|
|
227 ldd 2,x
|
|
|
228 std 4,s
|
|
|
229 ldd #$0046
|
|
|
230 std 10,u
|
|
|
231 L0144 leax L001f,pcr
|
|
|
232 ldb 11,u
|
|
|
233 andb #3
|
|
|
234 bne L0150
|
|
|
235 leax 2,x
|
|
|
236 L0150 ldd 4,s
|
|
|
237 subd ,x
|
|
|
238 inc 11,u
|
|
|
239 std 4,s
|
|
|
240 bcc L0144
|
|
|
241 addd ,x
|
|
|
242 std 4,s
|
|
|
243 dec 11,u
|
|
|
244 std 14,u
|
|
|
245 ldb 11,u
|
|
|
246 leax G0000,y
|
|
|
247 lda #$1d
|
|
|
248 andb #3
|
|
|
249 beq L0170
|
|
|
250 lda #$1c
|
|
|
251 L0170 sta 3,x
|
|
|
252 clra
|
|
|
253 clrb
|
|
|
254 std 8,u
|
|
|
255 ldd 4,s
|
|
|
256 L0178 inc 9,u
|
|
|
257 subd ,x++
|
|
|
258 bcc L0178
|
|
|
259 addd -2,x
|
|
|
260 addd #1
|
|
|
261 std 6,u
|
|
|
262 leax ,s
|
|
|
263 ldd 2,x
|
|
|
264 addd #4
|
|
|
265 std 2,x
|
|
|
266 ldd #7
|
|
|
267 bsr L019b
|
|
|
268 std 12,u
|
|
|
269 tfr u,d
|
|
|
270 leas 6,s
|
|
|
271 puls u,pc
|
|
|
272 L019b clr ,-s
|
|
|
273 clr ,-s
|
|
|
274 pshs d
|
|
|
275 ldb #$21
|
|
|
276 pshs b
|
|
|
277 bra L01af
|
|
|
278 L01a7 ldd 3,s
|
|
|
279 subd 1,s
|
|
|
280 bcs L01af
|
|
|
281 std 3,s
|
|
|
282 L01af rol 3,x
|
|
|
283 rol 2,x
|
|
|
284 rol 1,x
|
|
|
285 rol ,x
|
|
|
286 rol 4,s
|
|
|
287 rol 3,s
|
|
|
288 dec ,s
|
|
|
289 bne L01a7
|
|
|
290 com 3,x
|
|
|
291 com 2,x
|
|
|
292 com 1,x
|
|
|
293 com ,x
|
|
|
294 lsr 3,s
|
|
|
295 ror 4,s
|
|
|
296 leas 3,s
|
|
|
297 puls d,pc
|
|
|
298 asctime: pshs u
|
|
|
299 ldu 4,s
|
|
|
300 ldd 10,u
|
|
|
301 pshs d
|
|
|
302 ldd ,u
|
|
|
303 pshs d
|
|
|
304 ldd 2,u
|
|
|
305 pshs d
|
|
|
306 ldd 4,u
|
|
|
307 pshs d
|
|
|
308 ldd 6,u
|
|
|
309 pshs d
|
|
|
310 ldd 8,u
|
|
|
311 subd #1
|
|
|
312 lslb
|
|
|
313 rola
|
|
|
314 lslb
|
|
|
315 rola
|
|
|
316 leax >L024a,pcr
|
|
|
317 leax d,x
|
|
|
318 pshs x
|
|
|
319 ldd 12,u
|
|
|
320 lslb
|
|
|
321 rola
|
|
|
322 lslb
|
|
|
323 rola
|
|
|
324 leax >L022e,pcr
|
|
|
325 leax d,x
|
|
|
326 pshs x
|
|
|
327 leax >L027a,pcr
|
|
|
328 pshs x
|
|
|
329 leax B0010,y
|
|
|
330 pshs x
|
|
|
331 lbsr sprintf
|
|
|
332 leas 18,s
|
|
|
333 leax B0010,y
|
|
|
334 tfr x,d
|
|
|
335 puls u,pc
|
|
|
336 ctime: ldd 2,s
|
|
|
337 pshs d
|
|
|
338 lbsr localtim
|
|
|
339 std ,s
|
|
|
340 lbsr asctime
|
|
|
341 puls x,pc
|
|
|
342 *L022e comb
|
|
|
343 * fcb $75
|
|
|
344 * fcb $6e
|
|
|
345 * neg D004d
|
|
|
346 * clr 14,s
|
|
|
347 * neg D0054
|
|
|
348 * fcb $75
|
|
|
349 * fcb $65
|
|
|
350 * neg D0057
|
|
|
351 * fcb $65
|
|
|
352 * fcb $64
|
|
|
353 * neg D0054
|
|
|
354 * asl -11,s
|
|
|
355 * neg D0046
|
|
|
356 * fcb $72
|
|
|
357 * fcb $69
|
|
|
358 * neg D0053
|
|
|
359 * fcb $61
|
|
|
360 * lsr D.SysPrc
|
|
|
361 *L024a equ *-1
|
|
|
362 * fcb $61
|
|
|
363 * fcb $6e
|
|
|
364 * neg D0046
|
|
|
365 * fcb $65
|
|
|
366 * fcb $62
|
|
|
367 * neg D004d
|
|
|
368 * fcb $61
|
|
|
369 * fcb $72
|
|
|
370 * neg D0041
|
|
|
371 * neg X7200
|
|
|
372 * tsta
|
|
|
373 * fcb $61
|
|
|
374 * rol D.SysPrc
|
|
|
375 * fcb $75
|
|
|
376 * fcb $6e
|
|
|
377 * neg D004a
|
|
|
378 * fcb $75
|
|
|
379 * fcb $6c
|
|
|
380 * neg D0041
|
|
|
381 * fcb $75
|
|
|
382 * fcb $67
|
|
|
383 * neg D0053
|
|
|
384 * fcb $65
|
|
|
385 * neg X004f
|
|
|
386 * com -12,s
|
|
|
387 * neg D004e
|
|
|
388 * clr -10,s
|
|
|
389 * neg D0044
|
|
|
390 * fcb $65
|
|
|
391 * fcb $63
|
|
|
392 * neg D0025
|
|
|
393 *L027a equ *-1
|
|
|
394 * com X2025
|
|
|
395 * com X2025
|
|
|
396 * leas 4,s
|
|
|
397 * bra L02aa
|
|
|
398 * leax -14,y
|
|
|
399 * lsr -6,y
|
|
|
400 * bcs L02bb
|
|
|
401 * leas 4,s
|
|
|
402 * abx
|
|
|
403 * bcs L02c0
|
|
|
404 * leas 4,s
|
|
|
405 * bra L02c5
|
|
|
406 * rts
|
|
|
407 * bcs L02c7
|
|
|
408 * leas 4,s
|
|
|
409 * tst D0000
|
|
|
410 *
|
|
|
411 endsect
|
|
|
412
|
