Untitled Document

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 = vera10 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