Hodinky (Clock)

Zdrojový kód

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   





Popis
Utilitka na vypis a zmenu hodin realneho casu (rtc).

Poznámky
Nic...

Poslal
Busy