Blava3ds

Zdrojový kód

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
1001   91f8 7a                ld   a,d
1002   91f9 e607              and  #07
1003   91fb 200a              jr   nz,ss2
1004   91fd 3e20              ld   a,#20
1005   91ff 83                add  a,e
1006   9200 5f                ld   e,a
1007   9201 3f                ccf
1008   9202 9f                sbc  a,a
1009   9203 e6f8              and  #f8
1010   9205 82                add  a,d
1011   9206 57                ld   d,a
1012   9207 10d8       ss2    djnz ss1
1013   9209 c34690            jp   out
1014   920c             
1015   920c ed733792   clear  ld   (spack+1),sp	Zmazanie nakresleneho
1016   9210 f5                push af		utvaru na obrazovke
1017   9211 cdae93            call addbod
1018   9214 f1                pop  af
1019   9215 3c                inc  a
1020   9216 90                sub  b
1021   9217 47                ld   b,a
1022   9218 110000            ld   de,#00
1023   921b f9         cll1   ld   sp,hl
1024   921c 33                inc  sp
1025   921d d5                push de
1026   921e d5                push de
1027   921f d5                push de
1028   9220 d5                push de
1029   9221 d5                push de
1030   9222 d5                push de
1031   9223 d5                push de
1032   9224             
1033   9224 24                inc  h
1034   9225 7c                ld   a,h
1035   9226 e607              and  #07
1036   9228 200a              jr   nz,cll2
1037   922a 7d                ld   a,l
1038   922b c620              add  a,#20
1039   922d 6f                ld   l,a
1040   922e 3f                ccf
1041   922f 9f                sbc  a,a
1042   9230 e6f8              and  #f8
1043   9232 84                add  a,h
1044   9233 67                ld   h,a
1045   9234             
1046   9234 10e5       cll2   djnz cll1
1047   9236 315555     spack  ld   sp,#5555
1048   9239 c9                ret
1049   923a             
1050   923a 2000       oo     dw   #20                 otocenie
1051   923c 0800       nn     dw   #08                 nadhlad
1052   923e 0000       ux     dw   #00                 uhol x
1053   9240 0000       uy     dw   #00                 uhol y
1054   9242             
1055   9242 80         px     db   #80                 posun
1056   9243 60         py     db   #60                 stredu
1057   9244             
1058   9244 0000       x      dw   #00
1059   9246 0000       y      dw   #00
1060   9248 0000       z      dw   #00
1061   924a             
1062   924a 0000       so     dw   #00		sinus otocenia
1063   924c 0000       co     dw   #00		cosin otocenia
1064   924e 0000       sn     dw   #00		sinus nadhladu
1065   9250 0000       cn     dw   #00		cosin nadhladu
1066   9252             
1067   9252 0000       xx     dw   #00
1068   9254 0000       yy     dw   #00
1069   9256 0000       zz     dw   #00
1070   9258             
1071   9258 4f         add    ld   c,a
1072   9259 af                xor  a
1073   925a ac                xor  h
1074   925b 7d                ld   a,l
1075   925c 2802              jr   z,add1
1076   925e ed44              neg
1077   9260 81         add1   add  a,c
1078   9261 c9                ret
1079   9262             
1080   9262 2a4692     vvxx   ld   hl,(y)	POZOR, prichadzaju narad
1081   9265 ed5b4a92          ld   de,(so)	jednotlive 3D vypocty
1082   9269 cdf792            call krat
1083   926c e5                push hl
1084   926d 2a4492            ld   hl,(x)
1085   9270 ed5b4c92          ld   de,(co)
1086   9274 cdf792            call krat
1087   9277 d1                pop  de
1088   9278 cde392            call minus
1089   927b 225292            ld   (xx),hl
1090   927e             
1091   927e 2a4492     vvyy   ld   hl,(x)
1092   9281 ed5b4a92          ld   de,(so)
1093   9285 cdf792            call krat
1094   9288 e5                push hl
1095   9289 2a4692            ld   hl,(y)
1096   928c ed5b4c92          ld   de,(co)
1097   9290 cdf792            call krat
1098   9293 d1                pop  de
1099   9294 cde692            call plus
1100   9297 ed5b4e92          ld   de,(sn)
1101   929b cdf792            call krat
1102   929e e5                push hl
1103   929f 2a4892            ld   hl,(z)
1104   92a2 ed5b5092          ld   de,(cn)
1105   92a6 cdf792            call krat
1106   92a9 d1                pop  de
1107   92aa cde392            call minus
1108   92ad 225492            ld   (yy),hl
1109   92b0             
1110   92b0 2a4492     vvzz   ld   hl,(x)
1111   92b3 ed5b4a92          ld   de,(so)
1112   92b7 cdf792            call krat
1113   92ba e5                push hl
1114   92bb 2a4692            ld   hl,(y)
1115   92be ed5b4c92          ld   de,(co)
1116   92c2 cdf792            call krat
1117   92c5 d1                pop  de
1118   92c6 cde692            call plus
1119   92c9 ed5b5092          ld   de,(cn)
1120   92cd cdf792            call krat
1121   92d0 e5                push hl
1122   92d1 2a4892            ld   hl,(z)
1123   92d4 ed5b4e92          ld   de,(sn)
1124   92d8 cdf792            call krat
1125   92db d1                pop  de
1126   92dc cde692            call plus
1127   92df 225692            ld   (zz),hl
1128   92e2 c9                ret
1129   92e3             		Tu zacina MATEMATICKY KOPROCESOR
1130   92e3 7a         minus  ld   a,d                 h|l=h|l-d|e
1131   92e4 2f                cpl
1132   92e5 57                ld   d,a
1133   92e6 7c         plus   ld   a,h                 h|l=h|l+d|e
1134   92e7 ba                cp   d
1135   92e8 2809              jr   z,pls1
1136   92ea 7d                ld   a,l
1137   92eb bb                cp   e
1138   92ec 3002              jr   nc,pls2
1139   92ee eb                ex   de,hl
1140   92ef 7d                ld   a,l
1141   92f0 93         pls2   sub  e
1142   92f1 6f                ld   l,a
1143   92f2 c9                ret
1144   92f3 7d         pls1   ld   a,l
1145   92f4 83                add  a,e
1146   92f5 6f                ld   l,a
1147   92f6 c9                ret
1148   92f7             
1149   92f7 7a         krat   ld   a,d                 h|l=h|l*d|e
1150   92f8 eb                ex   de,hl
1151   92f9 aa                xor  d
1152   92fa 57                ld   d,a
1153   92fb af         n      xor  a
1154   92fc ab                xor  e
1155   92fd 2813              jr   z,nula
1156   92ff af                xor  a
1157   9300 ad                xor  l
1158   9301 280f              jr   z,nula
1159   9303 2678              ld   h,>tablog	<- Toto je moje SPECIALNE
1160   9305 4e                ld   c,(hl)	rychle nasobenie...
1161   9306 24                inc  h		Nasobi dve nenulove cisla
1162   9307 46                ld   b,(hl)	velmi rychlo za 76 taktov
1163   9308 6b                ld   l,e
1164   9309 7e                ld   a,(hl)
1165   930a 25                dec  h
1166   930b 6e                ld   l,(hl)
1167   930c c672              add  a,>tabnas
1168   930e 67                ld   h,a
1169   930f 09                add  hl,bc
1170   9310 6e                ld   l,(hl)	<- vysledok nasobenia v L
1171   9311 3e                db   #3e
1172   9312 2e00       nula   ld   l,#00
1173   9314 62                ld   h,d
1174   9315 c9                ret
1175   9316             
1176   9316            tablog =    tabnas+#0600
1177   9316             
1178   9316 21eb96     mknas  ld   hl,datnas	Vypocet dat pre rychle
1179   9319 110072            ld   de,tabnas	nasobenie
1180   931c 016002            ld   bc,#0260
1181   931f edb0              ldir
1182   9321 215c74            ld   hl,tabnas+#025c
1183   9324 11ff79            ld   de,tabnas+#07ff
1184   9327 010008            ld   bc,#0800
1185   932a 7e         dec2   ld   a,(hl)
1186   932b 2b                dec  hl
1187   932c cb3f              srl  a
1188   932e eda8       dec1   ldd
1189   9330 e0                ret  po
1190   9331 3d                dec  a
1191   9332 28f6              jr   z,dec2
1192   9334 30f8              jr   nc,dec1
1193   9336 23                inc  hl
1194   9337 18f5              jr   dec1
1195   9339             
1196   9339 3a3b92     sck    ld   a,(oo+1)	Predpocitanie sinusov a cosinov
1197   933c 5f                ld   e,a
1198   933d cd5e93            call sin
1199   9340 224a92            ld   (so),hl
1200   9343 7b                ld   a,e
1201   9344 cd5c93            call cos
1202   9347 224c92            ld   (co),hl
1203   934a 3a3d92            ld   a,(nn+1)
1204   934d 5f                ld   e,a
1205   934e cd5e93            call sin
1206   9351 224e92            ld   (sn),hl
1207   9354 7b                ld   a,e
1208   9355 cd5c93            call cos
1209   9358 225092            ld   (cn),hl
1210   935b c9                ret
1211   935c             
1212   935c c640       cos    add  a,#40	h|l = cos(a)
1213   935e 267c       sin    ld   h,>tabsin	h|l = sin(a)
1214   9360 6f                ld   l,a
1215   9361 87                add  a,a
1216   9362 9f                sbc  a,a
1217   9363 6e                ld   l,(hl)
1218   9364 67                ld   h,a
1219   9365 c9                ret
1220   9366             
1221   9366 dd214899   mksin  ld   ix,sintab	Vypocet tabulky sinusu
1222   936a 21007c            ld   hl,tabsin
1223   936d 11807c            ld   de,tabsin+#80
1224   9370 0640              ld   b,#40
1225   9372 dd7e00     mks1   ld   a,(ix+#00)
1226   9375 77                ld   (hl),a
1227   9376 12                ld   (de),a
1228   9377 1b                dec  de
1229   9378 23                inc  hl
1230   9379 dd23              inc  ix
1231   937b 10f5              djnz mks1
1232   937d 36ff              ld   (hl),#ff
1233   937f 0e80              ld   c,#80
1234   9381 68                ld   l,b
1235   9382 59                ld   e,c
1236   9383 edb0              ldir
1237   9385 c9                ret
1238   9386             
1239   9386 24         dole   inc  h	Rutinka o jeden bod dole
1240   9387 7c                ld   a,h
1241   9388 e607              and  #07
1242   938a c0                ret  nz
1243   938b 3e20       dolu   ld   a,#20
1244   938d 85                add  a,l
1245   938e 6f                ld   l,a
1246   938f d8                ret  c
1247   9390 3ef8              ld   a,#f8
1248   9392 84                add  a,h
1249   9393 67                ld   h,a
1250   9394 c9                ret
1251   9395             
1252   9395 2100c0     mkadd  ld   hl,#c000	Vypocet adries videoramky
1253   9398 dd21007b          ld   ix,tabadd+#0100
1254   939c dd7400     mka1   ld   (ix+#00),h
1255   939f dd25              dec  xh
1256   93a1 dd7500            ld   (ix+#00),l
1257   93a4 cd8693            call dole
1258   93a7 dd24              inc  xh
1259   93a9 dd2c              inc  xl
1260   93ab 20ef              jr   nz,mka1
1261   93ad c9                ret
1262   93ae             
1263   93ae 267a       addbod ld   h,>tabadd
1264   93b0 68                ld   l,b
1265   93b1 79                ld   a,c
1266   93b2 0f                rrca
1267   93b3 0f                rrca
1268   93b4 0f                rrca
1269   93b5 e61f              and  #1f
1270   93b7 b6                or   (hl)
1271   93b8 24                inc  h
1272   93b9 66                ld   h,(hl)
1273   93ba 6f                ld   l,a
1274   93bb 79                ld   a,c
1275   93bc e607              and  #07
1276   93be c9                ret
1277   93bf             
1278   93bf dd21ab95   mkzems ld   ix,zems	Predbezne rozrotovanie
1279   93c3 11009a            ld   de,bbzem	sprajtov - zemegul
1280   93c6 fd2e0a            ld   yl,#0a
1281   93c9 d5         mkzm   push de
1282   93ca 218b95            ld   hl,maska
1283   93cd 0e10              ld   c,#10
1284   93cf 0602       mkz2   ld   b,#02
1285   93d1 7e         mkz1   ld   a,(hl)
1286   93d2 2f                cpl
1287   93d3 12                ld   (de),a
1288   93d4 13                inc  de
1289   93d5 dd7e00            ld   a,(ix+#00)
1290   93d8 12                ld   (de),a
1291   93d9 13                inc  de
1292   93da 23                inc  hl
1293   93db dd23              inc  ix
1294   93dd 10f2              djnz mkz1
1295   93df 3eff              ld   a,#ff
1296   93e1 12                ld   (de),a
1297   93e2 13                inc  de
1298   93e3 af                xor  a
1299   93e4 12                ld   (de),a
1300   93e5 13                inc  de
1301   93e6 0d                dec  c
1302   93e7 20e6              jr   nz,mkz2
1303   93e9 e1                pop  hl
1304   93ea fd2607            ld   yh,#07
1305   93ed 016000     mkz4   ld   bc,#60
1306   93f0 edb0              ldir
1307   93f2 e5                push hl
1308   93f3 0660              ld   b,#60
1309   93f5 af                xor  a
1310   93f6 08                ex   af,af
1311   93f7 37                scf
1312   93f8 cb1e       mkz3   rr   (hl)
1313   93fa 23                inc  hl
1314   93fb 08                ex   af,af
1315   93fc 10fa              djnz mkz3
1316   93fe e1                pop  hl
1317   93ff fd25              dec  yh
1318   9401 20ea              jr   nz,mkz4
1319   9403 fd2d              dec  yl
1320   9405 20c2              jr   nz,mkzm
1321   9407 c9                ret
1322   9408             
1323   9408 20202049   busy   db   '   In this line '
            6e207468    
            6973206c    
            696e6520    
1324   9418 796f7520          db   'you can read '
            63616e20    
            72656164    
            20          
1325   9425 74657874          db   'text from '
            2066726f    
            6d20        
1326   942f 42555359          db   'BUSY SOFT.',#1f
            20534f46    
            542e1f      
1327   943a 6e94              dw   buru
1328   943c 20202049   rumati db   '   In this line '
            6e207468    
            6973206c    
            696e6520    
1329   944c 796f7520          db   'you can read '
            63616e20    
            72656164    
            20          
1330   9459 74657874          db   'text from '
            2066726f    
            6d20        
1331   9463 52554d41          db   'RUMATISOFT.'
            5449534f    
            46542e      
1332   946e 20202020   buru   db   '    Message in '
            4d657373    
            61676520    
            696e20      
1333   947d 736c6f76          db   'slovak: '
            616b3a20    
1334   9485 4175746f          db   'Autori si '
            72692073    
            6920        
1335   948f 6e61767a          db   'navzajom '
            616a6f6d    
            20          
1336   9498 6e657a6f          db   'nezodpovedaju '
            64706f76    
            6564616a    
            7520        
1337   94a6 7a61206f          db   'za obsah textov '
            62736168    
            20746578    
            746f7620    
1338   94b6 21212120          db   '!!!  End of '
            20456e64    
            206f6620    
1339   94c2 6d657373          db   'message.    ',#00
            6167652e    
            20202020    
            00          
1340   94cf             
1341   94cf d994       tabut  dw   veza		Tabulka utvarov
1342   94d1 2f95              dw   atom2
1343   94d3 5a95              dw   atom5
1344   94d5 fe94              dw   kruh
1345   94d7 0000              dw   #00
1346   94d9             
1347   94d9 06         veza   db   6	Data jednotlivych utvarov
1348   94da 18000c00          dw   #18,#0c,#ff10
            10ff        
1349   94e0 18ff0c00          dw   #ff18,#0c,#ff10
            10ff        
1350   94e6 00001bff          dw   #00,#ff1b,#ff10
            10ff        
1351   94ec             
1352   94ec 00000000          dw   #00,#00,#ff10
            10ff        
1353   94f2 00000000          dw   #00,#00,#08
            0800        
1354   94f8 00000000          dw   #00,#00,#20
            2000        
1355   94fe             
1356   94fe 08         kruh   db   8
1357   94ff 28000000          dw   #28,#00,#00
            0000        
1358   9505 28ff0000          dw   #ff28,#00,#00
            0000        
1359   950b 00002800          dw   #00,#28,#00
            0000        
1360   9511 000028ff          dw   #00,#ff28,#00
            0000        
1361   9517 1c001c00          dw   #1c,#1c,#00
            0000        
1362   951d 1cff1c00          dw   #ff1c,#1c,#00
            0000        
1363   9523 1cff1cff          dw   #ff1c,#ff1c,#00
            0000        
1364   9529 1c001cff          dw   #1c,#ff1c,#00
            0000        
1365   952f             
1366   952f 07         atom2  db   7
1367   9530 20000000          dw   #20,#00,#00
            0000        
1368   9536 20ff0000          dw   #ff20,#00,#00
            0000        
1369   953c 00002000          dw   #00,#20,#00
            0000        
1370   9542 000020ff          dw   #00,#ff20,#00
            0000        
1371   9548 00000000          dw   #00,#00,#20
            2000        
1372   954e 00000000          dw   #00,#00,#ff20
            20ff        
1373   9554 00000000          dw   #00,#00,#00
            0000        
1374   955a             
1375   955a 08         atom5  db   #08
1376   955b 18ff18ff          dw   #ff18,#ff18,#ff18
            18ff        
1377   9561 180018ff          dw   #18,#ff18,#ff18
            18ff        
1378   9567 18001800          dw   #18,#18,#ff18
            18ff        
1379   956d 18ff1800          dw   #ff18,#18,#ff18
            18ff        
1380   9573 18ff18ff          dw   #ff18,#ff18,#18
            1800        
1381   9579 180018ff          dw   #18,#ff18,#18
            1800        
1382   957f 18001800          dw   #18,#18,#18
            1800        
1383   9585 18ff1800          dw   #ff18,#18,#18
            1800        
1384   958b             
1385   958b 07e01ff8   maska  dw   #e007,#f81f	Bitova maska zemegule
1386   958f 3ffc7ffe          dw   #fc3f,#fe7f
1387   9593 7ffeffff          dw   #fe7f,#ffff
1388   9597 ffffffff          dw   #ffff,#ffff
1389   959b ffffffff          dw   #ffff,#ffff
1390   959f ffff7ffe          dw   #ffff,#fe7f
1391   95a3 7ffe3ffc          dw   #fe7f,#fc3f
1392   95a7 1ff807e0          dw   #f81f,#e007
1393   95ab             
1394   95ab 03c10c32   zems   dw   #c103,#320c	Kresby zemegul
1395   95af 320c26e4          dw   #0c32,#e426
1396   95b3 49f64cfe          dw   #f649,#fe4c
1397   95b7 9efdbe71          dw   #fd9e,#71be
1398   95bb b0498001          dw   #49b0,#0180
1399   95bf 4002707a          dw   #0240,#7a70
1400   95c3 387c5c3c          dw   #7c38,#3c5c
1401   95c7 6c3083c0          dw   #306c,#c083
1402   95cb 03c10c32          dw   #c103,#320c
1403   95cf 310c35e4          dw   #0c31,#e435
1404   95d3 7bfe7bf2          dw   #fe7b,#f27b
1405   95d7 f1e3e321          dw   #e3f1,#21e3
1406   95db e0018011          dw   #01e0,#1180
1407   95df 41c273e2          dw   #c241,#e273
1408   95e3 38c4580c          dw   #c438,#0c58
1409   95e7 6c3083c0          dw   #306c,#c083
1410   95eb 03c10c32          dw   #c103,#320c
1411   95ef 360c37e4          dw   #0c36,#e437
1412   95f3 67f66fc6          dw   #f667,#c66f
1413   95f7 cd078843          dw   #07cd,#4388
1414   95fb 80038381          dw   #0380,#8183
1415   95ff 47c271c6          dw   #c247,#c671
1416   9603 30045c0c          dw   #0430,#0c5c
1417   9607 6c3083c0          dw   #306c,#c083
1418   960b 03c10c32          dw   #c103,#320c
1419   960f 3e0c3f84          dw   #0c3e,#843f
1420   9613 7fde7e1e          dw   #de7f,#1e7e
1421   9617 c48f8009          dw   #8fc4,#0980
1422   961b 8705878d          dw   #0587,#8d87
1423   961f 4306600e          dw   #0643,#0e60
1424   9623 381c5c0c          dw   #1c38,#0c5c
1425   9627 6c3083c0          dw   #306c,#c083
1426   962b 03c10c32          dw   #c103,#320c
1427   962f 3e0c3e14          dw   #0c3e,#143e
1428   9633 787e423e          dw   #7e78,#3e42
1429   9637 c83f9e19          dw   #3fc8,#199e
1430   963b 8e058619          dw   #058e,#1986
1431   963f 401e703e          dw   #1e40,#3e70
1432   9643 38745c0c          dw   #7438,#0c5c
1433   9647 6c3083c0          dw   #306c,#c083
1434   964b 03c10c32          dw   #c103,#320c
1435   964f 3c0c3864          dw   #0c3c,#6438
1436   9653 44fe60fa          dw   #fe44,#fa60
1437   9657 f871f829          dw   #71f8,#29f8
1438   965b 90418061          dw   #4190,#6180
1439   965f 40f271c2          dw   #f240,#c271
1440   9663 38045c0c          dw   #0438,#0c5c
1441   9667 6c3083c0          dw   #306c,#c083
1442   966b 03c10c32          dw   #c103,#320c
1443   966f 310c2344          dw   #0c31,#4423
1444   9673 53ee41ca          dw   #ee53,#ca41
1445   9677 e0c3e107          dw   #c3e0,#07e1
1446   967b 81c78383          dw   #c781,#8383
1447   967f 47067006          dw   #0647,#0670
1448   9683 380c5c0c          dw   #0c38,#0c5c
1449   9687 6c3083c0          dw   #306c,#c083
1450   968b 03c10e32          dw   #c103,#320e
1451   968f 3e0c2fa4          dw   #0c3e,#a42f
1452   9693 466e4a1a          dw   #6e46,#1a4a
1453   9697 8c039c3f          dw   #038c,#3f9c
1454   969b b83f801f          dw   #3fb8,#1f80
1455   969f 401a7032          dw   #1a40,#3270
1456   96a3 38145c0c          dw   #1438,#0c5c
1457   96a7 6c3083c0          dw   #306c,#c083
1458   96ab 03c10c32          dw   #c103,#320c
1459   96af 3e8c3944          dw   #8c3e,#4439
1460   96b3 68ee701e          dw   #ee68,#1e70
1461   96b7 e1cfc1ef          dw   #cfe1,#efc1
1462   96bb c0f780f3          dw   #f7c0,#f380
1463   96bf 41c27182          dw   #c241,#8271
1464   96c3 38045c0c          dw   #0438,#0c5c
1465   96c7 6c3083c0          dw   #306c,#c083
1466   96cb 03c10e32          dw   #c103,#320e
1467   96cf 350c23c4          dw   #0c35,#c423
1468   96d3 40fe427e          dw   #fe40,#7e42
1469   96d7 877f83af          dw   #7f87,#af83
1470   96db 87838e03          dw   #8387,#038e
1471   96df 4002700a          dw   #0240,#0a70
1472   96e3 381c5c1c          dw   #1c38,#1c5c
1473   96e7 6c3083c0          dw   #306c,#c083
1474   96eb             
1475   96eb 00ff00ff   datnas dw   #ff00,#ff00	Data pre rychle nasobenie
1476   96ef 00ff00ff          dw   #ff00,#ff00
1477   96f3 00ff00ff          dw   #ff00,#ff00
1478   96f7 000d01c1          dw   #0d00,#c101
1479   96fb 02710351          dw   #7102,#5103
1480   96ff 043f0533          dw   #3f04,#3305
1481   9703 062b0727          dw   #2b06,#2707
1482   9707 0821091f          dw   #2108,#1f09
1483   970b 0a1b0b19          dw   #1b0a,#190b
1484   970f 0c170d15          dw   #170c,#150d
1485   9713 0e150f13          dw   #150e,#130f
1486   9717 10111111          dw   #1110,#1111
1487   971b 1211130f          dw   #1112,#0f13
1488   971f 140f150d          dw   #0f14,#0d15
1489   9723 160d170d          dw   #0d16,#0d17
1490   9727 180d190b          dw   #0d18,#0b19
1491   972b 1a0b1b0b          dw   #0b1a,#0b1b
1492   972f 1c0b1d0b          dw   #0b1c,#0b1d
1493   9733 1e0b1f09          dw   #0b1e,#091f
1494   9737 20092109          dw   #0920,#0921
1495   973b 22092309          dw   #0922,#0923
1496   973f 24092509          dw   #0924,#0925
1497   9743 26072709          dw   #0726,#0927
1498   9747 28072909          dw   #0728,#0929
1499   974b 2a072b07          dw   #072a,#072b
1500   974f 2c072d07          dw   #072c,#072d
1501   9753 2e072f07          dw   #072e,#072f
1502   9757 30073107          dw   #0730,#0731
1503   975b 32073333          dw   #0732,#3333
1504   975f 04340735          dw   #3404,#3507
1505   9763 35043607          dw   #0435,#0736
1506   9767 37370438          dw   #3737,#3804
1507   976b 07393904          dw   #3907,#0439
1508   976f 3a073b3b          dw   #073a,#3b3b
1509   9773 3c3c083d          dw   #3c3c,#3d08
1510   9777 073e3e3f          dw   #3e07,#3f3e
1511   977b 3f404041          dw   #403f,#4140
1512   977f 41424243          dw   #4241,#4342
1513   9783 43444445          dw   #4443,#4544
1514   9787 45464647          dw   #4645,#4746
1515   978b 47484849          dw   #4847,#4948
1516   978f 494a4a4b          dw   #4a49,#4b4a
1517   9793 4b4c4c4d          dw   #4c4b,#4d4c
1518   9797 4e4e4f4f          dw   #4e4e,#4f4f
1519   979b 50505152          dw   #5050,#5251
1520   979f 52535354          dw   #5352,#5453
1521   97a3 55555657          dw   #5555,#5756
1522   97a7 57585859          dw   #5857,#5958
1523   97ab 5a5a5b5c          dw   #5a5a,#5c5b
1524   97af 5c5d5e5e          dw   #5d5c,#5e5e
1525   97b3 5f606061          dw   #605f,#6160
1526   97b7 62636364          dw   #6362,#6463
1527   97bb 65656667          dw   #6565,#6766
1528   97bf 6868696a          dw   #6868,#6a69
1529   97c3 6b6c6c6d          dw   #6c6b,#6d6c
1530   97c7 6e6f7070          dw   #6f6e,#7070
1531   97cb 71727374          dw   #7271,#7473
1532   97cf 74757677          dw   #7574,#7776
1533   97d3 78797a7b          dw   #7978,#7b7a
1534   97d7 7b7c7d7e          dw   #7c7b,#7e7d
1535   97db 7f808182          dw   #807f,#8281
1536   97df 83848586          dw   #8483,#8685
1537   97e3 8788898a          dw   #8887,#8a89
1538   97e7 8b8c8d8e          dw   #8c8b,#8e8d
1539   97eb 8f909192          dw   #908f,#9291
1540   97ef 93949596          dw   #9493,#9695
1541   97f3 9798999b          dw   #9897,#9b99
1542   97f7 fe9c9d9e          dw   #9cfe,#9e9d
1543   97fb 9fa0a1a3          dw   #a09f,#a3a1
1544   97ff a4a5a6a7          dw   #a5a4,#a7a6
1545   9803 a9aaabac          dw   #aaa9,#acab
1546   9807 aeafb0b1          dw   #afae,#b1b0
1547   980b b3b4b5b7          dw   #b4b3,#b7b5
1548   980f b8b9bbbc          dw   #b9b8,#bcbb
1549   9813 bdbfc0c1          dw   #bfbd,#c1c0
1550   9817 c3c4c6c7          dw   #c4c3,#c7c6
1551   981b c9cacbcd          dw   #cac9,#cdcb
1552   981f ced0d1d3          dw   #d0ce,#d3d1
1553   9823 d5d6d8d9          dw   #d6d5,#d9d8
1554   9827 dbdcdee0          dw   #dcdb,#e0de
1555   982b e1e3e4e6          dw   #e3e1,#e6e4
1556   982f e8e9ebed          dw   #e9e8,#edeb
1557   9833 eff0f2f4          dw   #f0ef,#f4f2
1558   9837 f6f7f9fb          dw   #f7f6,#fbf9
1559   983b fdff0000          dw   #fffd,#00
1560   983f 6098c0df          dw   #9860,#dfc0
1561   9843 f80e2030          dw   #0ef8,#3020
1562   9847 3f4c5863          dw   #4c3f,#6358
1563   984b 6e778088          dw   #776e,#8880
1564   984f 90989fa6          dw   #9890,#a69f
1565   9853 acb2b8be          dw   #b2ac,#beb8
1566   9857 c3c8ced2          dw   #c8c3,#d2ce
1567   985b d7dce0e4          dw   #dcd7,#e4e0
1568   985f e8ecf0f4          dw   #ece8,#f4f0
1569   9863 f8fbff02          dw   #fbf8,#02ff
1570   9867 06090c0f          dw   #0906,#0f0c
1571   986b 1215181b          dw   #1512,#1b18
1572   986f 1e212326          dw   #211e,#2623
1573   9873 282b2e30          dw   #2b28,#302e
1574   9877 fe323537          dw   #32fe,#3735
1575   987b 393c3e40          dw   #3c39,#403e
1576   987f 42444648          dw   #4442,#4846
1577   9883 4a4c4e50          dw   #4c4a,#504e
1578   9887 52545658          dw   #5452,#5856
1579   988b 5a5b5d5f          dw   #5b5a,#5f5d
1580   988f 61626466          dw   #6261,#6664
1581   9893 67696b6c          dw   #6967,#6c6b
1582   9897 6e6f7172          dw   #6f6e,#7271
1583   989b 74757778          dw   #7574,#7877
1584   989f 7a7b7c7e          dw   #7b7a,#7e7c
1585   98a3 7f818283          dw   #817f,#8382
1586   98a7 85868788          dw   #8685,#8887
1587   98ab 8a8b8c8e          dw   #8b8a,#8e8c
1588   98af 8f909192          dw   #908f,#9291
1589   98b3 94959697          dw   #9594,#9796
1590   98b7 98999a9c          dw   #9998,#9c9a
1591   98bb 9d9e9fa0          dw   #9e9d,#a09f
1592   98bf a1a2a3a4          dw   #a2a1,#a4a3
1593   98c3 a5a6a7a8          dw   #a6a5,#a8a7
1594   98c7 a9aaabac          dw   #aaa9,#acab
1595   98cb adaeafb0          dw   #aead,#b0af
1596   98cf b1b2b3b4          dw   #b2b1,#b4b3
1597   98d3 b5b6b7b8          dw   #b6b5,#b8b7
1598   98d7 b9babbbb          dw   #bab9,#bbbb
1599   98db bcbdbebf          dw   #bdbc,#bfbe
1600   98df c0c1c1c2          dw   #c1c0,#c2c1
1601   98e3 c3c4c5c6          dw   #c4c3,#c6c5
1602   98e7 c6c7c8c9          dw   #c7c6,#c9c8
1603   98eb cacbcbcc          dw   #cbca,#cccb
1604   98ef cdcececf          dw   #cecd,#cfce
1605   98f3 d0d1d2d2          dw   #d1d0,#d2d2
1606   98f7 fed3d4d5          dw   #d3fe,#d5d4
1607   98fb d5d6d7d7          dw   #d6d5,#d7d7
1608   98ff d8d9dada          dw   #d9d8,#dada
1609   9903 dbdcdcdd          dw   #dcdb,#dddc
1610   9907 dedfdfe0          dw   #dfde,#e0df
1611   990b e1e1e2e3          dw   #e1e1,#e3e2
1612   990f e3e4e5e5          dw   #e4e3,#e5e5
1613   9913 e6e7e7e8          dw   #e7e6,#e8e7
1614   9917 e8e9eaea          dw   #e9e8,#eaea
1615   991b ebececed          dw   #eceb,#edec
1616   991f eeeeefef          dw   #eeee,#efef
1617   9923 f0f1f1f2          dw   #f1f0,#f2f1
1618   9927 f2f3f4f4          dw   #f3f2,#f4f4
1619   992b f5f5f6f6          dw   #f5f5,#f6f6
1620   992f f7f8f8f9          dw   #f8f7,#f9f8
1621   9933 f9fafafb          dw   #faf9,#fbfa
1622   9937 fcfcfdfd          dw   #fcfc,#fdfd
1623   993b fefeffff          dw   #fefe,#ffff
1624   993f 8e000f01          dw   #8e,#010f
1625   9943 4502ff02          dw   #0245,#02ff
1626   9947 b1                db   #b1
1627   9948             
1628   9948 00060d13   sintab dw   #0600,#130d	Data pre sinus-tabulku
1629   994c 191f252c          dw   #1f19,#2c25
1630   9950 32383e44          dw   #3832,#443e
1631   9954 4a50565c          dw   #504a,#5c56
1632   9958 62676d73          dw   #6762,#736d
1633   995c 787e8388          dw   #7e78,#8883
1634   9960 8e93989d          dw   #938e,#9d98
1635   9964 a2a7abb0          dw   #a7a2,#b0ab
1636   9968 b4b9bdc1          dw   #b9b4,#c1bd
1637   996c c5c9cdd0          dw   #c9c5,#d0cd
1638   9970 d4d7dbde          dw   #d7d4,#dedb
1639   9974 e1e4e7e9          dw   #e4e1,#e9e7
1640   9978 eceef0f2          dw   #eeec,#f2f0
1641   997c f4f6f7f9          dw   #f6f4,#f9f7
1642   9980 fafbfcfd          dw   #fbfa,#fdfc
1643   9984 fefeffff          dw   #fefe,#ffff
1644   9988            k
1645   9988            l      =    k-b
1646   9988             
1647   9988                   org  #5800
1648   5800                   end

 aaaa   8b66  *  add    9258  *  add1   9260  *  addbod 93ae  *
 atom2  952f  *  atom5  955a  *  b      8b00  *  bbzem  9a00  *
 bcbc   8b63  *  body   8080  *  break  8bb9  *  buru   946e  *
 busy   9408  *  cbcb   8b7c  *  cccc   8b7f  *  ci1    8db4  *
 cifra  8da2  *  cl1    9063  *  cl2    9075  *  clear  920c  *
 cll1   921b  *  cll2   9234  *  cls    904e  *  clslin 9011  *
 cn     9250  *  co     924c  *  cos    935c  *  datnas 96eb  *
 dec1   932e  *  dec2   932a  *  dnn    9097  *  dole   9386  *
 dolu   938b  *  doo    9090  *  dux    90a1  *  duy    90ac  *
 e      8b00  *  enter  8d06  *  faza   91af  *  fazy   91aa  *
 ff9    91c9  *  gc1    8e31  *  gc2    8e3c  *  getc   8e2c  *
 halt   903e  *  hex    8d91  *  hisc   0081  *  ind    8c59  *
 ini    b900  *  k      9988  *  key    8cff  *  keycon 8b98  *
 keymat 8d38  *  keyset 8d25  *  km1    8d40  *  km2    8d56  *
 km3    8d5a  *  kme    8d5e  *  krat   92f7  *  kruh   94fe  *
 l      0e88  *  ldiry  8000  *  loop   8b58  *  loopo  8b53  *
 ma1    8f6e  *  ma2    8f71  *  maska  958b  *  matika 8f20  *
 matini 8f19  *  matsin 8f51  *  maxx   90ff  *  maxy   9102  *
 minus  92e3  *  miny   9100  *  mka1   939c  *  mkadd  9395  *
 mknas  9316  *  mks1   9372  *  mksin  9366  *  mkz1   93d1  *
 mkz2   93cf  *  mkz3   93f8  *  mkz4   93ed  *  mkzems 93bf  *
 mkzm   93c9  *  mmeed  8f4b  *  mmend  8f48  *  move   8fa9  *
 moze   9139  *  n      92fb  *  nemusi 9104  *  new    908d  *
 nieco  5b00  *  nn     923c  *  nula   9312  *  oo     923a  *
 out    9046  *  p      8b00  *  pas    8c9f  *  plot   910e  *
 pls1   92f3  *  pls2   92f0  *  plus   92e6  *  pocet  918b  *
 pri30  9197  *  pri40  9146  *  pri50  9159  *  pri60  9160  *
 pri70  9191  *  pri80  9112  *  print  90d9  *  pusti  8bee  *
 px     9242  *  py     9243  *  ram    9087  *  ramcls 8bff  *
 ramcs  8c13  *  rumati 943c  *  rut    8bf7  *  sc10   8e91  *
 sc20   8ec5  *  sc30   8eff  *  scbuf1 8100  *  scbuf2 8500  *
 sccls  8dbd  *  sccur  8e14  *  sck    9339  *  scld1  8fed  *
 scld2  8ff4  *  scm    8fc3  *  scm2   900c  *  scmm0  8e20  *
 scmm1  8e8f  *  scmm2  8ec3  *  scmm3  8efd  *  scr1   8e23  *
 scro1  8e51  *  scro2  8eaa  *  scro3  8ee4  *  scroll 8dfa  *
 scsp   902c  *  setvi  8b44  *  sin    935e  *  sintab 9948  *
 smd    8f55  *  smk    8f58  *  sn     924e  *  so     924a  *
 sp     8be2  *  spack  9236  *  spet   8f37  *  ss1    91e1  *
 ss2    9207  *  st1    8d83  *  stav   8d6f  *  stcc   8d72  *
 stzz   8d74  *  tabadd 7a00  *  tablog 7800  *  tabnas 7200  *
 tabsin 7c00  *  tabut  94cf  *  tabval 8d63  *  tabvol 8cbb  *
 text1  c500  *  text2  d080  *  to     90fb  *  ton    b906  *
 ttadd1 8e61  *  ttadd2 8e51  *  utek   0400  *  utvar  8b9f  *
 ux     923e  *  uy     9240  *  veza   94d9  *  vint   8900  *
 vvxx   9262  *  vvyy   927e  *  vvzz   92b0  *  x      9244  *
 xx     9252  *  xy     91cd  *  y      9246  *  y1     8fa9  *
 ym     8f3d  *  ys     8f28  *  yy     9254  *  z      9248  *
 za1    8f92  *  za2    8f97  *  zems   95ab  *  zn1    80d0  *
 zn2    80e8  *  zna1   8e48  *  znadd  8e3d  *  znadd1 8e10  *
 znadd2 8e1d  *  znaky  7d00  *  zr1    8fa1  *  zr9    8f99  *
 zrus   8f92  *  zz     9256  *  zzadd  91db  *                

Bytes:0  labels:203  errors:0   



Popis
Viz. zdroják

Poznámky
Nic...

Poslal
Busy