�: NOTFORM
osword=&FFF1
� mcode &100
(� pass = 0 � 2 � 2
2P%=mcode
<
[OPT pass
FLDA #&7F
PLDX #block � 256
ZLDY #block � 256
dJSR osword
nRTS
x
.block
�EQUB &FF \ current drive
� EQUD buffer \ buffer address
�EQUB &03 \ 3 parameters
�EQUB &5B \ read sector IDs
�EQUB &00 \ track 0
�EQUB &00
�EQUB &01 \ read 1 sector
�.result
�EQUB &00 \ result byte
�.buffer
�EQUD &00
�]
��

� mcode

;� ?result=&18 �"Disc not formatted" � �"Disc formatted"
�

00000000  0d 00 0a 0e f4 3a 20 4e  4f 54 46 4f 52 4d 0d 00  |.....: NOTFORM..|
00000010  14 10 6f 73 77 6f 72 64  3d 26 46 46 46 31 0d 00  |..osword=&FFF1..|
00000020  1e 10 de 20 6d 63 6f 64  65 20 26 31 30 30 0d 00  |... mcode &100..|
00000030  28 16 e3 20 70 61 73 73  20 3d 20 30 20 b8 20 32  |(.. pass = 0 . 2|
00000040  20 88 20 32 0d 00 32 0c  50 25 3d 6d 63 6f 64 65  | . 2..2.P%=mcode|
00000050  0d 00 3c 0d 5b 4f 50 54  20 70 61 73 73 0d 00 46  |..<.[OPT pass..F|
00000060  0c 4c 44 41 20 23 26 37  46 0d 00 50 14 4c 44 58  |.LDA #&7F..P.LDX|
00000070  20 23 62 6c 6f 63 6b 20  83 20 32 35 36 0d 00 5a  | #block . 256..Z|
00000080  14 4c 44 59 20 23 62 6c  6f 63 6b 20 81 20 32 35  |.LDY #block . 25|
00000090  36 0d 00 64 0e 4a 53 52  20 6f 73 77 6f 72 64 0d  |6..d.JSR osword.|
000000a0  00 6e 07 52 54 53 0d 00  78 0a 2e 62 6c 6f 63 6b  |.n.RTS..x..block|
000000b0  0d 00 82 1c 45 51 55 42  20 26 46 46 20 5c 20 63  |....EQUB &FF \ c|
000000c0  75 72 72 65 6e 74 20 64  72 69 76 65 0d 00 8c 20  |urrent drive... |
000000d0  45 51 55 44 20 62 75 66  66 65 72 20 5c 20 62 75  |EQUD buffer \ bu|
000000e0  66 66 65 72 20 61 64 64  72 65 73 73 0d 00 96 1b  |ffer address....|
000000f0  45 51 55 42 20 26 30 33  20 5c 20 33 20 70 61 72  |EQUB &03 \ 3 par|
00000100  61 6d 65 74 65 72 73 0d  00 a0 1e 45 51 55 42 20  |ameters....EQUB |
00000110  26 35 42 20 5c 20 72 65  61 64 20 73 65 63 74 6f  |&5B \ read secto|
00000120  72 20 49 44 73 0d 00 aa  16 45 51 55 42 20 26 30  |r IDs....EQUB &0|
00000130  30 20 5c 20 74 72 61 63  6b 20 30 0d 00 b4 0c 45  |0 \ track 0....E|
00000140  51 55 42 20 26 30 30 0d  00 be 1c 45 51 55 42 20  |QUB &00....EQUB |
00000150  26 30 31 20 5c 20 72 65  61 64 20 31 20 73 65 63  |&01 \ read 1 sec|
00000160  74 6f 72 0d 00 c8 0b 2e  72 65 73 75 6c 74 0d 00  |tor.....result..|
00000170  d2 1a 45 51 55 42 20 26  30 30 20 5c 20 72 65 73  |..EQUB &00 \ res|
00000180  75 6c 74 20 62 79 74 65  0d 00 dc 0b 2e 62 75 66  |ult byte.....buf|
00000190  66 65 72 0d 00 e6 0c 45  51 55 44 20 26 30 30 0d  |fer....EQUD &00.|
000001a0  00 f0 05 5d 0d 00 fa 05  ed 0d 01 04 0b d6 20 6d  |...].......... m|
000001b0  63 6f 64 65 0d 01 0e 3b  e7 20 3f 72 65 73 75 6c  |code...;. ?resul|
000001c0  74 3d 26 31 38 20 f1 22  44 69 73 63 20 6e 6f 74  |t=&18 ."Disc not|
000001d0  20 66 6f 72 6d 61 74 74  65 64 22 20 8b 20 f1 22  | formatted" . ."|
000001e0  44 69 73 63 20 66 6f 72  6d 61 74 74 65 64 22 0d  |Disc formatted".|
000001f0  ff                                                |.|
000001f1