1

Blava Demo 128 - RumatiSoft/Busy/Phantasy
http://zxaaa.net/view_demo.php?id=8620
http://zxdemos.ru/img/posts/posts_4/4639.png

Множество версий:

Blava Demo-Alexey Sorokin
http://zxaaa.net/view_demo.php?id=9379
http://zxdemos.ru/img/posts/posts_4/4639_2.png

Blava Demo 128-RumatiSoft/Busy/Leo
http://zxaaa.net/view_demo.php?id=8879
http://zxdemos.ru/img/posts/posts_4/4639_3.png

Blava Demo 128-RumatiSoft/Busy/Sapunov Anton
http://zxaaa.net/view_demo.php?id=7776
http://zxdemos.ru/img/posts/posts_4/4639_4.png

Blava Demo 128-RumatiSoft/Busy/Double Masters
http://zxaaa.net/view_demo.php?id=7774
http://zxdemos.ru/img/posts/posts_4/4639_5.png

Blava Demo 128-RumatiSoft/Busy/Dupanov Alexey
http://zxaaa.net/view_demo.php?id=7775
http://zxdemos.ru/img/posts/posts_4/4639_6.png

Blava Demo 128-RumatiSoft/Busy/Fanatic Stas
http://zxaaa.net/view_demo.php?id=6319
http://zxdemos.ru/img/posts/posts_4/4639_7.png

Blava Demo 128-RumatiSoft/Busy/Softstar
http://zxaaa.net/view_demo.php?id=6318
http://zxdemos.ru/img/posts/posts_4/4639_8.png

2

Хорошо, что есть такое разнрообразие версий. Как все таки много хакеров было на руси (украина то же русь). Диву даешься и если бы у нас был интернет в то время мы были бы в тупике где взять столько дискет чтоб записать 10000 дем ))

lvd сказал:

Хорошо, что есть такое разнрообразие версий. Как все таки много хакеров было на руси (украина то же русь). Диву даешься и если бы у нас был интернет в то время мы были бы в тупике где взять столько дискет чтоб записать 10000 дем ))


Так это и есть россия)) Словакия это ж наша окупация. Мы сознвтельно пол европы в говно тыкали 60 лет, чтоб они носа не поднимали. Румыния,  болгаоия то же самое. Латвия, литва, эстония. Вся грязь и убогость от нас пошла. Мы русские свиньи. Так говорил гитлер, так говорит мороз, и хайп. Выгнав ааа ото всюду.
Блятство в том - что мы не любим чурок, они нас, а мы их. Все кого то не любят. На этом и стоит человечеспий род. Если бы все всех любили, то мы бы ахуели и обленились. А так ааа приходится стараться чтобы обогнать ббб. Это называется прогресс. А война - это двигатель прогресса,  поэтому нужно больше негависти испытывать к гоблину.
нихуя се я подвел))) Наверно лучший мой текст...

3

youtube.com/watch?v=DErs3LOLbe4

4

Подбил пост в одну тему для единого комментирования. Задолбался. Не знал что их так много версий.

5

У меня 2 вопроса:

1. Можно вставить на сайт (форум) очко эмулятора, чтобы смотреть демо? Как это сделано здесь: http://viva-games.ru/genre/kompo-demo
2. Появилась идея (подумаю, как реализовать) - писать видео (которое хайрез и 50 гц) из анрила не в рилтайме, а на максимальной скорости, но писать в файл видео с частотой 50 фпс. Надо?

Ностальгирующий рукожоп

6

Лас сказал:

Можно вставить на сайт (форум) очко эмулятора, чтобы смотреть демо? Как это сделано здесь: http://viva-games.ru/genre/kompo-demo


это хуевый эмулятор.

анон Бубка Гоб сосёт немытые хуи

7

Шыншыл сказал:

это хуевый эмулятор.

Варианты?
И да - в нём сразу включен noflic.

8

kalantaj сказал:

Варианты?
И да - в нём сразу включен noflic.

Падлы хайпа пытались вставить эмулятор в ворованый сайт - идея,потерпела неудачу.  Не будем пофтонятьтошипки фашистов. Скачать эмулятор одинираз и запуститьтдему ровноттак жеипоивременииквк запустить ява мулчтор.

9

AAA сказал:

Скачать эмулятор одинираз и запуститьтдему ровноттак жеипоивременииквк запустить ява мулчтор.

Убрать Noflic в эмуляторе или установить вместо 512 , 128 килобайт памяти - я вообще не считаю за то, что надо объяснять где находится в эмуляторе.
Но до тебя что то не доходит даже если объяснять.
Так что не стОит судить по другим ресурсам.

10

kalantaj сказал:

Убрать Noflic в эмуляторе или установить вместо 512 , 128 килобайт памяти - я вообще не считаю за то, что надо объяснять где находится в эмуляторе.
Но до тебя что то не доходит даже если объяснять.
Так что не стОит судить по другим ресурсам.


Я поекрасно умею убрать новлик и поставить поменять память.
Вопросы стоян конкретно:

1 нет эмулятора играющего правильно моонзад, монщад 60 герц. То что было пока я не стер играло некорректно.
2 нет эмулятора нофлик флик 50 герц,  есть только 50 герц без 2 экранов.
3 нет эмулятора пишущего в хд 50 герц ВГИМАНИЕ!!!  Смеемся, да  Gs!!! Я не могу записать ни одной демы с гс музыкой.

Я конкретно назвал проблемы и пока нет ни одного ихнего решения. Поэтому я пишу простые демы в 50 герц 1 экран, тк просто нет эмулятора.

Не надо уподобоятся хайпу и пытаться сделать онлайн эмулятор. У них на это уходит армия программтстов, у нас нет даже тех кто может сделать обычный настрленый. Крт77 исчез, как я понял вместе с годбоем и эмуляторные настройки для меня пропали навсегла. А я исхожу не из крикливых выпердов Бездельника ласа, а реальных людей нашего общества.

11

AAA сказал:

А я исхожу не из крикливых выпердов Бездельника ласа, а реальных людей нашего общества.

А не пойти ли тебе нахуй?

Ностальгирующий рукожоп

12

Лас сказал:

А не пойти ли тебе нахуй?

Не пойти. Сайт мой форум мой я король. Вы все вкушаете. Если неинравится мой сайт, ааа есть куча других удобных ресурсов.

Мне нужны тут крестьяне способные не предлргать а делать реальный код. Предлогателей полно.

13

Ласику надоело быть няшкой.

анон Бубка Гоб сосёт немытые хуи

14

Повторяю вопрос для майоров и прапорщиков:

1. Позволяет ли измененный администраторами этого условно-бесплатного ресурса форумный движок punBB использовать свой код html и javascript?
2. Пишет ли AAA видео 50 фпс в реальном времени (5 минут видеоролик = 5 минут жизни ААА, проведенной в сортире во время записи видео) или ААА тратит минуту на создание получасового видео?

Ностальгирующий рукожоп

15

Лас сказал:

Повторяю вопрос для майоров и прапорщиков:

1. Позволяет ли измененный администраторами этого условно-бесплатного ресурса форумный движок punBB использовать свой код html и javascript?
2. Пишет ли AAA видео 50 фпс в реальном времени (5 минут видеоролик = 5 минут жизни ААА, проведенной в сортире во время записи видео) или ААА тратит минуту на создание получасового видео?


На работе я пишу 3-5 минутный ролик 30 минут. Все очень сильно зависит от ресурсов компа. Даже мой домашний комп за 70000 руб и унреал тонмозит при записи.

Этот форум пекрасен. Мне очень нравится. Условно говоря 1 чел это 1 рубь рекламы. Дешево. И любой мой каприз кодеры бесплатно правят и помогают в день обращения.

Это лучший движок и у него прекрасная абслуга. + к тому на форуме этого форума нет ни одной жалобы на то что кого то обманули.  И все страшилки не состоятельны. Востановление форума я однажды проверял - работает как часы.

16

AAA сказал:

На работе я пишу 3-5 минутный ролик 30 минут. Все очень сильно зависит от ресурсов компа. Даже мой домашний комп за 70000 руб и унреал тонмозит при записи.

Сколько кадров в секунду в итоге в ролике и какое разрешение кадра?

AAA сказал:

Этот форум пекрасен. Мне очень нравится. Условно говоря 1 чел это 1 рубь рекламы. Дешево. И любой мой каприз кодеры бесплатно правят и помогают в день обращения.

Это лучший движок и у него прекрасная абслуга. + к тому на форуме этого форума нет ни одной жалобы на то что кого то обманули.  И все страшилки не состоятельны. Востановление форума я однажды проверял - работает как часы.

Мля, спросил не о том, как ты относишься к форуму. Спросил есть ли возможность вставлять свой html-код и java-скрипты на страницы форума.

Ностальгирующий рукожоп

17

Форум поддержки прочти я тамничено не понимаю
Пожелания и правка глюков форума.

18

https://b.radikal.ru/b09/1810/15/6d32ff07d357.jpg

19

Скролл кто-то смелый сможет выдрать для перевода?!

20

AAA сказал:

Я не могу записать ни одной демы с гс музыкой.

Камерой смарта сними прям с экрана пентевы.

21

Майне Кляйне интервью с руматисофтом
https://zxdemos.ru/viewtopic.php?id=12257

22

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   

23

Uvodny multicolor efekt [funguje len na 128k a +2]
Na +2A a +3 iba blikaju atributiky
3      5b00            *s
4      5b00             
5      5b00            tretka =    #8800               21 bbb 22.07.1992
6      5b00                   org  #8200
7      8200 f3         p      di
8      8201 ed73b383          ld   (sp+1),sp
9      8205 310082            ld   sp,p
10     8208 21ff5a            ld   hl,#5aff
11     820b af                xor  a
12     820c 77         clsat  ld   (hl),a
13     820d 2b                dec  hl
14     820e cb5c              bit  3,h
15     8210 20fa              jr   nz,clsat
16     8212 210041            ld   hl,#4100
17     8215 36ff       fill   ld   (hl),#ff
18     8217 2c                inc  l
19     8218 20fb              jr   nz,fill
20     821a 25                dec  h
21     821b 01000e            ld   bc,#1600-#0800
22     821e 71         liff   ld   (hl),c
23     821f 2c                inc  l
24     8220 20fc              jr   nz,liff
25     8222 110042            ld   de,#4200
26     8225 edb0              ldir
27     8227 210088            ld   hl,tretka
28     822a 010008            ld   bc,#0800
29     822d edb0              ldir
30     822f             
31     822f 210080            ld   hl,#8000    Test typu pocitaca
32     8232 3681       vi     ld   (hl),#81    [cez im2]
33     8234 2c                inc  l
34     8235 20fb              jr   nz,vi
35     8237 7c                ld   a,h
36     8238 ed47              ld   i,a
37     823a 24                inc  h
38     823b 3681              ld   (hl),#81
39     823d 3ec3              ld   a,#c3
40     823f 328181            ld   (#8181),a
41     8242 215b82            ld   hl,tst1
42     8245 228281            ld   (#8182),hl
43     8248 21                db   #21        Vytvorenie programu:
44     8249 fb                ei            xxx inc bc
45     824a 03                inc  bc                jr xxx
46     824b 22fc7f            ld   (#7ffc),hl
47     824e 21         tt1    db   #21
48     824f 18fd              jr   tt1
49     8251 22fe7f            ld   (#7ffe),hl
50     8254 216482            ld   hl,tst2
51     8257 ed5e              im2
52     8259 fb                ei
53     825a 76                hlt
54     825b 310082     tst1   ld   sp,p
55     825e 228281            ld   (#8182),hl
56     8261 c3fc7f            jp   #7ffc        Spustenie toho programu
57     8264 310082     tst2   ld   sp,p        Po skonceni musi byt
58     8267 78                ld   a,b        v BC hodnota #c70
59     8268 fe0c              cp   #0c        Lebo inak to nie je 128 a +2
60     826a 2009              jr   nz,blik
61     826c 79                ld   a,c
62     826d fe6c              cp   #70-4    Povolime daku toleranciu
63     826f 3804              jr   c,blik    [co ak je CPU este nezohriate
64     8271 fe74              cp   #70+4     na prevadzkovu teplotu ?????]
65     8273 3859              jr   c,mcolor
66     8275 217d82     blik   ld   hl,bbrut    Blikanie ak je to pocitac
67     8278 228281            ld   (#8182),hl    iny ako +2 a 128
68     827b fb                ei
69     827c 76                hlt
70     827d 310082     bbrut  ld   sp,p
71     8280 af                xor  a
72     8281 dbfe              in   a,(#fe)
73     8283 f6e0              or   #e0
74     8285 3c                inc  a
75     8286 c29783            jp   nz,exit
76     8289 3e01       bbcon  ld   a,#01
77     828b 3d                dec  a
78     828c 202d              jr   nz,bb99
79     828e 21be83     bbadd  ld   hl,farby
80     8291 7e                ld   a,(hl)
81     8292 feff              cp   #ff
82     8294 200b              jr   nz,bb1
83     8296 21a282            ld   hl,bb1+1
84     8299 3e40              ld   a,#40
85     829b ae                xor  (hl)
86     829c 77                ld   (hl),a
87     829d 21be83            ld   hl,farby
88     82a0 7e                ld   a,(hl)
89     82a1 f600       bb1    or   #00
90     82a3 23                inc  hl
91     82a4 228f82            ld   (bbadd+1),hl
92     82a7 21055a            ld   hl,#5a05
93     82aa 110a00            ld   de,#0a
94     82ad 0e08              ld   c,#08
95     82af 0616       att1   ld   b,#16
96     82b1 77         att2   ld   (hl),a
97     82b2 2c                inc  l
98     82b3 10fc              djnz att2
99     82b5 19                add  hl,de
100    82b6 0d                dec  c
101    82b7 20f6              jr   nz,att1
102    82b9 3e04              ld   a,#04
103    82bb 328a82     bb99   ld   (bbcon+1),a
104    82be af                xor  a
105    82bf dbfe              in   a,(#fe)
106    82c1 f6e0              or   #e0
107    82c3 3c                inc  a
108    82c4 c29783            jp   nz,exit
109    82c7 fb                ei
110    82c8 76                hlt
111    82c9 76                hlt
112    82ca 76                hlt
113    82cb 76                hlt
114    82cc 181a              jr   rut
115    82ce             
116    82ce 21e882     mcolor ld   hl,rut    Multicolor pri 128 a +2
117    82d1 228281            ld   (#8182),hl
118    82d4 21df83            ld   hl,data
119    82d7 110085            ld   de,video
120    82da 013000            ld   bc,k-data
121    82dd d5                push de
122    82de edb0              ldir
123    82e0 e1                pop  hl
124    82e1 010001            ld   bc,#0100
125    82e4 edb0              ldir
126    82e6 fb                ei
127    82e7 76                hlt
128    82e8 310082     rut    ld   sp,p        Sem skace pri preruseni
129    82eb dd210a58          ld   ix,#580a
130    82ef fd211658          ld   iy,#5816
131    82f3 212058            ld   hl,#5820
132    82f6 d9                exx                      1..6 nopov
133    82f7 00                nop        jemne vycasovanie
134    82f8 00                nop
135    82f9 00                nop
136    82fa 06e9              ld   b,#e0+9    hrube vycasovanie
137    82fc 10fe       w1     djnz #fe
138    82fe 210085     add    ld   hl,video
139    8301 cd4d83            call outi        horna cast borderu
140    8304 d9                exx
141    8305 0e18              ld   c,#18    Multicolorovanie paperu
142    8307 0604       loo1   ld   b,#04    a bokov borderu
143    8309 d9         loo2   exx
144    830a 7e                ld   a,(hl)
145    830b 23                inc  hl
146    830c d9                exx
147    830d 57                ld   d,a
148    830e 5f                ld   e,a
149    830f e607              and  #07
150    8311 323883            ld   (out2+1),a
151    8314 7a                ld   a,d
152    8315 0f                rrca
153    8316 0f                rrca
154    8317 0f                rrca
155    8318 e607              and  #07
156    831a ddf9              ld   sp,ix
157    831c d5                push de
158    831d d5                push de
159    831e d5                push de
160    831f d5                push de
161    8320 d5                push de
162    8321             
163    8321 fdf9              ld   sp,iy
164    8323 d5                push de
165    8324 d5                push de
166    8325 d5                push de
167    8326 d3fe              out  (#fe),a
168    8328 d5                push de
169    8329 d5                push de
170    832a d5                push de
171    832b             
172    832b f9                ld   sp,hl
173    832c d5                push de
174    832d d5                push de
175    832e d5                push de
176    832f d5                push de
177    8330 d5                push de
178    8331             
179    8331 112000            ld   de,#20
180    8334 7e                ld   a,(hl)    nacasovanie
181    8335 7e                ld   a,(hl)
182    8336 7e                ld   a,(hl)
183    8337             
184    8337 3e55       out2   ld   a,#55
185    8339             
186    8339 100c              djnz loo2a
187    833b 19                add  hl,de
188    833c dd19              add  ix,de
189    833e fd19              add  iy,de
190    8340 d3fe              out  (#fe),a
191    8342 0d                dec  c
192    8343 20c2              jr   nz,loo1
193    8345 1824              jr   end
194    8347             
195    8347 e3         loo2a  ex   (sp),hl    nacasovanie
196    8348 e3                ex   (sp),hl
197    8349 d3fe              out  (#fe),a
198    834b 18bc              jr   loo2
199    834d             
200    834d 1e18       outi   ld   e,#18    multicolor v borderi
201    834f 060c       ooo    ld   b,12
202    8351 10fe       w3     djnz #fe
203    8353 7e                ld   a,(hl)
204    8354 57                ld   d,a
205    8355 0f                rrca
206    8356 0f                rrca
207    8357 0f                rrca
208    8358 e607              and  #07
209    835a d3fe              out  (#fe),a
210    835c 7a                ld   a,d
211    835d 010010            ld   bc,#1000
212    8360 10fe       w4     djnz #fe
213    8362 e607              and  #07
214    8364 d3fe              out  (#fe),a
215    8366 23                inc  hl
216    8367 1d                dec  e
217    8368 20e5              jr   nz,ooo
218    836a c9                ret
219    836b             
220    836b d9         end    exx
221    836c 310082            ld   sp,p
222    836f cd4d83            call outi        spodna cast borderu
223    8372 060e              ld   b,#0e
224    8374 10fe              djnz #fe
225    8376 af                xor  a
226    8377 d3fe              out  (#fe),a
227    8379             
228    8379 21ff82            ld   hl,add+1            matika
229    837c 7e                ld   a,(hl)
230    837d 3c                inc  a
231    837e fe30              cp   k-data    Vypocet dalsej adresy
232    8380 3801              jr   c,#01    dat pre multicolor
233    8382 af                xor  a
234    8383 77                ld   (hl),a
235    8384             
236    8384 af                xor  a
237    8385 dbfe              in   a,(#fe)
238    8387 f6e0              or   #e0
239    8389 3c                inc  a
240    838a 200b              jr   nz,exit
241    838c fb                ei
242    838d 76                hlt
243    838e 76                hlt        Po prvom halte to uz vlastne
244    838f 76                hlt        odskoci, preto ostatne uz
245    8390 76                hlt        moc zmysel nemaju
246    8391 c3e882            jp   rut
247    8394             
248    8394 c5         e      push bc
249    8395 dde1              pop  ix
250    8397 f3         exit   di        Koniec tejto casti dema
251    8398 ed56              im1
252    839a af                xor  a
253    839b ed47              ld   i,a
254    839d d3fe              out  (#fe),a
255    839f 210058            ld   hl,#5800
256    83a2 110158            ld   de,#5801
257    83a5 0603              ld   b,#03
258    83a7 75                ld   (hl),l
259    83a8 edb0              ldir
260    83aa af         pusti  xor  a
261    83ab dbfe              in   a,(#fe)
262    83ad f6e0              or   #e0
263    83af 3c                inc  a
264    83b0 20f8              jr   nz,pusti
265    83b2 315555     sp     ld   sp,#5555
266    83b5 fd213a5c          ld   iy,#5c3a
267    83b9 215827            ld   hl,#2758
268    83bc d9                exx
269    83bd c9                ret
270    83be             
271    83be 00010203   farby  db   #00,#01,#02,#03
272    83c2 04050607          db   #04,#05,#06,#07
273    83c6 07060504          db   #07,#06,#05,#04
274    83ca 03020100          db   #03,#02,#01,#00
275    83ce 00081018          db   #00,#08,#10,#18
276    83d2 20283038          db   #20,#28,#30,#38
277    83d6 38302820          db   #38,#30,#28,#20
278    83da 18100800          db   #18,#10,#08,#00
279    83de ff                db   #ff
280    83df             
281    83df 01132537   data   db   #01,#13,#25,#37
282    83e3 3e2c1a08          db   #3e,#2c,#1a,#08
283    83e7             
284    83e7 00010203          db   #00,#01,#02,#03
285    83eb 04050607          db   #04,#05,#06,#07
286    83ef 07060504          db   #07,#06,#05,#04
287    83f3 03020100          db   #03,#02,#01,#00
288    83f7             
289    83f7 01132537          db   #01,#13,#25,#37
290    83fb 3e2c1a08          db   #3e,#2c,#1a,#08
291    83ff             
292    83ff 00081018          db   #00,#08,#10,#18
293    8403 20283038          db   #20,#28,#30,#38
294    8407 38302820          db   #38,#30,#28,#20
295    840b 18100800          db   #18,#10,#08,#00
296    840f            k
297    840f            l      =    k-p
298    840f            video  =    #8500
299    840f             
300    840f                   end

 add    82fe  *  att1   82af  *  att2   82b1  *  bb1    82a1  *
 bb99   82bb  *  bbadd  828e  *  bbcon  8289  *  bbrut  827d  *
 blik   8275  *  clsat  820c  *  data   83df  *  e      8394  *
 end    836b  *  exit   8397  *  farby  83be  *  fill   8215  *
 k      840f  *  l      020f  *  liff   821e  *  loo1   8307  *
 loo2   8309  *  loo2a  8347  *  mcolor 82ce  *  ooo    834f  *
 out2   8337  *  outi   834d  *  p      8200  *  pusti  83aa  *
 rut    82e8  *  sp     83b2  *  tretka 8800  *  tst1   825b  *
 tst2   8264  *  tt1    824e  *  vi     8232  *  video  8500  *
 w1     82fc  *  w3     8351  *  w4     8360  *                

Bytes:527  labels:39  errors:0   

24

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   

25

Toto sluzi na spustenie casti so samplovanou hudbou
Samplovana hudba je ako jedina cast pakovana cez packmaker
[strumcekova komprimacia] lebo stromcek je na pakovanie samplov velmi vyhodny.
3      5b00            *s
4      5b00             
5      5b00            screen =    30128               03 "bub" run bubny
6      5b00            bubny  =    32340
7      5b00            play   =    32882
8      5b00                   org  30064
9      7570 ed739575   p      ld   (sp+1),sp
10     7574 317075            ld   sp,p
11     7577 3e3e              ld   a,#3e
12     7579 326faa            ld   (#aa6f),a
13     757c 3273aa            ld   (#aa73),a
14     757f cd547e            call bubny               depack packmaker
15     7582 cda075            call cls
16     7585 cd9775            call pusti
17     7588 cdb075            call screen              depack screen
18     758b 310000            ld   sp,#00
19     758e cd7280            call play                play music
20     7591 cda075            call cls
21     7594 315555     sp     ld   sp,#5555
22     7597 af         pusti  xor  a
23     7598 dbfe              in   a,(#fe)
24     759a f6e0              or   #e0
25     759c 3c                inc  a
26     759d 20f8              jr   nz,pusti
27     759f c9                ret
28     75a0             
29     75a0 f3         cls    di
30     75a1 af                xor  a
31     75a2 d3fe              out  (#fe),a
32     75a4 21ff5a            ld   hl,#5aff
33     75a7 77         cc1    ld   (hl),a
34     75a8 2b                dec  hl
35     75a9 cb5c              bit  3,h
36     75ab 20fa              jr   nz,cc1
37     75ad c9                ret
38     75ae            k
39     75ae            l      =    k-p
40     75ae                   end

 bubny  7e54  *  cc1    75a7  *  cls    75a0  *  k      75ae  *
 l      003e  *  p      7570  *  play   8072  *  pusti  7597  *
 screen 75b0  *  sp     7594  *                                

Bytes:62  labels:10  errors:0

26

    

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

  

27

продолжение того что выше

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