Toto po nahrati uklada do pameti jednotlive casti a postupne ich spusta
3      5b00            *s
4      5b00             
5      5b00                   org  #6000               03 "run" BLAVA DEMO
6      6000            *c0
7      6000 f3         p      di
8      6001 01fd7f            ld   bc,#7ffd            Test 128k
9      6004 2101c3            ld   hl,#c301
10     6007 ed61              out  (c),h
11     6009 75                ld   (hl),l
12     600a ed69              out  (c),l
13     600c 74                ld   (hl),h
14     600d ed61              out  (c),h
15     600f 35                dec  (hl)
16     6010 c2c160            jp   nz,zle
17     6013 310060     dobre  ld   sp,p
18     6016 dd210061          ld   ix,#6100            zaciatok bloku
19     601a fd2100c0          ld   iy,#c000
20     601e 111610            ld   de,#1016            bbb -> 6:#c000
21     6021 21c205            ld   hl,1474
22     6024 cdaa60            call ldir
23     6027 fd2100c6          ld   iy,#c600            sts -> 6:#c600
24     602b 21eb16            ld   hl,5867
25     602e cdaa60            call ldir
26     6031 fd2100c0          ld   iy,#c000
27     6035 213e36            ld   hl,13886            bub -> 3:#c000
28     6038 111310            ld   de,#1013
29     603b cdaa60            call ldir
30     603e fd2100f8          ld   iy,#f800            3ds -> 3:#f800
31     6042 210008            ld   hl,#0800            1.cast
32     6045 cdaa60            call ldir
33     6048 fd2100c0          ld   iy,#c000            3ds -> 1:#c000
34     604c 111110            ld   de,#1011            2.cast
35     604f cda760            call ldir-3
36     6052 310060     loop   ld   sp,p
37     6055 dd2100c0          ld   ix,#c000
38     6059 fd210082          ld   iy,#8200
39     605d 111416            ld   de,#1614
40     6060 cda760            call ldir-3
41     6063 cd0082            call #8200               bbb
42     6066 dd2100c6          ld   ix,#c600
43     606a fd210078          ld   iy,#7800
44     606e 111416            ld   de,#1614
45     6071 cda760            call ldir-3              sts
46     6074 cd0078            call #7800
47     6077 dd2100c0          ld   ix,#c000
48     607b fd217075          ld   iy,30064
49     607f 111413            ld   de,#1314
50     6082 cda760            call ldir-3
51     6085 cd7075            call 30064               bub
52     6088 dd2100f8          ld   ix,#f800
53     608c fd21007d          ld   iy,32000
54     6090 111413            ld   de,#1314
55     6093 210008            ld   hl,#0800
56     6096 cdaa60            call ldir
57     6099 1611              ld   d,#11
58     609b dd2100c0          ld   ix,#c000
59     609f cda760            call ldir-3
60     60a2 cd007d            call 32000               3ds
61     60a5 18ab              jr   loop
62     60a7             
63     60a7 210040            ld   hl,#4000
64     60aa 01fd7f     ldir   ld   bc,#7ffd            d:(ix)->e:(iy)
65     60ad ed51       ss1    out  (c),d
66     60af dd7e00            ld   a,(ix+#00)
67     60b2 ed59              out  (c),e
68     60b4 fd7700            ld   (iy+#00),a
69     60b7 dd23              inc  ix
70     60b9 fd23              inc  iy
71     60bb 2b                dec  hl
72     60bc 7c                ld   a,h
73     60bd b5                or   l
74     60be 20ed              jr   nz,ss1
75     60c0 c9                ret
76     60c1             
77     60c1 fb         zle    ei
78     60c2 3e38              ld   a,#38
79     60c4 32485c            ld   (23624),a
80     60c7 328d5c            ld   (23693),a
81     60ca 328f5c            ld   (23695),a
82     60cd cd6b0d            call #0d6b
83     60d0 3e02              ld   a,#02
84     60d2 cd0116            call #1601
85     60d5 11e060            ld   de,haha
86     60d8 012000            ld   bc,k-haha
87     60db cd3c20            call #203c
88     60de cf                rst  #08
89     60df 03                db   #03                 out of memory
90     60e0             
91     60e0 506c6561.. haha   db   'Please press '
92     60ed 72657365..        db   'reset to '
93     60f6 636f6e74..        db   'continue..'
94     6100            k
95     6100            l      =    k-p
96     6100                   end

 dobre  6013  *  haha   60e0  *  k      6100  *  l      0100  *
 ldir   60aa  *  loop   6052  *  p      6000  *  ss1    60ad  *
 zle    60c1  *                                                

Bytes:0  labels:9  errors:0   

Blava demo - cast so sinus-scrollom.
3      5b00            *s
4      5b00             
5      5b00            ;==============================================================;
6      5b00            ;== Verzia 29 == Sin scroll+disp 2*2 == 23.07.1992 Busy soft ==;
7      5b00            ;==============================================================;
8      5b00            ini    =    #c000               hudba
9      5b00            ton    =    #c006
10     5b00                   org  #6000               "sts" 2. cast do BLAVA DEMO
11     6000            znaky  ds   #1000               Tretina znakov na #7800
12     7000            tabbod ds   #0400
13     7400            tabsin ds   #0100               (ram 7:#2800)
14     7500            bufy   ds   #0100
15     7600            b
16     7600                   org  #9000    Pomocne buffery
17     9000            bufsc0 ds   #0400    pre scroller
18     9400            bufsc1 ds   #0400
19     9800            bufsc2 ds   #0400
20     9c00            bufsc3 ds   #0400
21     a000 ff                db   #ff
22     a001                   org  bufsc0+#0220
23     9220            zn1    ds   #20
24     9240            zn2    ds   #20
25     9260            zn3    ds   #20
26     9280                   org  #8200
27     8200            *c0
28     8200            z
29     8200 f3         p      di
30     8201 ed733788          ld   (sp+1),sp
31     8205 310082            ld   sp,p
32     8208 3e14              ld   a,#14               !!!
33     820a 01fd7f            ld   bc,#7ffd
34     820d ed79              out  (c),a
35     820f cd7a87            call mkznak    Vypocet znakoveho suboru
36     8212 cd1f87            call mkbod    Vypocet adries bodov
37     8215 cdfb86            call mksin    Vypocet sinusovej tabulky
38     8218 cdc384            call scini    Inicializacia scrollera
39     821b cdfd87            call pusti    Cakanie na pustenie klavesy
40     821e             
41     821e 210080            ld   hl,#8000    Im2 vektor
42     8221 7c                ld   a,h
43     8222 ed47              ld   i,a
44     8224 ed5e              im2
45     8226 3c                inc  a
46     8227 77         vi1    ld   (hl),a
47     8228 2c                inc  l
48     8229 20fc              jr   nz,vi1
49     822b 24                inc  h
50     822c 77                ld   (hl),a
51     822d 3ec3              ld   a,#c3
52     822f 21a783            ld   hl,rut
53     8232 328181            ld   (#8181),a
54     8235 228281            ld   (#8182),hl
55     8238             
56     8238 210040            ld   hl,#4000
57     823b 110140            ld   de,#4001
58     823e 01ff17            ld   bc,#17ff
59     8241 75                ld   (hl),l
60     8242 edb0              ldir
61     8244 210989            ld   hl,text
62     8247 228c83            ld   (byte+2),hl
63     824a 3e3e              ld   a,#3e
64     824c 329583            ld   (key),a
65     824f cd00c0            call ini        Inicializacia hudby
66     8252 fb                ei
67     8253 310082     loop   ld   sp,p        Hlavna slucka
68     8256 015382            ld   bc,loop    vypisujuca titulky hore
69     8259 c5                push bc
70     825a cd8a83            call byte
71     825d fe1e              cp   #1e
72     825f ca0688            jp   z,exit
73     8262 b7                or   a
74     8263 2007              jr   nz,ll0
75     8265 210989            ld   hl,text
76     8268 228c83            ld   (byte+2),hl
77     826b c9                ret
78     826c                         Rozne prikazove kody v texte:
79     826c fe10       ll0    cp   #10        #10 - zmazanie obrazovky
80     826e 2025              jr   nz,ll1
81     8270             
82     8270 3e05       cls    ld   a,#05
83     8272 210058     cc1    ld   hl,#5800
84     8275 110158            ld   de,#5801
85     8278 01ff01            ld   bc,#01ff
86     827b 77                ld   (hl),a
87     827c 76                hlt
88     827d 76                hlt
89     827e edb0              ldir
90     8280 3d                dec  a                   !!!
91     8281 f27282            jp   p,cc1
92     8284 210040            ld   hl,#4000
93     8287 110140            ld   de,#4001
94     828a 010010            ld   bc,#1000
95     828d 75                ld   (hl),l              !!! l
96     828e edb0              ldir
97     8290 ed432283          ld   (xxx),bc
98     8294 c9                ret
99     8295             
100    8295 300c       ll1    jr   nc,ll2    Menej ako #10
101    8297 47                ld   b,a        presun kurzora na danu
102    8298 cda782            call enter    poziciu na novom riadku
103    829b 3e20       medz   ld   a,#20
104    829d cd0f83            call disp
105    82a0 10f9              djnz medz
106    82a2 c9                ret
107    82a3             
108    82a3 fe12       ll2    cp   #12        #12 = presun kurzora
109    82a5 2009              jr   nz,ll3    na zaciatok noveho riadku
110    82a7 212283     enter  ld   hl,xxx
111    82aa 3600              ld   (hl),#00
112    82ac 23                inc  hl
113    82ad 34                inc  (hl)
114    82ae 34                inc  (hl)
115    82af c9                ret
116    82b0             
117    82b0 fe80       ll3    cp   #80        Viac ako #80 = cakanie
118    82b2 3814              jr   c,ll4    1-128 sekund
119    82b4 e67f              and  #7f
120    82b6 4f                ld   c,a
121    82b7 0632       wait   ld   b,#32
122    82b9 cd8283     www    call halt
123    82bc 3a9583            ld   a,(key)
124    82bf fe3e              cp   #3e
125    82c1 c0                ret  nz
126    82c2 10f5              djnz www
127    82c4 0d                dec  c
128    82c5 20f0              jr   nz,wait
129    82c7 c9                ret
130    82c8             
131    82c8 fe11       ll4    cp   #11        #11 - PRINT AT
132    82ca 200c              jr   nz,ll5    [priame urcenie pozicie vypisu]
133    82cc cd8a83            call byte
134    82cf 67                ld   h,a
135    82d0 cd8a83            call byte
136    82d3 6f                ld   l,a
137    82d4 222283            ld   (xxx),hl
138    82d7 c9                ret
139    82d8             
140    82d8 fe14       ll5    cp   #14        #14 - aktualny riadok
141    82da 2007              jr   nz,ll6    sa oznaci pre buduce zmazanie
142    82dc 3a2383            ld   a,(xxx+1)
143    82df 32e882            ld   (zmaz+1),a
144    82e2 c9                ret
145    82e3             
146    82e3 fe15       ll6    cp   #15        #15 - zmazanie
147    82e5 2028              jr   nz,disp    oznaceneho riadku
148    82e7 210000     zmaz   ld   hl,#00    [zhasnutie farby riadku]
149    82ea 45                ld   b,l
150    82eb 4c                ld   c,h
151    82ec ed432283          ld   (xxx),bc
152    82f0 29                add  hl,hl
153    82f1 29                add  hl,hl
154    82f2 29                add  hl,hl
155    82f3 29                add  hl,hl
156    82f4 29                add  hl,hl
157    82f5 7c                ld   a,h
158    82f6 e603              and  #03
159    82f8 f658              or   #58
160    82fa 67                ld   h,a
161    82fb 0e05              ld   c,#05
162    82fd e5         zm1    push hl
163    82fe 0640              ld   b,#40
164    8300 71         zm2    ld   (hl),c
165    8301 23                inc  hl
166    8302 10fc              djnz zm2
167    8304 e1                pop  hl
168    8305 76                hlt
169    8306 76                hlt
170    8307 0d                dec  c
171    8308 f2fd82            jp   p,zm1
172    830b 0610              ld   b,#10
173    830d 188c              jr   medz
174    830f             
175    830f fe20       disp   cp   #20        Znaky medzi #20 az #7f
176    8311 d8                ret  c        sa normalne vypisu
177    8312 c5                push bc
178    8313 f5                push af
179    8314 3e18              ld   a,#18
180    8316 2802              jr   z,#02
181    8318 3e3e              ld   a,#3e
182    831a 324683            ld   (dd3),a
183    831d f1                pop  af
184    831e cd4885            call znadd
185    8321 01                db   #01
186    8322 0101       xxx    dw   #0101    - pozicia vypisu na screen
187    8324 e5                push hl
188    8325 78                ld   a,b
189    8326 87                add  a,a
190    8327 87                add  a,a
191    8328 87                add  a,a
192    8329 e678              and  #78
193    832b 6f                ld   l,a                 l=16*yyy
194    832c 2670              ld   h,>tabbod
195    832e 56                ld   d,(hl)
196    832f 24                inc  h
197    8330 7e                ld   a,(hl)
198    8331 b1                or   c
199    8332 5f                ld   e,a
200    8333 e1                pop  hl
201    8334 d5                push de
202    8335 01ff10            ld   bc,#10ff
203    8338 eda0       dd2    ldi
204    833a 7e                ld   a,(hl)
205    833b 12                ld   (de),a
206    833c 23                inc  hl
207    833d 1d                dec  e
208    833e eb                ex   de,hl
209    833f cdb786            call dole
210    8342 eb                ex   de,hl
211    8343 10f3              djnz dd2
212    8345 e1                pop  hl
213    8346 181e       dd3    jr   ddend
214    8348 7c                ld   a,h
215    8349 0f                rrca
216    834a 0f                rrca
217    834b 0f                rrca
218    834c e603              and  #03
219    834e f658              or   #58
220    8350 67                ld   h,a
221    8351 012000            ld   bc,#20
222    8354 1e47              ld   e,#47
223    8356 cd7683            call zncol
224    8359 1e07              ld   e,#07
225    835b cd7683            call zncol
226    835e 1d                dec  e
227    835f cd7683            call zncol
228    8362 1d                dec  e
229    8363 cd7683            call zncol
230    8366 212283     ddend  ld   hl,xxx
231    8369 34                inc  (hl)
232    836a 34                inc  (hl)
233    836b cb6e              bit  5,(hl)
234    836d cbae              res  5,(hl)
235    836f 23                inc  hl
236    8370 2802              jr   z,#02
237    8372 34                inc  (hl)
238    8373 34                inc  (hl)
239    8374 c1                pop  bc
240    8375 c9                ret
241    8376             
242    8376 e5         zncol  push hl
243    8377 73                ld   (hl),e
244    8378 2c                inc  l
245    8379 73                ld   (hl),e
246    837a 09                add  hl,bc
247    837b 73                ld   (hl),e
248    837c 2d                dec  l
249    837d 73                ld   (hl),e
250    837e e1                pop  hl
251    837f cd8283            call halt
252    8382 3e7f       halt   ld   a,#7f
253    8384 dbfe              in   a,(#fe)
254    8386 0f                rrca
255    8387 d0                ret  nc
256    8388 76                hlt
257    8389 c9                ret
258    838a             
259    838a e5         byte   push hl        Nacitanie bajty z textu
260    838b 215555            ld   hl,#5555
261    838e 7e                ld   a,(hl)
262    838f 23                inc  hl
263    8390 228c83            ld   (byte+2),hl
264    8393 e1                pop  hl
265    8394 c9                ret
266    8395             
267    8395 3ebf       key    ld   a,#bf    Test na enter
268    8397 dbfe              in   a,(#fe)
269    8399 0f                rrca
270    839a d8                ret  c
271    839b 21f488            ld   hl,tend
272    839e 228c83            ld   (byte+2),hl
273    83a1 3ec9              ld   a,#c9
274    83a3 329583            ld   (key),a
275    83a6 c9                ret
276    83a7             
277    83a7 f5         rut    push af        Toto chodi v preruseni
278    83a8 c5                push bc
279    83a9 d5                push de
280    83aa e5                push hl
281    83ab dde5              push ix
282    83ad fde5              push iy
283    83af 3e03              ld   a,#03
284    83b1 cd4488            call out+2
285    83b4 cd6c86            call move
286    83b7 cd4288            call out
287    83ba cdf684            call scroll
288    83bd cd4288            call out
289    83c0 cde383            call indc
290    83c3 cd4288            call out
291    83c6 cd1884            call inds
292    83c9 cd4288            call out
293    83cc cd06c0            call ton
294    83cf cd4288            call out
295    83d2 cd9583            call key
296    83d5 af                xor  a
297    83d6 cd4488            call out+2
298    83d9 fde1              pop  iy
299    83db dde1              pop  ix
300    83dd e1                pop  hl
301    83de d1                pop  de
302    83df c1                pop  bc
303    83e0 f1                pop  af
304    83e1 fb                ei
305    83e2 c9                ret
306    83e3             
307    83e3 3e41       indc   ld   a,#41               (#59)
308    83e5 67                ld   h,a        Zafarbenie indikatorov
309    83e6 6f                ld   l,a
310    83e7 32c25a            ld   (#5ac2),a
311    83ea 32e25a            ld   (#5ae2),a
312    83ed 32e65a            ld   (#5ae6),a
313    83f0 32c65a            ld   (#5ac6),a
314    83f3 32dd5a            ld   (#5add),a
315    83f6 32fd5a            ld   (#5afd),a
316    83f9 32f95a            ld   (#5af9),a
317    83fc 32d95a            ld   (#5ad9),a
318    83ff 22c35a            ld   (#5ac3),hl
319    8402 22e35a            ld   (#5ae3),hl
320    8405 22e75a            ld   (#5ae7),hl
321    8408 22c75a            ld   (#5ac7),hl
322    840b 22db5a            ld   (#5adb),hl
323    840e 22fb5a            ld   (#5afb),hl
324    8411 22f75a            ld   (#5af7),hl
325    8414 22d75a            ld   (#5ad7),hl
326    8417 c9                ret
327    8418             
328    8418 01fdff     inds   ld   bc,#fffd    Indikatory hlasitosti
329    841b 3e08              ld   a,#08
330    841d ed79              out  (c),a
331    841f ed50              in   d,(c)               d=a
332    8421 3e09              ld   a,#09
333    8423 ed79              out  (c),a
334    8425 ed58              in   e,(c)               e=b
335    8427 3e0a              ld   a,#0a
336    8429 ed79              out  (c),a
337    842b ed40              in   b,(c)               b=c
338    842d 78         o      ld   a,b
339    842e 83                add  a,e
340    842f 1f                rra
341    8430 67                ld   h,a                 h=bc
342    8431 7a                ld   a,d
343    8432 83                add  a,e
344    8433 1f                rra
345    8434 6f                ld   l,a                 l=ab
346    8435 7a                ld   a,d
347    8436 80                add  a,b
348    8437 1f                rra
349    8438 4f                ld   c,a                 c=ac
350    8439 7a                ld   a,d
351    843a d9                exx                      "A"
352    843b 21c250            ld   hl,#50c2
353    843e cd5684            call pas+1
354    8441 7d                ld   a,l                 "AB"
355    8442 cd5584            call pas
356    8445 7b                ld   a,e                 "B"
357    8446 cd5584            call pas
358    8449 d9                exx
359    844a 2c                inc  l
360    844b d9                exx
361    844c 79                ld   a,c                 "AC"
362    844d cd5584            call pas
363    8450 78                ld   a,b                 "C"
364    8451 cd5584            call pas
365    8454 7c                ld   a,h                 "BC"
366    8455 d9         pas    exx
367    8456 fe10              cp   #10
368    8458 3802              jr   c,#02
369    845a 3e10              ld   a,#10
370    845c 11b384            ld   de,tabind
371    845f c6f0              add  a,#f0
372    8461 83                add  a,e
373    8462 5f                ld   e,a
374    8463 d5                push de
375    8464 cd6e84            call pss
376    8467 d1                pop  de
377    8468 cd6e84            call pss
378    846b 2c                inc  l
379    846c d9                exx
380    846d c9                ret
381    846e             
382    846e e5         pss    push hl
383    846f 36ff              ld   (hl),#ff
384    8471 24                inc  h
385    8472 cd8484            call psu
386    8475 0120f8            ld   bc,#f820
387    8478 09                add  hl,bc
388    8479 cd8484            call psu
389    847c 36ff              ld   (hl),#ff
390    847e e1                pop  hl
391    847f 3e1f              ld   a,#1f
392    8481 ad                xor  l
393    8482 6f                ld   l,a
394    8483 c9                ret
395    8484             
396    8484 1a         psu    ld   a,(de)
397    8485 77                ld   (hl),a
398    8486 13                inc  de
399    8487 24                inc  h
400    8488 1a771324          dw   #771a,#2413
401    848c 1a771324          dw   #771a,#2413
402    8490 1a771324          dw   #771a,#2413
403    8494 1a771324          dw   #771a,#2413
404    8498 1a771324          dw   #771a,#2413
405    849c 1a771324          dw   #771a,#2413
406    84a0 c9                ret
407    84a1             
408    84a1 81818181          dw   #8181,#8181,#8181
            8181        
409    84a7 81818181          dw   #8181,#8181,#8181
            8181        
410    84ad 81818181          dw   #8181,#8181,#8181
            8181        
411    84b3 ffffffff   tabind dw   -1,-1,-1,-1,-1,-1
            ffffffff    
            ffffffff    
412    84bf ffffffff          dw   -1,-1
413    84c3             
414    84c3 210090     scini  ld   hl,bufsc0        POZOR !!!
415    84c6 110190            ld   de,bufsc0+1        Tu zacina SCROLLer
416    84c9 01ff0f            ld   bc,#0fff
417    84cc 75                ld   (hl),l    najprv inicialiacia
418    84cd edb0              ldir
419    84cf 210074            ld   hl,tabsin
420    84d2 010075            ld   bc,bufy
421    84d5 7e         sci0   ld   a,(hl)
422    84d6 0f                rrca
423    84d7 0f                rrca
424    84d8 0f                rrca
425    84d9 e61f              and  #1f
426    84db c68c              add  a,#8c
427    84dd 02                ld   (bc),a
428    84de 3e04              ld   a,#04
429    84e0 85                add  a,l
430    84e1 6f                ld   l,a
431    84e2 0c                inc  c
432    84e3 20f0              jr   nz,sci0
433    84e5 af                xor  a
434    84e6 32f784            ld   (scroll+1),a
435    84e9 210064            ld   hl,znaky+#0400
436    84ec 227385            ld   (addzn),hl
437    84ef 218b88            ld   hl,demo
438    84f2 220c85            ld   (txtadd+1),hl
439    84f5 c9                ret
440    84f6             
441    84f6 3e55       scroll ld   a,#55    Srdce scrollera tvoria
442    84f8 3c                inc  a        styri rutinky, ktore
443    84f9 e603              and  #03        sa postupne volaju
444    84fb 32f784            ld   (scroll+1),a    po sebe kazdu 1/50 sec
445    84fe 285b              jr   z,sc0
446    8500 3d                dec  a        Kazda pracuje nad svojim
447    8501 ca8785            jp   z,sc1    vlastnym 512-bajtovym
448    8504 3d                dec  a        scroll-buferom
449    8505 cae285            jp   z,sc2
450    8508 c30986            jp   sc3
451    850b             
452    850b 218b88     txtadd ld   hl,demo    Precitanie znaku z textu
453    850e 7e                ld   a,(hl)
454    850f 23                inc  hl
455    8510 220c85            ld   (txtadd+1),hl
456    8513 87                add  a,a
457    8514 2005              jr   nz,scadd
458    8516 218b88            ld   hl,demo
459    8519 18f3              jr   txtadd+3
460    851b fe40       scadd  cp   #40
461    851d 3022              jr   nc,sca1
462    851f 67                ld   h,a
463    8520 6f                ld   l,a
464    8521 0607              ld   b,#07    Zafarbenie spodnej tretiny
465    8523 ed733d85          ld   (scsp+1),sp    obrazovky [scrollu]
466    8527 31005b            ld   sp,#5b00
467    852a e5e5e5e5   sccol  dw   #e5e5,#e5e5
468    852e e5e5e5e5          dw   #e5e5,#e5e5
469    8532 e5e5e5e5          dw   #e5e5,#e5e5
470    8536 e5e5e5e5          dw   #e5e5,#e5e5
471    853a 10ee              djnz sccol
472    853c 315555     scsp   ld   sp,#5555
473    853f 3e40              ld   a,#40
474    8541 cd4985     sca1   call znadd+1
475    8544 227385            ld   (addzn),hl
476    8547 c9                ret
477    8548             
478    8548 87         znadd  add  a,a
479    8549 fec2              cp   2*'a'
480    854b 3806              jr   c,zna1
481    854d fef5              cp   #f5                 2*'z'+1
482    854f 3002              jr   nc,zna1
483    8551 e6bf              and  #bf
484    8553 6f         zna1   ld   l,a
485    8554 2606              ld   h,#06
486    8556 29                add  hl,hl
487    8557 29                add  hl,hl
488    8558 29                add  hl,hl
489    8559 29                add  hl,hl
490    855a c9                ret
491    855b             
492    855b dd2a6685   sc0    ld   ix,(sc0cur+1)
493    855f cd7185            call mmzz
494    8562 012000            ld   bc,#20
495    8565 210090     sc0cur ld   hl,bufsc0
496    8568 09                add  hl,bc
497    8569 cb8c              res  1,h
498    856b 226685            ld   (sc0cur+1),hl
499    856e c35e86            jp   scend
500    8571             
501    8571 e5         mmzz   push hl
502    8572 21                db   #21
503    8573 5555       addzn  dw   #5555
504    8575 0610              ld   b,#10
505    8577 7e         sc98   ld   a,(hl)
506    8578 dd7700            ld   (ix+#00),a
507    857b 23                inc  hl
508    857c 7e                ld   a,(hl)
509    857d dd7710            ld   (ix+#10),a
510    8580 23                inc  hl
511    8581 dd23              inc  ix
512    8583 10f2              djnz sc98
513    8585 e1                pop  hl
514    8586 c9                ret
515    8587             
516    8587 cd0b85     sc1    call txtadd
517    858a 210094     sc1cur ld   hl,bufsc1
518    858d dd212092          ld   ix,zn1
519    8591 0610              ld   b,#10
520    8593 dd7e00     sc11   ld   a,(ix+#00)
521    8596 0f                rrca
522    8597 0f                rrca
523    8598 0f                rrca
524    8599 0f                rrca
525    859a e6f0              and  #f0
526    859c 4f                ld   c,a
527    859d dd7e10            ld   a,(ix+#10)
528    85a0 0f                rrca
529    85a1 0f                rrca
530    85a2 0f                rrca
531    85a3 0f                rrca
532    85a4 e60f              and  #0f
533    85a6 b1                or   c
534    85a7 77                ld   (hl),a
535    85a8 23                inc  hl
536    85a9 dd2c              inc  xl
537    85ab 10e6              djnz sc11
538    85ad cb8c              res  1,h
539    85af ed5b7385          ld   de,(addzn)
540    85b3 dd212092          ld   ix,zn1
541    85b7 0610              ld   b,#10
542    85b9 dd7e10     sc12   ld   a,(ix+#10)
543    85bc 0f                rrca
544    85bd 0f                rrca
545    85be 0f                rrca
546    85bf 0f                rrca
547    85c0 e6f0              and  #f0
548    85c2 4f                ld   c,a
549    85c3 1a                ld   a,(de)
550    85c4 0f                rrca
551    85c5 0f                rrca
552    85c6 0f                rrca
553    85c7 0f                rrca
554    85c8 e60f              and  #0f
555    85ca b1                or   c
556    85cb 77                ld   (hl),a
557    85cc dd2c              inc  xl
558    85ce 23                inc  hl
559    85cf 13                inc  de
560    85d0 13                inc  de
561    85d1 10e6              djnz sc12
562    85d3 cb8c              res  1,h
563    85d5 dd212092          ld   ix,zn1
564    85d9 cd7185            call mmzz
565    85dc 228b85            ld   (sc1cur+1),hl
566    85df c35e86            jp   scend
567    85e2             
568    85e2 210898     sc2    ld   hl,bufsc2+8
569    85e5 110098     sc2cur ld   de,bufsc2
570    85e8 011000            ld   bc,#10
571    85eb 23         sc21   inc  hl
572    85ec eda0              ldi
573    85ee eaeb85            jp   pe,sc21
574    85f1 cb8a              res  1,d
575    85f3 2a7385            ld   hl,(addzn)
576    85f6 22e385            ld   (sc2+1),hl
577    85f9 0e10              ld   c,#10
578    85fb eda0       sc28   ldi
579    85fd 23                inc  hl
580    85fe eafb85            jp   pe,sc28
581    8601 eb                ex   de,hl
582    8602 cb8c              res  1,h
583    8604 22e685            ld   (sc2cur+1),hl
584    8607 1855              jr   scend
585    8609             
586    8609            sc3
587    8609 21009c     sc3cur ld   hl,bufsc3
588    860c dd216092          ld   ix,zn3
589    8610 ed5b7385          ld   de,(addzn)
590    8614 0610              ld   b,#10
591    8616 dd7e10     sc31   ld   a,(ix+#10)
592    8619 0f                rrca
593    861a 0f                rrca
594    861b 0f                rrca
595    861c 0f                rrca
596    861d e6f0              and  #f0
597    861f 4f                ld   c,a
598    8620 1a                ld   a,(de)
599    8621 0f                rrca
600    8622 0f                rrca
601    8623 0f                rrca
602    8624 0f                rrca
603    8625 e60f              and  #0f
604    8627 b1                or   c
605    8628 77                ld   (hl),a
606    8629 dd2c              inc  xl
607    862b 23                inc  hl
608    862c 13                inc  de
609    862d 13                inc  de
610    862e 10e6              djnz sc31
611    8630 cb8c              res  1,h
612    8632 dd216092          ld   ix,zn3
613    8636 cd7185            call mmzz
614    8639 dd216092          ld   ix,zn3
615    863d 0610              ld   b,#10
616    863f dd7e00     sc32   ld   a,(ix+#00)
617    8642 0f                rrca
618    8643 0f                rrca
619    8644 0f                rrca
620    8645 0f                rrca
621    8646 e6f0              and  #f0
622    8648 4f                ld   c,a
623    8649 dd7e10            ld   a,(ix+#10)
624    864c 0f                rrca
625    864d 0f                rrca
626    864e 0f                rrca
627    864f 0f                rrca
628    8650 e60f              and  #0f
629    8652 b1                or   c
630    8653 77                ld   (hl),a
631    8654 dd2c              inc  xl
632    8656 23                inc  hl
633    8657 10e6              djnz sc32
634    8659 cb8c              res  1,h
635    865b 220a86            ld   (sc3cur+1),hl
636    865e             
637    865e 227186     scend  ld   (addm+1),hl
638    8661 3e55       posy   ld   a,#55
639    8663 c6ff       addy   add  a,-#01
640    8665 326286            ld   (posy+1),a
641    8668 326e86            ld   (addx+2),a
642    866b c9                ret
643    866c             
644    866c            move
645    866c dd210075   addx   ld   ix,bufy    Presun jedneho konkretneho
646    8670 115555     addm   ld   de,#5555    scroll-bufera do screenu
647    8673 0e00              ld   c,#00
648    8675 cb8a       mm2    res  1,d
649    8677 dd6e00            ld   l,(ix+#00)
650    867a 2670              ld   h,>tabbod
651    867c 46                ld   b,(hl)
652    867d 24                inc  h
653    867e 7e                ld   a,(hl)
654    867f 24                inc  h
655    8680 69                ld   l,c
656    8681 b6                or   (hl)
657    8682 6f                ld   l,a
658    8683 60                ld   h,b
659    8684 3600              ld   (hl),#00
660    8686 cdb786            call dole
661    8689 3600              ld   (hl),#00
662    868b cdb786            call dole
663    868e 13                inc  de
664    868f 060e              ld   b,#0e
665    8691 1a         mm1    ld   a,(de)
666    8692 77                ld   (hl),a
667    8693 13                inc  de
668    8694 24                inc  h
669    8695 7c                ld   a,h
670    8696 e607              and  #07
671    8698 2811              jr   z,dolo
672    869a 10f5       doli   djnz mm1
673    869c 13                inc  de
674    869d 70                ld   (hl),b
675    869e cdb786            call dole
676    86a1 70                ld   (hl),b
677    86a2 dd2c              inc  xl
678    86a4 3e08              ld   a,#08
679    86a6 81                add  a,c
680    86a7 4f                ld   c,a
681    86a8 20cb              jr   nz,mm2
682    86aa c9                ret
683    86ab             
684    86ab 3e20       dolo   ld   a,#20
685    86ad 85                add  a,l
686    86ae 6f                ld   l,a
687    86af 38e9              jr   c,doli
688    86b1 3ef8              ld   a,#f8
689    86b3 84                add  a,h
690    86b4 67                ld   h,a
691    86b5 18e3              jr   doli
692    86b7             
693    86b7 24         dole   inc  h
694    86b8 7c                ld   a,h
695    86b9 e607              and  #07
696    86bb c0                ret  nz
697    86bc 3e20              ld   a,#20
698    86be 85                add  a,l
699    86bf 6f                ld   l,a
700    86c0 d8                ret  c
701    86c1 3ef8              ld   a,#f8
702    86c3 84                add  a,h
703    86c4 67                ld   h,a
704    86c5 c9                ret
705    86c6             
706    86c6            ;Matematicky koprocesor celociselny
707    86c6             
708    86c6 2600       krat   ld   h,#00               hl=e*a
709    86c8 6c                ld   l,h
710    86c9 54                ld   d,h
711    86ca 87300119          db   #87,#30,#01,#19
712    86ce 29873001          db   #29,#87,#30,#01,#19
            19          
713    86d3 29873001          db   #29,#87,#30,#01,#19
            19          
714    86d8 29873001          db   #29,#87,#30,#01,#19
            19          
715    86dd 29873001          db   #29,#87,#30,#01,#19
            19          
716    86e2 29873001          db   #29,#87,#30,#01,#19
            19          
717    86e7 29873001          db   #29,#87,#30,#01,#19
            19          
718    86ec 29873001          db   #29,#87,#30,#01,#19
            19          
719    86f1 c9                ret
720    86f2             
721    86f2 c640       cos    add  a,#40    a = cos(a)
722    86f4 e5         sin    push hl        a = sin(a)
723    86f5 2674              ld   h,>tabsin
724    86f7 6f                ld   l,a
725    86f8 7e                ld   a,(hl)
726    86f9 e1                pop  hl
727    86fa c9                ret
728    86fb             
729    86fb dd218074   mksin  ld   ix,tabsin+#80    Vypocet tabulky
730    86ff fd210075          ld   iy,tabsin+#0100    sinusu
731    8703 214a88            ld   hl,sintab
732    8706 0641              ld   b,#41
733    8708 7e         mks1   ld   a,(hl)
734    8709 dd7780            ld   (ix+#80),a
735    870c fd7780            ld   (iy+#80),a
736    870f ed44              neg
737    8711 dd7700            ld   (ix+#00),a
738    8714 fd7700            ld   (iy+#00),a
739    8717 23                inc  hl
740    8718 dd23              inc  ix
741    871a fd2b              dec  iy
742    871c 10ea              djnz mks1
743    871e c9                ret
744    871f             
745    871f dd210071   mkbod  ld   ix,tabbod+#0100    Vypocet
746    8723 210040            ld   hl,#4000        adries vo videoram
747    8726 dd25       mkb1   dec  xh            [pre zrychlenie prace]
748    8728 dd7400            ld   (ix+#00),h
749    872b dd24              inc  xh
750    872d dd7500            ld   (ix+#00),l
751    8730 cdb786            call dole
752    8733 7c                ld   a,h
753    8734 fe58              cp   #58
754    8736 3803              jr   c,#03
755    8738 21005b            ld   hl,#5b00
756    873b dd2c              inc  xl
757    873d 20e7              jr   nz,mkb1
758    873f dd24              inc  xh
759    8741 dd7d       mkb2   ld   a,xl
760    8743 0f                rrca
761    8744 0f                rrca
762    8745 0f                rrca
763    8746 e61f              and  #1f
764    8748 dd7700            ld   (ix+#00),a
765    874b dd7d              ld   a,xl
766    874d 2f                cpl
767    874e 87                add  a,a
768    874f 87                add  a,a
769    8750 87                add  a,a
770    8751 f6c7              or   #c7
771    8753 325887            ld   (set1+1),a
772    8756 af                xor  a
773    8757 cbcf       set1   set  1,a
774    8759 dd24              inc  xh
775    875b dd7700            ld   (ix+#00),a
776    875e dd25              dec  xh
777    8760 dd2c              inc  xl
778    8762 20dd              jr   nz,mkb2
779    8764 c9                ret
780    8765             
781    8765 3e07       gett   ld   a,#07               !!!
782    8767 c9                ret
783    8768 d317              out  (23),a    toto tu je nanic
784    876a 210028            ld   hl,#2800    [sluzilo pri odladovani]
785    876d 110078            ld   de,#7800
786    8770 010008            ld   bc,#0800
787    8773 edb0              ldir
788    8775 3e04              ld   a,#04
789    8777 d317              out  (23),a
790    8779 c9                ret
791    877a             
792    877a 210058     mkznak ld   hl,#5800    Tvorba znakoveho suboru
793    877d 110158            ld   de,#5801
794    8780 0603              ld   b,#03
795    8782 75                ld   (hl),l
796    8783 edb0              ldir
797    8785 af                xor  a
798    8786 d3fe              out  (#fe),a
799    8788 cd6587            call gett
800    878b 210078            ld   hl,#7800
801    878e dd211041          ld   ix,#4110
802    8792 cddd87            call mkzn1
803    8795 214078            ld   hl,#7840
804    8798 dd210a51          ld   ix,#510a
805    879c cddd87            call mkzn1
806    879f 218c78            ld   hl,#788c
807    87a2 dd210a30          ld   ix,#300a
808    87a6 cddd87            call mkzn1
809    87a9 218078            ld   hl,#7880
810    87ac dd21062a          ld   ix,#2a06
811    87b0 cddd87            call mkzn1
812    87b3 215878            ld   hl,#7858
813    87b6 dd210426          ld   ix,#2604
814    87ba cddd87            call mkzn1
815    87bd 215478            ld   hl,#7854
816    87c0 dd210221          ld   ix,#2102
817    87c4 cddd87            call mkzn1
818    87c7 21c078            ld   hl,#78c0
819    87ca dd21023a          ld   ix,#3a02
820    87ce cddd87            call mkzn1
821    87d1 dd263f            ld   xh,#3f
822    87d4 cdda87            call mkzn
823    87d7 dd2620            ld   xh,#20
824    87da dd2e01     mkzn   ld   xl,#01
825    87dd dd7c       mkzn1  ld   a,xh
826    87df eb                ex   de,hl
827    87e0 cd4885            call znadd
828    87e3 eb                ex   de,hl
829    87e4 e5                push hl
830    87e5 01ff10            ld   bc,#10ff
831    87e8 eda0       mkz2   ldi
832    87ea 7e                ld   a,(hl)
833    87eb 12                ld   (de),a
834    87ec 13                inc  de
835    87ed 2d                dec  l
836    87ee cdb786            call dole
837    87f1 10f5              djnz mkz2
838    87f3 e1                pop  hl
839    87f4 2c                inc  l
840    87f5 2c                inc  l
841    87f6 dd24              inc  xh
842    87f8 dd2d              dec  xl
843    87fa 20e1              jr   nz,mkzn1
844    87fc c9                ret
845    87fd             
846    87fd af         pusti  xor  a
847    87fe dbfe              in   a,(#fe)
848    8800 f6e0              or   #e0
849    8802 3c                inc  a
850    8803 20f8              jr   nz,pusti
851    8805 c9                ret
852    8806             
853    8806 f3         exit   di    Ukoncenie tejto casti dema
854    8807 ed56              im1
855    8809 af                xor  a
856    880a ed47              ld   i,a
857    880c d3fe              out  (#fe),a
858    880e             
859    880e 01fdff            ld   bc,#fffd            ticho
860    8811 3e07              ld   a,#07
861    8813 ed79              out  (c),a
862    8815 3ebf              ld   a,#bf
863    8817 d3fd              out  (#fd),a
864    8819 3e0d              ld   a,#0d
865    881b ed79              out  (c),a
866    881d 3e80              ld   a,#80
867    881f d3fd              out  (#fd),a
868    8821             
869    8821 067f              ld   b,#7f
870    8823 3e10              ld   a,#10
871    8825 ed79              out  (c),a
872    8827 214058            ld   hl,#5840
873    882a 114158            ld   de,#5841
874    882d 010003            ld   bc,#0300
875    8830 71                ld   (hl),c
876    8831 edb0              ldir
877    8833 cdfd87            call pusti
878    8836 315555     sp     ld   sp,#5555
879    8839 fd213a5c          ld   iy,#5c3a
880    883d 215827            ld   hl,#2758
881    8840 d9                exx
882    8841 c9                ret
883    8842             
884    8842 3e00       out    ld   a,#00    Toto tu tiez sluzilo
885    8844 ee01              xor  #01        len na odladovanie
886    8846 324388            ld   (out+1),a
887    8849            ;      out  (#fe),a
888    8849 c9                ret
889    884a             
890    884a 80838689   sintab dw   #8380,#8986
891    884e 8c909396          dw   #908c,#9693
892    8852 999c9fa2          dw   #9c99,#a29f
893    8856 a5a8abae          dw   #a8a5,#aeab
894    885a b1b3b6b9          dw   #b3b1,#b9b6
895    885e bcbfc1c4          dw   #bfbc,#c4c1
896    8862 c7c9ccce          dw   #c9c7,#cecc
897    8866 d1d3d5d8          dw   #d3d1,#d8d5
898    886a dadcdee0          dw   #dcda,#e0de
899    886e e2e4e6e8          dw   #e4e2,#e8e6
900    8872 eaebedef          dw   #ebea,#efed
901    8876 f0f1f3f4          dw   #f1f0,#f4f3
902    887a f5f6f8f9          dw   #f6f5,#f9f8
903    887e fafafbfc          dw   #fafa,#fcfb
904    8882 fdfdfefe          dw   #fdfd,#fefe
905    8886 feffffff          dw   #fffe,#ffff
906    888a ff                db   #ff
907    888b             
908    888b 0357656c   demo   db   #03,'Welcome to '
            636f6d65    
            20746f20    
909    8897 424c4156          db   'BLAVA DEMO'
            41204445    
            4d4f        
910    88a1 20202020          db   '                 '
            20202020    
            20202020    
            20202020    
            20          
911    88b2 01507265          db   #01,'Press space '
            73732073    
            70616365    
            20          
912    88bf 746f2066          db   'to faster and '
            61737465    
            7220616e    
            6420        
913    88cd 656e7465          db   'enter '
            7220        
914    88d3 746f206e          db   'to next part...'
            65787420    
            70617274    
            2e2e2e      
915    88e2 20202020          db   '                 '
            20202020    
            20202020    
            20202020    
            20          
916    88f3 00                db   #00
917    88f4             
918    88f4 1f1f1f     tend   db   #1f,#1f,#1f
919    88f7 10                db   #10
920    88f8 57616974          db   'Wait for a while'
            20666f72    
            20612077    
            68696c65    
921    8908 1e                db   #1e
922    8909             
923    8909 82         text   db   #82
924    890a 10110207          db   #10,#11,2,7
925    890e 52756d61          db   'Rumatisoft'
            7469736f    
            6674        
926    8918 120826            db   #12,#08,'&'
927    891b 12                db   #12
928    891c 04                db   #04
929    891d 42757379          db   'Busy soft'
            20736f66    
            74          
930    8926 8210              db   #82,#10
931    8928 11030e6f          db   #11,3,14,'or'
            72          
932    892d 811004            db   #81,#10,#04
933    8930 42757379          db   'Busy soft'
            20736f66    
            74          
934    8939 120826            db   #12,#08,'&'
935    893c 110a07            db   #11,10,7
936    893f 52756d61          db   'Rumatisoft'
            7469736f    
            6674        
937    8949 82                db   #82
938    894a 10                db   #10
939    894b 1205              db   #12,#05
940    894d 70726573          db   'present'
            656e74      
941    8954 811212            db   #81,#12,#12
942    8957 20287370          db   ' (specially for '
            65636961    
            6c6c7920    
            666f7220    
943    8967 20204461          db   '  Danny Beach)  '
            6e6e7920    
            42656163    
            68292020    
944    8977 82                db   #82
945    8978 1003              db   #10,#03
946    897a 424c4156          db   'BLAVA DEMO'
            41204445    
            4d4f        
947    8984 81120314          db   #81,#12,#03,#14
948    8988 28417070          db   '(Applause)',#81
            6c617573    
            652981      
949    8993 1584              db   #15,#84
950    8995 10110003          db   #10,#11,0,3
951    8999 436f6465          db   'Coded, packed',#03
            642c2070    
            61636b65    
            6403        
952    89a7 616e6420          db   'and design',#12
            64657369    
            676e12      
953    89b2 8111050e          db   #81,#11,5,14
954    89b6 627902            db   'by',#02
955    89b9 776f726c          db   'world number'
            64206e75    
            6d626572    
956    89c5 110903            db   #11,9,3
957    89c8 6f6e6520          db   'one in speccy'
            696e2073    
            70656363    
            79          
958    89d5 02                db   #02
959    89d6 70726f67          db   'programming:'
            72616d6d    
            696e673a    
960    89e2 110e0781          db   #11,14,7,#81
961    89e6 42555359          db   'BUSY SOFT',#84
            20534f46    
            5484        
962    89f0 10110001          db   #10,#11,0,1
963    89f4 47726170          db   'Graphics,musics'
            68696373    
            2c6d7573    
            696373      
964    8a03 03                db   #03
965    8a04 616e6420          db   'and design'
            64657369    
            676e        
966    8a0e 8111050e          db   #81,#11,5,14
967    8a12 62790214          db   'by',#02,#14
968    8a16 776f726c          db   'world number'
            64206e75    
            6d626572    
969    8a22 01                db   #01
970    8a23 6f6e6520          db   'one in graphic'
            696e2067    
            72617068    
            6963        
971    8a31 01                db   #01
972    8a32 616e6420          db   'and music art:'
            6d757369    
            63206172    
            743a        
973    8a40 81110e06          db   #81,#11,14,6
974    8a44 52554d41          db   'RUMATISOFT',#82
            5449534f    
            465482      
975    8a4f 15110703          db   #15,#11,7,3
976    8a53 67616c61          db   'galaxy number',#83
            7879206e    
            756d6265    
            7283        
977    8a61             
978    8a61 10                db   #10
979    8a62 4e6f7720          db   'Now you can read'
            796f7520    
            63616e20    
            72656164    
980    8a72 12                db   #12
981    8a73 6f757220          db   'our addresses...'
            61646472    
            65737365    
            732e2e2e    
982    8a83 82                db   #82
983    8a84 10                db   #10
984    8a85 42757379          db   'Busy soft:'
            20736f66    
            743a        
985    8a8f 110302            db   #11,3,2
986    8a92 536c6176          db   'Slavo Labsky'
            6f204c61    
            62736b79    
987    8a9e 0147616c          db   #01,'Gallayova 13'
            6c61796f    
            76612031    
            33          
988    8aab 01427261          db   #01,'Bratislava'
            7469736c    
            617661      
989    8ab6 01383431          db   #01,'841-02',#01
            2d303201    
990    8abe 437a6563          db   'CzechoSlovakia'
            686f536c    
            6f76616b    
            6961        
991    8acc 110e00            db   #11,14,0
992    8acf 54656c3a          db   'Tel:+42-7-764705'
            2b34322d    
            372d3736    
            34373035    
993    8adf 86                db   #86
994    8ae0 10                db   #10
995    8ae1 52756d61          db   'Rumatisoft:'
            7469736f    
            66743a      
996    8aec 110302            db   #11,3,2
997    8aef 5275646f          db   'Rudo Priecinsky'
            20507269    
            6563696e    
            736b79      
998    8afe 204c6163          db   ' Lackova 5'
            6b6f7661    
            2035        
999    8b08 01427261          db   #01,'Bratislava'
            7469736c    
            617661      
1000   8b13 01383431          db   #01,'841-04',#01
            2d303401    
1001   8b1b 437a6563          db   'CzechoSlovakia'
            686f536c    
            6f76616b    
            6961        
1002   8b29 110e00            db   #11,14,0
1003   8b2c 54656c3a          db   'Tel:+42-7-720554'
            2b34322d    
            372d3732    
            30353534    
1004   8b3c 86                db   #86
1005   8b3d 10                db   #10
1006   8b3e 20204d65          db   '  Message from  '
            73736167    
            65206672    
            6f6d2020    
1007   8b4e 2020626f          db   '  both authors: '
            74682061    
            7574686f    
            72733a20    
1008   8b5e 12                db   #12
1009   8b5f 4e656368          db   'Nech zije HAVEL!'
            207a696a    
            65204841    
            56454c21    
1010   8b6f 84                db   #84
1011   8b70 10110205          db   #10,#11,2,5
1012   8b74 43726561          db   'Creation on'
            74696f6e    
            206f6e      
1013   8b7f 12                db   #12
1014   8b80 03                db   #03
1015   8b81 32342e30          db   '24.07.1992'
            372e3139    
            3932        
1016   8b8b 110803            db   #11,8,3
1017   8b8e 696e2042          db   'in BRATISLAVA'
            52415449    
            534c4156    
            41          
1018   8b9b 110a03            db   #11,10,3
1019   8b9e 437a6563          db   'CzechSlovakia'
            68536c6f    
            76616b69    
            61          
1020   8bab 84                db   #84
1021   8bac 10110205          db   #10,#11,2,5
1022   8bb0 50726573          db   'Press enter'
            7320656e    
            746572      
1023   8bbb 12110605          db   #12,#11,6,5
1024   8bbf 746f2063          db   'to continue'
            6f6e7469    
            6e7565      
1025   8bca 821084            db   #82,#10,#84
1026   8bcd 00                db   #00
1027   8bce            k
1028   8bce            l      =    k-z
1029   8bce                   end

 addm   8670  *  addx   866c  *  addy   8663  *  addzn  8573  *
 b      7600  *  bufsc0 9000  *  bufsc1 9400  *  bufsc2 9800  *
 bufsc3 9c00  *  bufy   7500  *  byte   838a  *  cc1    8272  *
 cls    8270  *  cos    86f2  *  dd2    8338  *  dd3    8346  *
 ddend  8366  *  demo   888b  *  disp   830f  *  dole   86b7  *
 doli   869a  *  dolo   86ab  *  enter  82a7  *  exit   8806  *
 gett   8765  *  halt   8382  *  indc   83e3  *  inds   8418  *
 ini    c000  *  k      8bce  *  key    8395  *  krat   86c6  *
 l      09ce  *  ll0    826c  *  ll1    8295  *  ll2    82a3  *
 ll3    82b0  *  ll4    82c8  *  ll5    82d8  *  ll6    82e3  *
 loop   8253  *  medz   829b  *  mkb1   8726  *  mkb2   8741  *
 mkbod  871f  *  mks1   8708  *  mksin  86fb  *  mkz2   87e8  *
 mkzn   87da  *  mkzn1  87dd  *  mkznak 877a  *  mm1    8691  *
 mm2    8675  *  mmzz   8571  *  move   866c  *  o      842d  *
 out    8842  *  p      8200  *  pas    8455  *  posy   8661  *
 pss    846e  *  psu    8484  *  pusti  87fd  *  rut    83a7  *
 sc0    855b  *  sc0cur 8565  *  sc1    8587  *  sc11   8593  *
 sc12   85b9  *  sc1cur 858a  *  sc2    85e2  *  sc21   85eb  *
 sc28   85fb  *  sc2cur 85e5  *  sc3    8609  *  sc31   8616  *
 sc32   863f  *  sc3cur 8609  *  sc98   8577  *  sca1   8541  *
 scadd  851b  *  sccol  852a  *  scend  865e  *  sci0   84d5  *
 scini  84c3  *  scroll 84f6  *  scsp   853c  *  set1   8757  *
 sin    86f4  *  sintab 884a  *  sp     8836  *  tabbod 7000  *
 tabind 84b3  *  tabsin 7400  *  tend   88f4  *  text   8909  *
 ton    c006  *  txtadd 850b  *  vi1    8227  *  wait   82b7  *
 www    82b9  *  xxx    8322  *  z      8200  *  zm1    82fd  *
 zm2    8300  *  zmaz   82e7  *  zn1    9220  *  zn2    9240  *
 zn3    9260  *  zna1   8553  *  znadd  8548  *  znaky  6000  *
 zncol  8376  *                                                

Bytes:1  labels:113  errors:0   

    

3      5b00            *s
4      5b00            ;==============================================================;
5      5b00            ;== Verzia 26 == Blava demo 3D+S == 24.07.1992 Busy software ==;
6      5b00            ;==============================================================;
7      5b00            bbzem  =    #9a00               !!! Nespustat !!!
8      5b00            text1  =    #c500               rumati
9      5b00            text2  =    #d080               busy
10     5b00            ini    =    #b900    inicializacia hudby
11     5b00            ton    =    #b906    jeden ton hudby (1/50 sec)
12     5b00            nieco  =    #5b00
13     5b00             
14     5b00                   org  #7200               Vsetko v RAM #04 !!!
15     7200            *c
16     7200            tabnas ds   #0800    data pre rychle nasobenie
17     7a00            tabadd ds   #0200    data pre vypocet adries videoram
18     7c00            tabsin ds   #0100    sinus tabulka
19     7d00            znaky  ds   #0300    znakovy subor
20     8000            ldiry  ds   #80        128 bajtov LDI
21     8080            body   ds   #80-#30    buffer pre suradnice bodov
22     80d0            zn1    ds   #18        buffer pre znak prveho scrollu
23     80e8            zn2    ds   #18        buffer pre znak druheho scrolu
24     8100            scbuf1 ds   #0400    4 buffery prveho scrollu
25     8500            scbuf2 ds   #0400    4 buffery druheho scrolu
26     8900            vint   ds   #0200    Interrupt vektor
27     8b00            hisc   =    >scbuf1
28     8b00            e
29     8b00            b
30     8b00 f3         p      di
31     8b01 ed73e38b          ld   (sp+1),sp
32     8b05 31008b            ld   sp,p
33     8b08 3e17              ld   a,#17
34     8b0a cd8790            call ram
35     8b0d cd068d            call enter    stantdartne hodnoty rotacii
36     8b10 cdbd8d            call sccls    inicializacia scrollerov
37     8b13 cd198f            call matini    inicializacia scrollerov
38     8b16 cdbf93            call mkzems    Rozkreslenie zemegul
39     8b19 cd1693            call mknas    Vypocet dat pre rychle nasobenie
40     8b1c cd9593            call mkadd    Vypocet adries videoramky
41     8b1f cd6693            call mksin    Vypocet tabulky sinusu
42     8b22 cd4e90            call cls        Farby na obrazovke
43     8b25 cdee8b            call pusti    Pusti vsetky klavesy
44     8b28 210040            ld   hl,#4000
45     8b2b 1100c0            ld   de,#c000
46     8b2e 01001b            ld   bc,#1b00
47     8b31 edb0              ldir
48     8b33             
49     8b33 3e14              ld   a,#14
50     8b35 cd8790            call ram
51     8b38 cd00b9            call ini        Spustenie hudby
52     8b3b             
53     8b3b 210089            ld   hl,vint    Inicializacia im2
54     8b3e 7c                ld   a,h
55     8b3f ed47              ld   i,a
56     8b41 ed5e              im2
57     8b43 3c                inc  a
58     8b44 77         setvi  ld   (hl),a
59     8b45 2c                inc  l
60     8b46 20fc              jr   nz,setvi
61     8b48 24                inc  h
62     8b49 74                ld   (hl),h
63     8b4a 6c                ld   l,h
64     8b4b 36c3              ld   (hl),#c3
65     8b4d 23                inc  hl
66     8b4e 36f7              ld   (hl),rut
69     8b53             
70     8b53 3e3e       loopo  ld   a,#3e
71     8b55 32988b            ld   (keycon),a
72     8b58 cd8d90     loop   call new        Hlavna slucka 3D rotacii
73     8b5b 3e1d              ld   a,#1d    -zobrazuje sa videoram 1
74     8b5d 32148c            ld   (ramcs+1),a    -ale kresli sa do 0
75     8b60 cd3e90            call halt
76     8b63 015555     bcbc   ld   bc,#5555
77     8b66 3e55       aaaa   ld   a,#55
78     8b68 cdd990            call print
79     8b6b 32678b            ld   (aaaa+1),a
80     8b6e 22648b            ld   (bcbc+1),hl
81     8b71 cd8d90            call new
82     8b74 3e17              ld   a,#17    -zobrazuje sa videoram 0
83     8b76 32148c            ld   (ramcs+1),a    -ale kresli sa do 1
84     8b79 cd3e90            call halt
85     8b7c 015555     cbcb   ld   bc,#5555
86     8b7f 3e55       cccc   ld   a,#55
87     8b81 cdd990            call print
88     8b84 32808b            ld   (cccc+1),a
89     8b87 227d8b            ld   (cbcb+1),hl
90     8b8a             
91     8b8a 3e7f              ld   a,#7f
92     8b8c dbfe              in   a,(#fe)
93     8b8e 0f                rrca
94     8b8f 38c2              jr   c,loopo
95     8b91 3efe              ld   a,#fe
96     8b93 dbfe              in   a,(#fe)
97     8b95 0f                rrca
98     8b96 3021              jr   nc,break
99     8b98             
100    8b98 18be       keycon jr   loop        Operacny kod tejto instrukcie
101    8b9a                         sa modifikuje
102    8b9a 3e18              ld   a,#18
103    8b9c 32988b            ld   (keycon),a
104    8b9f             
105    8b9f 21cf94     utvar  ld   hl,tabut            Space=zmena utvaru
106    8ba2 4e                ld   c,(hl)
107    8ba3 23                inc  hl
108    8ba4 46                ld   b,(hl)
109    8ba5 23                inc  hl
110    8ba6 78                ld   a,b
111    8ba7 b1                or   c
112    8ba8 2005              jr   nz,#05
113    8baa 21cf94            ld   hl,tabut
114    8bad 18f3              jr   utvar+3
115    8baf 03                inc  bc
116    8bb0 22a08b            ld   (utvar+1),hl
117    8bb3 ed43db90          ld   (print+2),bc
118    8bb7 189f              jr   loop
119    8bb9             
120    8bb9 f3         break  di    Break = ukoncenie tejto casti dema
121    8bba ed56              im1
122    8bbc af                xor  a
123    8bbd ed47              ld   i,a
124    8bbf             
125    8bbf 01fdff            ld   bc,#fffd            ticho
126    8bc2 3e07              ld   a,#07
127    8bc4 ed79              out  (c),a
128    8bc6 3ebf              ld   a,#bf
129    8bc8 d3fd              out  (#fd),a
130    8bca 3e0d              ld   a,#0d
131    8bcc ed79              out  (c),a
132    8bce 3e80              ld   a,#80
133    8bd0 d3fd              out  (#fd),a
134    8bd2             
135    8bd2 3e14              ld   a,#14
136    8bd4 cd8790            call ram
137    8bd7 cd4e90            call cls
138    8bda cdee8b            call pusti
139    8bdd 3e10              ld   a,#10
140    8bdf cd8790            call ram
141    8be2 315555     sp     ld   sp,#5555
142    8be5 fd213a5c          ld   iy,#5c3a
143    8be9 215827            ld   hl,#2758
144    8bec d9                exx
145    8bed c9                ret
146    8bee             
147    8bee af         pusti  xor  a
148    8bef dbfe              in   a,(#fe)
149    8bf1 f6e0              or   #e0
150    8bf3 3c                inc  a
151    8bf4 20f8              jr   nz,pusti
152    8bf6 c9                ret
153    8bf7             
154    8bf7 f5         rut    push af    Toto bezi z prerusenia
155    8bf8 c5                push bc
156    8bf9 d5                push de
157    8bfa e5                push hl
158    8bfb dde5              push ix
159    8bfd fde5              push iy
160    8bff 3e15       ramcls ld   a,#15
161    8c01 cd8790            call ram
162    8c04 cd928f            call zrus
163    8c07 af                xor  a
164    8c08 cd4890            call out+2
165    8c0b cd208f            call matika
166    8c0e 3e02              ld   a,#02
167    8c10 324790            ld   (out+1),a
168    8c13 3e15       ramcs  ld   a,#15
169    8c15 f5                push af
170    8c16 ee02              xor  #02
171    8c18 32008c            ld   (ramcls+1),a
172    8c1b cd8790            call ram
173    8c1e cd4690            call out
174    8c21 cda98f            call move        Zobrazenie scrollera
175    8c24 cd4690            call out
176    8c27 cd598c            call ind        Indikatory hlasitosti
177    8c2a cd4690            call out
178    8c2d f1                pop  af
179    8c2e f5                push af
180    8c2f e618              and  #18
181    8c31 f614              or   #14
182    8c33 cd8790            call ram
183    8c36 cd06b9            call ton        Hudba 1/50 sec
184    8c39 cd4690            call out
185    8c3c cdfa8d            call scroll    Spracovanie scrollera
186    8c3f f1                pop  af
187    8c40 cd8790            call ram
188    8c43 cd4690            call out
189    8c46 cdff8c            call key        Osetrenie klaves
190    8c49 cd4690            call out
191    8c4c cd6f8d            call stav        Zobrazenie uhlov rotacii
192    8c4f fde1              pop  iy
193    8c51 dde1              pop  ix
194    8c53 e1                pop  hl
195    8c54 d1                pop  de
196    8c55 c1                pop  bc
197    8c56 f1                pop  af
198    8c57 fb                ei
199    8c58 c9                ret
200    8c59             
201    8c59 01fdff     ind    ld   bc,#fffd    Indikatory hlasitosti
202    8c5c 3e08              ld   a,#08
203    8c5e ed79              out  (c),a
204    8c60 ed78              in   a,(c)
205    8c62 e60f              and  #0f
206    8c64 57                ld   d,a
207    8c65 3e09              ld   a,#09
208    8c67 ed79              out  (c),a
209    8c69 ed78              in   a,(c)
210    8c6b e60f              and  #0f
211    8c6d 5f                ld   e,a
212    8c6e 3e0a              ld   a,#0a
213    8c70 ed79              out  (c),a
214    8c72 ed78              in   a,(c)
215    8c74 e60f              and  #0f
216    8c76 47                ld   b,a
217    8c77 83                add  a,e
218    8c78 1f                rra
219    8c79 67                ld   h,a
220    8c7a 7a                ld   a,d
221    8c7b 83                add  a,e
222    8c7c 1f                rra
223    8c7d 6f                ld   l,a
224    8c7e 7a                ld   a,d
225    8c7f 80                add  a,b
226    8c80 1f                rra
227    8c81 4f                ld   c,a
228    8c82 7a                ld   a,d
229    8c83 d9                exx
230    8c84 11e0d0            ld   de,#d0e0
231    8c87 cda08c            call pas+1
232    8c8a 7d                ld   a,l
233    8c8b cd9f8c            call pas
234    8c8e 7b                ld   a,e
235    8c8f cd9f8c            call pas
236    8c92 d9                exx
237    8c93 14                inc  d
238    8c94 14                inc  d
239    8c95 d9                exx
240    8c96 79                ld   a,c
241    8c97 cd9f8c            call pas
242    8c9a 78                ld   a,b
243    8c9b cd9f8c            call pas
244    8c9e 7c                ld   a,h
245    8c9f d9         pas    exx
246    8ca0 d5                push de
247    8ca1 87                add  a,a
248    8ca2 87                add  a,a
249    8ca3 c6bb              add  a,tabvol
252    8ca8 3001              jr   nc,#01
253    8caa 24                inc  h
254    8cab eda0              ldi
255    8cad eda0              ldi
256    8caf 3e1c              ld   a,#1c
257    8cb1 83                add  a,e
258    8cb2 5f                ld   e,a
259    8cb3 eda0              ldi
260    8cb5 eda0              ldi
261    8cb7 d1                pop  de
262    8cb8 14                inc  d
263    8cb9 d9                exx
264    8cba c9                ret
265    8cbb             
266    8cbb 00000000   tabvol dw   #00,#00
267    8cbf 00018000          dw   #0100,#80
268    8cc3 0003c000          dw   #0300,#c0
269    8cc7 0007e000          dw   #0700,#e0
270    8ccb 000ff000          dw   #0f00,#f0
271    8ccf 001ff800          dw   #1f00,#f8
272    8cd3 003ffc00          dw   #3f00,#fc
273    8cd7 007ffe00          dw   #7f00,#fe
274    8cdb 00ffff00          dw   #ff00,#ff
275    8cdf 01ffff80          dw   #ff01,#80ff
276    8ce3 03ffffc0          dw   #ff03,#c0ff
277    8ce7 07ffffe0          dw   #ff07,#e0ff
278    8ceb 0ffffff0          dw   #ff0f,#f0ff
279    8cef 1ffffff8          dw   #ff1f,#f8ff
280    8cf3 3ffffffc          dw   #ff3f,#fcff
281    8cf7 7ffffffe          dw   #ff7f,#feff
282    8cfb ffffffff          dw   #ffff,#ffff
283    8cff             
284    8cff 3ebf       key    ld   a,#bf    Enter = defaultne hodnoty
285    8d01 dbfe              in   a,(#fe)
286    8d03 0f                rrca
287    8d04 381f              jr   c,keyset
288    8d06 210002     enter  ld   hl,#0200
289    8d09 229190            ld   (doo+1),hl
290    8d0c 219001            ld   hl,#0190
291    8d0f 229890            ld   (dnn+1),hl
292    8d12 215002            ld   hl,#0250
293    8d15 22a290            ld   (dux+1),hl
294    8d18 21b002            ld   hl,#02b0
295    8d1b 22ad90            ld   (duy+1),hl
296    8d1e 215005            ld   hl,#0550
297    8d21 22005b            ld   (nieco),hl
298    8d24 c9                ret
299    8d25             
300    8d25 3efd       keyset ld   a,#fd    Klavesy asdfg
301    8d27 01f0ff            ld   bc,-#10
302    8d2a cd388d            call keymat
303    8d2d 3efb              ld   a,#fb    Klavesy qwert
304    8d2f 011000            ld   bc,#10
305    8d32 cd388d            call keymat
306    8d35 3ef7              ld   a,#f7    Klavesy 12345
307    8d37 48                ld   c,b
308    8d38 21638d     keymat ld   hl,tabval
309    8d3b dd2605            ld   xh,#05
310    8d3e dbfe              in   a,(#fe)
311    8d40 5e         km1    ld   e,(hl)
312    8d41 23                inc  hl
313    8d42 56                ld   d,(hl)
314    8d43 23                inc  hl
315    8d44 0f                rrca
316    8d45 3817              jr   c,kme
317    8d47 e5                push hl
318    8d48 eb                ex   de,hl
319    8d49 22578d            ld   (km2+1),hl
320    8d4c 225b8d            ld   (km3+1),hl
321    8d4f 210000            ld   hl,#00
322    8d52 cb61              bit  4,c
323    8d54 2804              jr   z,km3
324    8d56 2a5555     km2    ld   hl,(#5555)
325    8d59 09                add  hl,bc
326    8d5a 225555     km3    ld   (#5555),hl
327    8d5d e1                pop  hl
328    8d5e dd25       kme    dec  xh
329    8d60 20de              jr   nz,km1
330    8d62 c9                ret
331    8d63             
332    8d63 9190       tabval dw   doo+1
333    8d65 9890              dw   dnn+1
334    8d67 a290              dw   dux+1
335    8d69 ad90              dw   duy+1
336    8d6b 005b              dw   nieco
337    8d6d 0000              dw   #00
338    8d6f             
339    8d6f 21638d     stav   ld   hl,tabval    Vypis zmeny uhlov rotacii
340    8d72 1edf       stcc   ld   e,#df
341    8d74 4e         stzz   ld   c,(hl)
342    8d75 23                inc  hl
343    8d76 46                ld   b,(hl)
344    8d77 23                inc  hl
345    8d78 78                ld   a,b
346    8d79 b1                or   c
347    8d7a 2007              jr   nz,st1
348    8d7c 21638d            ld   hl,tabval
349    8d7f 1edf              ld   e,#df
350    8d81 18f1              jr   stzz
351    8d83 3e05       st1    ld   a,#05
352    8d85 83                add  a,e
353    8d86 5f                ld   e,a
354    8d87 32738d            ld   (stcc+1),a
355    8d8a 22708d            ld   (stav+1),hl
356    8d8d 0a                ld   a,(bc)
357    8d8e 6f                ld   l,a
358    8d8f 03                inc  bc
359    8d90 0a                ld   a,(bc)
360    8d91 67         hex    ld   h,a
361    8d92 0f                rrca
362    8d93 0f                rrca
363    8d94 0f                rrca
364    8d95 0f                rrca
365    8d96 cda28d            call cifra
366    8d99 7c                ld   a,h
367    8d9a cda28d            call cifra
368    8d9d 7d                ld   a,l
369    8d9e 0f                rrca
370    8d9f 0f                rrca
371    8da0 0f                rrca
372    8da1 0f                rrca
373    8da2 e60f       cifra  and  #0f
374    8da4 f630              or   #30
375    8da6 fe3a              cp   ':'
376    8da8 3802              jr   c,#02
377    8daa c607              add  a,'A'-':'
378    8dac e5                push hl
379    8dad cd3d8e            call znadd
380    8db0 16d0              ld   d,#d0
381    8db2 0608              ld   b,#08
382    8db4 7e         ci1    ld   a,(hl)
383    8db5 12                ld   (de),a
384    8db6 23                inc  hl
385    8db7 14                inc  d
386    8db8 10fa              djnz ci1
387    8dba e1                pop  hl
388    8dbb 1c                inc  e
389    8dbc c9                ret
390    8dbd             
391    8dbd 213c94     sccls  ld   hl,rumati    Inicializacia scrollera
392    8dc0 22628e            ld   (ttadd1+1),hl
393    8dc3 210894            ld   hl,busy
394    8dc6 22528e            ld   (ttadd2+1),hl
395    8dc9 af                xor  a
396    8dca 32fb8d            ld   (scroll+1),a
397    8dcd 32148e            ld   (sccur),a
398    8dd0 21eda0            ld   hl,#a0ed
399    8dd3 220080            ld   (ldiry),hl
400    8dd6 210080            ld   hl,ldiry
401    8dd9 110280            ld   de,ldiry+2
402    8ddc 014000            ld   bc,#40
403    8ddf edb0              ldir
404    8de1 36c9              ld   (hl),#c9
405    8de3 210081            ld   hl,scbuf1
406    8de6 110181            ld   de,scbuf1+1
407    8de9 010008            ld   bc,#0800
408    8dec 71                ld   (hl),c
409    8ded edb0              ldir
410    8def 21d080            ld   hl,zn1
411    8df2 11d180            ld   de,zn1+1
412    8df5 0e2f              ld   c,#2f
413    8df7 70                ld   (hl),b
414    8df8 edb0              ldir
415    8dfa 3e01       scroll ld   a,#01    Scroller pracuje podobne
416    8dfc 3c                inc  a        ako v casti STS - tiez
417    8dfd e603              and  #03        ma 4 buffery a nad kazdym
418    8dff 32fb8d            ld   (scroll+1),a    z nich pracuje jedna subrutinka
419    8e02 280c              jr   z,znadd1
420    8e04 3d                dec  a
421    8e05 284a              jr   z,scro1
422    8e07 3d                dec  a
423    8e08 caaa8e            jp   z,scro2
424    8e0b 3d                dec  a
425    8e0c cae48e            jp   z,scro3
426    8e0f c9                ret
427    8e10             
428    8e10 215555     znadd1 ld   hl,#5555
429    8e13 11                db   #11
430    8e14 0f81       sccur  dw   scbuf1+15
431    8e16 cd208e            call scmm0
432    8e19 3e04              ld   a,#04
433    8e1b 82                add  a,d
434    8e1c 57                ld   d,a
435    8e1d 215555     znadd2 ld   hl,#5555
436    8e20 012008     scmm0  ld   bc,#0820
437    8e23 7e         scr1   ld   a,(hl)
438    8e24 12                ld   (de),a
439    8e25 79                ld   a,c
440    8e26 83                add  a,e
441    8e27 5f                ld   e,a
442    8e28 23                inc  hl
443    8e29 10f8              djnz scr1
444    8e2b c9                ret
445    8e2c             
446    8e2c af         getc   xor  a        Nacitanie jedneho znaku
447    8e2d ae                xor  (hl)        z textu
448    8e2e 2001              jr   nz,gc1
449    8e30 eb                ex   de,hl
450    8e31 7e         gc1    ld   a,(hl)
451    8e32 23                inc  hl
452    8e33 fe1f              cp   #1f                 #1f=goto
453    8e35 2005              jr   nz,gc2    Akonahle je v texte #1f
454    8e37 7e                ld   a,(hl)    za nim idu dva bajty adresy
455    8e38 23                inc  hl        kde text pokracuje
456    8e39 66                ld   h,(hl)
457    8e3a 6f                ld   l,a
458    8e3b 7e                ld   a,(hl)
459    8e3c eb         gc2    ex   de,hl
460    8e3d 87         znadd  add  a,a
461    8e3e fec2              cp   2*'a'
462    8e40 3806              jr   c,zna1
463    8e42 fef5              cp   #f5                 2*z+1
464    8e44 3002              jr   nc,zna1
465    8e46 e6bf              and  #bf
466    8e48 01007c     zna1   ld   bc,znaky-#0100
467    8e4b 61                ld   h,c
468    8e4c 6f                ld   l,a
469    8e4d 29                add  hl,hl
470    8e4e 29                add  hl,hl
471    8e4f 09                add  hl,bc
472    8e50 c9                ret
473    8e51             
474    8e51            scro1
475    8e51 215555     ttadd2 ld   hl,#5555
476    8e54 1180d0            ld   de,text2
477    8e57 cd2c8e            call getc
478    8e5a ed53528e          ld   (ttadd2+1),de
479    8e5e 221e8e            ld   (znadd2+1),hl
480    8e61             
481    8e61 215555     ttadd1 ld   hl,#5555
482    8e64 1100c5            ld   de,text1
483    8e67 cd2c8e            call getc
484    8e6a ed53628e          ld   (ttadd1+1),de
485    8e6e 22118e            ld   (znadd1+1),hl
486    8e71             
487    8e71 ed5b148e          ld   de,(sccur)
488    8e75 1c                inc  e
489    8e76 cbab              res  5,e
490    8e78 ed53148e          ld   (sccur),de
491    8e7c 14                inc  d
492    8e7d dd21d080          ld   ix,zn1
493    8e81 cd8f8e            call scmm1
494    8e84 3e04              ld   a,#04
495    8e86 82                add  a,d
496    8e87 57                ld   d,a
497    8e88 2a1e8e            ld   hl,(znadd2+1)
498    8e8b dd21e880          ld   ix,zn2
499    8e8f 0608       scmm1  ld   b,#08
500    8e91 4e         sc10   ld   c,(hl)
501    8e92 af                xor  a
502    8e93 cb21              sla  c
503    8e95 17                rla
504    8e96 cb21              sla  c
505    8e98 17                rla
506    8e99 ddb600            or   (ix+#00)
507    8e9c dd7100            ld   (ix+#00),c
508    8e9f 12                ld   (de),a
509    8ea0 dd23              inc  ix
510    8ea2 23                inc  hl
511    8ea3 3e20              ld   a,#20
512    8ea5 83                add  a,e
513    8ea6 5f                ld   e,a
514    8ea7 10e8              djnz sc10
515    8ea9 c9                ret
516    8eaa             
517    8eaa 2a118e     scro2  ld   hl,(znadd1+1)
518    8ead dd21d880          ld   ix,zn1+#08
519    8eb1 3a148e            ld   a,(sccur)
520    8eb4 1683              ld   d,hisc+#02
521    8eb6 5f                ld   e,a
522    8eb7 cdc38e            call scmm2
523    8eba             
524    8eba 2a1e8e            ld   hl,(znadd2+1)
525    8ebd dd21f080          ld   ix,zn2+#08
526    8ec1 1687              ld   d,hisc+#06
527    8ec3 0608       scmm2  ld   b,#08
528    8ec5 4e         sc20   ld   c,(hl)
529    8ec6 af                xor  a
530    8ec7 cb21              sla  c
531    8ec9 17                rla
532    8eca cb21              sla  c
533    8ecc 17                rla
534    8ecd cb21              sla  c
535    8ecf 17                rla
536    8ed0 cb21              sla  c
537    8ed2 17                rla
538    8ed3 ddb600            or   (ix+#00)
539    8ed6 dd7100            ld   (ix+#00),c
540    8ed9 12                ld   (de),a
541    8eda dd23              inc  ix
542    8edc 23                inc  hl
543    8edd 3e20              ld   a,#20
544    8edf 83                add  a,e
545    8ee0 5f                ld   e,a
546    8ee1 10e2              djnz sc20
547    8ee3 c9                ret
548    8ee4             
549    8ee4 2a118e     scro3  ld   hl,(znadd1+1)
550    8ee7 dd21e080          ld   ix,zn1+#10
551    8eeb 3a148e            ld   a,(sccur)
552    8eee 1684              ld   d,hisc+#03
553    8ef0 5f                ld   e,a
554    8ef1 cdfd8e            call scmm3
555    8ef4             
556    8ef4 2a1e8e            ld   hl,(znadd2+1)
557    8ef7 dd21f880          ld   ix,zn2+#10
558    8efb 1688              ld   d,hisc+#07
559    8efd 0608       scmm3  ld   b,#08
560    8eff af         sc30   xor  a
561    8f00 4f                ld   c,a
562    8f01 ae                xor  (hl)
563    8f02 1f                rra
564    8f03 cb19              rr   c
565    8f05 1f                rra
566    8f06 cb19              rr   c
567    8f08 ddb600            or   (ix+#00)
568    8f0b dd7100            ld   (ix+#00),c
569    8f0e 12                ld   (de),a
570    8f0f dd23              inc  ix
571    8f11 23                inc  hl
572    8f12 3e20              ld   a,#20
573    8f14 83                add  a,e
574    8f15 5f                ld   e,a
575    8f16 10e7              djnz sc30
576    8f18 c9                ret
577    8f19             
578    8f19 210004     matini ld   hl,utek
579    8f1c 22218f            ld   (matika+1),hl
580    8f1f c9                ret
581    8f20             
582    8f20            utek   =    #0400
583    8f20             
584    8f20 015555     matika ld   bc,#5555    Tu zacinaju rutinky riadiace
585    8f23 eda1              cpi        pohyb scrollerov hore-dole
586    8f25 ea518f            jp   pe,matsin
587    8f28 3e55       ys     ld   a,#55
588    8f2a cb7f              bit  7,a
589    8f2c 2009              jr   nz,spet
590    8f2e 3c                inc  a                   utek
591    8f2f fe40              cp   #40
592    8f31 3802              jr   c,#02
593    8f33 f680              or   #80
594    8f35 1811              jr   mmend
595    8f37             
596    8f37 3d         spet   dec  a                   navrat
597    8f38 32298f            ld   (ys+1),a
598    8f3b e67f              and  #7f
599    8f3d fe55       ym     cp   #55
600    8f3f 200a              jr   nz,mmeed
601    8f41 010004            ld   bc,utek             nabuduce
602    8f44 ed43218f          ld   (matika+1),bc
603    8f48 32298f     mmend  ld   (ys+1),a
604    8f4b e67f       mmeed  and  #7f
605    8f4d 32aa8f            ld   (y1+1),a
606    8f50 c9                ret
607    8f51             
608    8f51 ed43218f   matsin ld   (matika+1),bc
609    8f55 013300     smd    ld   bc,#33        Pohyb sa riadi
610    8f58 215555     smk    ld   hl,#5555        sinusom ktory
611    8f5b 09                add  hl,bc        je transponovany
612    8f5c 22598f            ld   (smk+1),hl        na este jeden sinus
613    8f5f 7c                ld   a,h        a sem tam sa aj spravi
614    8f60 cd5e93            call sin        klasicky plynuly pohyb
615    8f63 7d                ld   a,l        hore a dole
616    8f64 2f                cpl
617    8f65 6f                ld   l,a
618    8f66 2600              ld   h,#00
619    8f68 29                add  hl,hl
620    8f69 29                add  hl,hl
621    8f6a 29                add  hl,hl
622    8f6b 226f8f            ld   (ma1+1),hl
623    8f6e 015555     ma1    ld   bc,#5555
624    8f71 215555     ma2    ld   hl,#5555
625    8f74 09                add  hl,bc
626    8f75 22728f            ld   (ma2+1),hl
627    8f78 7c                ld   a,h
628    8f79 cd5e93            call sin
629    8f7c 7d                ld   a,l
630    8f7d 07                rlca
631    8f7e 07                rlca
632    8f7f 07                rlca
633    8f80 e607              and  #07
634    8f82 6f                ld   l,a
635    8f83 3e08              ld   a,#08               stred
636    8f85 cd5892            call add
637    8f88 32aa8f            ld   (y1+1),a
638    8f8b 323e8f            ld   (ym+1),a
639    8f8e 32298f            ld   (ys+1),a
640    8f91 c9                ret
641    8f92             
642    8f92            zrus
643    8f92 2e00       za1    ld   l,#00
644    8f94 cd998f            call zr9
645    8f97 2e00       za2    ld   l,#00
646    8f99 267a       zr9    ld   h,>tabadd
647    8f9b 5e                ld   e,(hl)
648    8f9c 24                inc  h
649    8f9d 56                ld   d,(hl)
650    8f9e dd2608            ld   xh,#08
651    8fa1 cd1190     zr1    call clslin
652    8fa4 dd25              dec  xh
653    8fa6 20f9              jr   nz,zr1
654    8fa8 c9                ret
655    8fa9             
656    8fa9            move
657    8fa9 3e50       y1     ld   a,#40+16    Presunutie jedneho konkretneho
658    8fab 32938f            ld   (za1+1),a    scroll-buffera do screenu
659    8fae dd2600            ld   xh,#00
660    8fb1 cdc38f            call scm
661    8fb4 cd4690            call out
662    8fb7 3aaa8f            ld   a,(y1+1)
663    8fba 2f                cpl
664    8fbb d654              sub  #54
665    8fbd 32988f            ld   (za2+1),a
666    8fc0 dd2604            ld   xh,#04
667    8fc3             
668    8fc3 267a       scm    ld   h,>tabadd
669    8fc5 6f                ld   l,a
670    8fc6 5e                ld   e,(hl)
671    8fc7 24                inc  h
672    8fc8 56                ld   d,(hl)
673    8fc9 3a148e            ld   a,(sccur)
674    8fcc e61f              and  #1f
675    8fce 3c                inc  a
676    8fcf 6f                ld   l,a
677    8fd0 47                ld   b,a
678    8fd1 ed44              neg
679    8fd3 c620              add  a,#20
680    8fd5 4f                ld   c,a
681    8fd6 87                add  a,a
682    8fd7 32f58f            ld   (scld2+1),a
683    8fda 78                ld   a,b
684    8fdb 87                add  a,a
685    8fdc 32ee8f            ld   (scld1+1),a
686    8fdf 3afb8d            ld   a,(scroll+1)
687    8fe2 e603              and  #03
688    8fe4 c681              add  a,hisc
689    8fe6 dd84              add  a,xh
690    8fe8 67                ld   h,a
691    8fe9 fd2608            ld   yh,#08
692    8fec d5                push de
693    8fed cd0080     scld1  call ldiry
694    8ff0 01e0ff            ld   bc,-#20
695    8ff3 09                add  hl,bc
696    8ff4 cd0080     scld2  call ldiry
697    8ff7 012000            ld   bc,#20
698    8ffa 09                add  hl,bc
699    8ffb d1                pop  de
700    8ffc 14                inc  d
701    8ffd 7a                ld   a,d
702    8ffe e607              and  #07
703    9000 200a              jr   nz,scm2
704    9002 3e20              ld   a,#20
705    9004 83                add  a,e
706    9005 5f                ld   e,a
707    9006 3804              jr   c,scm2
708    9008 3ef8              ld   a,#f8
709    900a 82                add  a,d
710    900b 57                ld   d,a
711    900c fd25       scm2   dec  yh
712    900e 20dc              jr   nz,scld1-1
713    9010 c9                ret
714    9011             
715    9011 ed732d90   clslin ld   (scsp+1),sp    Zmazanie jedneho
716    9015 212000            ld   hl,#20    bodoveho riadku
717    9018 44                ld   b,h
718    9019 4c                ld   c,h
719    901a 19                add  hl,de
720    901b f9                ld   sp,hl
721    901c c5c5c5c5          dw   #c5c5,#c5c5
722    9020 c5c5c5c5          dw   #c5c5,#c5c5
723    9024 c5c5c5c5          dw   #c5c5,#c5c5
724    9028 c5c5c5c5          dw   #c5c5,#c5c5
725    902c 315555     scsp   ld   sp,#5555
726    902f 14                inc  d
727    9030 7a                ld   a,d
728    9031 e607              and  #07
729    9033 c0                ret  nz
730    9034 3e20              ld   a,#20
731    9036 83                add  a,e
732    9037 5f                ld   e,a
733    9038 d8                ret  c
734    9039 3ef8              ld   a,#f8
735    903b 82                add  a,d
736    903c 57                ld   d,a
737    903d c9                ret
738    903e             
739    903e 3e01       halt   ld   a,#01
740    9040 cd4890            call out+2
741    9043 fb                ei
742    9044 76                hlt
743    9045 c9                ret
744    9046             
745    9046 3e02       out    ld   a,#02    Toto tu je len na odladovanie
746    9048 ee01              xor  #01
747    904a 324790            ld   (out+1),a
748    904d            ;      out  (#fe),a
749    904d c9                ret
750    904e             
751    904e 210040     cls    ld   hl,#4000    Priprava obrazovky
752    9051 110140            ld   de,#4001
753    9054 010018            ld   bc,#1800
754    9057 75                ld   (hl),l
755    9058 edb0              ldir
756    905a e5                push hl
757    905b 3605              ld   (hl),#05
758    905d 2c                inc  l
759    905e 3645              ld   (hl),#45
760    9060 2c                inc  l
761    9061 061c              ld   b,#1c
762    9063 3607       cl1    ld   (hl),#07
763    9065 2c                inc  l
764    9066 10fb              djnz cl1
765    9068 3645              ld   (hl),#45
766    906a 2c                inc  l
767    906b 3605              ld   (hl),#05
768    906d 2c                inc  l
769    906e eb                ex   de,hl
770    906f e1                pop  hl
771    9070 01e002            ld   bc,#02e0
772    9073 edb0              ldir
773    9075 3642       cl2    ld   (hl),#42
774    9077 2c                inc  l
775    9078 20fb              jr   nz,cl2
776    907a 214343            ld   hl,#4343
777    907d 22e05a            ld   (#5ae0),hl
778    9080 22fe5a            ld   (#5afe),hl
779    9083 af                xor  a
780    9084 d3fe              out  (#fe),a
781    9086 c9                ret
782    9087             
783    9087 01fd7f     ram    ld   bc,#7ffd
784    908a ed79              out  (c),a
785    908c c9                ret
786    908d                         A TERAZ POZOR
787    908d 2a3a92     new    ld   hl,(oo)    A tu zacinaju subrutinky
788    9090 015555     doo    ld   bc,#5555    zabezpecujuce 3D rotacie
789    9093 09                add  hl,bc
790    9094 223a92            ld   (oo),hl    najprv je to vypocet novych
791    9097                         uhlov a poloh utvaru
792    9097 015555     dnn    ld   bc,#5555
793    909a 2a3c92            ld   hl,(nn)
794    909d 09                add  hl,bc
795    909e 223c92            ld   (nn),hl
796    90a1             
797    90a1 015555     dux    ld   bc,#5555
798    90a4 2a3e92            ld   hl,(ux)
799    90a7 09                add  hl,bc
800    90a8 223e92            ld   (ux),hl
801    90ab 5c                ld   e,h
802    90ac             
803    90ac 015555     duy    ld   bc,#5555
804    90af 2a4092            ld   hl,(uy)
805    90b2 09                add  hl,bc
806    90b3 224092            ld   (uy),hl
807    90b6             
808    90b6 7c                ld   a,h
809    90b7 cd5e93            call sin
810    90ba cb3d              srl  l
811    90bc cb3d              srl  l
812    90be cb3d              srl  l
813    90c0 3e58              ld   a,#58
814    90c2 cd5892            call add
815    90c5 324392            ld   (py),a
816    90c8             
817    90c8 7b                ld   a,e
818    90c9 cd5e93            call sin
819    90cc cb3d              srl  l
820    90ce cb3d              srl  l
821    90d0 3e78              ld   a,#78
822    90d2 cd5892            call add
823    90d5 324292            ld   (px),a
824    90d8 c9                ret
825    90d9             
826    90d9 dd21ff94   print  ld   ix,kruh+1    Vypocet a nakreslenie
827    90dd cd0c92            call clear    jednej fazy utvaru
828    90e0             
829    90e0 cd4690            call out
830    90e3 cdaa91            call fazy
831    90e6 cd3993            call sck
832    90e9 af                xor  a
833    90ea 32ff90            ld   (maxx),a
834    90ed 320291            ld   (maxy),a
835    90f0 3d                dec  a
836    90f1 320091            ld   (miny),a
837    90f4 fd218080          ld   iy,body
838    90f8 dd46ff            ld   b,(ix-#01)
839    90fb             
840    90fb cd0e91     to     call plot
841    90fe             
842    90fe 21                db   #21
843    90ff 55         maxx   db   #55
844    9100 55         miny   db   #55
845    9101 3e                db   #3e
846    9102 55         maxy   db   #55
847    9103 c9                ret
848    9104             
849    9104 67         nemusi ld   h,a
850    9105 6f                ld   l,a
851    9106 225692            ld   (zz),hl
852    9109 225492            ld   (yy),hl
853    910c 182b              jr   moze
854    910e             
855    910e 78         plot   ld   a,b        Zobrazenie utvarov
856    910f 328c91            ld   (pocet+1),a    ktorych polohy su uz
857    9112 c5         pri80  push bc        vypocitane
858    9113 dd6e00            ld   l,(ix+#00)
859    9116 dd6601            ld   h,(ix+#01)
860    9119 224492            ld   (x),hl
861    911c 7d                ld   a,l
862    911d dd6e02            ld   l,(ix+#02)
863    9120 dd6603            ld   h,(ix+#03)
864    9123 224692            ld   (y),hl
865    9126 b5                or   l
866    9127 dd6e04            ld   l,(ix+#04)
867    912a dd6605            ld   h,(ix+#05)
868    912d 224892            ld   (z),hl
869    9130 b5                or   l
870    9131 28d1              jr   z,nemusi
871    9133 cd6292            call vvxx
872    9136 2a5292            ld   hl,(xx)
873    9139 3a4292     moze   ld   a,(px)
874    913c cd5892            call add
875    913f 21ff90            ld   hl,maxx
876    9142 be                cp   (hl)
877    9143 3801              jr   c,pri40
878    9145 77                ld   (hl),a
879    9146 fd7700     pri40  ld   (iy+#00),a
880    9149             
881    9149 2a5492            ld   hl,(yy)
882    914c 3a4392            ld   a,(py)
883    914f cd5892            call add
884    9152 210291            ld   hl,maxy
885    9155 be                cp   (hl)
886    9156 3801              jr   c,pri50
887    9158 77                ld   (hl),a
888    9159 210091     pri50  ld   hl,miny
889    915c be                cp   (hl)
890    915d 3001              jr   nc,pri60
891    915f 77                ld   (hl),a
892    9160 fd7701     pri60  ld   (iy+#01),a
893    9163             
894    9163 2a5692            ld   hl,(zz)
895    9166 3e80              ld   a,#80
896    9168 cd5892            call add
897    916b fd7702            ld   (iy+#02),a
898    916e             
899    916e 110600            ld   de,#06
900    9171 dd19              add  ix,de
901    9173 1e03              ld   e,#03
902    9175 fd19              add  iy,de
903    9177 c1                pop  bc
904    9178 1098              djnz pri80
905    917a             
906    917a cd4690            call out
907    917d             
908    917d 210291            ld   hl,maxy
909    9180 3e10              ld   a,#10
910    9182 86                add  a,(hl)
911    9183 77                ld   (hl),a
912    9184             
913    9184 21ff90            ld   hl,maxx
914    9187 3e10              ld   a,#10
915    9189 86                add  a,(hl)
916    918a 77                ld   (hl),a
917    918b             
918    918b 0655       pocet  ld   b,#55    Zoradenie zemegul podla
919    918d 218280            ld   hl,body+#02    ich Z-suradnice v priestore
920    9190 af                xor  a
921    9191 be         pri70  cp   (hl)
922    9192 3003              jr   nc,pri30
923    9194 7e                ld   a,(hl)
924    9195 54                ld   d,h
925    9196 5d                ld   e,l
926    9197 23         pri30  inc  hl
927    9198 23                inc  hl
928    9199 23                inc  hl
929    919a 10f5              djnz pri70
930    919c a7                and  a
931    919d c8                ret  z
932    919e eb                ex   de,hl
933    919f 3600              ld   (hl),#00
934    91a1 2b                dec  hl
935    91a2 46                ld   b,(hl)
936    91a3 2b                dec  hl
937    91a4 4e                ld   c,(hl)
938    91a5 cdcd91            call xy        A potom ich zobrazenie
939    91a8 18e1              jr   pocet    v tomto poradi
940    91aa             
941    91aa 3e01       fazy   ld   a,#01    Vypocet polohy jednotlivych
942    91ac 3d                dec  a        faz otacania zemegul
943    91ad 201a              jr   nz,ff9
944    91af 3e01       faza   ld   a,#01
945    91b1 3c                inc  a
946    91b2 fe0a              cp   #0a
947    91b4 3801              jr   c,#01
948    91b6 af                xor  a
949    91b7 32b091            ld   (faza+1),a
950    91ba 4f                ld   c,a
951    91bb 87                add  a,a
952    91bc 81                add  a,c
953    91bd 47                ld   b,a
954    91be 0e00              ld   c,#00
955    91c0 21009a            ld   hl,bbzem
956    91c3 09                add  hl,bc
957    91c4 22dc91            ld   (zzadd+1),hl
958    91c7 3e03              ld   a,#03               spd rot
959    91c9 32ab91     ff9    ld   (fazy+1),a
960    91cc c9                ret
961    91cd             
962    91cd cdae93     xy     call addbod    Zobrazenie jedneho srajtu
963    91d0 eb                ex   de,hl
964    91d1 2600              ld   h,#00
965    91d3 0f                rrca
966    91d4 0f                rrca
967    91d5 0f                rrca
968    91d6 6f                ld   l,a
969    91d7 44                ld   b,h
970    91d8 4d                ld   c,l
971    91d9 29                add  hl,hl
972    91da 09                add  hl,bc
973    91db 01009a     zzadd  ld   bc,bbzem
974    91de 09                add  hl,bc
975    91df 0610              ld   b,#10
976    91e1 1a         ss1    ld   a,(de)
977    91e2 a6                and  (hl)
978    91e3 2c                inc  l
979    91e4 b6                or   (hl)
980    91e5 23                inc  hl
981    91e6 12                ld   (de),a
982    91e7 1c                inc  e
983    91e8             
984    91e8 1a                ld   a,(de)
985    91e9 a6                and  (hl)
986    91ea 2c                inc  l
987    91eb b6                or   (hl)
988    91ec 23                inc  hl
989    91ed 12                ld   (de),a
990    91ee 1c                inc  e
991    91ef             
992    91ef 1a                ld   a,(de)
993    91f0 a6                and  (hl)
994    91f1 2c                inc  l
995    91f2 b6                or   (hl)
996    91f3 23                inc  hl
997    91f4 12                ld   (de),a
998    91f5 1d                dec  e
999    91f6 1d                dec  e
1000   91f7 14                inc  d