Turbo Imploder

Zdrojový kód

3      5b00            *s
4      5b00            ;
5      5b00            ; TURBO IMPLODER  1992 SAPOSOFT
6      5b00            ; ver 58
7      5b00            ;
8      5b00             
9      5b00            tabul  =    #5900               !!! 5900
10     5b00             
11     5b00                   org  #4800               !!! 4800
12     4800             
13     4800 ed734648   p      ld   (spp+1),sp
14     4804 ed57              ld   a,i
15     4806 f3                di
16     4807 310050            ld   sp,#5000            !!! 5000
17     480a f5                push af
18     480b c5                push bc
19     480c d5                push de
20     480d e5                push hl
21     480e d9                exx
22     480f f5                push af
23     4810 c5                push bc
24     4811 d5                push de
25     4812 e5                push hl
26     4813 dde5              push ix
27     4815 fde5              push iy
28     4817 ed733648          ld   (sppp+1),sp
29     481b cd4b48            call attr
30     481e 0e7f              ld   c,#7f
31     4820 cd714c            call beep1
32     4823 cd754a            call clear
33     4826 cd6448            call hodnot
34     4829 cd5b4c            call pack
35     482c cd674c            call beep
36     482f cd7b4b            call save
37     4832 cd674c     sp     call beep
38     4835 310000     sppp   ld   sp,0
39     4838 fde1              pop  iy
40     483a dde1              pop  ix
41     483c e1                pop  hl
42     483d d1                pop  de
43     483e c1                pop  bc
44     483f f1                pop  af
45     4840 d9                exx
46     4841 e1                pop  hl
47     4842 d1                pop  de
48     4843 c1                pop  bc
49     4844 f1                pop  af
50     4845 310000     spp    ld   sp,0
51     4848 e0                ret  po
52     4849 fb                ei
53     484a c9                ret
54     484b             
55     484b            ;=================== Rutiny na zadanie hodnot =================;
56     484b             
57     484b f5         attr   push af
58     484c 210058            ld   hl,#5800
59     484f 45                ld   b,l
60     4850 7d                ld   a,l
61     4851 d3fe              out  (#fe),a
62     4853 3647       attr1  ld   (hl),#47
63     4855 23                inc  hl
64     4856 10fb              djnz attr1
65     4858 3600       attr2  ld   (hl),#00
66     485a 23                inc  hl
67     485b 10fb              djnz attr2
68     485d 3607       attr3  ld   (hl),#07
69     485f 23                inc  hl
70     4860 10fb              djnz attr3
71     4862 f1                pop  af
72     4863 c9                ret
73     4864             
74     4864 cdd649     hodnot call vstart
75     4867 cde348            call vstup
76     486a 7c                ld   a,h
77     486b b5                or   l
78     486c 2003              jr   nz,hodn1
79     486e 210060            ld   hl,#6000
80     4871 22334a     hodn1  ld   (tde),hl
81     4874 110b00            ld   de,#0b
82     4877 ed53ce4a          ld   (x),de
83     487b cd324a            call de
84     487e cddf49            call vlengh
85     4881 cde348            call vstup
86     4884 7d                ld   a,l
87     4885 b4                or   h
88     4886 2003              jr   nz,hodn2
89     4888 21ffff            ld   hl,#ffff
90     488b e5         hodn2  push hl
91     488c a7                and  a
92     488d ed5b334a          ld   de,(tde)
93     4891 210000            ld   hl,0
94     4894 ed52              sbc  hl,de
95     4896 eb                ex   de,hl
96     4897 e1                pop  hl
97     4898 a7                and  a
98     4899 ed52              sbc  hl,de
99     489b 19                add  hl,de
100    489c 3802              jr   c,hodn3
101    489e 62                ld   h,d
102    489f 6b                ld   l,e
103    48a0 22384a     hodn3  ld   (tbc),hl
104    48a3 110b01            ld   de,#010b
105    48a6 ed53ce4a          ld   (x),de
106    48aa cd374a            call bc
107    48ad cde849            call vcall
108    48b0 cde348            call vstup
109    48b3 222e4a            ld   (thl),hl
110    48b6 111800            ld   de,#18
111    48b9 ed53ce4a          ld   (x),de
112    48bd cd2d4a            call hl
113    48c0 cdf149            call vmode
114    48c3 cd694a            call cur
115    48c6 cd9c49     hodn4  call key
116    48c9 fe0d              cp   #0d
117    48cb 280c              jr   z,hodn5
118    48cd fe31              cp   #31
119    48cf 38f5              jr   c,hodn4
120    48d1 fe34              cp   #34
121    48d3 30f1              jr   nc,hodn4
122    48d5 d630              sub  #30
123    48d7 1802              jr   2
124    48d9 3e03       hodn5  ld   a,3
125    48db 322a4a            ld   (taf),a
126    48de c630              add  a,#30
127    48e0 c38a4a            jp   print
128    48e3             
129    48e3 3eff       vstup  ld   a,#ff
130    48e5 329149            ld   (poz),a
131    48e8 f5                push af
132    48e9 f1         cis1   pop  af
133    48ea cd694a     cislo  call cur
134    48ed cd9c49            call key
135    48f0 f5                push af
136    48f1 78                ld   a,b
137    48f2 fe27              cp   #27
138    48f4 ca7949            jp   z,cs
139    48f7 f1                pop  af
140    48f8 fe0d              cp   #0d
141    48fa 2822              jr   z,hotove
142    48fc fe30              cp   #30
143    48fe 38ea              jr   c,cislo
144    4900 fe3a              cp   #3a
145    4902 30e6              jr   nc,cislo
146    4904 f5                push af
147    4905 3a9149            ld   a,(poz)
148    4908 fe04              cp   4
149    490a 28dd              jr   z,cis1
150    490c 3c                inc  a
151    490d 329149            ld   (poz),a
152    4910 219249            ld   hl,buf
153    4913 0600              ld   b,0
154    4915 4f                ld   c,a
155    4916 09                add  hl,bc
156    4917 f1                pop  af
157    4918 77                ld   (hl),a
158    4919 cd8a4a            call print
159    491c 18cc              jr   cislo
160    491e             
161    491e cd884a     hotove call space
162    4921 dd219249          ld   ix,buf
163    4925 210000            ld   hl,#00
164    4928 3a9149            ld   a,(poz)
165    492b feff              cp   #ff
166    492d 2844              jr   z,defaul
167    492f b7                or   a
168    4930 2830              jr   z,jedno
169    4932 fe01              cp   1
170    4934 2823              jr   z,dve
171    4936 fe02              cp   2
172    4938 2816              jr   z,tri
173    493a fe03              cp   3
174    493c 2809              jr   z,stiry
175    493e dd7e00            ld   a,(ix+#00)
176    4941 111027            ld   de,10000
177    4944 cd6849            call hot
178    4947 dd7e00     stiry  ld   a,(ix+#00)
179    494a 11e803            ld   de,1000
180    494d cd6849            call hot
181    4950 dd7e00     tri    ld   a,(ix+#00)
182    4953 116400            ld   de,100
183    4956 cd6849            call hot
184    4959 dd7e00     dve    ld   a,(ix+#00)
185    495c 110a00            ld   de,10
186    495f cd6849            call hot
187    4962 dd7e00     jedno  ld   a,(ix+#00)
188    4965 110100            ld   de,1
189    4968             
190    4968 dd23       hot    inc  ix
191    496a d630              sub  #30
192    496c b7                or   a
193    496d c8                ret  z
194    496e 47                ld   b,a
195    496f 19         hot1   add  hl,de
196    4970 10fd              djnz hot1
197    4972 c9                ret
198    4973             
199    4973 210000     defaul ld   hl,#00
200    4976 c3884a            jp   space
201    4979             
202    4979 f1         cs     pop  af
203    497a fe30              cp   #30
204    497c c2ea48            jp   nz,cislo
205    497f 3a9149            ld   a,(poz)
206    4982 feff              cp   #ff
207    4984 caea48            jp   z,cislo
208    4987 3d                dec  a
209    4988 329149            ld   (poz),a
210    498b cd624a            call del
211    498e c3ea48            jp   cislo
212    4991             
213    4991 00         poz    db   0
214    4992            buf    ds   10
215    499c             
216    499c cd8e02     key    call #028e
217    499f cd1e03            call #031e
218    49a2 30f8              jr   nc,key
219    49a4 c5                push bc
220    49a5 f5                push af
221    49a6 0e3f              ld   c,#3f
222    49a8 3e10              ld   a,#10
223    49aa ee10       key1   xor  #10
224    49ac d3fe              out  (#fe),a
225    49ae 10fe              djnz #fe
226    49b0 0d                dec  c
227    49b1 20f7              jr   nz,key1
228    49b3 010020            ld   bc,#2000
229    49b6 0b         key2   dec  bc
230    49b7 78                ld   a,b
231    49b8 b1                or   c
232    49b9 20fb              jr   nz,key2
233    49bb f1                pop  af
234    49bc c1                pop  bc
235    49bd c9                ret
236    49be             
237    49be            ;======================== Rutiny na vypis =====================;
238    49be             
239    49be cdd649     all    call vstart
240    49c1 cd324a            call de
241    49c4 cddf49            call vlengh
242    49c7 cd374a            call bc
243    49ca cde849            call vcall
244    49cd cd2d4a            call hl
245    49d0 cdf149            call vmode
246    49d3 c3294a            jp   af
247    49d6             
248    49d6 210300     vstart ld   hl,#03
249    49d9 dd21d04a          ld   ix,tstart
250    49dd 183b              jr   text
251    49df 210301     vlengh ld   hl,#0103
252    49e2 dd21d94a          ld   ix,tlengh
253    49e6 1832              jr   text
254    49e8 211200     vcall  ld   hl,#12
255    49eb dd21e24a          ld   ix,tcall
256    49ef 1829              jr   text
257    49f1 211201     vmode  ld   hl,#0112
258    49f4 dd21e94a          ld   ix,tmode
259    49f8 1820              jr   text
260    49fa 210303     vshr   ld   hl,#0303
261    49fd dd21f04a          ld   ix,twait
262    4a01 cd1a4a            call text
263    4a04 dd21004b          ld   ix,tshr
264    4a08 1813              jr   text1
265    4a0a 210303     vimp   ld   hl,#0303
266    4a0d dd21f04a          ld   ix,twait
267    4a11 cd1a4a            call text
268    4a14 dd210d4b          ld   ix,timp
269    4a18 1803              jr   text1
270    4a1a 22ce4a     text   ld   (x),hl
271    4a1d dd7e00     text1  ld   a,(ix+#00)
272    4a20 b7                or   a
273    4a21 c8                ret  z
274    4a22 cd8a4a            call print
275    4a25 dd23              inc  ix
276    4a27 18f4              jr   text1
277    4a29             
278    4a29 3e         af     db   #3e
279    4a2a 55         taf    db   #55
280    4a2b 182f              jr   d8
281    4a2d 21         hl     db   #21
282    4a2e 5555       thl    dw   #5555
283    4a30 1808              jr   d16
284    4a32 21         de     db   #21
285    4a33 5555       tde    dw   #5555
286    4a35 1803              jr   d16
287    4a37 21         bc     db   #21
288    4a38 5555       tbc    dw   #5555
289    4a3a             
290    4a3a 11f0d8     d16    ld   de,-10000
291    4a3d cd534a            call vyp
292    4a40 1118fc            ld   de,-1000
293    4a43 cd534a            call vyp
294    4a46 119cff            ld   de,-100
295    4a49 cd534a            call vyp
296    4a4c 1ef6              ld   e,-10
297    4a4e cd534a            call vyp
298    4a51 1eff       d816   ld   e,-1
299    4a53 3eff       vyp    ld   a,#ff
300    4a55 3c         vyp1   inc  a
301    4a56 19                add  hl,de
302    4a57 38fc              jr   c,vyp1
303    4a59 a7                and  a
304    4a5a ed52              sbc  hl,de
305    4a5c c630       d8     add  a,#30
306    4a5e cd8a4a            call print
307    4a61 c9                ret
308    4a62             
309    4a62 3ace4a     del    ld   a,(x)
310    4a65 3d                dec  a
311    4a66 32ce4a            ld   (x),a
312    4a69 cd834a     cur    call cur1
313    4a6c 3ace4a            ld   a,(x)
314    4a6f 3d                dec  a
315    4a70 3d                dec  a
316    4a71 32ce4a            ld   (x),a
317    4a74 c9                ret
318    4a75             
319    4a75 210000     clear  ld   hl,#00
320    4a78 22ce4a            ld   (x),hl
321    4a7b 067f              ld   b,#7f
322    4a7d cd884a     clear1 call space
323    4a80 10fb              djnz clear1
324    4a82 c9                ret
325    4a83             
326    4a83 3e1f       cur1   ld   a,#1f
327    4a85 cd8a4a            call print
328    4a88 3e20       space  ld   a,#20
329    4a8a d9         print  exx
330    4a8b 87                add  a,a
331    4a8c 6f                ld   l,a
332    4a8d 2600              ld   h,0
333    4a8f 11003c            ld   de,#3c00
334    4a92 29                add  hl,hl
335    4a93 29                add  hl,hl
336    4a94 19                add  hl,de
337    4a95 eb                ex   de,hl
338    4a96 3ace4a            ld   a,(x)
339    4a99 218040            ld   hl,#4080            !!! 4080
340    4a9c 85                add  a,l
341    4a9d 6f                ld   l,a
342    4a9e 3acf4a            ld   a,(y)
343    4aa1 87                add  a,a
344    4aa2 cb27              sla  a
345    4aa4 cb27              sla  a
346    4aa6 cb27              sla  a
347    4aa8 cb27              sla  a
348    4aaa 85                add  a,l
349    4aab 6f                ld   l,a
350    4aac 0608              ld   b,8
351    4aae 1a         prt1   ld   a,(de)
352    4aaf 77                ld   (hl),a
353    4ab0 13                inc  de
354    4ab1 24                inc  h
355    4ab2 10fa              djnz prt1
356    4ab4 3ace4a            ld   a,(x)
357    4ab7 3c                inc  a
358    4ab8 fe20              cp   #20
359    4aba 200d              jr   nz,prt2
360    4abc 3acf4a            ld   a,(y)
361    4abf 3c                inc  a
362    4ac0 fe04              cp   4
363    4ac2 2001              jr   nz,prt3
364    4ac4 af                xor  a
365    4ac5 32cf4a     prt3   ld   (y),a
366    4ac8 af                xor  a
367    4ac9 32ce4a     prt2   ld   (x),a
368    4acc d9                exx
369    4acd c9                ret
370    4ace             
371    4ace 00         x      db   0
372    4acf 00         y      db   0
373    4ad0             
374    4ad0 53746172   tstart db   'Start : ',0
            74203a20    
            00          
375    4ad9 4c656e67   tlengh db   'Lenght: ',0
            68743a20    
            00          
376    4ae2 43616c6c   tcall  db   'Call: ',0
            3a2000      
377    4ae9 4d6f6465   tmode  db   'Mode: ',0
            3a2000      
378    4af0 57616974   twait  db   'Wait please..  ',0
            20706c65    
            6173652e    
            2e202000    
379    4b00 53687269   tshr   db   'Shrinking.. ',0
            6e6b696e    
            672e2e20    
            00          
380    4b0d 496d706c   timp   db   'Imploding.. ',0
            6f64696e    
            672e2e20    
            00          
381    4b1a 5061636b   terr0  db   'Pack error !! ',0
            20657272    
            6f722021    
            212000      
382    4b29 44617461   terr1  db   'Data ok !!  ',0
            206f6b20    
            21212020    
            00          
383    4b36 44617461   tfat   db   'Data lost !!',0
            206c6f73    
            74202121    
            00          
384    4b43 53617665   tsave  db   'Save ? (yes)',0
            203f2028    
            79657329    
            00          
385    4b50 53617669   tsav   db   'Saving..',0
            6e672e2e    
            00          
386    4b59 4e616d65   tname  db   'Name: ',0
            3a2000      
387    4b60 50726f67   tok    db   'Program termin'
            72616d20    
            7465726d    
            696e        
388    4b6e 61746564          db   'ated. OK !!!',0
            2e204f4b    
            20212121    
            00          
389    4b7b             
390    4b7b             
391    4b7b            ;======================== Rutiny na pakovanie =================;
392    4b7b             
393    4b7b fd213a5c   save   ld   iy,#5c3a
394    4b7f d9                exx
395    4b80 215827            ld   hl,#2758
396    4b83 d9                exx
397    4b84 210303            ld   hl,#0303
398    4b87 dd21434b          ld   ix,tsave
399    4b8b cd1a4a            call text
400    4b8e cd9c49            call key
401    4b91 fe4e              cp   'N'
402    4b93 ca404c            jp   z,nosave
403    4b96             
404    4b96 214b4c            ld   hl,name
405    4b99 060a              ld   b,#0a
406    4b9b 3620       save0  ld   (hl),' '
407    4b9d 23                inc  hl
408    4b9e 10fb              djnz save0
409    4ba0             
410    4ba0 210303            ld   hl,#0303
411    4ba3 22ce4a            ld   (x),hl
412    4ba6 0614              ld   b,20
413    4ba8 cd884a     save1  call space
414    4bab 10fb              djnz save1
415    4bad 210303            ld   hl,#0303
416    4bb0 dd21594b          ld   ix,tname
417    4bb4 cd1a4a            call text
418    4bb7             
419    4bb7 3eff              ld   a,#ff
420    4bb9 329149            ld   (poz),a
421    4bbc cd694a     nicc   call cur
422    4bbf cd9c49     nic    call key
423    4bc2 5f                ld   e,a
424    4bc3 0e00              ld   c,0
425    4bc5 16cd              ld   d,#cd
426    4bc7 cd3303            call #0333
427    4bca fe0c              cp   #0c
428    4bcc 2826              jr   z,delete
429    4bce fe0d              cp   #0d
430    4bd0 283b              jr   z,enter
431    4bd2 fe20              cp   #20
432    4bd4 38e9              jr   c,nic
433    4bd6 fe80              cp   #80
434    4bd8 30e5              jr   nc,nic
435    4bda 5f                ld   e,a
436    4bdb 3a9149            ld   a,(poz)
437    4bde 3c                inc  a
438    4bdf fe0a              cp   10
439    4be1 28dc              jr   z,nic
440    4be3 329149            ld   (poz),a
441    4be6 214b4c            ld   hl,name
442    4be9 0600              ld   b,0
443    4beb 4f                ld   c,a
444    4bec 09                add  hl,bc
445    4bed 7b                ld   a,e
446    4bee 77                ld   (hl),a
447    4bef cd8a4a            call print
448    4bf2 18c8              jr   nicc
449    4bf4             
450    4bf4 3a9149     delete ld   a,(poz)
451    4bf7 feff              cp   #ff
452    4bf9 28c4              jr   z,nic
453    4bfb 4f                ld   c,a
454    4bfc 0600              ld   b,0
455    4bfe 214b4c            ld   hl,name
456    4c01 09                add  hl,bc
457    4c02 3620              ld   (hl),' '
458    4c04 3d                dec  a
459    4c05 329149            ld   (poz),a
460    4c08 cd624a            call del
461    4c0b 18af              jr   nicc
462    4c0d             
463    4c0d cd884a     enter  call space
464    4c10 dd21504b          ld   ix,tsav
465    4c14 211503            ld   hl,#0315
466    4c17 cd1a4a            call text
467    4c1a 2a334a            ld   hl,(tde)
468    4c1d 22574c            ld   (str),hl
469    4c20 2a384a            ld   hl,(tbc)
470    4c23 22554c            ld   (len),hl
471    4c26 af                xor  a
472    4c27 dd214a4c          ld   ix,hlava
473    4c2b 111100            ld   de,17
474    4c2e cdc604            call #04c6
475    4c31 300d              jr   nc,nosave
476    4c33 3eff              ld   a,#ff
477    4c35 dd2a574c          ld   ix,(str)
478    4c39 ed5b554c          ld   de,(len)
479    4c3d cdc604            call #04c6
480    4c40             
481    4c40 210303     nosave ld   hl,#0303
482    4c43 dd21604b          ld   ix,tok
483    4c47 c31a4a            jp   text
484    4c4a             
485    4c4a 03         hlava  db   #03
486    4c4b 20202020   name   db   '          '
            20202020    
            2020        
487    4c55 8888       len    dw   #8888
488    4c57 8888       str    dw   #8888
489    4c59 8888              dw   #8888
490    4c5b             
491    4c5b cd754a     pack   call clear
492    4c5e cd824c            call zmode
493    4c61 cd754a            call clear
494    4c64 c3be49            jp   all
495    4c67             
496    4c67 010000     beep   ld   bc,#00
497    4c6a 0b         beep2  dec  bc
498    4c6b 78                ld   a,b
499    4c6c b1                or   c
500    4c6d 20fb              jr   nz,beep2
501    4c6f 0eff              ld   c,#ff
502    4c71 3e10       beep1  ld   a,#10
503    4c73 d3fe              out  (#fe),a
504    4c75 10fe              djnz #fe
505    4c77 10fe              djnz #fe
506    4c79 af                xor  a
507    4c7a d3fe              out  (#fe),a
508    4c7c 10fe              djnz #fe
509    4c7e 0d                dec  c
510    4c7f 20f0              jr   nz,beep1
511    4c81 c9                ret
512    4c82             
513    4c82 3a2a4a     zmode  ld   a,(taf)
514    4c85 fe03              cp   3
515    4c87 2821              jr   z,mode3
516    4c89 fe02              cp   2
517    4c8b 280d              jr   z,mode2
518    4c8d             
519    4c8d cdfa49     mode1  call vshr
520    4c90 cdaf4c            call vezmi
521    4c93 cdec4c            call shrink
522    4c96 cdbe4c            call uloz
523    4c99 c9                ret
524    4c9a cd0a4a     mode2  call vimp
525    4c9d cdaf4c            call vezmi
526    4ca0 cd2b4e            call implod
527    4ca3 13                inc  de
528    4ca4 62                ld   h,d
529    4ca5 6b                ld   l,e
530    4ca6 cdbe4c            call uloz
531    4ca9 c9                ret
532    4caa cd8d4c     mode3  call mode1
533    4cad 18eb              jr   mode2
534    4caf             
535    4caf cdbe49     vezmi  call all
536    4cb2 2a2e4a            ld   hl,(thl)
537    4cb5 ed5b334a          ld   de,(tde)
538    4cb9 ed4b384a          ld   bc,(tbc)
539    4cbd c9                ret
540    4cbe 222e4a     uloz   ld   (thl),hl
541    4cc1 ed53334a          ld   (tde),de
542    4cc5 ed43384a          ld   (tbc),bc
543    4cc9 c3be49            jp   all
544    4ccc             
545    4ccc cde24c     fatt   call err0
546    4ccf dd21364b          ld   ix,tfat
547    4cd3 1807              jr   err1
548    4cd5 cde24c     error  call err0
549    4cd8 dd21294b          ld   ix,terr1
550    4cdc cd1d4a     err1   call text1
551    4cdf c33248            jp   sp
552    4ce2 210303     err0   ld   hl,#0303
553    4ce5 dd211a4b          ld   ix,terr0
554    4ce9 c31a4a            jp   text
555    4cec             
556    4cec d5         shrink push de
557    4ced cdfa4c            call shr
558    4cf0 78                ld   a,b
559    4cf1 b1                or   c
560    4cf2 cad54c            jp   z,error
561    4cf5 d1                pop  de
562    4cf6 dde5              push ix
563    4cf8 e1                pop  hl
564    4cf9 c9                ret
565    4cfa             
566    4cfa ed53064d   shr    ld   (shr1+1),de
567    4cfe 22c14d            ld   (shr19+1),hl
568    4d01 ed43094d          ld   (shr2+1),bc
569    4d05 215555     shr1   ld   hl,#5555
570    4d08 015555     shr2   ld   bc,#5555
571    4d0b 1e00              ld   e,#00
572    4d0d 22ea4d            ld   (shr21+1),hl
573    4d10 cb43       shr3   bit  0,e
574    4d12 c2cc4c            jp   nz,fatt
575    4d15 cdf14d     shr4   call shr22
576    4d18 2806              jr   z,shr5
577    4d1a eda1              cpi
578    4d1c ea104d            jp   pe,shr3
579    4d1f c9                ret
580    4d20             
581    4d20 22064d     shr5   ld   (shr1+1),hl
582    4d23 ed43094d          ld   (shr2+1),bc
583    4d27 fd210000          ld   iy,#00
584    4d2b e5                push hl
585    4d2c dde1              pop  ix
586    4d2e 56         shr6   ld   d,(hl)
587    4d2f cd814d            call shr14
588    4d32 1600              ld   d,#00
589    4d34 dd23              inc  ix
590    4d36 fd23       shr7   inc  iy
591    4d38 14                inc  d
592    4d39 eda1              cpi
593    4d3b e2884d            jp   po,shr15
594    4d3e cb7a              bit  7,d
595    4d40 2003              jr   nz,shr8
596    4d42 be                cp   (hl)
597    4d43 28f1              jr   z,shr7
598    4d45 cbfa       shr8   set  7,d
599    4d47 cd814d            call shr14
600    4d4a dd23              inc  ix
601    4d4c             
602    4d4c cdf14d     shr9   call shr22
603    4d4f 28dd              jr   z,shr6
604    4d51 1600       shr10  ld   d,#00
605    4d53 7e         shr11  ld   a,(hl)
606    4d54 cb43              bit  0,e
607    4d56 2803              jr   z,#03
608    4d58 dd7700            ld   (ix+#00),a
609    4d5b dd23              inc  ix
610    4d5d fd23              inc  iy
611    4d5f 14                inc  d
612    4d60 eda1              cpi
613    4d62 e28c4d            jp   po,shr16
614    4d65 cdf14d            call shr22
615    4d68 2804              jr   z,shr12
616    4d6a cb7a              bit  7,d
617    4d6c 28e5              jr   z,shr11
618    4d6e cbba       shr12  res  7,d
619    4d70 cd814d            call shr14
620    4d73 dd7c              ld   a,xh
621    4d75 bc                cp   h
622    4d76 2005              jr   nz,shr13
623    4d78 dd7d              ld   a,xl
624    4d7a bd                cp   l
625    4d7b 3093              jr   nc,shr3
626    4d7d dd23       shr13  inc  ix
627    4d7f 18cb              jr   shr9
628    4d81             
629    4d81 cb43       shr14  bit  0,e
630    4d83 c8                ret  z
631    4d84 dd7200            ld   (ix+#00),d
632    4d87 c9                ret
633    4d88             
634    4d88 cbfa       shr15  set  7,d
635    4d8a 1802              jr   #02
636    4d8c cbba       shr16  res  7,d
637    4d8e af                xor  a
638    4d8f cd814d            call shr14
639    4d92 201b              jr   nz,shr18
640    4d94 0e2c              ld   c,kkshr-sdek
641    4d96 ed42              sbc  hl,bc
642    4d98 dd23              inc  ix
643    4d9a 48                ld   c,b
644    4d9b dd7c              ld   a,xh
645    4d9d bc                cp   h
646    4d9e 2003              jr   nz,shr17
647    4da0 dd7d              ld   a,xl
648    4da2 bd                cp   l
649    4da3 d0         shr17  ret  nc
650    4da4 1c                inc  e
651    4da5 2a064d            ld   hl,(shr1+1)
652    4da8 ed4b094d          ld   bc,(shr2+1)
653    4dac c3154d            jp   shr4
654    4daf             
655    4daf 2b         shr18  dec  hl
656    4db0 fd22164e          ld   (sdek3+1),iy
657    4db4 22134e            ld   (sdek2+1),hl
658    4db7 dde5              push ix
659    4db9 e1                pop  hl
660    4dba 22104e            ld   (sdek1+1),hl
661    4dbd dd23              inc  ix
662    4dbf 23                inc  hl
663    4dc0 015555     shr19  ld   bc,#5555
664    4dc3 78                ld   a,b
665    4dc4 b1                or   c
666    4dc5 280a              jr   z,shr20
667    4dc7 3621              ld   (hl),#21
668    4dc9 23                inc  hl
669    4dca 71                ld   (hl),c
670    4dcb 23                inc  hl
671    4dcc 70                ld   (hl),b
672    4dcd 23                inc  hl
673    4dce 36e5              ld   (hl),#e5
674    4dd0 23                inc  hl
675    4dd1 eb         shr20  ex   de,hl
676    4dd2 d5                push de
677    4dd3 fde1              pop  iy
678    4dd5 21034e            ld   hl,sdek
679    4dd8 011600            ld   bc,sdek4-sdek
680    4ddb edb0              ldir
681    4ddd fd7301            ld   (iy+#01),e
682    4de0 fd7202            ld   (iy+#02),d
683    4de3 011200            ld   bc,kshr-sdek4
684    4de6 edb0              ldir
685    4de8 eb                ex   de,hl
686    4de9 015555     shr21  ld   bc,#5555
687    4dec ed42              sbc  hl,bc
688    4dee 44                ld   b,h
689    4def 4d                ld   c,l
690    4df0 c9                ret
691    4df1             
692    4df1 7e         shr22  ld   a,(hl)
693    4df2 f5                push af
694    4df3 ed5f              ld   a,r
695    4df5 e604              and  #04
696    4df7 d3fe              out  (#fe),a
697    4df9 f1                pop  af
698    4dfa 23                inc  hl
699    4dfb be                cp   (hl)
700    4dfc 2003              jr   nz,shr23
701    4dfe 23                inc  hl
702    4dff be                cp   (hl)
703    4e00 2b                dec  hl
704    4e01 2b         shr23  dec  hl
705    4e02 c9                ret
706    4e03             
707    4e03 215555     sdek   ld   hl,#5555
708    4e06 11cc5b            ld   de,#5bcc
709    4e09 011200            ld   bc,kshr-sdek4
710    4e0c d5                push de
711    4e0d edb0              ldir
712    4e0f 215555     sdek1  ld   hl,#5555
713    4e12 115555     sdek2  ld   de,#5555
714    4e15 015555     sdek3  ld   bc,#5555
715    4e18 c9                ret
716    4e19             
717    4e19 7e         sdek4  ld   a,(hl)
718    4e1a 07                rlca
719    4e1b cb3f              srl  a
720    4e1d 2b                dec  hl
721    4e1e eda8       sdek5  ldd
722    4e20 e0                ret  po
723    4e21 3d                dec  a
724    4e22 cbbf              res  7,a
725    4e24 28f3              jr   z,sdek4
726    4e26 30f6              jr   nc,sdek5
727    4e28 23                inc  hl
728    4e29 18f3              jr   sdek5
729    4e2b            kshr
730    4e2b            kkshr  =    kshr+4
731    4e2b             
732    4e2b e5         implod push hl
733    4e2c d5                push de
734    4e2d c5                push bc
735    4e2e d9                exx
736    4e2f 210059            ld   hl,tabul
737    4e32 110159            ld   de,tabul+1
738    4e35 01ff01            ld   bc,#01ff
739    4e38 3600              ld   (hl),#00
740    4e3a edb0              ldir
741    4e3c d9                exx
742    4e3d dd69              ld   xl,c
743    4e3f dd60              ld   xh,b
744    4e41 0600              ld   b,#00
745    4e43 1a         poc1   ld   a,(de)
746    4e44 f5                push af
747    4e45 e607              and  #07
748    4e47 d3fe              out  (#fe),a
749    4e49 f1                pop  af
750    4e4a 4f                ld   c,a
751    4e4b 210059            ld   hl,tabul
752    4e4e 09                add  hl,bc
753    4e4f 09                add  hl,bc
754    4e50 34                inc  (hl)
755    4e51 2002              jr   nz,poc2
756    4e53 23                inc  hl
757    4e54 34                inc  (hl)
758    4e55 13         poc2   inc  de
759    4e56 dd2b              dec  ix
760    4e58 dd7d              ld   a,xl
761    4e5a ddb4              or   xh
762    4e5c 20e5              jr   nz,poc1
763    4e5e             
764    4e5e 010000            ld   bc,#00
765    4e61 21ffff            ld   hl,#ffff
766    4e64 226b4e            ld   (poc4+1),hl
767    4e67 cd9d4e     poc3   call poc6
768    4e6a 115555     poc4   ld   de,#5555
769    4e6d a7                and  a
770    4e6e ed52              sbc  hl,de
771    4e70 3007              jr   nc,poc5
772    4e72 cd9d4e            call poc6
773    4e75 226b4e            ld   (poc4+1),hl
774    4e78 79                ld   a,c
775    4e79 0c         poc5   inc  c
776    4e7a c2674e            jp   nz,poc3
777    4e7d 210059            ld   hl,tabul
778    4e80 0600              ld   b,#00
779    4e82 3600       poc7   ld   (hl),#00
780    4e84 23                inc  hl
781    4e85 10fb              djnz poc7
782    4e87 3607       poc8   ld   (hl),#07
783    4e89 23                inc  hl
784    4e8a 10fb              djnz poc8
785    4e8c cd4b48            call attr
786    4e8f c1                pop  bc
787    4e90 d1                pop  de
788    4e91 e1                pop  hl
789    4e92 32364f            ld   (byt1+1),a
790    4e95 323c4f            ld   (byt2+1),a
791    4e98 32a54f            ld   (byt3+1),a
792    4e9b 180f              jr   impl
793    4e9d             
794    4e9d dd210059   poc6   ld   ix,tabul
795    4ea1 dd09              add  ix,bc
796    4ea3 dd09              add  ix,bc
797    4ea5 dd6e00            ld   l,(ix+#00)
798    4ea8 dd6601            ld   h,(ix+#01)
799    4eab c9                ret
800    4eac             
801    4eac 7c         impl   ld   a,h
802    4ead b5                or   l
803    4eae 3ec9              ld   a,#c9
804    4eb0 2802              jr   z,impl1
805    4eb2 3ec3              ld   a,#c3
806    4eb4 32c54f     impl1  ld   (idek6-1),a
807    4eb7 22c64f            ld   (idek6),hl
808    4eba 62                ld   h,d
809    4ebb 6b                ld   l,e
810    4ebc e5                push hl
811    4ebd 1a         impl2  ld   a,(de)
812    4ebe 77                ld   (hl),a
813    4ebf 13                inc  de
814    4ec0 08                ex   af,af
815    4ec1 0b                dec  bc
816    4ec2 78                ld   a,b
817    4ec3 b1                or   c
818    4ec4 ca4c4f            jp   z,impl15
819    4ec7 e5                push hl
820    4ec8 c5                push bc
821    4ec9 212108            ld   hl,#0821
822    4ecc ed42              sbc  hl,bc
823    4ece 3003              jr   nc,impl3
824    4ed0 012108            ld   bc,#0821
825    4ed3 62         impl3  ld   h,d
826    4ed4 6b                ld   l,e
827    4ed5 dd2e02            ld   xl,#02
828    4ed8             
829    4ed8 f5         impl4  push af
830    4ed9 ed5f              ld   a,r
831    4edb e602              and  #02
832    4edd d3fe              out  (#fe),a
833    4edf f1                pop  af
834    4ee0 08                ex   af,af
835    4ee1 edb1              cpir
836    4ee3 08                ex   af,af
837    4ee4 37                scf
838    4ee5 e5                push hl
839    4ee6 ed52              sbc  hl,de
840    4ee8 cb5c              bit  3,h
841    4eea e3                ex   (sp),hl
842    4eeb d9                exx
843    4eec c1                pop  bc
844    4eed d9                exx
845    4eee 202a              jr   nz,impl10
846    4ef0 c5                push bc
847    4ef1 d5                push de
848    4ef2 e5                push hl
849    4ef3 78                ld   a,b
850    4ef4 a7                and  a
851    4ef5 3e21              ld   a,#21
852    4ef7 2003              jr   nz,impl5
853    4ef9 b9                cp   c
854    4efa 3001              jr   nc,impl6
855    4efc 4f         impl5  ld   c,a
856    4efd 41         impl6  ld   b,c
857    4efe 04                inc  b
858    4eff 05         impl7  dec  b
859    4f00 2806              jr   z,impl8
860    4f02 1a                ld   a,(de)
861    4f03 be                cp   (hl)
862    4f04 13                inc  de
863    4f05 23                inc  hl
864    4f06 28f7              jr   z,impl7
865    4f08 79         impl8  ld   a,c
866    4f09 90                sub  b
867    4f0a ddbd              cp   xl
868    4f0c 3806              jr   c,impl9
869    4f0e dd6f              ld   xl,a
870    4f10 d9                exx
871    4f11 50                ld   d,b
872    4f12 59                ld   e,c
873    4f13 d9                exx
874    4f14 b9         impl9  cp   c
875    4f15 e1                pop  hl
876    4f16 d1                pop  de
877    4f17 c1                pop  bc
878    4f18 20be              jr   nz,impl4
879    4f1a c1         impl10 pop  bc
880    4f1b e1                pop  hl
881    4f1c dd7d              ld   a,xl
882    4f1e d602              sub  #02
883    4f20 2818              jr   z,impl13
884    4f22 d9                exx
885    4f23 87                add  a,a
886    4f24 87                add  a,a
887    4f25 87                add  a,a
888    4f26 b2                or   d
889    4f27 08                ex   af,af
890    4f28 7b                ld   a,e
891    4f29 d9                exx
892    4f2a 0b         impl11 dec  bc
893    4f2b 13                inc  de
894    4f2c dd2d              dec  xl
895    4f2e 20fa              jr   nz,impl11
896    4f30 77                ld   (hl),a
897    4f31 23                inc  hl
898    4f32 08                ex   af,af
899    4f33 77         impl12 ld   (hl),a
900    4f34 23                inc  hl
901    4f35 369d       byt1   ld   (hl),#9d
902    4f37 23                inc  hl
903    4f38 1883              jr   impl2
904    4f3a 08         impl13 ex   af,af
905    4f3b d69d       byt2   sub  #9d
906    4f3d 23                inc  hl
907    4f3e c2bd4e            jp   nz,impl2
908    4f41 23                inc  hl
909    4f42 ed52              sbc  hl,de
910    4f44 19                add  hl,de
911    4f45 2b                dec  hl
912    4f46 2b                dec  hl
913    4f47 d2cc4c            jp   nc,fatt
914    4f4a 18e7              jr   impl12
915    4f4c    ]ô       
916    4f4c eb         impl15 ex   de,hl
917    4f4d 229b4f            ld   (idek3+1),hl
918    4f50 2b                dec  hl
919    4f51 014300            ld   bc,#41+2
920    4f54 ed42              sbc  hl,bc
921    4f56 ed52              sbc  hl,de
922    4f58 dacc4c            jp   c,fatt
923    4f5b e1                pop  hl
924    4f5c d5                push de
925    4f5d 22934f            ld   (idek1+1),hl
926    4f60 e5                push hl
927    4f61 c5                push bc
928    4f62 010d00            ld   bc,#0d
929    4f65 09                add  hl,bc
930    4f66 22864f            ld   (idek+1),hl
931    4f69 c1                pop  bc
932    4f6a e1                pop  hl
933    4f6b 2b                dec  hl
934    4f6c eb                ex   de,hl
935    4f6d ed52              sbc  hl,de
936    4f6f 22964f            ld   (idek2+1),hl
937    4f72 e5                push hl
938    4f73 09                add  hl,bc
939    4f74 eb                ex   de,hl
940    4f75 19                add  hl,de
941    4f76 eb                ex   de,hl
942    4f77 c1                pop  bc
943    4f78 e3                ex   (sp),hl
944    4f79 edb8              lddr
945    4f7b 014300            ld   bc,#41+2
946    4f7e 21c74f            ld   hl,idek7
947    4f81 edb8              lddr
948    4f83 c1                pop  bc
949    4f84 c9                ret
950    4f85             
951    4f85 215555     idek   ld   hl,#5555
952    4f88 115555     adr    ld   de,#5555
953    4f8b 013600            ld   bc,#34+2
954    4f8e d5                push de
955    4f8f edb0              ldir
956    4f91 c9                ret
957    4f92 115555     idek1  ld   de,#5555
958    4f95 015555     idek2  ld   bc,#5555
959    4f98 edb0              ldir
960    4f9a 215555     idek3  ld   hl,#5555
961    4f9d eb                ex   de,hl
962    4f9e 2b         idek4  dec  hl
963    4f9f 1b                dec  de
964    4fa0 7e                ld   a,(hl)
965    4fa1 d3fe              out  (#fe),a
966    4fa3 12                ld   (de),a
967    4fa4 d69d       byt3   sub  #9d
968    4fa6 20f6              jr   nz,idek4
969    4fa8 2b                dec  hl
970    4fa9 b6                or   (hl)
971    4faa 2814              jr   z,idek5
972    4fac 2b                dec  hl
973    4fad e5                push hl
974    4fae 6e                ld   l,(hl)
975    4faf 4f                ld   c,a
976    4fb0 e607              and  #07
977    4fb2 67                ld   h,a
978    4fb3 23                inc  hl
979    4fb4 19                add  hl,de
980    4fb5 a9                xor  c
981    4fb6 0f                rrca
982    4fb7 0f                rrca
983    4fb8 0f                rrca
984    4fb9 c603              add  a,#03
985    4fbb 4f                ld   c,a
986    4fbc edb8              lddr
987    4fbe 13                inc  de
988    4fbf e1                pop  hl
989    4fc0 ed52       idek5  sbc  hl,de
990    4fc2 19                add  hl,de
991    4fc3 20d9              jr   nz,idek4
992    4fc5 c9                db   #c9
993    4fc6 00         idek6  db   #00
994    4fc7 00         idek7  db   #00
995    4fc8             
996    4fc8            k
997    4fc8            l      =    k-p
998    4fc8            f      =    #0800-l
999    4fc8                   end

 adr    4f88  *  af     4a29  *  all    49be  *  attr   484b  *
 attr1  4853  *  attr2  4858  *  attr3  485d  *  bc     4a37  *
 beep   4c67  *  beep1  4c71  *  beep2  4c6a  *  buf    4992  *
 byt1   4f35  *  byt2   4f3b  *  byt3   4fa4  *  cis1   48e9  *
 cislo  48ea  *  clear  4a75  *  clear1 4a7d  *  cs     4979  *
 cur    4a69  *  cur1   4a83  *  d16    4a3a  *  d8     4a5c  *
 d816   4a51  *  de     4a32  *  defaul 4973  *  del    4a62  *
 delete 4bf4  *  dve    4959  *  enter  4c0d  *  err0   4ce2  *
 err1   4cdc  *  error  4cd5  *  f      0038  *  fatt   4ccc  *
 hl     4a2d  *  hlava  4c4a  *  hodn1  4871  *  hodn2  488b  *
 hodn3  48a0  *  hodn4  48c6  *  hodn5  48d9  *  hodnot 4864  *
 hot    4968  *  hot1   496f  *  hotove 491e  *  idek   4f85  *
 idek1  4f92  *  idek2  4f95  *  idek3  4f9a  *  idek4  4f9e  *
 idek5  4fc0  *  idek6  4fc6  *  idek7  4fc7  *  impl   4eac  *
 impl1  4eb4  *  impl10 4f1a  *  impl11 4f2a  *  impl12 4f33  *
 impl13 4f3a  *  impl15 4f4c  *  impl2  4ebd  *  impl3  4ed3  *
 impl4  4ed8  *  impl5  4efc  *  impl6  4efd  *  impl7  4eff  *
 impl8  4f08  *  impl9  4f14  *  implod 4e2b  *  jedno  4962  *
 k      4fc8  *  key    499c  *  key1   49aa  *  key2   49b6  *
 kkshr  4e2f  *  kshr   4e2b  *  l      07c8  *  len    4c55  *
 mode1  4c8d  *  mode2  4c9a  *  mode3  4caa  *  name   4c4b  *
 nic    4bbf  *  nicc   4bbc  *  nosave 4c40  *  p      4800  *
 pack   4c5b  *  poc1   4e43  *  poc2   4e55  *  poc3   4e67  *
 poc4   4e6a  *  poc5   4e79  *  poc6   4e9d  *  poc7   4e82  *
 poc8   4e87  *  poz    4991  *  print  4a8a  *  prt1   4aae  *
 prt2   4ac9  *  prt3   4ac5  *  save   4b7b  *  save0  4b9b  *
 save1  4ba8  *  sdek   4e03  *  sdek1  4e0f  *  sdek2  4e12  *
 sdek3  4e15  *  sdek4  4e19  *  sdek5  4e1e  *  shr    4cfa  *
 shr1   4d05  *  shr10  4d51  *  shr11  4d53  *  shr12  4d6e  *
 shr13  4d7d  *  shr14  4d81  *  shr15  4d88  *  shr16  4d8c  *
 shr17  4da3  *  shr18  4daf  *  shr19  4dc0  *  shr2   4d08  *
 shr20  4dd1  *  shr21  4de9  *  shr22  4df1  *  shr23  4e01  *
 shr3   4d10  *  shr4   4d15  *  shr5   4d20  *  shr6   4d2e  *
 shr7   4d36  *  shr8   4d45  *  shr9   4d4c  *  shrink 4cec  *
 sp     4832  *  space  4a88  *  spp    4845  *  sppp   4835  *
 stiry  4947  *  str    4c57  *  tabul  5900  *  taf    4a2a  *
 tbc    4a38  *  tcall  4ae2  *  tde    4a33  *  terr0  4b1a  *
 terr1  4b29  *  text   4a1a  *  text1  4a1d  *  tfat   4b36  *
 thl    4a2e  *  timp   4b0d  *  tlengh 4ad9  *  tmode  4ae9  *
 tname  4b59  *  tok    4b60  *  tri    4950  *  tsav   4b50  *
 tsave  4b43  *  tshr   4b00  *  tstart 4ad0  *  twait  4af0  *
 uloz   4cbe  *  vcall  49e8  *  vezmi  4caf  *  vimp   4a0a  *
 vlengh 49df  *  vmode  49f1  *  vshr   49fa  *  vstart 49d6  *
 vstup  48e3  *  vyp    4a53  *  vyp1   4a55  *  x      4ace  *
 y      4acf  *  zmode  4c82  *                                

Bytes:1982  labels:178  errors:0




Popis
Zdroják oblíbeného packeru.

Poznámky
Nic...

Poslal
Busy
Saposoft
???