�: STATUS
oswrch=&FFEE
osword=&FFF1
(� mcode &100
2� pass = 0 � 2 � 2
<P%=mcode
F
[OPT pass
PLDA #&7F
ZLDX #block � 256
dLDY #block � 256
nJSR osword
xRTS
�
.block
�EQUB &FF \ current drive
�EQUD &00 \ does not matter
�EQUB &00 \ 0 parameters
�"EQUB &6C \ read status command
�.result
�EQUB &00 \ result byte
�.binary
�
LDX #8
�	.loop
�LDA #�("0")
�ASL result
�ADC #&00

JSR oswrch

DEX

BNE loop

"RTS

,]

6�

@� mcode

J!�"Result = &";~?result;", %";

T� binary

^�
�

00000000  0d 00 0a 0d f4 3a 20 53  54 41 54 55 53 0d 00 14  |.....: STATUS...|
00000010  10 6f 73 77 72 63 68 3d  26 46 46 45 45 0d 00 1e  |.oswrch=&FFEE...|
00000020  10 6f 73 77 6f 72 64 3d  26 46 46 46 31 0d 00 28  |.osword=&FFF1..(|
00000030  10 de 20 6d 63 6f 64 65  20 26 31 30 30 0d 00 32  |.. mcode &100..2|
00000040  16 e3 20 70 61 73 73 20  3d 20 30 20 b8 20 32 20  |.. pass = 0 . 2 |
00000050  88 20 32 0d 00 3c 0c 50  25 3d 6d 63 6f 64 65 0d  |. 2..<.P%=mcode.|
00000060  00 46 0d 5b 4f 50 54 20  70 61 73 73 0d 00 50 0c  |.F.[OPT pass..P.|
00000070  4c 44 41 20 23 26 37 46  0d 00 5a 14 4c 44 58 20  |LDA #&7F..Z.LDX |
00000080  23 62 6c 6f 63 6b 20 83  20 32 35 36 0d 00 64 14  |#block . 256..d.|
00000090  4c 44 59 20 23 62 6c 6f  63 6b 20 81 20 32 35 36  |LDY #block . 256|
000000a0  0d 00 6e 0e 4a 53 52 20  6f 73 77 6f 72 64 0d 00  |..n.JSR osword..|
000000b0  78 07 52 54 53 0d 00 82  0a 2e 62 6c 6f 63 6b 0d  |x.RTS.....block.|
000000c0  00 8c 1c 45 51 55 42 20  26 46 46 20 5c 20 63 75  |...EQUB &FF \ cu|
000000d0  72 72 65 6e 74 20 64 72  69 76 65 0d 00 96 1e 45  |rrent drive....E|
000000e0  51 55 44 20 26 30 30 20  5c 20 64 6f 65 73 20 6e  |QUD &00 \ does n|
000000f0  6f 74 20 6d 61 74 74 65  72 0d 00 a0 1b 45 51 55  |ot matter....EQU|
00000100  42 20 26 30 30 20 5c 20  30 20 70 61 72 61 6d 65  |B &00 \ 0 parame|
00000110  74 65 72 73 0d 00 aa 22  45 51 55 42 20 26 36 43  |ters..."EQUB &6C|
00000120  20 5c 20 72 65 61 64 20  73 74 61 74 75 73 20 63  | \ read status c|
00000130  6f 6d 6d 61 6e 64 0d 00  b4 0b 2e 72 65 73 75 6c  |ommand.....resul|
00000140  74 0d 00 be 1a 45 51 55  42 20 26 30 30 20 5c 20  |t....EQUB &00 \ |
00000150  72 65 73 75 6c 74 20 62  79 74 65 0d 00 c8 0b 2e  |result byte.....|
00000160  62 69 6e 61 72 79 0d 00  d2 0a 4c 44 58 20 23 38  |binary....LDX #8|
00000170  0d 00 dc 09 2e 6c 6f 6f  70 0d 00 e6 0f 4c 44 41  |.....loop....LDA|
00000180  20 23 97 28 22 30 22 29  0d 00 f0 0e 41 53 4c 20  | #.("0")....ASL |
00000190  72 65 73 75 6c 74 0d 00  fa 0c 41 44 43 20 23 26  |result....ADC #&|
000001a0  30 30 0d 01 04 0e 4a 53  52 20 6f 73 77 72 63 68  |00....JSR oswrch|
000001b0  0d 01 0e 07 44 45 58 0d  01 18 0c 42 4e 45 20 6c  |....DEX....BNE l|
000001c0  6f 6f 70 0d 01 22 07 52  54 53 0d 01 2c 05 5d 0d  |oop..".RTS..,.].|
000001d0  01 36 05 ed 0d 01 40 0b  d6 20 6d 63 6f 64 65 0d  |.6....@.. mcode.|
000001e0  01 4a 21 f1 22 52 65 73  75 6c 74 20 3d 20 26 22  |.J!."Result = &"|
000001f0  3b 7e 3f 72 65 73 75 6c  74 3b 22 2c 20 25 22 3b  |;~?result;", %";|
00000200  0d 01 54 0c d6 20 62 69  6e 61 72 79 0d 01 5e 05  |..T.. binary..^.|
00000210  f1 0d ff                                          |...|
00000213