�: VERIFY
�: for copy protected discs
osnewl=&FFE7
(oswrch=&FFEE
2osword=&FFF1
<osbyte=&FFF4
F� buffer &50
P� mcode &500
Z� pass=0 � 2 � 2
dP%=mcode
n
[OPT pass
xJSR osnewl
�
.mainloop
�"JSR escape \ check escape flag
�*JSR seek \ seek physical tracks 0 - 40
�1JSR firstsector \ read sector id first sector
�0BNE notverify \ if error track not formatted
�'JSR sectorids \ read all sector ids
�#JSR verify \ verify all sectors
�.notverify
�&JSR printbyte \ print track number
�2INC physical \ increment physical track number
�-LDA physical \ load physical track number
�CMP last \ all done?
�)BNE mainloop \ if not copy next track

JSR osnewl

RTS \ return to BASIC

.escape

"LDA &FF \ escape flag

,&BMI pressed \ bit 7 set if pressed

6RTS

@.pressed

JLDA #&7E

T#JSR osbyte \ acknowledge Escape

^BRK

hBRK

rEQUS "Escape"

|BRK

�	.seek

�(LDA physical \ physical track number

�STA seekblock+7

�LDA #&7F

�LDX #seekblock � 256

�LDY #seekblock � 256

�JSR osword

�LDA seekblock+8 \ result

�BNE seekerror \ = 0 if OK

�RTS

�.seekerror

�BRK

�BRK
EQUS "Seek error"
BRK
.firstsector
&(LDA physical \ physical track number
0)STA idsblock+7 \ store physical track
:LDA #1 \ one sector
D"STA idsblock+9 \ number of ids
NLDA #&7F
XLDX #idsblock � 256
bLDY #idsblock � 256
lJSR osword
v&LDA idsblock+10 \ = 0 if formatted
�RTS
�.sectorids
�&LDX buffer+3 \ load data size code
�(LDA sizes,X \ load number of sectors
�,STA idsblock+9 \ store number of sectors
�ASL A \ *2
�ASL A \ *4
�SEC
�SBC #4 \ sectors*4-4
�-STA sectornumber \ store index on sectors
�!TXA \ transfer data size code
�ASL A \ *2
�ASL A \ *4
ASL A \ *8
ASL A \ *16
ASL A \ *32
 )�A idsblock+9 \ add number of sectors
*%STA verblock+9 \ store for verify
4LDA #&7F
>LDX #idsblock � 256
HLDY #idsblock � 256
RJSR osword
\LDA idsblock+10 \ result
fBNE idserror \ = 0 if OK
pRTS
z
.idserror
�BRK
�BRK
�EQUS "Sector ID Error"
�BRK
�.verify
�*LDX sectornumber \ load index on table
�/LDA buffer+2,X \ load logical sector number
�%STA verblock+8 \ store for verify
�.lowest
�DEX
�DEX
�DEX
�DEX
BMI finished
/LDA buffer+2,X \ load logical sector number
3CMP verblock+8 \ is it lower than the last one?
$,BCS lowest \ branch if not lowest sector
.)STA verblock+8 \ store if it is lower
8-BCC lowest \ look for lower sector number
B
.finished
L*LDA buffer \ load logical track number
V)STA verblock+7 \ and store for verify
`'JSR register \ write track register
jLDA #&7F
tLDX #verblock � 256
~LDY #verblock � 256
�JSR osword
�(LDA physical \ physical track number
�'JSR register \ write track register
�LDA verblock+10
�� #&1E \ isolate error bits
�BNE vererror
�RTS
�
.vererror
�BRK
�BRK
�EQUS "Verify error"
�BRK

.register

-STA regblock+8 \ value to put in register
LDA #&7F
LDX #regblock � 256
(LDY #regblock � 256
2JSR osword
<LDA regblock+9
FBNE regerror
PRTS
Z
.regerror
dBRK
nBRK
x!EQUS "Special register error"
�BRK
�.printbyte
�.LDA physical \ print physical track number
�PHA
�	LSR A
�	LSR A
�	LSR A
�	LSR A
� JSR nybble \ print MS nybble
�PLA
� JSR nybble \ print LS nybble
�LDA #�(" ")
�,LDX verblock+10 \ load deleted data flag
!BEQ space \ if =0 not deleted
#LDA #�("d") \ deleted data mark

.space
"#JSR oswrch \ print space or "d"
,LDA #�(" ")
6JMP oswrch \ print space
@.nybble
J
� #&0F
TSED
^CLC
hADC #&90
rADC #&40
|CLD
�(JMP oswrch \ print nybble and return
�.seekblock
�EQUB &FF \ current drive
�EQUD &00 \ does not matter
�&EQUD &00006901 \ seek, 1 parameter
�
.idsblock
�EQUB &FF \ current drive
�#EQUD buffer \ address of buffer
�$EQUD &00005B03 \ read sector ids
�EQUW &00
�
.verblock
�EQUB &FF \ current drive
�EQUD &00 \ does not matter
(EQUD &00005F03 \ verify multi sector
EQUW &00

.regblock
&EQUB &FF \ current drive
0EQUD &00 \ does not matter
:EQUD &00127A02
DEQUB &00 \ result
N
.sizes
XEQUB 18
bEQUB 10
l
EQUB 5
v
EQUB 2
�
EQUB 1
�
.physical
�
EQUB 0
�.sectornumber
�
EQUB 0
�	.last
�
EQUB 0
�]
��
�(�'"Number of tracks (40/80) "tracks$
�*� tracks$="40" ?last = 40 � ?last = 80
�5�"Insert ";?last;" track disc into current drive"
�'�"and press the Spacebar to verify"
�

� �=32
� mcode
�

00000000  0d 00 0a 0d f4 3a 20 56  45 52 49 46 59 0d 00 14  |.....: VERIFY...|
00000010  1f f4 3a 20 66 6f 72 20  63 6f 70 79 20 70 72 6f  |..: for copy pro|
00000020  74 65 63 74 65 64 20 64  69 73 63 73 0d 00 1e 10  |tected discs....|
00000030  6f 73 6e 65 77 6c 3d 26  46 46 45 37 0d 00 28 10  |osnewl=&FFE7..(.|
00000040  6f 73 77 72 63 68 3d 26  46 46 45 45 0d 00 32 10  |oswrch=&FFEE..2.|
00000050  6f 73 77 6f 72 64 3d 26  46 46 46 31 0d 00 3c 10  |osword=&FFF1..<.|
00000060  6f 73 62 79 74 65 3d 26  46 46 46 34 0d 00 46 10  |osbyte=&FFF4..F.|
00000070  de 20 62 75 66 66 65 72  20 26 35 30 0d 00 50 10  |. buffer &50..P.|
00000080  de 20 6d 63 6f 64 65 20  26 35 30 30 0d 00 5a 14  |. mcode &500..Z.|
00000090  e3 20 70 61 73 73 3d 30  20 b8 20 32 20 88 20 32  |. pass=0 . 2 . 2|
000000a0  0d 00 64 0c 50 25 3d 6d  63 6f 64 65 0d 00 6e 0d  |..d.P%=mcode..n.|
000000b0  5b 4f 50 54 20 70 61 73  73 0d 00 78 0e 4a 53 52  |[OPT pass..x.JSR|
000000c0  20 6f 73 6e 65 77 6c 0d  00 82 0d 2e 6d 61 69 6e  | osnewl.....main|
000000d0  6c 6f 6f 70 0d 00 8c 22  4a 53 52 20 65 73 63 61  |loop..."JSR esca|
000000e0  70 65 20 5c 20 63 68 65  63 6b 20 65 73 63 61 70  |pe \ check escap|
000000f0  65 20 66 6c 61 67 0d 00  96 2a 4a 53 52 20 73 65  |e flag...*JSR se|
00000100  65 6b 20 5c 20 73 65 65  6b 20 70 68 79 73 69 63  |ek \ seek physic|
00000110  61 6c 20 74 72 61 63 6b  73 20 30 20 2d 20 34 30  |al tracks 0 - 40|
00000120  0d 00 a0 31 4a 53 52 20  66 69 72 73 74 73 65 63  |...1JSR firstsec|
00000130  74 6f 72 20 5c 20 72 65  61 64 20 73 65 63 74 6f  |tor \ read secto|
00000140  72 20 69 64 20 66 69 72  73 74 20 73 65 63 74 6f  |r id first secto|
00000150  72 0d 00 aa 30 42 4e 45  20 6e 6f 74 76 65 72 69  |r...0BNE notveri|
00000160  66 79 20 5c 20 69 66 20  65 72 72 6f 72 20 74 72  |fy \ if error tr|
00000170  61 63 6b 20 6e 6f 74 20  66 6f 72 6d 61 74 74 65  |ack not formatte|
00000180  64 0d 00 b4 27 4a 53 52  20 73 65 63 74 6f 72 69  |d...'JSR sectori|
00000190  64 73 20 5c 20 72 65 61  64 20 61 6c 6c 20 73 65  |ds \ read all se|
000001a0  63 74 6f 72 20 69 64 73  0d 00 be 23 4a 53 52 20  |ctor ids...#JSR |
000001b0  76 65 72 69 66 79 20 5c  20 76 65 72 69 66 79 20  |verify \ verify |
000001c0  61 6c 6c 20 73 65 63 74  6f 72 73 0d 00 c8 0e 2e  |all sectors.....|
000001d0  6e 6f 74 76 65 72 69 66  79 0d 00 d2 26 4a 53 52  |notverify...&JSR|
000001e0  20 70 72 69 6e 74 62 79  74 65 20 5c 20 70 72 69  | printbyte \ pri|
000001f0  6e 74 20 74 72 61 63 6b  20 6e 75 6d 62 65 72 0d  |nt track number.|
00000200  00 dc 32 49 4e 43 20 70  68 79 73 69 63 61 6c 20  |..2INC physical |
00000210  5c 20 69 6e 63 72 65 6d  65 6e 74 20 70 68 79 73  |\ increment phys|
00000220  69 63 61 6c 20 74 72 61  63 6b 20 6e 75 6d 62 65  |ical track numbe|
00000230  72 0d 00 e6 2d 4c 44 41  20 70 68 79 73 69 63 61  |r...-LDA physica|
00000240  6c 20 5c 20 6c 6f 61 64  20 70 68 79 73 69 63 61  |l \ load physica|
00000250  6c 20 74 72 61 63 6b 20  6e 75 6d 62 65 72 0d 00  |l track number..|
00000260  f0 18 43 4d 50 20 6c 61  73 74 20 5c 20 61 6c 6c  |..CMP last \ all|
00000270  20 64 6f 6e 65 3f 0d 00  fa 29 42 4e 45 20 6d 61  | done?...)BNE ma|
00000280  69 6e 6c 6f 6f 70 20 5c  20 69 66 20 6e 6f 74 20  |inloop \ if not |
00000290  63 6f 70 79 20 6e 65 78  74 20 74 72 61 63 6b 0d  |copy next track.|
000002a0  01 04 0e 4a 53 52 20 6f  73 6e 65 77 6c 0d 01 0e  |...JSR osnewl...|
000002b0  19 52 54 53 20 5c 20 72  65 74 75 72 6e 20 74 6f  |.RTS \ return to|
000002c0  20 42 41 53 49 43 0d 01  18 0b 2e 65 73 63 61 70  | BASIC.....escap|
000002d0  65 0d 01 22 19 4c 44 41  20 26 46 46 20 5c 20 65  |e..".LDA &FF \ e|
000002e0  73 63 61 70 65 20 66 6c  61 67 0d 01 2c 26 42 4d  |scape flag..,&BM|
000002f0  49 20 70 72 65 73 73 65  64 20 5c 20 62 69 74 20  |I pressed \ bit |
00000300  37 20 73 65 74 20 69 66  20 70 72 65 73 73 65 64  |7 set if pressed|
00000310  0d 01 36 07 52 54 53 0d  01 40 0c 2e 70 72 65 73  |..6.RTS..@..pres|
00000320  73 65 64 0d 01 4a 0c 4c  44 41 20 23 26 37 45 0d  |sed..J.LDA #&7E.|
00000330  01 54 23 4a 53 52 20 6f  73 62 79 74 65 20 5c 20  |.T#JSR osbyte \ |
00000340  61 63 6b 6e 6f 77 6c 65  64 67 65 20 45 73 63 61  |acknowledge Esca|
00000350  70 65 0d 01 5e 07 42 52  4b 0d 01 68 07 42 52 4b  |pe..^.BRK..h.BRK|
00000360  0d 01 72 11 45 51 55 53  20 22 45 73 63 61 70 65  |..r.EQUS "Escape|
00000370  22 0d 01 7c 07 42 52 4b  0d 01 86 09 2e 73 65 65  |"..|.BRK.....see|
00000380  6b 0d 01 90 28 4c 44 41  20 70 68 79 73 69 63 61  |k...(LDA physica|
00000390  6c 20 5c 20 70 68 79 73  69 63 61 6c 20 74 72 61  |l \ physical tra|
000003a0  63 6b 20 6e 75 6d 62 65  72 0d 01 9a 13 53 54 41  |ck number....STA|
000003b0  20 73 65 65 6b 62 6c 6f  63 6b 2b 37 0d 01 a4 0c  | seekblock+7....|
000003c0  4c 44 41 20 23 26 37 46  0d 01 ae 18 4c 44 58 20  |LDA #&7F....LDX |
000003d0  23 73 65 65 6b 62 6c 6f  63 6b 20 83 20 32 35 36  |#seekblock . 256|
000003e0  0d 01 b8 18 4c 44 59 20  23 73 65 65 6b 62 6c 6f  |....LDY #seekblo|
000003f0  63 6b 20 81 20 32 35 36  0d 01 c2 0e 4a 53 52 20  |ck . 256....JSR |
00000400  6f 73 77 6f 72 64 0d 01  cc 1c 4c 44 41 20 73 65  |osword....LDA se|
00000410  65 6b 62 6c 6f 63 6b 2b  38 20 5c 20 72 65 73 75  |ekblock+8 \ resu|
00000420  6c 74 0d 01 d6 1d 42 4e  45 20 73 65 65 6b 65 72  |lt....BNE seeker|
00000430  72 6f 72 20 5c 20 3d 20  30 20 69 66 20 4f 4b 0d  |ror \ = 0 if OK.|
00000440  01 e0 07 52 54 53 0d 01  ea 0e 2e 73 65 65 6b 65  |...RTS.....seeke|
00000450  72 72 6f 72 0d 01 f4 07  42 52 4b 0d 01 fe 07 42  |rror....BRK....B|
00000460  52 4b 0d 02 08 15 45 51  55 53 20 22 53 65 65 6b  |RK....EQUS "Seek|
00000470  20 65 72 72 6f 72 22 0d  02 12 07 42 52 4b 0d 02  | error"....BRK..|
00000480  1c 10 2e 66 69 72 73 74  73 65 63 74 6f 72 0d 02  |...firstsector..|
00000490  26 28 4c 44 41 20 70 68  79 73 69 63 61 6c 20 5c  |&(LDA physical \|
000004a0  20 70 68 79 73 69 63 61  6c 20 74 72 61 63 6b 20  | physical track |
000004b0  6e 75 6d 62 65 72 0d 02  30 29 53 54 41 20 69 64  |number..0)STA id|
000004c0  73 62 6c 6f 63 6b 2b 37  20 5c 20 73 74 6f 72 65  |sblock+7 \ store|
000004d0  20 70 68 79 73 69 63 61  6c 20 74 72 61 63 6b 0d  | physical track.|
000004e0  02 3a 17 4c 44 41 20 23  31 20 5c 20 6f 6e 65 20  |.:.LDA #1 \ one |
000004f0  73 65 63 74 6f 72 0d 02  44 22 53 54 41 20 69 64  |sector..D"STA id|
00000500  73 62 6c 6f 63 6b 2b 39  20 5c 20 6e 75 6d 62 65  |sblock+9 \ numbe|
00000510  72 20 6f 66 20 69 64 73  0d 02 4e 0c 4c 44 41 20  |r of ids..N.LDA |
00000520  23 26 37 46 0d 02 58 17  4c 44 58 20 23 69 64 73  |#&7F..X.LDX #ids|
00000530  62 6c 6f 63 6b 20 83 20  32 35 36 0d 02 62 17 4c  |block . 256..b.L|
00000540  44 59 20 23 69 64 73 62  6c 6f 63 6b 20 81 20 32  |DY #idsblock . 2|
00000550  35 36 0d 02 6c 0e 4a 53  52 20 6f 73 77 6f 72 64  |56..l.JSR osword|
00000560  0d 02 76 26 4c 44 41 20  69 64 73 62 6c 6f 63 6b  |..v&LDA idsblock|
00000570  2b 31 30 20 5c 20 3d 20  30 20 69 66 20 66 6f 72  |+10 \ = 0 if for|
00000580  6d 61 74 74 65 64 0d 02  80 07 52 54 53 0d 02 8a  |matted....RTS...|
00000590  0e 2e 73 65 63 74 6f 72  69 64 73 0d 02 94 26 4c  |..sectorids...&L|
000005a0  44 58 20 62 75 66 66 65  72 2b 33 20 5c 20 6c 6f  |DX buffer+3 \ lo|
000005b0  61 64 20 64 61 74 61 20  73 69 7a 65 20 63 6f 64  |ad data size cod|
000005c0  65 0d 02 9e 28 4c 44 41  20 73 69 7a 65 73 2c 58  |e...(LDA sizes,X|
000005d0  20 5c 20 6c 6f 61 64 20  6e 75 6d 62 65 72 20 6f  | \ load number o|
000005e0  66 20 73 65 63 74 6f 72  73 0d 02 a8 2c 53 54 41  |f sectors...,STA|
000005f0  20 69 64 73 62 6c 6f 63  6b 2b 39 20 5c 20 73 74  | idsblock+9 \ st|
00000600  6f 72 65 20 6e 75 6d 62  65 72 20 6f 66 20 73 65  |ore number of se|
00000610  63 74 6f 72 73 0d 02 b2  0e 41 53 4c 20 41 20 5c  |ctors....ASL A \|
00000620  20 2a 32 0d 02 bc 0e 41  53 4c 20 41 20 5c 20 2a  | *2....ASL A \ *|
00000630  34 0d 02 c6 07 53 45 43  0d 02 d0 18 53 42 43 20  |4....SEC....SBC |
00000640  23 34 20 5c 20 73 65 63  74 6f 72 73 2a 34 2d 34  |#4 \ sectors*4-4|
00000650  0d 02 da 2d 53 54 41 20  73 65 63 74 6f 72 6e 75  |...-STA sectornu|
00000660  6d 62 65 72 20 5c 20 73  74 6f 72 65 20 69 6e 64  |mber \ store ind|
00000670  65 78 20 6f 6e 20 73 65  63 74 6f 72 73 0d 02 e4  |ex on sectors...|
00000680  21 54 58 41 20 5c 20 74  72 61 6e 73 66 65 72 20  |!TXA \ transfer |
00000690  64 61 74 61 20 73 69 7a  65 20 63 6f 64 65 0d 02  |data size code..|
000006a0  ee 0e 41 53 4c 20 41 20  5c 20 2a 32 0d 02 f8 0e  |..ASL A \ *2....|
000006b0  41 53 4c 20 41 20 5c 20  2a 34 0d 03 02 0e 41 53  |ASL A \ *4....AS|
000006c0  4c 20 41 20 5c 20 2a 38  0d 03 0c 0f 41 53 4c 20  |L A \ *8....ASL |
000006d0  41 20 5c 20 2a 31 36 0d  03 16 0f 41 53 4c 20 41  |A \ *16....ASL A|
000006e0  20 5c 20 2a 33 32 0d 03  20 29 84 41 20 69 64 73  | \ *32.. ).A ids|
000006f0  62 6c 6f 63 6b 2b 39 20  5c 20 61 64 64 20 6e 75  |block+9 \ add nu|
00000700  6d 62 65 72 20 6f 66 20  73 65 63 74 6f 72 73 0d  |mber of sectors.|
00000710  03 2a 25 53 54 41 20 76  65 72 62 6c 6f 63 6b 2b  |.*%STA verblock+|
00000720  39 20 5c 20 73 74 6f 72  65 20 66 6f 72 20 76 65  |9 \ store for ve|
00000730  72 69 66 79 0d 03 34 0c  4c 44 41 20 23 26 37 46  |rify..4.LDA #&7F|
00000740  0d 03 3e 17 4c 44 58 20  23 69 64 73 62 6c 6f 63  |..>.LDX #idsbloc|
00000750  6b 20 83 20 32 35 36 0d  03 48 17 4c 44 59 20 23  |k . 256..H.LDY #|
00000760  69 64 73 62 6c 6f 63 6b  20 81 20 32 35 36 0d 03  |idsblock . 256..|
00000770  52 0e 4a 53 52 20 6f 73  77 6f 72 64 0d 03 5c 1c  |R.JSR osword..\.|
00000780  4c 44 41 20 69 64 73 62  6c 6f 63 6b 2b 31 30 20  |LDA idsblock+10 |
00000790  5c 20 72 65 73 75 6c 74  0d 03 66 1c 42 4e 45 20  |\ result..f.BNE |
000007a0  69 64 73 65 72 72 6f 72  20 5c 20 3d 20 30 20 69  |idserror \ = 0 i|
000007b0  66 20 4f 4b 0d 03 70 07  52 54 53 0d 03 7a 0d 2e  |f OK..p.RTS..z..|
000007c0  69 64 73 65 72 72 6f 72  0d 03 84 07 42 52 4b 0d  |idserror....BRK.|
000007d0  03 8e 07 42 52 4b 0d 03  98 1a 45 51 55 53 20 22  |...BRK....EQUS "|
000007e0  53 65 63 74 6f 72 20 49  44 20 45 72 72 6f 72 22  |Sector ID Error"|
000007f0  0d 03 a2 07 42 52 4b 0d  03 ac 0b 2e 76 65 72 69  |....BRK.....veri|
00000800  66 79 0d 03 b6 2a 4c 44  58 20 73 65 63 74 6f 72  |fy...*LDX sector|
00000810  6e 75 6d 62 65 72 20 5c  20 6c 6f 61 64 20 69 6e  |number \ load in|
00000820  64 65 78 20 6f 6e 20 74  61 62 6c 65 0d 03 c0 2f  |dex on table.../|
00000830  4c 44 41 20 62 75 66 66  65 72 2b 32 2c 58 20 5c  |LDA buffer+2,X \|
00000840  20 6c 6f 61 64 20 6c 6f  67 69 63 61 6c 20 73 65  | load logical se|
00000850  63 74 6f 72 20 6e 75 6d  62 65 72 0d 03 ca 25 53  |ctor number...%S|
00000860  54 41 20 76 65 72 62 6c  6f 63 6b 2b 38 20 5c 20  |TA verblock+8 \ |
00000870  73 74 6f 72 65 20 66 6f  72 20 76 65 72 69 66 79  |store for verify|
00000880  0d 03 d4 0b 2e 6c 6f 77  65 73 74 0d 03 de 07 44  |.....lowest....D|
00000890  45 58 0d 03 e8 07 44 45  58 0d 03 f2 07 44 45 58  |EX....DEX....DEX|
000008a0  0d 03 fc 07 44 45 58 0d  04 06 10 42 4d 49 20 66  |....DEX....BMI f|
000008b0  69 6e 69 73 68 65 64 0d  04 10 2f 4c 44 41 20 62  |inished.../LDA b|
000008c0  75 66 66 65 72 2b 32 2c  58 20 5c 20 6c 6f 61 64  |uffer+2,X \ load|
000008d0  20 6c 6f 67 69 63 61 6c  20 73 65 63 74 6f 72 20  | logical sector |
000008e0  6e 75 6d 62 65 72 0d 04  1a 33 43 4d 50 20 76 65  |number...3CMP ve|
000008f0  72 62 6c 6f 63 6b 2b 38  20 5c 20 69 73 20 69 74  |rblock+8 \ is it|
00000900  20 6c 6f 77 65 72 20 74  68 61 6e 20 74 68 65 20  | lower than the |
00000910  6c 61 73 74 20 6f 6e 65  3f 0d 04 24 2c 42 43 53  |last one?..$,BCS|
00000920  20 6c 6f 77 65 73 74 20  5c 20 62 72 61 6e 63 68  | lowest \ branch|
00000930  20 69 66 20 6e 6f 74 20  6c 6f 77 65 73 74 20 73  | if not lowest s|
00000940  65 63 74 6f 72 0d 04 2e  29 53 54 41 20 76 65 72  |ector...)STA ver|
00000950  62 6c 6f 63 6b 2b 38 20  5c 20 73 74 6f 72 65 20  |block+8 \ store |
00000960  69 66 20 69 74 20 69 73  20 6c 6f 77 65 72 0d 04  |if it is lower..|
00000970  38 2d 42 43 43 20 6c 6f  77 65 73 74 20 5c 20 6c  |8-BCC lowest \ l|
00000980  6f 6f 6b 20 66 6f 72 20  6c 6f 77 65 72 20 73 65  |ook for lower se|
00000990  63 74 6f 72 20 6e 75 6d  62 65 72 0d 04 42 0d 2e  |ctor number..B..|
000009a0  66 69 6e 69 73 68 65 64  0d 04 4c 2a 4c 44 41 20  |finished..L*LDA |
000009b0  62 75 66 66 65 72 20 5c  20 6c 6f 61 64 20 6c 6f  |buffer \ load lo|
000009c0  67 69 63 61 6c 20 74 72  61 63 6b 20 6e 75 6d 62  |gical track numb|
000009d0  65 72 0d 04 56 29 53 54  41 20 76 65 72 62 6c 6f  |er..V)STA verblo|
000009e0  63 6b 2b 37 20 5c 20 61  6e 64 20 73 74 6f 72 65  |ck+7 \ and store|
000009f0  20 66 6f 72 20 76 65 72  69 66 79 0d 04 60 27 4a  | for verify..`'J|
00000a00  53 52 20 72 65 67 69 73  74 65 72 20 5c 20 77 72  |SR register \ wr|
00000a10  69 74 65 20 74 72 61 63  6b 20 72 65 67 69 73 74  |ite track regist|
00000a20  65 72 0d 04 6a 0c 4c 44  41 20 23 26 37 46 0d 04  |er..j.LDA #&7F..|
00000a30  74 17 4c 44 58 20 23 76  65 72 62 6c 6f 63 6b 20  |t.LDX #verblock |
00000a40  83 20 32 35 36 0d 04 7e  17 4c 44 59 20 23 76 65  |. 256..~.LDY #ve|
00000a50  72 62 6c 6f 63 6b 20 81  20 32 35 36 0d 04 88 0e  |rblock . 256....|
00000a60  4a 53 52 20 6f 73 77 6f  72 64 0d 04 92 28 4c 44  |JSR osword...(LD|
00000a70  41 20 70 68 79 73 69 63  61 6c 20 5c 20 70 68 79  |A physical \ phy|
00000a80  73 69 63 61 6c 20 74 72  61 63 6b 20 6e 75 6d 62  |sical track numb|
00000a90  65 72 0d 04 9c 27 4a 53  52 20 72 65 67 69 73 74  |er...'JSR regist|
00000aa0  65 72 20 5c 20 77 72 69  74 65 20 74 72 61 63 6b  |er \ write track|
00000ab0  20 72 65 67 69 73 74 65  72 0d 04 a6 13 4c 44 41  | register....LDA|
00000ac0  20 76 65 72 62 6c 6f 63  6b 2b 31 30 0d 04 b0 1f  | verblock+10....|
00000ad0  80 20 23 26 31 45 20 5c  20 69 73 6f 6c 61 74 65  |. #&1E \ isolate|
00000ae0  20 65 72 72 6f 72 20 62  69 74 73 0d 04 ba 10 42  | error bits....B|
00000af0  4e 45 20 76 65 72 65 72  72 6f 72 0d 04 c4 07 52  |NE vererror....R|
00000b00  54 53 0d 04 ce 0d 2e 76  65 72 65 72 72 6f 72 0d  |TS.....vererror.|
00000b10  04 d8 07 42 52 4b 0d 04  e2 07 42 52 4b 0d 04 ec  |...BRK....BRK...|
00000b20  17 45 51 55 53 20 22 56  65 72 69 66 79 20 65 72  |.EQUS "Verify er|
00000b30  72 6f 72 22 0d 04 f6 07  42 52 4b 0d 05 00 0d 2e  |ror"....BRK.....|
00000b40  72 65 67 69 73 74 65 72  0d 05 0a 2d 53 54 41 20  |register...-STA |
00000b50  72 65 67 62 6c 6f 63 6b  2b 38 20 5c 20 76 61 6c  |regblock+8 \ val|
00000b60  75 65 20 74 6f 20 70 75  74 20 69 6e 20 72 65 67  |ue to put in reg|
00000b70  69 73 74 65 72 0d 05 14  0c 4c 44 41 20 23 26 37  |ister....LDA #&7|
00000b80  46 0d 05 1e 17 4c 44 58  20 23 72 65 67 62 6c 6f  |F....LDX #regblo|
00000b90  63 6b 20 83 20 32 35 36  0d 05 28 17 4c 44 59 20  |ck . 256..(.LDY |
00000ba0  23 72 65 67 62 6c 6f 63  6b 20 81 20 32 35 36 0d  |#regblock . 256.|
00000bb0  05 32 0e 4a 53 52 20 6f  73 77 6f 72 64 0d 05 3c  |.2.JSR osword..<|
00000bc0  12 4c 44 41 20 72 65 67  62 6c 6f 63 6b 2b 39 0d  |.LDA regblock+9.|
00000bd0  05 46 10 42 4e 45 20 72  65 67 65 72 72 6f 72 0d  |.F.BNE regerror.|
00000be0  05 50 07 52 54 53 0d 05  5a 0d 2e 72 65 67 65 72  |.P.RTS..Z..reger|
00000bf0  72 6f 72 0d 05 64 07 42  52 4b 0d 05 6e 07 42 52  |ror..d.BRK..n.BR|
00000c00  4b 0d 05 78 21 45 51 55  53 20 22 53 70 65 63 69  |K..x!EQUS "Speci|
00000c10  61 6c 20 72 65 67 69 73  74 65 72 20 65 72 72 6f  |al register erro|
00000c20  72 22 0d 05 82 07 42 52  4b 0d 05 8c 0e 2e 70 72  |r"....BRK.....pr|
00000c30  69 6e 74 62 79 74 65 0d  05 96 2e 4c 44 41 20 70  |intbyte....LDA p|
00000c40  68 79 73 69 63 61 6c 20  5c 20 70 72 69 6e 74 20  |hysical \ print |
00000c50  70 68 79 73 69 63 61 6c  20 74 72 61 63 6b 20 6e  |physical track n|
00000c60  75 6d 62 65 72 0d 05 a0  07 50 48 41 0d 05 aa 09  |umber....PHA....|
00000c70  4c 53 52 20 41 0d 05 b4  09 4c 53 52 20 41 0d 05  |LSR A....LSR A..|
00000c80  be 09 4c 53 52 20 41 0d  05 c8 09 4c 53 52 20 41  |..LSR A....LSR A|
00000c90  0d 05 d2 20 4a 53 52 20  6e 79 62 62 6c 65 20 5c  |... JSR nybble \|
00000ca0  20 70 72 69 6e 74 20 4d  53 20 6e 79 62 62 6c 65  | print MS nybble|
00000cb0  0d 05 dc 07 50 4c 41 0d  05 e6 20 4a 53 52 20 6e  |....PLA... JSR n|
00000cc0  79 62 62 6c 65 20 5c 20  70 72 69 6e 74 20 4c 53  |ybble \ print LS|
00000cd0  20 6e 79 62 62 6c 65 0d  05 f0 0f 4c 44 41 20 23  | nybble....LDA #|
00000ce0  97 28 22 20 22 29 0d 05  fa 2c 4c 44 58 20 76 65  |.(" ")...,LDX ve|
00000cf0  72 62 6c 6f 63 6b 2b 31  30 20 5c 20 6c 6f 61 64  |rblock+10 \ load|
00000d00  20 64 65 6c 65 74 65 64  20 64 61 74 61 20 66 6c  | deleted data fl|
00000d10  61 67 0d 06 04 21 42 45  51 20 73 70 61 63 65 20  |ag...!BEQ space |
00000d20  5c 20 69 66 20 3d 30 20  6e 6f 74 20 64 65 6c 65  |\ if =0 not dele|
00000d30  74 65 64 0d 06 0e 23 4c  44 41 20 23 97 28 22 64  |ted...#LDA #.("d|
00000d40  22 29 20 5c 20 64 65 6c  65 74 65 64 20 64 61 74  |") \ deleted dat|
00000d50  61 20 6d 61 72 6b 0d 06  18 0a 2e 73 70 61 63 65  |a mark.....space|
00000d60  0d 06 22 23 4a 53 52 20  6f 73 77 72 63 68 20 5c  |.."#JSR oswrch \|
00000d70  20 70 72 69 6e 74 20 73  70 61 63 65 20 6f 72 20  | print space or |
00000d80  22 64 22 0d 06 2c 0f 4c  44 41 20 23 97 28 22 20  |"d"..,.LDA #.(" |
00000d90  22 29 0d 06 36 1c 4a 4d  50 20 6f 73 77 72 63 68  |")..6.JMP oswrch|
00000da0  20 5c 20 70 72 69 6e 74  20 73 70 61 63 65 0d 06  | \ print space..|
00000db0  40 0b 2e 6e 79 62 62 6c  65 0d 06 4a 0a 80 20 23  |@..nybble..J.. #|
00000dc0  26 30 46 0d 06 54 07 53  45 44 0d 06 5e 07 43 4c  |&0F..T.SED..^.CL|
00000dd0  43 0d 06 68 0c 41 44 43  20 23 26 39 30 0d 06 72  |C..h.ADC #&90..r|
00000de0  0c 41 44 43 20 23 26 34  30 0d 06 7c 07 43 4c 44  |.ADC #&40..|.CLD|
00000df0  0d 06 86 28 4a 4d 50 20  6f 73 77 72 63 68 20 5c  |...(JMP oswrch \|
00000e00  20 70 72 69 6e 74 20 6e  79 62 62 6c 65 20 61 6e  | print nybble an|
00000e10  64 20 72 65 74 75 72 6e  0d 06 90 0e 2e 73 65 65  |d return.....see|
00000e20  6b 62 6c 6f 63 6b 0d 06  9a 1c 45 51 55 42 20 26  |kblock....EQUB &|
00000e30  46 46 20 5c 20 63 75 72  72 65 6e 74 20 64 72 69  |FF \ current dri|
00000e40  76 65 0d 06 a4 1e 45 51  55 44 20 26 30 30 20 5c  |ve....EQUD &00 \|
00000e50  20 64 6f 65 73 20 6e 6f  74 20 6d 61 74 74 65 72  | does not matter|
00000e60  0d 06 ae 26 45 51 55 44  20 26 30 30 30 30 36 39  |...&EQUD &000069|
00000e70  30 31 20 5c 20 73 65 65  6b 2c 20 31 20 70 61 72  |01 \ seek, 1 par|
00000e80  61 6d 65 74 65 72 0d 06  b8 0d 2e 69 64 73 62 6c  |ameter.....idsbl|
00000e90  6f 63 6b 0d 06 c2 1c 45  51 55 42 20 26 46 46 20  |ock....EQUB &FF |
00000ea0  5c 20 63 75 72 72 65 6e  74 20 64 72 69 76 65 0d  |\ current drive.|
00000eb0  06 cc 23 45 51 55 44 20  62 75 66 66 65 72 20 5c  |..#EQUD buffer \|
00000ec0  20 61 64 64 72 65 73 73  20 6f 66 20 62 75 66 66  | address of buff|
00000ed0  65 72 0d 06 d6 24 45 51  55 44 20 26 30 30 30 30  |er...$EQUD &0000|
00000ee0  35 42 30 33 20 5c 20 72  65 61 64 20 73 65 63 74  |5B03 \ read sect|
00000ef0  6f 72 20 69 64 73 0d 06  e0 0c 45 51 55 57 20 26  |or ids....EQUW &|
00000f00  30 30 0d 06 ea 0d 2e 76  65 72 62 6c 6f 63 6b 0d  |00.....verblock.|
00000f10  06 f4 1c 45 51 55 42 20  26 46 46 20 5c 20 63 75  |...EQUB &FF \ cu|
00000f20  72 72 65 6e 74 20 64 72  69 76 65 0d 06 fe 1e 45  |rrent drive....E|
00000f30  51 55 44 20 26 30 30 20  5c 20 64 6f 65 73 20 6e  |QUD &00 \ does n|
00000f40  6f 74 20 6d 61 74 74 65  72 0d 07 08 28 45 51 55  |ot matter...(EQU|
00000f50  44 20 26 30 30 30 30 35  46 30 33 20 5c 20 76 65  |D &00005F03 \ ve|
00000f60  72 69 66 79 20 6d 75 6c  74 69 20 73 65 63 74 6f  |rify multi secto|
00000f70  72 0d 07 12 0c 45 51 55  57 20 26 30 30 0d 07 1c  |r....EQUW &00...|
00000f80  0d 2e 72 65 67 62 6c 6f  63 6b 0d 07 26 1c 45 51  |..regblock..&.EQ|
00000f90  55 42 20 26 46 46 20 5c  20 63 75 72 72 65 6e 74  |UB &FF \ current|
00000fa0  20 64 72 69 76 65 0d 07  30 1e 45 51 55 44 20 26  | drive..0.EQUD &|
00000fb0  30 30 20 5c 20 64 6f 65  73 20 6e 6f 74 20 6d 61  |00 \ does not ma|
00000fc0  74 74 65 72 0d 07 3a 12  45 51 55 44 20 26 30 30  |tter..:.EQUD &00|
00000fd0  31 32 37 41 30 32 0d 07  44 15 45 51 55 42 20 26  |127A02..D.EQUB &|
00000fe0  30 30 20 5c 20 72 65 73  75 6c 74 0d 07 4e 0a 2e  |00 \ result..N..|
00000ff0  73 69 7a 65 73 0d 07 58  0b 45 51 55 42 20 31 38  |sizes..X.EQUB 18|
00001000  0d 07 62 0b 45 51 55 42  20 31 30 0d 07 6c 0a 45  |..b.EQUB 10..l.E|
00001010  51 55 42 20 35 0d 07 76  0a 45 51 55 42 20 32 0d  |QUB 5..v.EQUB 2.|
00001020  07 80 0a 45 51 55 42 20  31 0d 07 8a 0d 2e 70 68  |...EQUB 1.....ph|
00001030  79 73 69 63 61 6c 0d 07  94 0a 45 51 55 42 20 30  |ysical....EQUB 0|
00001040  0d 07 9e 11 2e 73 65 63  74 6f 72 6e 75 6d 62 65  |.....sectornumbe|
00001050  72 0d 07 a8 0a 45 51 55  42 20 30 0d 07 b2 09 2e  |r....EQUB 0.....|
00001060  6c 61 73 74 0d 07 bc 0a  45 51 55 42 20 30 0d 07  |last....EQUB 0..|
00001070  c6 05 5d 0d 07 d0 05 ed  0d 07 da 28 e8 27 22 4e  |..]........(.'"N|
00001080  75 6d 62 65 72 20 6f 66  20 74 72 61 63 6b 73 20  |umber of tracks |
00001090  28 34 30 2f 38 30 29 20  22 74 72 61 63 6b 73 24  |(40/80) "tracks$|
000010a0  0d 07 e4 2a e7 20 74 72  61 63 6b 73 24 3d 22 34  |...*. tracks$="4|
000010b0  30 22 20 3f 6c 61 73 74  20 3d 20 34 30 20 8b 20  |0" ?last = 40 . |
000010c0  3f 6c 61 73 74 20 3d 20  38 30 0d 07 ee 35 f1 22  |?last = 80...5."|
000010d0  49 6e 73 65 72 74 20 22  3b 3f 6c 61 73 74 3b 22  |Insert ";?last;"|
000010e0  20 74 72 61 63 6b 20 64  69 73 63 20 69 6e 74 6f  | track disc into|
000010f0  20 63 75 72 72 65 6e 74  20 64 72 69 76 65 22 0d  | current drive".|
00001100  07 f8 27 f1 22 61 6e 64  20 70 72 65 73 73 20 74  |..'."and press t|
00001110  68 65 20 53 70 61 63 65  62 61 72 20 74 6f 20 76  |he Spacebar to v|
00001120  65 72 69 66 79 22 0d 08  02 05 f5 0d 08 0c 0a fd  |erify"..........|
00001130  20 a5 3d 33 32 0d 08 16  0b d6 20 6d 63 6f 64 65  | .=32..... mcode|
00001140  0d ff                                             |..|
00001142