�: CONVERT
osnewl=&FFE7
oswrch=&FFEE
(osword=&FFF1
2osbyte=&FFF4
<� mcode &500
F� buffer &1000
P� pass=0 � 2 � 2
ZP%=mcode
d
[OPT pass
nJSR osnewl
x
.mainloop
�"JSR escape \ check escape flag
� JSR seektwo \ seek track * 2
�)LDA track \ load logical track number
�'JSR register \ write track register
�!JSR read \ read logical track
�)LDA track \ load logical track number
�ASL A \ *2 = physical track
�'JSR register \ write track register
�&JSR format \ format physical track
�$JSR write \ write data onto disc
�&JSR printbyte \ print track number
�(INC track \ get ready for next track
�)LDA track \ load logical track number

CMP #40 \ is it track 40?

)BNE mainloop \ if not read next track


.formloop

""JSR escape \ check escape flag

,&JSR format \ format tracks 40 - 79

6&JSR printbyte \ print track number

@&INC track \ increment track number

J!LDA track \ load track number

TCMP #80 \ is it 80?

^+BNE formloop \ if not format next track

hLDA #0 \ go back to track 0

r
STA track

|STA copyblock+7

�LDA #1 \ sector 1

�STA copyblock+8

�$LDA #&21 \ 1 sector of 256 bytes

�STA copyblock+9

�$JSR read \ read track 0 sector 1

� LDA #&03 \ 800 sectors � 256

�)�A buffer+6 \ keep old *OPT4,n option

�(STA buffer+6 \ MSB number of sectors

� LDA #&20 \ 800 sectors � 256

�(STA buffer+7 \ LSB number of sectors

�&JSR write \ store track 0 sector 1

�JSR osnewl

�RTS \ return to BASIC
.escape
LDA &FF \ escape flag
&BMI pressed \ bit 7 set if pressed
&RTS
0.pressed
:LDA #&7E
D#JSR osbyte \ acknowledge Escape
NBRK
XBRK
bEQUS "Escape"
lBRK
v.seektwo
�#LDA track \ source track number
�ASL A \ *2
�+STA seekblock+7 \ physical track number
�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
.format
 #LDA track \ source track number
**STA formblock+7 \ store physical track
4LDX #36
>.tableloop
H8STA table,X \ store logical track number in ID table
RDEX
\DEX
fDEX
pDEX
zBPL tableloop
�LDA #&7F
�LDX #formblock � 256
�LDY #formblock � 256
�JSR osword
�LDA formblock+12 \ result
�BNE formerror \ = 0 if OK
�RTS
�.formerror
�BRK
�BRK
�EQUS "Format error"
�BRK
�
.register
-STA regblock+8 \ value to put in register
LDA #&7F
LDX #regblock � 256
$LDY #regblock � 256
.JSR osword
8LDA regblock+9 \ result
BBNE regerror \ = 0 if OK
LRTS
V
.regerror
`BRK
jBRK
t!EQUS "Special register error"
~BRK
�	.read
�#LDA track \ source track number
�*STA copyblock+7 \ logical track number
�%LDA #&53 \ read data multi-sector
�STA copyblock+6
�LDA #&7F
�LDX #copyblock � 256
�LDY #copyblock � 256
�JSR osword
�LDA copyblock+10
�BNE readerror
�RTS
.readerror

BRK
BRK
EQUS "Read error"
(BRK
2
.write
<&LDA #&4B \ write data multi-sector
FSTA copyblock+6
PLDA #&7F
ZLDX #copyblock � 256
dLDY #copyblock � 256
nJSR osword
xLDA copyblock+10 \ result
�BNE writeerror \ = 0 if OK
�RTS
�.writeerror
�BRK
�BRK
�EQUS "Write error"
�BRK
�.printbyte
�)LDA track \ print source track number
�PHA
�	LSR A
�	LSR A
�	LSR A
	LSR A
 JSR nybble \ print MS nybble
PLA
" JSR nybble \ print LS nybble
,LDA #�(" ")
6JSR oswrch \ print space
@JMP oswrch \ print space
J.nybble
T
� #&0F
^SED
hCLC
rADC #&90
|ADC #&40
�CLD
�(JMP oswrch \ print nybble and return
�.seekblock
�EQUB &00 \ drive 0
�EQUD &00 \ does not matter
�EQUB &01 \ 1 parameter
�EQUB &69 \ seek command
�EQUB &00 \ physical track
�EQUB &00 \ result byte
�
.regblock
�EQUB &00 \ drive 0
�EQUD &00 \ does not matter
�+EQUD &00127A02 \ write special register
EQUB &00 \ result byte
.copyblock
EQUB &00 \ drive 0
&#EQUD buffer \ address of buffer
0EQUB &03 \ 3 parameters
:%EQUB &57 \ read data multi-sector
D#EQUB &00 \ logical track number
N$EQUB &00 \ logical sector number
X&EQUB &2A \ 10 sectors of 256 bytes
bEQUB &00 \ result byte
l.formblock
vEQUB &00 \ drive 0
�(EQUD table \ address of sector table
�EQUB &05 \ 5 parameters
�EQUB &63 \ format command
�$EQUB &00 \ physical track number
�EQUB &15 \ gap 3 size
�&EQUB &2A \ 10 sectors of 256 bytes
�EQUB &00 \ gap 5 size
�EQUB &10 \ gap 1 size
�EQUB &00 \ result byte
�
.table
�EQUD &01000000
�EQUD &01010000
�EQUD &01020000
EQUD &01030000
EQUD &01040000
EQUD &01050000
 EQUD &01060000
*EQUD &01070000
4EQUD &01080000
>EQUD &01090000
H
.track
R#EQUB &00 \ logical track number
\]
f�
p/�'"Place 40 track disc in 80 track drive 0"
z-�"Press Spacebar to convert to 80 tracks"
��
�� � = 32
�� mcode
�

00000000  0d 00 0a 0e f4 3a 20 43  4f 4e 56 45 52 54 0d 00  |.....: CONVERT..|
00000010  14 10 6f 73 6e 65 77 6c  3d 26 46 46 45 37 0d 00  |..osnewl=&FFE7..|
00000020  1e 10 6f 73 77 72 63 68  3d 26 46 46 45 45 0d 00  |..oswrch=&FFEE..|
00000030  28 10 6f 73 77 6f 72 64  3d 26 46 46 46 31 0d 00  |(.osword=&FFF1..|
00000040  32 10 6f 73 62 79 74 65  3d 26 46 46 46 34 0d 00  |2.osbyte=&FFF4..|
00000050  3c 10 de 20 6d 63 6f 64  65 20 26 35 30 30 0d 00  |<.. mcode &500..|
00000060  46 12 de 20 62 75 66 66  65 72 20 26 31 30 30 30  |F.. buffer &1000|
00000070  0d 00 50 14 e3 20 70 61  73 73 3d 30 20 b8 20 32  |..P.. pass=0 . 2|
00000080  20 88 20 32 0d 00 5a 0c  50 25 3d 6d 63 6f 64 65  | . 2..Z.P%=mcode|
00000090  0d 00 64 0d 5b 4f 50 54  20 70 61 73 73 0d 00 6e  |..d.[OPT pass..n|
000000a0  0e 4a 53 52 20 6f 73 6e  65 77 6c 0d 00 78 0d 2e  |.JSR osnewl..x..|
000000b0  6d 61 69 6e 6c 6f 6f 70  0d 00 82 22 4a 53 52 20  |mainloop..."JSR |
000000c0  65 73 63 61 70 65 20 5c  20 63 68 65 63 6b 20 65  |escape \ check e|
000000d0  73 63 61 70 65 20 66 6c  61 67 0d 00 8c 20 4a 53  |scape flag... JS|
000000e0  52 20 73 65 65 6b 74 77  6f 20 5c 20 73 65 65 6b  |R seektwo \ seek|
000000f0  20 74 72 61 63 6b 20 2a  20 32 0d 00 96 29 4c 44  | track * 2...)LD|
00000100  41 20 74 72 61 63 6b 20  5c 20 6c 6f 61 64 20 6c  |A track \ load l|
00000110  6f 67 69 63 61 6c 20 74  72 61 63 6b 20 6e 75 6d  |ogical track num|
00000120  62 65 72 0d 00 a0 27 4a  53 52 20 72 65 67 69 73  |ber...'JSR regis|
00000130  74 65 72 20 5c 20 77 72  69 74 65 20 74 72 61 63  |ter \ write trac|
00000140  6b 20 72 65 67 69 73 74  65 72 0d 00 aa 21 4a 53  |k register...!JS|
00000150  52 20 72 65 61 64 20 5c  20 72 65 61 64 20 6c 6f  |R read \ read lo|
00000160  67 69 63 61 6c 20 74 72  61 63 6b 0d 00 b4 29 4c  |gical track...)L|
00000170  44 41 20 74 72 61 63 6b  20 5c 20 6c 6f 61 64 20  |DA track \ load |
00000180  6c 6f 67 69 63 61 6c 20  74 72 61 63 6b 20 6e 75  |logical track nu|
00000190  6d 62 65 72 0d 00 be 1f  41 53 4c 20 41 20 5c 20  |mber....ASL A \ |
000001a0  2a 32 20 3d 20 70 68 79  73 69 63 61 6c 20 74 72  |*2 = physical tr|
000001b0  61 63 6b 0d 00 c8 27 4a  53 52 20 72 65 67 69 73  |ack...'JSR regis|
000001c0  74 65 72 20 5c 20 77 72  69 74 65 20 74 72 61 63  |ter \ write trac|
000001d0  6b 20 72 65 67 69 73 74  65 72 0d 00 d2 26 4a 53  |k register...&JS|
000001e0  52 20 66 6f 72 6d 61 74  20 5c 20 66 6f 72 6d 61  |R format \ forma|
000001f0  74 20 70 68 79 73 69 63  61 6c 20 74 72 61 63 6b  |t physical track|
00000200  0d 00 dc 24 4a 53 52 20  77 72 69 74 65 20 5c 20  |...$JSR write \ |
00000210  77 72 69 74 65 20 64 61  74 61 20 6f 6e 74 6f 20  |write data onto |
00000220  64 69 73 63 0d 00 e6 26  4a 53 52 20 70 72 69 6e  |disc...&JSR prin|
00000230  74 62 79 74 65 20 5c 20  70 72 69 6e 74 20 74 72  |tbyte \ print tr|
00000240  61 63 6b 20 6e 75 6d 62  65 72 0d 00 f0 28 49 4e  |ack number...(IN|
00000250  43 20 74 72 61 63 6b 20  5c 20 67 65 74 20 72 65  |C track \ get re|
00000260  61 64 79 20 66 6f 72 20  6e 65 78 74 20 74 72 61  |ady for next tra|
00000270  63 6b 0d 00 fa 29 4c 44  41 20 74 72 61 63 6b 20  |ck...)LDA track |
00000280  5c 20 6c 6f 61 64 20 6c  6f 67 69 63 61 6c 20 74  |\ load logical t|
00000290  72 61 63 6b 20 6e 75 6d  62 65 72 0d 01 04 1d 43  |rack number....C|
000002a0  4d 50 20 23 34 30 20 5c  20 69 73 20 69 74 20 74  |MP #40 \ is it t|
000002b0  72 61 63 6b 20 34 30 3f  0d 01 0e 29 42 4e 45 20  |rack 40?...)BNE |
000002c0  6d 61 69 6e 6c 6f 6f 70  20 5c 20 69 66 20 6e 6f  |mainloop \ if no|
000002d0  74 20 72 65 61 64 20 6e  65 78 74 20 74 72 61 63  |t read next trac|
000002e0  6b 0d 01 18 0d 2e 66 6f  72 6d 6c 6f 6f 70 0d 01  |k.....formloop..|
000002f0  22 22 4a 53 52 20 65 73  63 61 70 65 20 5c 20 63  |""JSR escape \ c|
00000300  68 65 63 6b 20 65 73 63  61 70 65 20 66 6c 61 67  |heck escape flag|
00000310  0d 01 2c 26 4a 53 52 20  66 6f 72 6d 61 74 20 5c  |..,&JSR format \|
00000320  20 66 6f 72 6d 61 74 20  74 72 61 63 6b 73 20 34  | format tracks 4|
00000330  30 20 2d 20 37 39 0d 01  36 26 4a 53 52 20 70 72  |0 - 79..6&JSR pr|
00000340  69 6e 74 62 79 74 65 20  5c 20 70 72 69 6e 74 20  |intbyte \ print |
00000350  74 72 61 63 6b 20 6e 75  6d 62 65 72 0d 01 40 26  |track number..@&|
00000360  49 4e 43 20 74 72 61 63  6b 20 5c 20 69 6e 63 72  |INC track \ incr|
00000370  65 6d 65 6e 74 20 74 72  61 63 6b 20 6e 75 6d 62  |ement track numb|
00000380  65 72 0d 01 4a 21 4c 44  41 20 74 72 61 63 6b 20  |er..J!LDA track |
00000390  5c 20 6c 6f 61 64 20 74  72 61 63 6b 20 6e 75 6d  |\ load track num|
000003a0  62 65 72 0d 01 54 17 43  4d 50 20 23 38 30 20 5c  |ber..T.CMP #80 \|
000003b0  20 69 73 20 69 74 20 38  30 3f 0d 01 5e 2b 42 4e  | is it 80?..^+BN|
000003c0  45 20 66 6f 72 6d 6c 6f  6f 70 20 5c 20 69 66 20  |E formloop \ if |
000003d0  6e 6f 74 20 66 6f 72 6d  61 74 20 6e 65 78 74 20  |not format next |
000003e0  74 72 61 63 6b 0d 01 68  1f 4c 44 41 20 23 30 20  |track..h.LDA #0 |
000003f0  5c 20 67 6f 20 62 61 63  6b 20 74 6f 20 74 72 61  |\ go back to tra|
00000400  63 6b 20 30 0d 01 72 0d  53 54 41 20 74 72 61 63  |ck 0..r.STA trac|
00000410  6b 0d 01 7c 13 53 54 41  20 63 6f 70 79 62 6c 6f  |k..|.STA copyblo|
00000420  63 6b 2b 37 0d 01 86 15  4c 44 41 20 23 31 20 5c  |ck+7....LDA #1 \|
00000430  20 73 65 63 74 6f 72 20  31 0d 01 90 13 53 54 41  | sector 1....STA|
00000440  20 63 6f 70 79 62 6c 6f  63 6b 2b 38 0d 01 9a 24  | copyblock+8...$|
00000450  4c 44 41 20 23 26 32 31  20 5c 20 31 20 73 65 63  |LDA #&21 \ 1 sec|
00000460  74 6f 72 20 6f 66 20 32  35 36 20 62 79 74 65 73  |tor of 256 bytes|
00000470  0d 01 a4 13 53 54 41 20  63 6f 70 79 62 6c 6f 63  |....STA copybloc|
00000480  6b 2b 39 0d 01 ae 24 4a  53 52 20 72 65 61 64 20  |k+9...$JSR read |
00000490  5c 20 72 65 61 64 20 74  72 61 63 6b 20 30 20 73  |\ read track 0 s|
000004a0  65 63 74 6f 72 20 31 0d  01 b8 20 4c 44 41 20 23  |ector 1... LDA #|
000004b0  26 30 33 20 5c 20 38 30  30 20 73 65 63 74 6f 72  |&03 \ 800 sector|
000004c0  73 20 81 20 32 35 36 0d  01 c2 29 84 41 20 62 75  |s . 256...).A bu|
000004d0  66 66 65 72 2b 36 20 5c  20 6b 65 65 70 20 6f 6c  |ffer+6 \ keep ol|
000004e0  64 20 2a 4f 50 54 34 2c  6e 20 6f 70 74 69 6f 6e  |d *OPT4,n option|
000004f0  0d 01 cc 28 53 54 41 20  62 75 66 66 65 72 2b 36  |...(STA buffer+6|
00000500  20 5c 20 4d 53 42 20 6e  75 6d 62 65 72 20 6f 66  | \ MSB number of|
00000510  20 73 65 63 74 6f 72 73  0d 01 d6 20 4c 44 41 20  | sectors... LDA |
00000520  23 26 32 30 20 5c 20 38  30 30 20 73 65 63 74 6f  |#&20 \ 800 secto|
00000530  72 73 20 83 20 32 35 36  0d 01 e0 28 53 54 41 20  |rs . 256...(STA |
00000540  62 75 66 66 65 72 2b 37  20 5c 20 4c 53 42 20 6e  |buffer+7 \ LSB n|
00000550  75 6d 62 65 72 20 6f 66  20 73 65 63 74 6f 72 73  |umber of sectors|
00000560  0d 01 ea 26 4a 53 52 20  77 72 69 74 65 20 5c 20  |...&JSR write \ |
00000570  73 74 6f 72 65 20 74 72  61 63 6b 20 30 20 73 65  |store track 0 se|
00000580  63 74 6f 72 20 31 0d 01  f4 0e 4a 53 52 20 6f 73  |ctor 1....JSR os|
00000590  6e 65 77 6c 0d 01 fe 19  52 54 53 20 5c 20 72 65  |newl....RTS \ re|
000005a0  74 75 72 6e 20 74 6f 20  42 41 53 49 43 0d 02 08  |turn to BASIC...|
000005b0  0b 2e 65 73 63 61 70 65  0d 02 12 19 4c 44 41 20  |..escape....LDA |
000005c0  26 46 46 20 5c 20 65 73  63 61 70 65 20 66 6c 61  |&FF \ escape fla|
000005d0  67 0d 02 1c 26 42 4d 49  20 70 72 65 73 73 65 64  |g...&BMI pressed|
000005e0  20 5c 20 62 69 74 20 37  20 73 65 74 20 69 66 20  | \ bit 7 set if |
000005f0  70 72 65 73 73 65 64 0d  02 26 07 52 54 53 0d 02  |pressed..&.RTS..|
00000600  30 0c 2e 70 72 65 73 73  65 64 0d 02 3a 0c 4c 44  |0..pressed..:.LD|
00000610  41 20 23 26 37 45 0d 02  44 23 4a 53 52 20 6f 73  |A #&7E..D#JSR os|
00000620  62 79 74 65 20 5c 20 61  63 6b 6e 6f 77 6c 65 64  |byte \ acknowled|
00000630  67 65 20 45 73 63 61 70  65 0d 02 4e 07 42 52 4b  |ge Escape..N.BRK|
00000640  0d 02 58 07 42 52 4b 0d  02 62 11 45 51 55 53 20  |..X.BRK..b.EQUS |
00000650  22 45 73 63 61 70 65 22  0d 02 6c 07 42 52 4b 0d  |"Escape"..l.BRK.|
00000660  02 76 0c 2e 73 65 65 6b  74 77 6f 0d 02 80 23 4c  |.v..seektwo...#L|
00000670  44 41 20 74 72 61 63 6b  20 5c 20 73 6f 75 72 63  |DA track \ sourc|
00000680  65 20 74 72 61 63 6b 20  6e 75 6d 62 65 72 0d 02  |e track number..|
00000690  8a 0e 41 53 4c 20 41 20  5c 20 2a 32 0d 02 94 2b  |..ASL A \ *2...+|
000006a0  53 54 41 20 73 65 65 6b  62 6c 6f 63 6b 2b 37 20  |STA seekblock+7 |
000006b0  5c 20 70 68 79 73 69 63  61 6c 20 74 72 61 63 6b  |\ physical track|
000006c0  20 6e 75 6d 62 65 72 0d  02 9e 0c 4c 44 41 20 23  | number....LDA #|
000006d0  26 37 46 0d 02 a8 18 4c  44 58 20 23 73 65 65 6b  |&7F....LDX #seek|
000006e0  62 6c 6f 63 6b 20 83 20  32 35 36 0d 02 b2 18 4c  |block . 256....L|
000006f0  44 59 20 23 73 65 65 6b  62 6c 6f 63 6b 20 81 20  |DY #seekblock . |
00000700  32 35 36 0d 02 bc 0e 4a  53 52 20 6f 73 77 6f 72  |256....JSR oswor|
00000710  64 0d 02 c6 1c 4c 44 41  20 73 65 65 6b 62 6c 6f  |d....LDA seekblo|
00000720  63 6b 2b 38 20 5c 20 72  65 73 75 6c 74 0d 02 d0  |ck+8 \ result...|
00000730  1d 42 4e 45 20 73 65 65  6b 65 72 72 6f 72 20 5c  |.BNE seekerror \|
00000740  20 3d 20 30 20 69 66 20  4f 4b 0d 02 da 07 52 54  | = 0 if OK....RT|
00000750  53 0d 02 e4 0e 2e 73 65  65 6b 65 72 72 6f 72 0d  |S.....seekerror.|
00000760  02 ee 07 42 52 4b 0d 02  f8 07 42 52 4b 0d 03 02  |...BRK....BRK...|
00000770  15 45 51 55 53 20 22 53  65 65 6b 20 65 72 72 6f  |.EQUS "Seek erro|
00000780  72 22 0d 03 0c 07 42 52  4b 0d 03 16 0b 2e 66 6f  |r"....BRK.....fo|
00000790  72 6d 61 74 0d 03 20 23  4c 44 41 20 74 72 61 63  |rmat.. #LDA trac|
000007a0  6b 20 5c 20 73 6f 75 72  63 65 20 74 72 61 63 6b  |k \ source track|
000007b0  20 6e 75 6d 62 65 72 0d  03 2a 2a 53 54 41 20 66  | number..**STA f|
000007c0  6f 72 6d 62 6c 6f 63 6b  2b 37 20 5c 20 73 74 6f  |ormblock+7 \ sto|
000007d0  72 65 20 70 68 79 73 69  63 61 6c 20 74 72 61 63  |re physical trac|
000007e0  6b 0d 03 34 0b 4c 44 58  20 23 33 36 0d 03 3e 0e  |k..4.LDX #36..>.|
000007f0  2e 74 61 62 6c 65 6c 6f  6f 70 0d 03 48 38 53 54  |.tableloop..H8ST|
00000800  41 20 74 61 62 6c 65 2c  58 20 5c 20 73 74 6f 72  |A table,X \ stor|
00000810  65 20 6c 6f 67 69 63 61  6c 20 74 72 61 63 6b 20  |e logical track |
00000820  6e 75 6d 62 65 72 20 69  6e 20 49 44 20 74 61 62  |number in ID tab|
00000830  6c 65 0d 03 52 07 44 45  58 0d 03 5c 07 44 45 58  |le..R.DEX..\.DEX|
00000840  0d 03 66 07 44 45 58 0d  03 70 07 44 45 58 0d 03  |..f.DEX..p.DEX..|
00000850  7a 11 42 50 4c 20 74 61  62 6c 65 6c 6f 6f 70 0d  |z.BPL tableloop.|
00000860  03 84 0c 4c 44 41 20 23  26 37 46 0d 03 8e 18 4c  |...LDA #&7F....L|
00000870  44 58 20 23 66 6f 72 6d  62 6c 6f 63 6b 20 83 20  |DX #formblock . |
00000880  32 35 36 0d 03 98 18 4c  44 59 20 23 66 6f 72 6d  |256....LDY #form|
00000890  62 6c 6f 63 6b 20 81 20  32 35 36 0d 03 a2 0e 4a  |block . 256....J|
000008a0  53 52 20 6f 73 77 6f 72  64 0d 03 ac 1d 4c 44 41  |SR osword....LDA|
000008b0  20 66 6f 72 6d 62 6c 6f  63 6b 2b 31 32 20 5c 20  | formblock+12 \ |
000008c0  72 65 73 75 6c 74 0d 03  b6 1d 42 4e 45 20 66 6f  |result....BNE fo|
000008d0  72 6d 65 72 72 6f 72 20  5c 20 3d 20 30 20 69 66  |rmerror \ = 0 if|
000008e0  20 4f 4b 0d 03 c0 07 52  54 53 0d 03 ca 0e 2e 66  | OK....RTS.....f|
000008f0  6f 72 6d 65 72 72 6f 72  0d 03 d4 07 42 52 4b 0d  |ormerror....BRK.|
00000900  03 de 07 42 52 4b 0d 03  e8 17 45 51 55 53 20 22  |...BRK....EQUS "|
00000910  46 6f 72 6d 61 74 20 65  72 72 6f 72 22 0d 03 f2  |Format error"...|
00000920  07 42 52 4b 0d 03 fc 0d  2e 72 65 67 69 73 74 65  |.BRK.....registe|
00000930  72 0d 04 06 2d 53 54 41  20 72 65 67 62 6c 6f 63  |r...-STA regbloc|
00000940  6b 2b 38 20 5c 20 76 61  6c 75 65 20 74 6f 20 70  |k+8 \ value to p|
00000950  75 74 20 69 6e 20 72 65  67 69 73 74 65 72 0d 04  |ut in register..|
00000960  10 0c 4c 44 41 20 23 26  37 46 0d 04 1a 17 4c 44  |..LDA #&7F....LD|
00000970  58 20 23 72 65 67 62 6c  6f 63 6b 20 83 20 32 35  |X #regblock . 25|
00000980  36 0d 04 24 17 4c 44 59  20 23 72 65 67 62 6c 6f  |6..$.LDY #regblo|
00000990  63 6b 20 81 20 32 35 36  0d 04 2e 0e 4a 53 52 20  |ck . 256....JSR |
000009a0  6f 73 77 6f 72 64 0d 04  38 1b 4c 44 41 20 72 65  |osword..8.LDA re|
000009b0  67 62 6c 6f 63 6b 2b 39  20 5c 20 72 65 73 75 6c  |gblock+9 \ resul|
000009c0  74 0d 04 42 1c 42 4e 45  20 72 65 67 65 72 72 6f  |t..B.BNE regerro|
000009d0  72 20 5c 20 3d 20 30 20  69 66 20 4f 4b 0d 04 4c  |r \ = 0 if OK..L|
000009e0  07 52 54 53 0d 04 56 0d  2e 72 65 67 65 72 72 6f  |.RTS..V..regerro|
000009f0  72 0d 04 60 07 42 52 4b  0d 04 6a 07 42 52 4b 0d  |r..`.BRK..j.BRK.|
00000a00  04 74 21 45 51 55 53 20  22 53 70 65 63 69 61 6c  |.t!EQUS "Special|
00000a10  20 72 65 67 69 73 74 65  72 20 65 72 72 6f 72 22  | register error"|
00000a20  0d 04 7e 07 42 52 4b 0d  04 88 09 2e 72 65 61 64  |..~.BRK.....read|
00000a30  0d 04 92 23 4c 44 41 20  74 72 61 63 6b 20 5c 20  |...#LDA track \ |
00000a40  73 6f 75 72 63 65 20 74  72 61 63 6b 20 6e 75 6d  |source track num|
00000a50  62 65 72 0d 04 9c 2a 53  54 41 20 63 6f 70 79 62  |ber...*STA copyb|
00000a60  6c 6f 63 6b 2b 37 20 5c  20 6c 6f 67 69 63 61 6c  |lock+7 \ logical|
00000a70  20 74 72 61 63 6b 20 6e  75 6d 62 65 72 0d 04 a6  | track number...|
00000a80  25 4c 44 41 20 23 26 35  33 20 5c 20 72 65 61 64  |%LDA #&53 \ read|
00000a90  20 64 61 74 61 20 6d 75  6c 74 69 2d 73 65 63 74  | data multi-sect|
00000aa0  6f 72 0d 04 b0 13 53 54  41 20 63 6f 70 79 62 6c  |or....STA copybl|
00000ab0  6f 63 6b 2b 36 0d 04 ba  0c 4c 44 41 20 23 26 37  |ock+6....LDA #&7|
00000ac0  46 0d 04 c4 18 4c 44 58  20 23 63 6f 70 79 62 6c  |F....LDX #copybl|
00000ad0  6f 63 6b 20 83 20 32 35  36 0d 04 ce 18 4c 44 59  |ock . 256....LDY|
00000ae0  20 23 63 6f 70 79 62 6c  6f 63 6b 20 81 20 32 35  | #copyblock . 25|
00000af0  36 0d 04 d8 0e 4a 53 52  20 6f 73 77 6f 72 64 0d  |6....JSR osword.|
00000b00  04 e2 14 4c 44 41 20 63  6f 70 79 62 6c 6f 63 6b  |...LDA copyblock|
00000b10  2b 31 30 0d 04 ec 11 42  4e 45 20 72 65 61 64 65  |+10....BNE reade|
00000b20  72 72 6f 72 0d 04 f6 07  52 54 53 0d 05 00 0e 2e  |rror....RTS.....|
00000b30  72 65 61 64 65 72 72 6f  72 0d 05 0a 07 42 52 4b  |readerror....BRK|
00000b40  0d 05 14 07 42 52 4b 0d  05 1e 15 45 51 55 53 20  |....BRK....EQUS |
00000b50  22 52 65 61 64 20 65 72  72 6f 72 22 0d 05 28 07  |"Read error"..(.|
00000b60  42 52 4b 0d 05 32 0a 2e  77 72 69 74 65 0d 05 3c  |BRK..2..write..<|
00000b70  26 4c 44 41 20 23 26 34  42 20 5c 20 77 72 69 74  |&LDA #&4B \ writ|
00000b80  65 20 64 61 74 61 20 6d  75 6c 74 69 2d 73 65 63  |e data multi-sec|
00000b90  74 6f 72 0d 05 46 13 53  54 41 20 63 6f 70 79 62  |tor..F.STA copyb|
00000ba0  6c 6f 63 6b 2b 36 0d 05  50 0c 4c 44 41 20 23 26  |lock+6..P.LDA #&|
00000bb0  37 46 0d 05 5a 18 4c 44  58 20 23 63 6f 70 79 62  |7F..Z.LDX #copyb|
00000bc0  6c 6f 63 6b 20 83 20 32  35 36 0d 05 64 18 4c 44  |lock . 256..d.LD|
00000bd0  59 20 23 63 6f 70 79 62  6c 6f 63 6b 20 81 20 32  |Y #copyblock . 2|
00000be0  35 36 0d 05 6e 0e 4a 53  52 20 6f 73 77 6f 72 64  |56..n.JSR osword|
00000bf0  0d 05 78 1d 4c 44 41 20  63 6f 70 79 62 6c 6f 63  |..x.LDA copybloc|
00000c00  6b 2b 31 30 20 5c 20 72  65 73 75 6c 74 0d 05 82  |k+10 \ result...|
00000c10  1e 42 4e 45 20 77 72 69  74 65 65 72 72 6f 72 20  |.BNE writeerror |
00000c20  5c 20 3d 20 30 20 69 66  20 4f 4b 0d 05 8c 07 52  |\ = 0 if OK....R|
00000c30  54 53 0d 05 96 0f 2e 77  72 69 74 65 65 72 72 6f  |TS.....writeerro|
00000c40  72 0d 05 a0 07 42 52 4b  0d 05 aa 07 42 52 4b 0d  |r....BRK....BRK.|
00000c50  05 b4 16 45 51 55 53 20  22 57 72 69 74 65 20 65  |...EQUS "Write e|
00000c60  72 72 6f 72 22 0d 05 be  07 42 52 4b 0d 05 c8 0e  |rror"....BRK....|
00000c70  2e 70 72 69 6e 74 62 79  74 65 0d 05 d2 29 4c 44  |.printbyte...)LD|
00000c80  41 20 74 72 61 63 6b 20  5c 20 70 72 69 6e 74 20  |A track \ print |
00000c90  73 6f 75 72 63 65 20 74  72 61 63 6b 20 6e 75 6d  |source track num|
00000ca0  62 65 72 0d 05 dc 07 50  48 41 0d 05 e6 09 4c 53  |ber....PHA....LS|
00000cb0  52 20 41 0d 05 f0 09 4c  53 52 20 41 0d 05 fa 09  |R A....LSR A....|
00000cc0  4c 53 52 20 41 0d 06 04  09 4c 53 52 20 41 0d 06  |LSR A....LSR A..|
00000cd0  0e 20 4a 53 52 20 6e 79  62 62 6c 65 20 5c 20 70  |. JSR nybble \ p|
00000ce0  72 69 6e 74 20 4d 53 20  6e 79 62 62 6c 65 0d 06  |rint MS nybble..|
00000cf0  18 07 50 4c 41 0d 06 22  20 4a 53 52 20 6e 79 62  |..PLA.." JSR nyb|
00000d00  62 6c 65 20 5c 20 70 72  69 6e 74 20 4c 53 20 6e  |ble \ print LS n|
00000d10  79 62 62 6c 65 0d 06 2c  0f 4c 44 41 20 23 97 28  |ybble..,.LDA #.(|
00000d20  22 20 22 29 0d 06 36 1c  4a 53 52 20 6f 73 77 72  |" ")..6.JSR oswr|
00000d30  63 68 20 5c 20 70 72 69  6e 74 20 73 70 61 63 65  |ch \ print space|
00000d40  0d 06 40 1c 4a 4d 50 20  6f 73 77 72 63 68 20 5c  |..@.JMP oswrch \|
00000d50  20 70 72 69 6e 74 20 73  70 61 63 65 0d 06 4a 0b  | print space..J.|
00000d60  2e 6e 79 62 62 6c 65 0d  06 54 0a 80 20 23 26 30  |.nybble..T.. #&0|
00000d70  46 0d 06 5e 07 53 45 44  0d 06 68 07 43 4c 43 0d  |F..^.SED..h.CLC.|
00000d80  06 72 0c 41 44 43 20 23  26 39 30 0d 06 7c 0c 41  |.r.ADC #&90..|.A|
00000d90  44 43 20 23 26 34 30 0d  06 86 07 43 4c 44 0d 06  |DC #&40....CLD..|
00000da0  90 28 4a 4d 50 20 6f 73  77 72 63 68 20 5c 20 70  |.(JMP oswrch \ p|
00000db0  72 69 6e 74 20 6e 79 62  62 6c 65 20 61 6e 64 20  |rint nybble and |
00000dc0  72 65 74 75 72 6e 0d 06  9a 0e 2e 73 65 65 6b 62  |return.....seekb|
00000dd0  6c 6f 63 6b 0d 06 a4 16  45 51 55 42 20 26 30 30  |lock....EQUB &00|
00000de0  20 5c 20 64 72 69 76 65  20 30 0d 06 ae 1e 45 51  | \ drive 0....EQ|
00000df0  55 44 20 26 30 30 20 5c  20 64 6f 65 73 20 6e 6f  |UD &00 \ does no|
00000e00  74 20 6d 61 74 74 65 72  0d 06 b8 1a 45 51 55 42  |t matter....EQUB|
00000e10  20 26 30 31 20 5c 20 31  20 70 61 72 61 6d 65 74  | &01 \ 1 paramet|
00000e20  65 72 0d 06 c2 1b 45 51  55 42 20 26 36 39 20 5c  |er....EQUB &69 \|
00000e30  20 73 65 65 6b 20 63 6f  6d 6d 61 6e 64 0d 06 cc  | seek command...|
00000e40  1d 45 51 55 42 20 26 30  30 20 5c 20 70 68 79 73  |.EQUB &00 \ phys|
00000e50  69 63 61 6c 20 74 72 61  63 6b 0d 06 d6 1a 45 51  |ical track....EQ|
00000e60  55 42 20 26 30 30 20 5c  20 72 65 73 75 6c 74 20  |UB &00 \ result |
00000e70  62 79 74 65 0d 06 e0 0d  2e 72 65 67 62 6c 6f 63  |byte.....regbloc|
00000e80  6b 0d 06 ea 16 45 51 55  42 20 26 30 30 20 5c 20  |k....EQUB &00 \ |
00000e90  64 72 69 76 65 20 30 0d  06 f4 1e 45 51 55 44 20  |drive 0....EQUD |
00000ea0  26 30 30 20 5c 20 64 6f  65 73 20 6e 6f 74 20 6d  |&00 \ does not m|
00000eb0  61 74 74 65 72 0d 06 fe  2b 45 51 55 44 20 26 30  |atter...+EQUD &0|
00000ec0  30 31 32 37 41 30 32 20  5c 20 77 72 69 74 65 20  |0127A02 \ write |
00000ed0  73 70 65 63 69 61 6c 20  72 65 67 69 73 74 65 72  |special register|
00000ee0  0d 07 08 1a 45 51 55 42  20 26 30 30 20 5c 20 72  |....EQUB &00 \ r|
00000ef0  65 73 75 6c 74 20 62 79  74 65 0d 07 12 0e 2e 63  |esult byte.....c|
00000f00  6f 70 79 62 6c 6f 63 6b  0d 07 1c 16 45 51 55 42  |opyblock....EQUB|
00000f10  20 26 30 30 20 5c 20 64  72 69 76 65 20 30 0d 07  | &00 \ drive 0..|
00000f20  26 23 45 51 55 44 20 62  75 66 66 65 72 20 5c 20  |&#EQUD buffer \ |
00000f30  61 64 64 72 65 73 73 20  6f 66 20 62 75 66 66 65  |address of buffe|
00000f40  72 0d 07 30 1b 45 51 55  42 20 26 30 33 20 5c 20  |r..0.EQUB &03 \ |
00000f50  33 20 70 61 72 61 6d 65  74 65 72 73 0d 07 3a 25  |3 parameters..:%|
00000f60  45 51 55 42 20 26 35 37  20 5c 20 72 65 61 64 20  |EQUB &57 \ read |
00000f70  64 61 74 61 20 6d 75 6c  74 69 2d 73 65 63 74 6f  |data multi-secto|
00000f80  72 0d 07 44 23 45 51 55  42 20 26 30 30 20 5c 20  |r..D#EQUB &00 \ |
00000f90  6c 6f 67 69 63 61 6c 20  74 72 61 63 6b 20 6e 75  |logical track nu|
00000fa0  6d 62 65 72 0d 07 4e 24  45 51 55 42 20 26 30 30  |mber..N$EQUB &00|
00000fb0  20 5c 20 6c 6f 67 69 63  61 6c 20 73 65 63 74 6f  | \ logical secto|
00000fc0  72 20 6e 75 6d 62 65 72  0d 07 58 26 45 51 55 42  |r number..X&EQUB|
00000fd0  20 26 32 41 20 5c 20 31  30 20 73 65 63 74 6f 72  | &2A \ 10 sector|
00000fe0  73 20 6f 66 20 32 35 36  20 62 79 74 65 73 0d 07  |s of 256 bytes..|
00000ff0  62 1a 45 51 55 42 20 26  30 30 20 5c 20 72 65 73  |b.EQUB &00 \ res|
00001000  75 6c 74 20 62 79 74 65  0d 07 6c 0e 2e 66 6f 72  |ult byte..l..for|
00001010  6d 62 6c 6f 63 6b 0d 07  76 16 45 51 55 42 20 26  |mblock..v.EQUB &|
00001020  30 30 20 5c 20 64 72 69  76 65 20 30 0d 07 80 28  |00 \ drive 0...(|
00001030  45 51 55 44 20 74 61 62  6c 65 20 5c 20 61 64 64  |EQUD table \ add|
00001040  72 65 73 73 20 6f 66 20  73 65 63 74 6f 72 20 74  |ress of sector t|
00001050  61 62 6c 65 0d 07 8a 1b  45 51 55 42 20 26 30 35  |able....EQUB &05|
00001060  20 5c 20 35 20 70 61 72  61 6d 65 74 65 72 73 0d  | \ 5 parameters.|
00001070  07 94 1d 45 51 55 42 20  26 36 33 20 5c 20 66 6f  |...EQUB &63 \ fo|
00001080  72 6d 61 74 20 63 6f 6d  6d 61 6e 64 0d 07 9e 24  |rmat command...$|
00001090  45 51 55 42 20 26 30 30  20 5c 20 70 68 79 73 69  |EQUB &00 \ physi|
000010a0  63 61 6c 20 74 72 61 63  6b 20 6e 75 6d 62 65 72  |cal track number|
000010b0  0d 07 a8 19 45 51 55 42  20 26 31 35 20 5c 20 67  |....EQUB &15 \ g|
000010c0  61 70 20 33 20 73 69 7a  65 0d 07 b2 26 45 51 55  |ap 3 size...&EQU|
000010d0  42 20 26 32 41 20 5c 20  31 30 20 73 65 63 74 6f  |B &2A \ 10 secto|
000010e0  72 73 20 6f 66 20 32 35  36 20 62 79 74 65 73 0d  |rs of 256 bytes.|
000010f0  07 bc 19 45 51 55 42 20  26 30 30 20 5c 20 67 61  |...EQUB &00 \ ga|
00001100  70 20 35 20 73 69 7a 65  0d 07 c6 19 45 51 55 42  |p 5 size....EQUB|
00001110  20 26 31 30 20 5c 20 67  61 70 20 31 20 73 69 7a  | &10 \ gap 1 siz|
00001120  65 0d 07 d0 1a 45 51 55  42 20 26 30 30 20 5c 20  |e....EQUB &00 \ |
00001130  72 65 73 75 6c 74 20 62  79 74 65 0d 07 da 0a 2e  |result byte.....|
00001140  74 61 62 6c 65 0d 07 e4  12 45 51 55 44 20 26 30  |table....EQUD &0|
00001150  31 30 30 30 30 30 30 0d  07 ee 12 45 51 55 44 20  |1000000....EQUD |
00001160  26 30 31 30 31 30 30 30  30 0d 07 f8 12 45 51 55  |&01010000....EQU|
00001170  44 20 26 30 31 30 32 30  30 30 30 0d 08 02 12 45  |D &01020000....E|
00001180  51 55 44 20 26 30 31 30  33 30 30 30 30 0d 08 0c  |QUD &01030000...|
00001190  12 45 51 55 44 20 26 30  31 30 34 30 30 30 30 0d  |.EQUD &01040000.|
000011a0  08 16 12 45 51 55 44 20  26 30 31 30 35 30 30 30  |...EQUD &0105000|
000011b0  30 0d 08 20 12 45 51 55  44 20 26 30 31 30 36 30  |0.. .EQUD &01060|
000011c0  30 30 30 0d 08 2a 12 45  51 55 44 20 26 30 31 30  |000..*.EQUD &010|
000011d0  37 30 30 30 30 0d 08 34  12 45 51 55 44 20 26 30  |70000..4.EQUD &0|
000011e0  31 30 38 30 30 30 30 0d  08 3e 12 45 51 55 44 20  |1080000..>.EQUD |
000011f0  26 30 31 30 39 30 30 30  30 0d 08 48 0a 2e 74 72  |&01090000..H..tr|
00001200  61 63 6b 0d 08 52 23 45  51 55 42 20 26 30 30 20  |ack..R#EQUB &00 |
00001210  5c 20 6c 6f 67 69 63 61  6c 20 74 72 61 63 6b 20  |\ logical track |
00001220  6e 75 6d 62 65 72 0d 08  5c 05 5d 0d 08 66 05 ed  |number..\.]..f..|
00001230  0d 08 70 2f f1 27 22 50  6c 61 63 65 20 34 30 20  |..p/.'"Place 40 |
00001240  74 72 61 63 6b 20 64 69  73 63 20 69 6e 20 38 30  |track disc in 80|
00001250  20 74 72 61 63 6b 20 64  72 69 76 65 20 30 22 0d  | track drive 0".|
00001260  08 7a 2d f1 22 50 72 65  73 73 20 53 70 61 63 65  |.z-."Press Space|
00001270  62 61 72 20 74 6f 20 63  6f 6e 76 65 72 74 20 74  |bar to convert t|
00001280  6f 20 38 30 20 74 72 61  63 6b 73 22 0d 08 84 05  |o 80 tracks"....|
00001290  f5 0d 08 8e 0c fd 20 a5  20 3d 20 33 32 0d 08 98  |...... . = 32...|
000012a0  0b d6 20 6d 63 6f 64 65  0d ff                    |.. mcode..|
000012aa