Copy disk-disk

Zdrojový kód

3      5b00            *s
4      5b00            ;==============================================================;
5      5b00            ;== Verzia ** == Copy disk->disk ==  28.07.1996 = Busy soft ==;
6      5b00            ;==============================================================;
7      5b00            *z!
8      5b00            verzia =    44
9      5b00                   org  #4000               "cdd"
10     4000             
11     4000 f3         z      di
12     4001 cd9e45            call outver
13     4004 ed73a041          ld   (retsp+1),sp
14     4008 219e45            ld   hl,memory
15     400b 22fd40            ld   (poke+1),hl
16     400e 3eff              ld   a,#ff
17     4010 323a5c            ld   (23610),a
18     4013 2a3d5c            ld   hl,(23613)
19     4016 e5                push hl
20     4017 cd3040            call param
21     401a e1                pop  hl
22     401b 223d5c            ld   (23613),hl
23     401e 3a3a5c            ld   a,(23610)
24     4021 fe0b              cp   #0b                 Nonsense in basic ?
25     4023 ca9b43            jp   z,help
26     4026 3c                inc  a
27     4027 c25800            jp   nz,#58              ina chyba
28     402a cd0d41            call dnu
29     402d c3d441            jp   run
30     4030             
31     4030 ed733d5c   param  ld   (23613),sp
32     4034 df                rst  #18
33     4035 fe3a              cp   ':'
34     4037 2802              jr   z,getlll
35     4039 cf         synerr rst  #08
36     403a 0b                db   #0b                 "Nonsense in basic"
37     403b             
38     403b e7         getlll rst  #20
39     403c 010100     getloo ld   bc,#01
40     403f ed43c240          ld   (zacint+1),bc
41     4043 df                rst  #18
42     4044 fe27              cp   '''
43     4046 2859              jr   z,apostr
44     4048 cd5a40            call item                prvy parameter
45     404b ed43c240          ld   (zacint+1),bc
46     404f ed43c540          ld   (endint+1),bc
47     4053 df                rst  #18
48     4054 fe27              cp   '''
49     4056 2849              jr   z,apostr
50     4058 1867              jr   pokint
51     405a             
52     405a cdfb24     item   call #24fb
53     405d fdcb0176          bit  6,(iy+#01)
54     4061 2808              jr   z,retaz
55     4063 cd991e     cislo  call #1e99
56     4066 78                ld   a,b
57     4067 b1                or   c
58     4068 c0                ret  nz
59     4069 cf                rst  #08
60     406a 09                db   #09                 "Invalid argument"
61     406b             
62     406b cdf12b     retaz  call #2bf1               de=adresa,bc=dlzka
63     406e 21dc45            ld   hl,buff
64     4071 dd260a            ld   xh,10
65     4074 e5                push hl
66     4075 1a         reta1  ld   a,(de)
67     4076 77                ld   (hl),a
68     4077 78                ld   a,b
69     4078 b1                or   c
70     4079 2003              jr   nz,#03
71     407b 3620              ld   (hl),#20
72     407d 03                inc  bc
73     407e 0b                dec  bc
74     407f 13                inc  de
75     4080 23                inc  hl
76     4081 dd25              dec  xh
77     4083 20f0              jr   nz,reta1
78     4085 e1                pop  hl
79     4086 1eff              ld   e,#ff
80     4088 3e19              ld   a,seasx
81     408a cd9940            call doscal
82     408d 2802              jr   z,naslo
83     408f cf                rst  #08
84     4090 0e                db   #0e                 Invalid file name
85     4091             
86     4091 3e12       naslo  ld   a,getcst
87     4093 cd9940            call doscal
88     4096 4d                ld   c,l                 load kurzor
89     4097 44                ld   b,h
90     4098 c9                ret
91     4099             
92     4099 cda03c     doscal call xrom
93     409c 2000              dw   #20
94     409e d8                ret  c
95     409f cf         doserr rst  #08
96     40a0 0c                db   #0c                 "Break - cont repeats"
97     40a1             
98     40a1 3e18       apostr ld   a,kolkox
99     40a3 cd9940            call doscal
100    40a6 1b                dec  de
101    40a7 ed53c540          ld   (endint+1),de
102    40ab e7                rst  #20
103    40ac fe2c              cp   ','
104    40ae 2811              jr   z,pokint
105    40b0 fe3b              cp   ';'
106    40b2 280d              jr   z,pokint
107    40b4 cd5a40            call item                druhy parameter
108    40b7 ed43c540          ld   (endint+1),bc
109    40bb df                rst  #18
110    40bc fe27              cp   '''
111    40be ca3940            jp   z,synerr
112    40c1            pokint
113    40c1 015555     zacint ld   bc,#5555
114    40c4 115555     endint ld   de,#5555
115    40c7 62         looint ld   h,d
116    40c8 6b                ld   l,e
117    40c9 ed42              sbc  hl,bc
118    40cb 3806              jr   c,getnxt
119    40cd cdfc40            call poke
120    40d0 03                inc  bc
121    40d1 18f4              jr   looint
122    40d3             
123    40d3 df         getnxt rst  #18
124    40d4 fe2c              cp   ','
125    40d6 ca3b40            jp   z,getlll
126    40d9 d63b              sub  ';'
127    40db c23940            jp   nz,synerr
128    40de 47         getend ld   b,a
129    40df 4f                ld   c,a
130    40e0 cdfc40            call poke
131    40e3 221441            ld   (bufb1+1),hl
132    40e6 cd791c            call #1c79
133    40e9 cd941e            call #1e94
134    40ec 323f43            ld   (dest+2),a          cielovy adresar
135    40ef cd941e            call #1e94
136    40f2 323e43            ld   (dest+1),a          cielovy disk
137    40f5 df                rst  #18
138    40f6 cd4820            call #2048               enter alebo dvojbodka
139    40f9 c8                ret  z
140    40fa cf                rst  #08                 "Nonsense in basic"
141    40fb 0b                db   #0b
142    40fc             
143    40fc 219e45     poke   ld   hl,memory
144    40ff eb                ex   de,hl
145    4100 79                ld   a,c
146    4101 cd4241            call uloz
147    4104 78                ld   a,b
148    4105 cd4241            call uloz
149    4108 eb                ex   de,hl
150    4109 22fd40            ld   (poke+1),hl
151    410c c9                ret
152    410d                                            ----------------
153    410d 2ab25c     dnu    ld   hl,(23730)          Odlozenie basicu
154    4110 224e41            ld   (von+1),hl
155    4113 115555     bufb1  ld   de,#5555
156    4116 ed535141          ld   (bufb2+1),de
157    411a 7e         odloz  ld   a,(hl)
158    411b cd4241            call uloz
159    411e 7e                ld   a,(hl)
160    411f b7                or   a
161    4120 2011              jr   nz,nenula
162    4122 4f                ld   c,a
163    4123 0c         nula   inc  c
164    4124 280a              jr   z,vela
165    4126 2b                dec  hl
166    4127 b6                or   (hl)
167    4128 28f9              jr   z,nula
168    412a 79                ld   a,c
169    412b cd4241            call uloz
170    412e 1804              jr   cpkon
171    4130             
172    4130 cd4241     vela   call uloz
173    4133 2b         nenula dec  hl
174    4134 7c         cpkon  ld   a,h
175    4135 fe5c              cp   h5c
176    4137 30e1              jr   nc,odloz
177    4139 13                inc  de
178    413a 13                inc  de
179    413b ed534f42          ld   (zacram),de
180    413f c9                ret
181    4140             
182    4140 cf         nomem  rst  #08                 "Out of memory"
183    4141 03                db   #03
184    4142             
185    4142 12         uloz   ld   (de),a
186    4143 1a         vezmi  ld   a,(de)
187    4144 13                inc  de
188    4145 f5                push af
189    4146 7a                ld   a,d
190    4147 fe5c              cp   #5c
191    4149 30f5              jr   nc,nomem
192    414b f1                pop  af
193    414c c9                ret
194    414d             
195    414d 215555     von    ld   hl,#5555            Obnovenie basicu
196    4150 115555     bufb2  ld   de,#5555
197    4153 cd4341     obnov  call vezmi
198    4156 b7                or   a
199    4157 200b              jr   nz,nezero
200    4159 cd4341            call vezmi
201    415c 47                ld   b,a
202    415d 3600       zero   ld   (hl),#00
203    415f 2b                dec  hl
204    4160 10fb              djnz zero
205    4162 1802              jr   cpend
206    4164             
207    4164 77         nezero ld   (hl),a
208    4165 2b                dec  hl
209    4166 7c         cpend  ld   a,h
210    4167 fe5c              cp   h5c
211    4169 30e8              jr   nc,obnov
212    416b c9                ret
213    416c                                            -------------
214    416c 1e00       koniec ld   e,#00
215    416e 3e11              ld   a,setoff
216    4170 df                rst  #18
217    4171 cd4a42            call msave
218    4174 cd3d43            call dest
219    4177 3ec9       basic  ld   a,#c9
220    4179 06                db   #06
221    417a af         error  xor  a
222    417b 32a441            ld   (baserr),a
223    417e 21e303            ld   hl,optio
224    4181 cbbe              res  7,(hl)
225    4183 cda741            call off
226    4186 cd983c            call rom
227    4189 cd4d41            call von
228    418c 3a485c            ld   a,(23624)
229    418f 0f                rrca
230    4190 0f                rrca
231    4191 0f                rrca
232    4192 e607              and  #07
233    4194 f608              or   #08
234    4196 d3fe              out  (#fe),a
235    4198 fd213a5c          ld   iy,#5c3a
236    419c 215827            ld   hl,#2758
237    419f 315555     retsp  ld   sp,#5555
238    41a2 d9                exx
239    41a3 fb                ei
240    41a4 c9         baserr ret
241    41a5 cf                rst  #08
242    41a6 0c         chyba  db   #0c
243    41a7             
244    41a7 1e00       off    ld   e,#00
245    41a9 3e11              ld   a,setoff
246    41ab df                rst  #18
247    41ac 3e0d              ld   a,pasive
248    41ae df                rst  #18
249    41af c9                ret
250    41b0             
251    41b0 e5         print  push hl
252    41b1 cda741            call off
253    41b4 e1                pop  hl
254    41b5 ed5b1e43          ld   de,(booadd+1)
255    41b9 1ee0              ld   e,#e0
256    41bb 012000            ld   bc,#20
257    41be d5                push de
258    41bf edb0              ldir
259    41c1 e1                pop  hl
260    41c2 3e08              ld   a,#08
261    41c4 d3fe              out  (#fe),a
262    41c6 3e34              ld   a,messx
263    41c8 cd9e3c     dos    call ram
264    41cb e7                rst  #20
265    41cc d8                ret  c
266    41cd 3e0c       break  ld   a,#0c
267    41cf 32a641            ld   (chyba),a
268    41d2 18a6              jr   error
269    41d4             
270    41d4 f3         run    di
271    41d5 af                xor  a
272    41d6 325242            ld   (pocet+1),a
273    41d9 3e18              ld   a,#18               jr ...
274    41db 324643            ld   (fisec),a
275    41de 319e45            ld   sp,memory
276    41e1 cd9e3c            call ram
277    41e4 1eff              ld   e,#ff
278    41e6 3e11              ld   a,setoff
279    41e8 df                rst  #18
280    41e9 3e12              ld   a,getcst
281    41eb cdc841            call dos
282    41ee ed532c43          ld   (surc+1),de
283    41f2 af                xor  a                   verzia
284    41f3 e7                rst  #20
285    41f4 dde5              push ix
286    41f6 e1                pop  hl
287    41f7 221e43            ld   (booadd+1),hl
288    41fa 119b43            ld   de,bufss            boot sektory do bufferov
289    41fd 016000            ld   bc,#60
290    4200 c5                push bc
291    4201 e5                push hl
292    4202 edb0              ldir
293    4204 e1                pop  hl
294    4205 c1                pop  bc
295    4206 edb0              ldir
296    4208 dd2a4f42          ld   ix,(zacram)
297    420c fd219e45          ld   iy,memory
298    4210 fd4e00     cploop ld   c,(iy+#00)
299    4213 fd4601            ld   b,(iy+#01)
300    4216 78                ld   a,b
301    4217 b1                or   c
302    4218 ca6c41            jp   z,koniec
303    421b fde5              push iy
304    421d cd9542            call load
305    4220 fde1              pop  iy
306    4222 3020              jr   nc,este
307    4224 ed4b4f42          ld   bc,(zacram)         Ak hned prvy subor v pameti
308    4228 dde5              push ix                  hlasi OUT OF MEMORY, je zle
309    422a e1                pop  hl
310    422b ed42              sbc  hl,bc
311    422d 21a641            ld   hl,chyba
312    4230 3603              ld   (hl),#03
313    4232 ca7a41            jp   z,error
314    4235 360c              ld   (hl),#0c
315    4237 fde5              push iy
316    4239 cd4a42            call msave
317    423c fde1              pop  iy
318    423e dd2a4f42          ld   ix,(zacram)
319    4242 18cc              jr   cploop
320    4244             
321    4244 fd23       este   inc  iy
322    4246 fd23              inc  iy
323    4248 18c6              jr   cploop
324    424a             
325    424a cd3d43     msave  call dest                Save vsetkych suborov v pameti
326    424d dd21              db   #dd,#21
327    424f 5555       zacram dw   #5555
328    4251 3e55       pocet  ld   a,#55
329    4253 b7                or   a
330    4254 c8                ret  z
331    4255 47                ld   b,a
332    4256 c5         msloo  push bc
333    4257 dde5              push ix
334    4259 cd6942            call save
335    425c dde1              pop  ix
336    425e c1                pop  bc
337    425f cd0043            call next
338    4262 10f2              djnz msloo
339    4264 af                xor  a
340    4265 325242            ld   (pocet+1),a
341    4268 c9                ret
342    4269             
343    4269 dde5       save   push ix                  ix=adresa
344    426b 3e0a              ld   a,#0a
345    426d d3fe              out  (#fe),a
346    426f 3e26              ld   a,creatx
347    4271 cdc841            call dos
348    4274 dde1              pop  ix
349    4276 e5                push hl
350    4277 dd6e18            ld   l,(ix+0+lenb)
351    427a dd6619            ld   h,(ix+1+lenb)
352    427d 012000            ld   bc,#20
353    4280 dd09              add  ix,bc
354    4282 50                ld   d,b
355    4283 58                ld   e,b
356    4284 3e0f              ld   a,howsec
357    4286 e7                rst  #20
358    4287 21e303            ld   hl,optio
359    428a cbfe              set  7,(hl)
360    428c e1                pop  hl
361    428d 59                ld   e,c
362    428e 4a                ld   c,d
363    428f 42                ld   b,d                 Save suboru
364    4290 3e25              ld   a,savex
365    4292 c3c841            jp   dos
366    4295             
367    4295 dde5       load   push ix                  ix=adresa
368    4297 c5                push bc                  bc=cislo file
369    4298 cd2b43            call surc
370    429b c1                pop  bc                  ix=dalsia adresa
371    429c dde1              pop  ix                  nc=ok,cy=outmem
372    429e dd22b942          ld   (subadd+2),ix
373    42a2 ed43ec42          ld   (subnum+1),bc
374    42a6 112000            ld   de,#20              menej ako #20 bajtov pameti
375    42a9 dde5              push ix
376    42ab e1                pop  hl
377    42ac 19                add  hl,de
378    42ad d8                ret  c
379    42ae 3e09              ld   a,#09
380    42b0 d3fe              out  (#fe),a
381    42b2 3e16              ld   a,getsub
382    42b4 cdc841            call dos
383    42b7 dd215555   subadd ld   ix,#5555            adresa sub polozky
384    42bb 3e80              ld   a,#80
385    42bd ddbe00            cp   (ix+info)           Identifikacia > #81
386    42c0 d0                ret  nc
387    42c1 dd7e1a            ld   a,(ix+2+lenb)
388    42c4 ddb61b            or   (ix+3+lenb)
389    42c7 37                scf                      len = >65536
390    42c8 c0                ret  nz
391    42c9 012000            ld   bc,#20
392    42cc dd5e18            ld   e,(ix+0+lenb)
393    42cf dd5619            ld   d,(ix+1+lenb)
394    42d2 2ab942            ld   hl,(subadd+2)
395    42d5 09                add  hl,bc               32 bajtov sub polozka
396    42d6 d8                ret  c
397    42d7 19                add  hl,de               ?? bajtov samotne file
398    42d8 d8                ret  c
399    42d9 eb                ex   de,hl
400    42da 110000            ld   de,#00              Load suboru
401    42dd 3e0f              ld   a,howsec
402    42df e7                rst  #20                 bc=sektory
403    42e0 59                ld   e,c
404    42e1 012000            ld   bc,#20
405    42e4 dd2ab942          ld   ix,(subadd+2)
406    42e8 dd09              add  ix,bc
407    42ea 48                ld   c,b
408    42eb 215555     subnum ld   hl,#5555
409    42ee 3e23              ld   a,loa2x
410    42f0 cdc841            call dos
411    42f3 dd2ab942          ld   ix,(subadd+2)
412    42f7 215242            ld   hl,pocet+1
413    42fa 34                inc  (hl)
414    42fb cd0043            call next
415    42fe af                xor  a
416    42ff c9                ret
417    4300             
418    4300 dd5e18     next   ld   e,(ix+0+lenb)       ix=adresa dalsieho file
419    4303 dd5619            ld   d,(ix+1+lenb)
420    4306 dd19              add  ix,de
421    4308 112000            ld   de,#20
422    430b dd19              add  ix,de
423    430d c9                ret
424    430e                                            ------------
425    430e e5         setcst push hl                  hl=buffer s bootom
426    430f d5                push de                  e=disk,d=adresar
427    4310 3e13              ld   a,setdrv
428    4312 cdc841            call dos                 Nastavi cestu
429    4315 d1                pop  de                  a kukne, ci je to spravny disk
430    4316 5a                ld   e,d
431    4317 3e14              ld   a,setdir
432    4319 cdc841            call dos
433    431c e1                pop  hl
434    431d 115555     booadd ld   de,#5555            adresa bootu v dose
435    4320 016000     cpi    ld   bc,#60
436    4323 1a         loo    ld   a,(de)
437    4324 13                inc  de
438    4325 eda1              cpi
439    4327 c0                ret  nz
440    4328 e0                ret  po
441    4329 18f8              jr   loo
442    432b             
443    432b 115555     surc   ld   de,#5555            zdroj
444    432e 219b43            ld   hl,bufss
445    4331 cd0e43            call setcst
446    4334 c8                ret  z
447    4335 217443            ld   hl,inssur
448    4338 cdb041            call print
449    433b 18ee              jr   surc
450    433d             
451    433d 115555     dest   ld   de,#5555            ciel
452    4340 21fb43            ld   hl,bufdd
453    4343 cd0e43            call setcst
454    4346 1809       fisec  jr   first
455    4348 c8                ret  z
456    4349 218843            ld   hl,insdes
457    434c cdb041            call print
458    434f 18ec              jr   dest
459    4351             
460    4351 3e3e       first  ld   a,#3e
461    4353 324643            ld   (fisec),a
462    4356 280c              jr   z,toiste
463    4358 2a1e43     ldiboo ld   hl,(booadd+1)
464    435b 11fb43            ld   de,bufdd
465    435e 016000            ld   bc,#60
466    4361 edb0              ldir
467    4363 c9                ret
468    4364             
469    4364 218843     toiste ld   hl,insdes
470    4367 cdb041            call print
471    436a 3e10              ld   a,kukni
472    436c cdc841            call dos
473    436f cd5843            call ldiboo
474    4372 18c9              jr   dest
475    4374             
476    4374 496e7365   inssur db   'Insert source '
            72742073    
            6f757263    
            6520        
477    4382 6469736b          db   'disk',#00,#c9
            00c9        
478    4388 496e7365   insdes db   'Insert dest. '
            72742064    
            6573742e    
            20          
479    4395 6469736b          db   'disk',#00,#c9
            00c9        
480    439b             
481    439b            end                             Koniec vykonnej casti
482    439b             
483    439b cdb016     help   call #16b0               Help v pripade zlych parametrov
484    439e fd3600ff          ld   (iy+#00),#ff
485    43a2 ed7b3d5c          ld   sp,(23613)
486    43a6 01d101            ld   bc,ttl
487    43a9 f7                rst  #30
488    43aa 21cd43            ld   hl,ttz
489    43ad 01d101            ld   bc,ttl
490    43b0 c5                push bc
491    43b1 d5                push de
492    43b2 edb0              ldir
493    43b4             
494    43b4 21c343            ld   hl,hlpout
495    43b7 11925c            ld   de,miesto
496    43ba 010a00            ld   bc,ttz-hlpout
497    43bd d5                push de
498    43be edb0              ldir
499    43c0 c36b0d            jp   #0d6b
500    43c3             
501    43c3            miesto =    #5c92               membot
502    43c3 3e02       hlpout ld   a,#02
503    43c5 cd0116            call #1601
504    43c8 d1                pop  de
505    43c9 c1                pop  bc
506    43ca c33c20            jp   #203c
507    43cd             
508    43cd 42757379   ttz    db   'Busy soft: MB-'
            20736f66    
            743a204d    
            422d        
509    43db 3032ff64          db   '02',#ff,'disk-'
            69736b2d    
510    43e3 3e646973          db   '>disk',#0d,#0d
            6b0d0d      
511    43ea 486f7720          db   'How to use:',#0d
            746f2075    
            73653a0d    
512    43f6 e6226364          db   #e6,'"cdd":File'
            64223a46    
            696c65      
513    4401 4c697374          db   'List;NewPath',#0d
            3b4e6577    
            50617468    
            0d          
514    440e 0d4e6577          db   #0d,'NewPath = '
            50617468    
            203d20      
515    4419 64726976          db   'drive,director'
            652c6469    
            72656374    
            6f72        
516    4427 790d4669          db   'y',#0d,'FileLi'
            6c654c69    
517    442f 7374203d          db   'st = item<,ite'
            20697465    
            6d3c2c69    
            7465        
518    443d 6d3e3c2c          db   'm><,item>...',#0d
            6974656d    
            3e2e2e2e    
            0d          
519    444a 4974656d          db   'Item = P1   '
            203d2050    
            31202020    
520    4456 286e756d          db   '(number or '
            62657220    
            6f7220      
521    4461 6e616d65          db   'name)',#0d
            290d        
522    4467 28706f69          db   '(pointer to one '
            6e746572    
            20746f20    
            6f6e6520    
523    4477 73656c65          db   'selected file)'
            63746564    
            2066696c    
            6529        
524    4485 0d497465          db   #0d,'Item = P1',#27
            6d203d20    
            503127      
525    4490 50320d28          db   'P2',#0d,'(sele'
            73656c65    
526    4498 63746564          db   'cted files fro'
            2066696c    
            65732066    
            726f        
527    44a6 6d205031          db   'm P1 to P2)',#0d
            20746f20    
            5032290d    
528    44b2 4974656d          db   'Item = ',#27,'P'
            203d2027    
            50          
529    44bb 320d2873          db   '2',#0d,'(selec'
            656c6563    
530    44c3 74206672          db   't from first f'
            6f6d2066    
            69727374    
            2066        
531    44d1 696c6520          db   'ile to P2)',#0d
            746f2050    
            32290d      
532    44dc 4974656d          db   'Item = P1',#27
            203d2050    
            3127        
533    44e6 0d286672          db   #0d,'(from P1 t'
            6f6d2050    
            312074      
534    44f1 6f20656e          db   'o end of direc'
            64206f66    
            20646972    
            6563        
535    44ff 746f7279          db   'tory)',#0d,'It'
            290d4974    
536    4507 656d203d          db   'em = ',#27,#0d
            20270d      
537    450e 2873656c          db   '(select all fi'
            65637420    
            616c6c20    
            6669        
538    451c 6c657320          db   'les in directo'
            696e2064    
            69726563    
            746f        
539    452a 7279290d          db   'ry)',#0d,#0d,'E'
            0d45        
540    4530 78616d70          db   'xample:',#e6,'"'
            6c653ae6    
            22          
541    4539 63646422          db   'cdd":2,5',#27
            3a322c35    
            27          
542    4542 383b332c          db   '8;3,20',#0d,'.'
            32300d2e    
543    454a 2e2e636f          db   '..copy the fil'
            70792074    
            68652066    
            696c        
544    4558 65732032          db   'es 2,5,6,7,8',#0d
            2c352c36    
            2c372c38    
            0d          
545    4565 20202066          db   '   from actual'
            726f6d20    
            61637475    
            616c        
546    4573 20646972          db   ' directory',#0d
            6563746f    
            72790d      
547    457e 20202069          db   '   into direct'
            6e746f20    
            64697265    
            6374        
548    458c 6f727920          db   'ory 20 of disk'
            3230206f    
            66206469    
            736b        
549    459a 20332e0d          db   ' 3.',#0d
550    459e            tte
551    459e            ttl    =    tte-ttz
552    459e             
553    459e cd9e3c     outver call ram
554    45a1 21e003            ld   hl,#03e0
555    45a4 1e00              ld   e,#00
556    45a6 73                ld   (hl),e
557    45a7 2c                inc  l
558    45a8 3617              ld   (hl),#17
559    45aa 2c                inc  l
560    45ab cbf6              set  6,(hl)
561    45ad 3e0c              ld   a,sddx
562    45af e7                rst  #20
563    45b0 21bc45            ld   hl,hlava
564    45b3 3e04              ld   a,txxt
565    45b5 e7                rst  #20
566    45b6 3e02              ld   a,enter
567    45b8 e7                rst  #20
568    45b9 c3983c            jp   rom
569    45bc             
570    45bc 2034386b   hlava  db   ' 48k copy '
            20636f70    
            7920        
571    45c6 6469736b          db   'disk->disk '
            2d3e6469    
            736b20      
572    45d1 76657273          db   'version ',vv1,vv2
            696f6e20    
            3434        
573    45db 00                nop
574    45dc            k
575    45dc            l      =    k-z
576    45dc            buff                            10 bajtov pre retazec
577    45dc            bufss  =    end+#00             boot zdrojovej diskety
578    45dc            bufdd  =    end+#60             boot  cielovej diskety
579    45dc            memory =    tte
580    45dc            aa1    =    verzia/10
581    45dc            aa2    =    aa1*10
582    45dc            aa3    =    verzia-aa2
583    45dc            vv1    =    aa1+'0'
584    45dc            vv2    =    aa3+'0'
585    45dc             
586    45dc            rom    =    #3c98
587    45dc            ram    =    #3c9e
588    45dc            xrom   =    #3ca0
589    45dc            xxx    =    #03e0
590    45dc            optio  =    #03e3
591    45dc            actual =    #03e4
592    45dc            h5c    =    #5c
593    45dc             
594    45dc            pasive =    #0d                 Sluzby biosu
595    45dc            setoff =    #11
596    45dc             
597    45dc            enter  =    #02                 Sluzby dosu
598    45dc            txxt   =    #04
599    45dc            sddx   =    #0c
600    45dc            kukni  =    #10
601    45dc            howsec =    #0f
602    45dc            getcst =    #12
603    45dc            setdrv =    #13
604    45dc            setdir =    #14
605    45dc            getsub =    #16
606    45dc            kolkox =    #18
607    45dc            seasx  =    #19
608    45dc            loa1x  =    #22
609    45dc            loa2x  =    #23
610    45dc            verix  =    #24
611    45dc            savex  =    #25
612    45dc            creatx =    #26
613    45dc            messx  =    #34
614    45dc             
615    45dc                   org  #00
616    0000            info   ds   #05
617    0005            type   ds   #11
618    0016            addb   ds   #02
619    0018            lenb   ds   #04
620    001c                   ds   #04
621    0020             
622    0020                   org  #5b00               !!! Poke iba pre MRS 09.2 !!!
623    5b00 21105b     m      ld   hl,oo
624    5b03 1144ff            ld   de,#ff44
625    5b06 010c00            ld   bc,12
626    5b09 ed533ff7          ld   (#f73f),de
627    5b0d edb0              ldir
628    5b0f c9                ret
629    5b10 cd8dca     oo     call #ca8d
630    5b13 210008            ld   hl,#0800
631    5b16 22e6fd            ld   (#fde6),hl
632    5b19 c9                ret

 aa1    0004  *  aa2    0028  *  aa3    0004  *  actual 03e4  *
 addb   0016  *  apostr 40a1  *  baserr 41a4  *  basic  4177  *
 booadd 431d  *  break  41cd  *  bufb1  4113  *  bufb2  4150  *
 bufdd  43fb  *  buff   45dc  *  bufss  439b  *  chyba  41a6  *
 cislo  4063  *  cpend  4166  *  cpi    4320  *  cpkon  4134  *
 cploop 4210  *  creatx 0026  *  dest   433d  *  dnu    410d  *
 dos    41c8  *  doscal 4099  *  doserr 409f  *  end    439b  *
 endint 40c4  *  enter  0002  *  error  417a  *  este   4244  *
 first  4351  *  fisec  4346  *  getcst 0012  *  getend 40de  *
 getlll 403b  *  getloo 403c  *  getnxt 40d3  *  getsub 0016  *
 h5c    005c  *  help   439b  *  hlava  45bc  *  hlpout 43c3  *
 howsec 000f  *  info   0000  *  insdes 4388  *  inssur 4374  *
 item   405a  *  k      45dc  *  kolkox 0018  *  koniec 416c  *
 kukni  0010  *  l      05dc  *  ldiboo 4358  *  lenb   0018  *
 loa1x  0022  *  loa2x  0023  *  load   4295  *  loo    4323  *
 looint 40c7  *  m      5b00  *  memory 459e  *  messx  0034  *
 miesto 5c92  *  msave  424a  *  msloo  4256  *  naslo  4091  *
 nenula 4133  *  next   4300  *  nezero 4164  *  nomem  4140  *
 nula   4123  *  obnov  4153  *  odloz  411a  *  off    41a7  *
 oo     5b10  *  optio  03e3  *  outver 459e  *  param  4030  *
 pasive 000d  *  pocet  4251  *  poke   40fc  *  pokint 40c1  *
 print  41b0  *  ram    3c9e  *  reta1  4075  *  retaz  406b  *
 retsp  419f  *  rom    3c98  *  run    41d4  *  save   4269  *
 savex  0025  *  sddx   000c  *  seasx  0019  *  setcst 430e  *
 setdir 0014  *  setdrv 0013  *  setoff 0011  *  subadd 42b7  *
 subnum 42eb  *  surc   432b  *  synerr 4039  *  toiste 4364  *
 tte    459e  *  ttl    01d1  *  ttz    43cd  *  txxt   0004  *
 type   0005  *  uloz   4142  *  vela   4130  *  verix  0024  *
 verzia 002c  *  vezmi  4143  *  von    414d  *  vv1    0034  *
 vv2    0034  *  xrom   3ca0  *  xxx    03e0  *  z      4000  *
 zacint 40c1  *  zacram 424f  *  zero   415d  *                

Bytes:1526  labels:123  errors:0   





Popis
Základní systémová utilitka na MB02. Kopíruje mezi diskovými zařízeními. Ovládá se z příkazové řádky !!!

Poznámky
Nic...

Poslal
Busy