# HG changeset patch
# User boisy
# Date 1084454134 0
# Node ID fc61a936d77df29360c498cdc9572d21dcb0bedb
# Parent  12fd53e493476a46c44de3fb26039c6e3eaf2e92
Added ccdisk patch

diff -r 12fd53e49347 -r fc61a936d77d level1/coco/diskfix.pat
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/coco/diskfix.pat	Thu May 13 13:15:34 2004 +0000
@@ -0,0 +1,124 @@
+* Patches Level I Ver. 2
+* CCDisk to read, write
+* and format both single
+* and double sided disks
+* Rainbow, Oct '88, p 157
+t
+tmode .1 -pause
+save /d0/ccdisk ccdisk
+debug
+lccdisk
+. .+7
+=80
+$load ccdisk
+lccdisk
+. .+3
+=82
+lccdisk
+. .+1c9
+=16
+=01
+=84
+lccdisk
+. .+1f8
+=5f
+=17
+=01
+=76
+lccdisk
+. .+2ae
+=e6
+=c9
+=00
+=a9
+=16
+=00
+=8c
+=12
+=23
+=02
+lccdisk
+. .+2dd
+=40
+=12
+=12
+=12
+=17
+=00
+=90
+. .+3
+=5f
+=16
+=00
+=81
+lccdisk
+. .+341
+=a6
+=07
+=85
+=01
+=26
+=02
+=ca
+=40
+=a6
+=09
+=81
+=15
+=16
+=ff
+=66
+=a6
+=88
+=10
+=85
+=01
+=27
+=0e
+=64
+=e4
+=24
+=0a
+=a6
+=c9
+=00
+=a9
+=8a
+=40
+=a7
+=c9
+=00
+=a9
+=35
+=02
+=81
+=15
+=16
+=fe
+=61
+=ea
+=a8
+=22
+=16
+=ff
+=01
+=cb
+=10
+=ea
+=a8
+=22
+=34
+=02
+=17
+=fe
+=f7
+=35
+=02
+=39
+q
+del /d0/ccdisk
+save /d0/temp ccdisk
+verify u</d0/temp >/d0/ccdisk
+del temp
+tmode .1 pause
+-t