|
|
3 5b00 *s
4 5b00 ;==============================================================;
5 5b00 ;== Verzia ** == "hod" Hodinky + set == 06.11.1996 Busy soft ==;
6 5b00 ;==============================================================;
7 5b00 *z!
8 5b00 verzia = 30
9 5b00 rtc = #03 port
10 5b00 znaky = #6000 adresa suboru "data" !!!
11 5b00 org #8000 Druha verzia - s nastavenim
12 8000 fd213a5c z ld iy,#5c3a
13 8004 fb ei
14 8005 76 hlt
15 8006 fdcb01ae res 5,(iy+#01)
16 800a 210a5c ld hl,23562
17 800d 7e ld a,(hl)
18 800e 325185 ld (repspd+1),a
19 8011 3605 ld (hl),#05
20 8013 01030e ld bc,#0e00+rtc Test RTC (ci je installnute)
21 8016 1e50 ld e,#50
22 8018 ed59 tstrtc out (c),e
23 801a ed78 in a,(c)
24 801c 57 ld d,a
25 801d e60f and #0f
26 801f f650 or #50
27 8021 ab xor e
28 8022 c2f484 jp nz,notrtc
29 8025 1c inc e
30 8026 7b ld a,e
31 8027 e60f and #0f
32 8029 20ed jr nz,tstrtc
33 802b
34 802b 04 inc b Naprogramovanie
35 802c 3e04 ld a,#04 riadiacich
36 802e ed79 out (c),a registrov
37 8030 05 dec b
38 8031 3e06 ld a,#06
39 8033 ed79 out (c),a
40 8035 05 dec b
41 8036 af xor a
42 8037 ed79 out (c),a
43 8039
44 8039 cd6b84 call screen
45 803c cd0a83 call show
46 803f cd8283 call farby
47 8042 cd9984 titul call cls
48 8045 cdc584 call text
49 8048 22 db #22
50 8049 72746320 db 'rtc hodinky '
686f6469
6e6b7920
51 8055 3330 db ver1,ver0
52 8057 20286329 db ' (c) busy soft'
20627573
7920736f
6674
53 8065 01 db #01
54 8066 1f097374 db 31,9,'stlaCte:',25
6c614374
653a19
55 8071 73202d20 db 's - nastavenie '
6e617374
6176656e
696520
56 8080 686f6449 db 'hodIn',8
6e08
57 8086 73706163 db 'space - '
65202d20
58 808e 756b6f6e db 'ukonCenie '
43656e69
6520
59 8098 70726f67 db 'programu ',0
72616d75
2000
60 80a2
61 80a2 76 loop hlt
62 80a3 cd0683 call vypis
63 80a6
64 80a6 cded82 call inkey
65 80a9 28f7 jr z,loop
66 80ab fe20 key cp #20
67 80ad ca5085 jp z,basic
68 80b0 f620 or #20
69 80b2 fe73 cp 's'
70 80b4 20ec jr nz,loop
71 80b6
72 80b6 cd9984 call cls Rutinka pre S
73 80b9 cdc584 call text
74 80bc 22 db #22
75 80bd 6e616f7a db 'naozaj chcete '
616a2063
68636574
6520
76 80cb 6d656e69 db 'menit Udaje ??'
74205564
616a6520
3f3f
77 80d9 011f10 db #01,31,16
78 80dc 5b612f6e db '[a/n]',0
5d00
79 80e2
80 80e2 76 ssyynn hlt
81 80e3 cd0683 call vypis
82 80e6 cded82 call inkey
83 80e9 28f7 jr z,ssyynn
84 80eb f620 or #20
85 80ed fe6e cp 'n'
86 80ef ca4280 jp z,titul
87 80f2 fe61 cp 'a'
88 80f4 20ec jr nz,ssyynn
89 80f6
90 80f6 cd9984 call cls
91 80f9 cdc584 call text
92 80fc 23 db #23
93 80fd 6e617374 db 'nastavenie '
6176656e
696520
94 8108 4361736f db 'CasovEho '
7645686f
20
95 8111 5564616a db 'Udaja',8,1
610801
96 8118 766f646f db 'vodorovnE SIpky '
726f766e
45205349
706b7920
97 8128 2d207659 db '- vYber',8
62657208
98 8130 7a766973 db 'zvislE SIpky - '
6c452053
49706b79
202d20
99 813f 6e617374 db 'nastavenie',7
6176656e
696507
100 814a 656e7465 db 'enter - zApis '
72202d20
7a417069
7320
101 8158 5564616a db 'Udaja do rtc',5
6120646f
20727463
05
102 8165 64656c65 db 'delete - nazad '
7465202d
206e617a
616420
103 8174 62657a20 db 'bez zapIsania',0
7a617049
73616e69
6100
104 8182
105 8182 cd0d83 sstt call ukaz
106 8185 dd219982 adduu ld ix,tabuu
107 8189 dd6e02 mmloop ld l,(ix+#02)
108 818c dd7e03 ld a,(ix+#03)
109 818f 0f rrca
110 8190 0f rrca
111 8191 0f rrca
112 8192 e603 and #03
113 8194 f658 or #58
114 8196 67 ld h,a
115 8197 22ae81 ld (kde+1),hl
116 819a dd7e04 ld a,(ix+#04)
117 819d 32b681 ld (sirka+1),a
118 81a0 76 ssloop hlt
119 81a1 3a785c ld a,(23672)
120 81a4 0f rrca
121 81a5 0f rrca
122 81a6 0f rrca
123 81a7 0f rrca
124 81a8 9f sbc a,a
125 81a9 e60a and #5f-#55
126 81ab c655 add a,#55
127 81ad 215555 kde ld hl,#5555
128 81b0 112000 ld de,#20
129 81b3 0e04 ld c,#04
130 81b5 0655 sirka ld b,#55
131 81b7 e5 push hl
132 81b8 77 curs1 ld (hl),a
133 81b9 2c inc l
134 81ba 10fc djnz curs1
135 81bc e1 pop hl
136 81bd 19 add hl,de
137 81be 0d dec c
138 81bf 20f4 jr nz,sirka
139 81c1 cded82 call inkey
140 81c4 28da jr z,ssloop
141 81c6 0eff ld c,#ff
142 81c8 fe0a cp 10 dole
143 81ca 283b jr z,nastav
144 81cc 0e01 ld c,#01
145 81ce fe0b cp 11 hore
146 81d0 2835 jr z,nastav
147 81d2 cd8283 call farby
148 81d5 fe0c cp 12 delete
149 81d7 ca4280 jp z,titul
150 81da 01faff ld bc,-6
151 81dd fe08 cp 8 vlado
152 81df 2811 jr z,vyber
153 81e1 010600 ld bc,6
154 81e4 fe09 cp 9 vpravo
155 81e6 280a jr z,vyber
156 81e8 fe0d cp 13 enter
157 81ea 20b4 jr nz,ssloop
158 81ec dd228781 ld (adduu+2),ix
159 81f0 1831 jr korekt
160 81f2
161 81f2 dd09 vyber add ix,bc
162 81f4 dd7e02 ld a,(ix+#02)
163 81f7 ddb603 or (ix+#03)
164 81fa 208d jr nz,mmloop
165 81fc dd4e00 ld c,(ix+#00)
166 81ff dd4601 ld b,(ix+#01)
167 8202 c5 push bc
168 8203 dde1 pop ix
169 8205 1882 jr mmloop
170 8207
171 8207 dd6e00 nastav ld l,(ix+#00)
172 820a dd6601 ld h,(ix+#01)
173 820d 7e ld a,(hl)
174 820e 81 add a,c
175 820f ddbe05 cp (ix+#05)
176 8212 3808 jr c,nast1
177 8214 af xor a
178 8215 0d dec c
179 8216 2804 jr z,nast1
180 8218 dd7e05 ld a,(ix+#05)
181 821b 3d dec a
182 821c 77 nast1 ld (hl),a
183 821d cd0d83 call ukaz
184 8220 c3a081 jp ssloop
185 8223
186 8223 21b785 korekt ld hl,hod10 Test a skorigovanie
187 8226 1e17 ld e,23 casoveho udaju
188 8228 cd6982 call chkmax hodiny max. 23
189 822b
190 822b 21b185 ld hl,rok10 Urcenie
191 822e cd7d82 call getval priestupneho
192 8231 e603 and #03 roka
193 8233 fe01 cp #01
194 8235 9f sbc a,a
195 8236 e601 and #01
196 8238 f61c or 28 pocet dni
197 823a 328882 ld (mesdni+1),a vo februari
198 823d
199 823d 21b385 ld hl,mes10
200 8240 cd7d82 call getval
201 8243 b7 or a
202 8244 2001 jr nz,#01
203 8246 3c inc a
204 8247 fe0d cp 13
205 8249 3802 jr c,kk1
206 824b 3e0c ld a,12
207 824d cd7082 kk1 call setval
208 8250 cd7d82 call getval
209 8253 3d dec a
210 8254 c687 add a,mesdni
212 8258 6f ld l,a
213 8259 3001 jr nc,#01
214 825b 24 inc h
215 825c 5e ld e,(hl)
216 825d 21b585 ld hl,den10
217 8260 cd6982 call chkmax
218 8263
219 8263 cda983 zapis call write
220 8266 c34280 jp titul
221 8269
222 8269 cd7d82 chkmax call getval hl=add,e=max
223 826c bb cp e
224 826d d8 ret c
225 826e c8 ret z
226 826f 7b ld a,e
227 8270 36ff setval ld (hl),#ff hl=add,a=val
228 8272 34 sst1 inc (hl)
229 8273 d60a sub 10
230 8275 30fb jr nc,sst1
231 8277 c60a add a,10
232 8279 23 inc hl
233 827a 77 ld (hl),a
234 827b 2b dec hl
235 827c c9 ret
236 827d
237 827d 7e getval ld a,(hl) hl=add,a=val
238 827e 23 inc hl
239 827f 4f ld c,a
240 8280 87 add a,a
241 8281 87 add a,a
242 8282 81 add a,c
243 8283 87 add a,a
244 8284 86 add a,(hl)
245 8285 2b dec hl
246 8286 c9 ret
247 8287
248 8287 1f1c1f1e mesdni db 31,28,31,30,31,30 dni v mesiacoch
1f1e
249 828d 1f1f1e1f db 31,31,30,31,30,31
1e1f
250 8293
251 8293 e1820000 dw tabee,0,0
0000
252 8299 b7850040 tabuu dw hod10,#4000,#0304 add_dat,add_video,limit+sirka
0403
253 829f b8850440 dw hod01,#4004,#0a04
040a
254 82a5 b9850c40 dw min10,#400c,#0604
0406
255 82ab ba851040 dw min01,#4010,#0a04
040a
256 82b1 bb851840 dw sec10,#4018,#0604
0406
257 82b7 bc851c40 dw sec01,#401c,#0a04
040a
258 82bd b5854048 dw den10,#4840,#0404
0404
259 82c3 b6854448 dw den01,#4844,#0a04
040a
260 82c9 b3854c48 dw mes10,#484c,#0204
0402
261 82cf b4855048 dw mes01,#4850,#0a04
040a
262 82d5 b1855848 dw rok10,#4858,#0a04
040a
263 82db b2855c48 dw rok01,#485c,#0a04
040a
264 82e1 b085a040 tabee dw dentt,#40a0,#0720
2007
265 82e7 99820000 dw tabuu,0,0
0000
266 82ed
267 82ed fdcb016e inkey bit 5,(iy+#01)
268 82f1 c8 ret z
269 82f2 fdcb01ae res 5,(iy+#01)
270 82f6 3e18 ld a,#18
271 82f8 d3fe out (#fe),a
272 82fa 3d dec a
273 82fb 20fd jr nz,#fd
274 82fd 3e08 ld a,#08
275 82ff d3fe out (#fe),a
276 8301 3a085c ld a,(23560)
277 8304 b7 or a
278 8305 c9 ret
279 8306
280 8306 cd9c83 vypis call test
281 8309 c8 ret z
282 830a cdc583 show call read
283 830d 211840 ukaz ld hl,#4018 cas
284 8310 222584 ld (zncur+1),hl
285 8313 21bb85 ld hl,sec10
286 8316 cdf283 call cislo
287 8319 af xor a
288 831a 322584 ld (zncur+1),a
289 831d 21b785 ld hl,hod10
290 8320 cdf283 call cislo
291 8323 3e3a ld a,':'
292 8325 cdff83 call znak
293 8328 21b985 ld hl,min10
294 832b cdf283 call cislo
295 832e 3e3a ld a,':'
296 8330 cdff83 call znak
297 8333
298 8333 3ea0 ld a,#a0 den v tyzdni
299 8335 322584 ld (zncur+1),a
300 8338 3ab085 ld a,(dentt)
301 833b fe07 cp #07
302 833d 3801 jr c,#01
303 833f af xor a
304 8340 87 add a,a
305 8341 87 add a,a
306 8342 87 add a,a
307 8343 c678 add a,dni
309 8347 6f ld l,a
310 8348 3001 jr nc,#01
311 834a 24 inc h
312 834b 0608 ld b,#08
313 834d 7e ld a,(hl)
314 834e fe2e cp '.'
315 8350 2007 jr nz,ddnxt
316 8352 05 dec b
317 8353 23 inc hl
318 8354 3ea2 ld a,#a2
319 8356 322584 ld (zncur+1),a
320 8359 7e ddnxt ld a,(hl)
321 835a cdff83 call znak
322 835d 23 inc hl
323 835e 10f9 djnz ddnxt
324 8360
325 8360 214048 ld hl,#4840 datum
326 8363 222584 ld (zncur+1),hl
327 8366 21b585 ld hl,den10
328 8369 cdf283 call cislo
329 836c 3e3d ld a,#3d
330 836e cdff83 call znak
331 8371 21b385 ld hl,mes10
332 8374 cdf283 call cislo
333 8377 3e3d ld a,#3d
334 8379 cdff83 call znak
335 837c 21b185 ld hl,rok10
336 837f c3f283 jp cislo
337 8382
338 8382 210058 farby ld hl,#5800 farby
339 8385 110158 ld de,#5801
340 8388 3607 ld (hl),#07
341 838a 018000 ld bc,#80
342 838d edb0 ldir
343 838f 3604 ld (hl),#04
344 8391 0ec0 ld c,#c0
345 8393 edb0 ldir
346 8395 3605 ld (hl),#05
347 8397 0e80 ld c,#80
348 8399 edb0 ldir
349 839b c9 ret
350 839c
351 839c 01030d test ld bc,#0d00+rtc Test ci sa uz
352 839f ed58 in e,(c) zmenil casovy udaj
353 83a1 cb53 bit 2,e
354 83a3 c8 ret z
355 83a4 1e02 ld e,#02
356 83a6 ed59 out (c),e
357 83a8 c9 ret
358 83a9
359 83a9 01030f write ld bc,#0f00+rtc Zapisanie casu do RTC
360 83ac 3e05 ld a,#05
361 83ae ed79 out (c),a
362 83b0 21b085 ld hl,bufrtc
363 83b3 01030c ld bc,#0c00+rtc
364 83b6 7e ooo ld a,(hl)
365 83b7 ed79 out (c),a
366 83b9 23 inc hl
367 83ba 05 dec b
368 83bb f2b683 jp p,ooo
369 83be 3e04 ld a,#04
370 83c0 060f ld b,#0f
371 83c2 ed79 out (c),a
372 83c4 c9 ret
373 83c5
374 83c5 dd2610 read ld xh,#10 Precitanie casu z RTC
375 83c8 21b085 rtcrd1 ld hl,bufrtc
376 83cb 01030d ld bc,#0d00+rtc
377 83ce af xor a
378 83cf ed79 out (c),a
379 83d1 05 dec b
380 83d2 edb2 inir
381 83d4 eda2 ini
382 83d6 060d ld b,#0d
383 83d8 ed78 in a,(c)
384 83da cb57 bit 2,a
385 83dc 2804 jr z,readok
386 83de dd25 dec xh
387 83e0 20e6 jr nz,rtcrd1
388 83e2 21b085 readok ld hl,bufrtc
389 83e5 010d00 ld bc,#0d
390 83e8 3e0f rtcmsk ld a,#0f
391 83ea a6 and (hl)
392 83eb 77 ld (hl),a
393 83ec eda1 cpi
394 83ee eae883 jp pe,rtcmsk
395 83f1 c9 ret
396 83f2
397 83f2 cdf583 cislo call cis1
398 83f5 7e cis1 ld a,(hl)
399 83f6 23 inc hl
400 83f7 f630 or '0'
401 83f9 fe3a cp '9'+1
402 83fb 3802 jr c,znak
403 83fd 3e3f ld a,'?'
404 83ff e5 znak push hl
405 8400 d5 push de
406 8401 c5 push bc
407 8402 fe20 cp ' '
408 8404 2002 jr nz,#02
409 8406 3e40 ld a,'@'
410 8408 d630 sub #30
411 840a 4f ld c,a
412 840b e607 and #07
413 840d 87 add a,a
414 840e 87 add a,a
415 840f 6f ld l,a
416 8410 79 ld a,c
417 8411 e608 and #08
418 8413 0f rrca
419 8414 0f rrca
420 8415 0f rrca
421 8416 0f rrca
422 8417 b5 or l
423 8418 6f ld l,a
424 8419 79 ld a,c
425 841a e630 and #30
426 841c 0f rrca
427 841d c660 add a,>znaky
428 841f 67 ld h,a
429 8420 0e04 ld c,#04
430 8422 0604 znk2 ld b,#04
431 8424 110040 zncur ld de,#4000
432 8427 e5 push hl
433 8428 7e znk1 ld a,(hl)
434 8429 12 ld (de),a
435 842a 24 inc h
436 842b 14 inc d
437 842c 7e122414 dw #127e,#1424
438 8430 7e122414 dw #127e,#1424
439 8434 7e122414 dw #127e,#1424
440 8438 7e122414 dw #127e,#1424
441 843c 7e122414 dw #127e,#1424
442 8440 7e122414 dw #127e,#1424
443 8444 7e122414 dw #127e,#1424
444 8448 3e20 ld a,#20
445 844a 85 add a,l
446 844b 6f ld l,a
447 844c 3804 jr c,zndd1
448 844e 3ef8 ld a,#f8
449 8450 84 add a,h
450 8451 67 ld h,a
451 8452 3e20 zndd1 ld a,#20
452 8454 83 add a,e
453 8455 5f ld e,a
454 8456 3804 jr c,zndd2
455 8458 3ef8 ld a,#f8
456 845a 82 add a,d
457 845b 57 ld d,a
458 845c 10ca zndd2 djnz znk1
459 845e 212584 ld hl,zncur+1
460 8461 34 inc (hl)
461 8462 e1 pop hl
462 8463 2c inc l
463 8464 0d dec c
464 8465 20bb jr nz,znk2
465 8467 c1 pop bc
466 8468 d1 pop de
467 8469 e1 pop hl
468 846a c9 ret
469 846b
470 846b 76 screen hlt
471 846c 3e08 ld a,#08
472 846e d3fe out (#fe),a
473 8470 210040 ld hl,#4000
474 8473 110140 ld de,#4001
475 8476 01e019 ld bc,#19e0
476 8479 75 ld (hl),l
477 847a edb0 ldir
478 847c 3612 ld (hl),#12
479 847e 0e21 ld c,#21
480 8480 edb0 ldir
481 8482 3606 ld (hl),#06
482 8484 0e1e ld c,#1e
483 8486 edb0 ldir
484 8488 3612 ld (hl),#12
485 848a 0ee0 ld c,#e0
486 848c edb0 ldir
487 848e 21005a ld hl,#5a00
488 8491 11205a ld de,#5a20
489 8494 0ec0 ld c,#c0
490 8496 edb0 ldir
491 8498 c9 ret
492 8499
493 8499 210050 cls ld hl,#5000
494 849c 110150 ld de,#5001
495 849f 01ff07 ld bc,#07ff
496 84a2 75 ld (hl),l
497 84a3 edb0 ldir
498 84a5 c9 ret
499 84a6
500 84a6 e5 disp push hl jeden znak 8x8 pixelov
501 84a7 d5 push de
502 84a8 c5 push bc
503 84a9 87 add a,a
504 84aa 6f ld l,a
505 84ab 261f ld h,#1f
506 84ad 29 add hl,hl
507 84ae 29 add hl,hl
508 84af 115550 cursor ld de,#5055
509 84b2 0608 ld b,#08
510 84b4 7e prn2 ld a,(hl)
511 84b5 1f tucne rra
512 84b6 b6 or (hl)
513 84b7 12 ld (de),a
514 84b8 23 inc hl
515 84b9 14 inc d
516 84ba 10f8 djnz prn2
517 84bc 1c inc e
518 84bd 7b ld a,e
519 84be 32b084 ld (cursor+1),a
520 84c1 c1 pop bc
521 84c2 d1 pop de
522 84c3 e1 pop hl
523 84c4 c9 ret
524 84c5
525 84c5 e1 text pop hl
526 84c6 7e ld a,(hl)
527 84c7 32b084 ld (cursor+1),a
528 84ca 3e1f ld a,#1f
529 84cc 32b584 ld (tucne),a
530 84cf 23 txt1 inc hl
531 84d0 7e ld a,(hl)
532 84d1 b7 or a #00 = koniec textu
533 84d2 280d jr z,txtret
534 84d4 fe03 cp #03
535 84d6 3812 jr c,txttuc #01,#02 = chude/tucne pismo
536 84d8 fe20 cp #20
537 84da 3806 jr c,txttab #03..#1f = multimedzery
538 84dc cda684 call disp
539 84df 18ee jr txt1 #20..#ff = znaky
540 84e1 e9 txtret jp (hl)
541 84e2 11b084 txttab ld de,cursor+1
542 84e5 1a ld a,(de)
543 84e6 86 add a,(hl)
544 84e7 12 ld (de),a
545 84e8 18e5 jr txt1
546 84ea 0f txttuc rrca
547 84eb 0f rrca
548 84ec 9f sbc a,a
549 84ed e61f and #1f
550 84ef 32b584 ld (tucne),a
551 84f2 18db jr txt1
552 84f4
553 84f4 cd6b84 notrtc call screen
554 84f7 cdc584 call text
555 84fa 22 db #22
556 84fb 76207465 db 'v tejto '
6a746f20
557 8503 6b6f6e66 db 'konfigurAcii '
69677572
41636969
20
558 8510 6e696520 db 'nie je ',4
6a652004
559 8518 696e5374 db 'inStalovanY '
616c6f76
616e5920
560 8524 72746320 db 'rtc koprocesor!!'
6b6f7072
6f636573
6f722121
561 8534 01 db #01
562 8535 1f0a7374 db 31,10,'stlaCte '
6c614374
6520
563 853f 6b6c4176 db 'klAvesu...',0
6573752e
2e2e00
564 854a 76 cakaj hlt
565 854b cded82 call inkey
566 854e 28fa jr z,cakaj
567 8550 basic
568 8550 3e55 repspd ld a,#55
569 8552 320a5c ld (23562),a
570 8555 210040 ld hl,#4000
571 8558 110140 ld de,#4001
572 855b 010018 ld bc,#1800
573 855e 75 ld (hl),l
574 855f edb0 ldir
575 8561 76 hlt
576 8562 3a485c ld a,(23624)
577 8565 0f rrca
578 8566 0f rrca
579 8567 0f rrca
580 8568 e607 and #07
581 856a f608 or #08
582 856c d3fe out (#fe),a
583 856e 3a8d5c ld a,(23693)
584 8571 77 ld (hl),a
585 8572 01ff02 ld bc,#02ff
586 8575 edb0 ldir
587 8577 c9 ret
588 8578
589 8578 204e4544 dni db ' NEDELA ' 0
454c4120
590 8580 504f4e44 db 'PONDELOK' 1
454c4f4b
591 8588 2055544f db ' UTOROK ' 2
524f4b20
592 8590 20535452 db ' STREDA ' 3
45444120
593 8598 2e535456 db '.STVRTOK' 4
52544f4b
594 85a0 20504941 db ' PIATOK ' 5
544f4b20
595 85a8 20534f42 db ' SOBOTA ' 6
4f544120
596 85b0
597 85b0 k
598 85b0 l = k-z
599 85b0 vera = verzia/10
600 85b0 verb = vera*10
601 85b0 verc = verzia-verb
602 85b0 ver0 = '0'+verc
603 85b0 ver1 = '0'+vera
604 85b0
605 85b0 bufrtc ds #0d
606 85bd 00 nop
607 85be
608 85be sec01 = bufrtc+#0c
609 85be sec10 = bufrtc+#0b
610 85be min01 = bufrtc+#0a
611 85be min10 = bufrtc+#09
612 85be hod01 = bufrtc+#08
613 85be hod10 = bufrtc+#07
614 85be den01 = bufrtc+#06
615 85be den10 = bufrtc+#05
616 85be mes01 = bufrtc+#04
617 85be mes10 = bufrtc+#03
618 85be rok01 = bufrtc+#02
619 85be rok10 = bufrtc+#01
620 85be dentt = bufrtc+#00
621 85be
622 85be org #5b00
623 5b00 fb p ei
624 5b01 76 hlt
625 5b02 fdcb01ae res 5,(iy+#01)
626 5b06 cd0080 call z
627 5b09 f3 di
628 5b0a c9 ret
adduu 8185 * basic 8550 * bufrtc 85b0 * cakaj 854a *
chkmax 8269 * cis1 83f5 * cislo 83f2 * cls 8499 *
curs1 81b8 * cursor 84af * ddnxt 8359 * den01 85b6 *
den10 85b5 * dentt 85b0 * disp 84a6 * dni 8578 *
farby 8382 * getval 827d * hod01 85b8 * hod10 85b7 *
inkey 82ed * k 85b0 * kde 81ad * key 80ab *
kk1 824d * korekt 8223 * l 05b0 * loop 80a2 *
mes01 85b4 * mes10 85b3 * mesdni 8287 * min01 85ba *
min10 85b9 * mmloop 8189 * nast1 821c * nastav 8207 *
notrtc 84f4 * ooo 83b6 * p 5b00 * prn2 84b4 *
read 83c5 * readok 83e2 * repspd 8550 * rok01 85b2 *
rok10 85b1 * rtc 0003 * rtcmsk 83e8 * rtcrd1 83c8 *
screen 846b * sec01 85bc * sec10 85bb * setval 8270 *
show 830a * sirka 81b5 * ssloop 81a0 * sst1 8272 *
sstt 8182 * ssyynn 80e2 * tabee 82e1 * tabuu 8299 *
test 839c * text 84c5 * titul 8042 * tstrtc 8018 *
tucne 84b5 * txt1 84cf * txtret 84e1 * txttab 84e2 *
txttuc 84ea * ukaz 830d * ver0 0030 * ver1 0033 *
vera 0003 * verb 001e * verc 0000 * verzia 001e *
vyber 81f2 * vypis 8306 * write 83a9 * z 8000 *
zapis 8263 * znak 83ff * znaky 6000 * zncur 8424 *
zndd1 8452 * zndd2 845c * znk1 8428 * znk2 8422 *
Bytes:1468 labels:88 errors:0
|
|
|