�: DEFORM
osword=&FFF1
� mcode &100
(�pass=0�3�3
2P%=mcode
<
[OPT pass
FLDA #&7F
PLDX #block � 256
ZLDY #block � 256
dJSR osword
nLDA result
x
BNE error
�RTS
�
.error
�BRK
�BRK
�EQUS "De-format error"
�BRK
�
.block
�EQUB &FF \ current drive
�EQUD buffer \ sector table
�EQUB &05 \ 5 parameters
�EQUB &63 \ format command
�EQUB &00 \ physical track
�EQUB &00 \ gap 3

EQUB &C1 \ sectors/size

EQUB &00 \ gap 5

EQUB &10 \ gap 1

".result

,EQUB &00 \ result byte

6.buffer

@EQUD &04000000

J]

T�

^� mcode
�

00000000  0d 00 0a 0d f4 3a 20 44  45 46 4f 52 4d 0d 00 14  |.....: DEFORM...|
00000010  10 6f 73 77 6f 72 64 3d  26 46 46 46 31 0d 00 1e  |.osword=&FFF1...|
00000020  10 de 20 6d 63 6f 64 65  20 26 31 30 30 0d 00 28  |.. mcode &100..(|
00000030  0f e3 70 61 73 73 3d 30  b8 33 88 33 0d 00 32 0c  |..pass=0.3.3..2.|
00000040  50 25 3d 6d 63 6f 64 65  0d 00 3c 0d 5b 4f 50 54  |P%=mcode..<.[OPT|
00000050  20 70 61 73 73 0d 00 46  0c 4c 44 41 20 23 26 37  | pass..F.LDA #&7|
00000060  46 0d 00 50 14 4c 44 58  20 23 62 6c 6f 63 6b 20  |F..P.LDX #block |
00000070  83 20 32 35 36 0d 00 5a  14 4c 44 59 20 23 62 6c  |. 256..Z.LDY #bl|
00000080  6f 63 6b 20 81 20 32 35  36 0d 00 64 0e 4a 53 52  |ock . 256..d.JSR|
00000090  20 6f 73 77 6f 72 64 0d  00 6e 0e 4c 44 41 20 72  | osword..n.LDA r|
000000a0  65 73 75 6c 74 0d 00 78  0d 42 4e 45 20 65 72 72  |esult..x.BNE err|
000000b0  6f 72 0d 00 82 07 52 54  53 0d 00 8c 0a 2e 65 72  |or....RTS.....er|
000000c0  72 6f 72 0d 00 96 07 42  52 4b 0d 00 a0 07 42 52  |ror....BRK....BR|
000000d0  4b 0d 00 aa 1a 45 51 55  53 20 22 44 65 2d 66 6f  |K....EQUS "De-fo|
000000e0  72 6d 61 74 20 65 72 72  6f 72 22 0d 00 b4 07 42  |rmat error"....B|
000000f0  52 4b 0d 00 be 0a 2e 62  6c 6f 63 6b 0d 00 c8 1c  |RK.....block....|
00000100  45 51 55 42 20 26 46 46  20 5c 20 63 75 72 72 65  |EQUB &FF \ curre|
00000110  6e 74 20 64 72 69 76 65  0d 00 d2 1e 45 51 55 44  |nt drive....EQUD|
00000120  20 62 75 66 66 65 72 20  5c 20 73 65 63 74 6f 72  | buffer \ sector|
00000130  20 74 61 62 6c 65 0d 00  dc 1b 45 51 55 42 20 26  | table....EQUB &|
00000140  30 35 20 5c 20 35 20 70  61 72 61 6d 65 74 65 72  |05 \ 5 parameter|
00000150  73 0d 00 e6 1d 45 51 55  42 20 26 36 33 20 5c 20  |s....EQUB &63 \ |
00000160  66 6f 72 6d 61 74 20 63  6f 6d 6d 61 6e 64 0d 00  |format command..|
00000170  f0 1d 45 51 55 42 20 26  30 30 20 5c 20 70 68 79  |..EQUB &00 \ phy|
00000180  73 69 63 61 6c 20 74 72  61 63 6b 0d 00 fa 14 45  |sical track....E|
00000190  51 55 42 20 26 30 30 20  5c 20 67 61 70 20 33 0d  |QUB &00 \ gap 3.|
000001a0  01 04 1b 45 51 55 42 20  26 43 31 20 5c 20 73 65  |...EQUB &C1 \ se|
000001b0  63 74 6f 72 73 2f 73 69  7a 65 0d 01 0e 14 45 51  |ctors/size....EQ|
000001c0  55 42 20 26 30 30 20 5c  20 67 61 70 20 35 0d 01  |UB &00 \ gap 5..|
000001d0  18 14 45 51 55 42 20 26  31 30 20 5c 20 67 61 70  |..EQUB &10 \ gap|
000001e0  20 31 0d 01 22 0b 2e 72  65 73 75 6c 74 0d 01 2c  | 1.."..result..,|
000001f0  1a 45 51 55 42 20 26 30  30 20 5c 20 72 65 73 75  |.EQUB &00 \ resu|
00000200  6c 74 20 62 79 74 65 0d  01 36 0b 2e 62 75 66 66  |lt byte..6..buff|
00000210  65 72 0d 01 40 12 45 51  55 44 20 26 30 34 30 30  |er..@.EQUD &0400|
00000220  30 30 30 30 0d 01 4a 05  5d 0d 01 54 05 ed 0d 01  |0000..J.]..T....|
00000230  5e 0b d6 20 6d 63 6f 64  65 0d ff                 |^.. mcode..|
0000023b