Copy cass-disk (ccd)

Zdrojový kód

3      5b00            *a
4      5b00            08 "ccd"  Copy kazeta -> disk
5      5b00                   org  #5ccb       19.09.1993
6      5ccb 0131       z      db   >l,disk '
            2d3e6469    
            736b20      
26     5d11 4d61f8            db   "Max"
27     5d14 0104a1            ld   bc,-add
28     5d17 cdf35d            call dvadec
29     5d1a 3e0d              ld   a,#0d
30     5d1c d7                rst  #10
31     5d1d             
32     5d1d cdbe5d     loop   call load
33     5d20 af                xor  a
34     5d21 328c5c            ld   (23692),a
35     5d24 dde5              push ix
36     5d26 e1                pop  hl
37     5d27 0104a1            ld   bc,-add
38     5d2a 09                add  hl,bc
39     5d2b af                xor  a
40     5d2c ac                xor  h
41     5d2d 2053              jr   nz,nie
42     5d2f 7d                ld   a,l
43     5d30 fe13              cp   #13
44     5d32 204e              jr   nz,nie
45     5d34 3afc5e            ld   a,(add)
46     5d37 b7                or   a
47     5d38 2048              jr   nz,nie
48     5d3a             
49     5d3a 3afd5e            ld   a,(hlava)
50     5d3d fe04              cp   #04
51     5d3f 3041              jr   nc,nie
52     5d41 4f                ld   c,a
53     5d42 0600              ld   b,#00
54     5d44 cdf65d            call dec
55     5d47 3e3a              ld   a,':'
56     5d49 d7                rst  #10
57     5d4a 21fd5e     o      ld   hl,hlava
58     5d4d 060a              ld   b,10
59     5d4f 23         mmm    inc  hl
60     5d50 7e                ld   a,(hl)
61     5d51 fe20              cp   ' '
62     5d53 3002              jr   nc,#02
63     5d55 3e1e              ld   a,#1e
64     5d57 fe80              cp   #80
65     5d59 3802              jr   c,#02
66     5d5b 3e1f              ld   a,#1f
67     5d5d d7                rst  #10
68     5d5e 10ef              djnz mmm
69     5d60 ed4b085f          ld   bc,(hlava+11)
70     5d64 cdf35d            call dvadec
71     5d67 ed4b0a5f          ld   bc,(hlava+13)
72     5d6b cdf35d            call dvadec
73     5d6e ed4b0c5f          ld   bc,(hlava+15)
74     5d72 cdf35d            call dvadec
75     5d75 dd21fd5e          ld   ix,add+1
76     5d79 111100            ld   de,17
77     5d7c af                xor  a
78     5d7d cdc204            call #04c2
79     5d80 1832              jr   saved
80     5d82             
81     5d82 af         nie    xor  a
82     5d83 ac                xor  h
83     5d84 2005              jr   nz,ano
84     5d86 7d                ld   a,l
85     5d87 fe02              cp   #02
86     5d89 3892              jr   c,loop
87     5d8b 2b         ano    dec  hl
88     5d8c 2b                dec  hl
89     5d8d 22985d            ld   (len+1),hl
90     5d90 cde85d            call text
91     5d93 54656cef          db   "Telo"
92     5d97 015555     len    ld   bc,#5555
93     5d9a cdf35d            call dvadec
94     5d9d ed4bfc5e          ld   bc,(add)
95     5da1 0600              ld   b,#00
96     5da3 cdf35d            call dvadec
97     5da6 dd21fd5e   telo   ld   ix,add+1
98     5daa ed5b985d          ld   de,(len+1)
99     5dae 3afc5e            ld   a,(add)
100    5db1 cdc204            call #04c2
101    5db4 cde85d     saved  call text
102    5db7 171f00d3          db   23,31,0,"S"
103    5dbb c31d5d            jp   loop
104    5dbe             
105    5dbe dd21fc5e   load   ld   ix,add
106    5dc2 1104a1            ld   de,-add
107    5dc5 af                xor  a
108    5dc6 f3                di
109    5dc7 37                scf
110    5dc8 08                ex   af,af
111    5dc9 3e0e              ld   a,#0e
112    5dcb d3fe              out  (#fe),a
113    5dcd dbfe              in   a,(#fe)
114    5dcf 1f                rra
115    5dd0 cd6505            call #0565
116    5dd3 cd3f05            call #053f
117    5dd6 af                xor  a
118    5dd7 ac                xor  h
119    5dd8 c8                ret  z
120    5dd9 cde85d            call text
121    5ddc 4572726f          db   'Error !!!',13+#80
            72202121    
            218d        
122    5de6 18d6              jr   load
123    5de8             
124    5de8 e1         text   pop  hl
125    5de9 7e                ld   a,(hl)
126    5dea e67f              and  #7f
127    5dec d7                rst  #10
128    5ded cb7e              bit  7,(hl)
129    5def 23                inc  hl
130    5df0 28f7              jr   z,text+1
131    5df2 e9                jp   (hl)
132    5df3             
133    5df3 3e3a       dvadec ld   a,':'
134    5df5 d7                rst  #10
135    5df6 cd2b2d     dec    call #2d2b
136    5df9 c3e32d            jp   #2de3
137    5dfc            k
138    5dfc            l      =    k-z
139    5dfc            add    =    k+#0100
140    5dfc            hlava  =    add+1
141    5dfc            ff     =    -add
142    5dfc             
143    5dfc                   org  #5b00
144    5b00 dd21175b   s      ld   ix,head
145    5b04 111100            ld   de,#11
146    5b07 af                xor  a
147    5b08 cdc604            call #04c6
148    5b0b dd21cb5c          ld   ix,z
149    5b0f 113101            ld   de,l
150    5b12 3eff              ld   a,#ff
151    5b14 c3c604            jp   #04c6
152    5b17             
153    5b17 00         head   db   #00
154    5b18 63636420          db   'ccd       '
            20202020    
            2020        
155    5b22 31013101          dw   l,l,l
            3101        

 add    5efc  *  ano    5d8b  *  dec    5df6  *  dvadec 5df3  *
 ff     a104  *  head   5b17  *  hlava  5efd  *  k      5dfc  *
 l      0131  *  len    5d97  *  load   5dbe  *  loop   5d1d  *
 mmm    5d4f  *  nie    5d82  *  o      5d4a  *  p      5cd8  *
 s      5b00  *  saved  5db4  *  telo   5da6  *  text   5de8  *
 z      5ccb  *                                                

Bytes:345  labels:21  errors:0   

3      5b00            *a
4      5b00                                   01 "scd"  Copy kazeta -> disk
5      5b00                   org  #4000      20.01.94 Na dlhe bloky max: ff
6      4000 21c000     z      ld   hl,#c0     error
7      4003 110004            ld   de,#0400
8      4006 cdb503            call #03b5
9      4009 319140     loop   ld   sp,add
10     400c cda43c            call 15524
11     400f dd219140   load   ld   ix,add
12     4013 116fbf            ld   de,-add
13     4016 af                xor  a
14     4017 f3                di
15     4018 37                scf
16     4019 08                ex   af,af
17     401a 3e0e              ld   a,#0e
18     401c d3fe              out  (#fe),a
19     401e dbfe              in   a,(#fe)
20     4020 1f                rra
21     4021 cd6505            call #0565
22     4024 af                xor  a
23     4025 ac                xor  h                   parita
24     4026 20d8              jr   nz,z
25     4028 d3fe              out  (#fe),a
26     402a dde5              push ix
27     402c e1                pop  hl
28     402d 016fbf            ld   bc,-add
29     4030 09                add  hl,bc
30     4031 ac                xor  h
31     4032 2005              jr   nz,ano
32     4034 7d                ld   a,l
33     4035 fe02              cp   #02
34     4037 38d0              jr   c,loop
35     4039 2b         ano    dec  hl
36     403a 2b                dec  hl
37     403b eb                ex   de,hl
38     403c dd219240          ld   ix,add+1            de=len
39     4040 3a9140            ld   a,(add)
40     4043 cdc604            call #04c6               ok
41     4046 210004            ld   hl,#0400
42     4049 111000            ld   de,#10
43     404c cdb503            call #03b5
44     404f 18b8              jr   loop
45     4051            k
46     4051            l      =    k-z
47     4051            add    =    k+#40
48     4051            ff     =    -add
49     4051             
50     4051                   org  #5b00
51     5b00 dd21175b   s      ld   ix,head
52     5b04 111100            ld   de,#11
53     5b07 af                xor  a
54     5b08 cdc604            call #04c6
55     5b0b dd210040          ld   ix,z
56     5b0f 115100            ld   de,l
57     5b12 3eff              ld   a,#ff
58     5b14 c3c604            jp   #04c6
59     5b17             
60     5b17 00         head   db   #00
61     5b18 73636420          db   'scd       '
            20202020    
            2020        
62     5b22 51005100          dw   l,l,l
            5100        

 add    4091  *  ano    4039  *  ff     bf6f  *  head   5b17  *
 k      4051  *  l      0051  *  load   400f  *  loop   4009  *
 s      5b00  *  z      4000  *                                

Bytes:121  labels:10  errors:0   





Popis
Utilitka pro kopírování z kazet na disk.

Poznámky
Nic...

Poslal
Busy