1556
|
1 * Patches Level I Ver. 2
|
|
2 * CCDisk to read, write
|
|
3 * and format both single
|
|
4 * and double sided disks
|
|
5 * Rainbow, Oct '88, p 157
|
|
6 t
|
|
7 tmode .1 -pause
|
|
8 save /d0/ccdisk ccdisk
|
|
9 debug
|
|
10 lccdisk
|
|
11 . .+7
|
|
12 =80
|
1557
|
13 $load /d0/ccdisk
|
1556
|
14 lccdisk
|
|
15 . .+3
|
|
16 =82
|
|
17 lccdisk
|
|
18 . .+1c9
|
|
19 =16
|
|
20 =01
|
|
21 =84
|
|
22 lccdisk
|
|
23 . .+1f8
|
|
24 =5f
|
|
25 =17
|
|
26 =01
|
|
27 =76
|
|
28 lccdisk
|
|
29 . .+2ae
|
|
30 =e6
|
|
31 =c9
|
|
32 =00
|
|
33 =a9
|
|
34 =16
|
|
35 =00
|
|
36 =8c
|
|
37 =12
|
|
38 =23
|
|
39 =02
|
|
40 lccdisk
|
|
41 . .+2dd
|
|
42 =40
|
|
43 =12
|
|
44 =12
|
|
45 =12
|
|
46 =17
|
|
47 =00
|
|
48 =90
|
|
49 . .+3
|
|
50 =5f
|
|
51 =16
|
|
52 =00
|
|
53 =81
|
|
54 lccdisk
|
|
55 . .+341
|
|
56 =a6
|
|
57 =07
|
|
58 =85
|
|
59 =01
|
|
60 =26
|
|
61 =02
|
|
62 =ca
|
|
63 =40
|
|
64 =a6
|
|
65 =09
|
|
66 =81
|
|
67 =15
|
|
68 =16
|
|
69 =ff
|
|
70 =66
|
|
71 =a6
|
|
72 =88
|
|
73 =10
|
|
74 =85
|
|
75 =01
|
|
76 =27
|
|
77 =0e
|
|
78 =64
|
|
79 =e4
|
|
80 =24
|
|
81 =0a
|
|
82 =a6
|
|
83 =c9
|
|
84 =00
|
|
85 =a9
|
|
86 =8a
|
|
87 =40
|
|
88 =a7
|
|
89 =c9
|
|
90 =00
|
|
91 =a9
|
|
92 =35
|
|
93 =02
|
|
94 =81
|
|
95 =15
|
|
96 =16
|
|
97 =fe
|
|
98 =61
|
|
99 =ea
|
|
100 =a8
|
|
101 =22
|
|
102 =16
|
|
103 =ff
|
|
104 =01
|
|
105 =cb
|
|
106 =10
|
|
107 =ea
|
|
108 =a8
|
|
109 =22
|
|
110 =34
|
|
111 =02
|
|
112 =17
|
|
113 =fe
|
|
114 =f7
|
|
115 =35
|
|
116 =02
|
|
117 =39
|
|
118 q
|
|
119 del /d0/ccdisk
|
|
120 save /d0/temp ccdisk
|
|
121 verify u</d0/temp >/d0/ccdisk
|
|
122 del temp
|
|
123 tmode .1 pause
|
|
124 -t
|