Blavabbb

Zdrojový kód

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   



Popis
Uvodny multicolor efekt [funguje len na 128k a +2] Na +2A a +3 iba blikaju atributiky

Poznámky
Nic...

Poslal
Busy