�: READ10
mcode = &0A00
osword=&FFF1
(page = �
2�pass=0 � 2 � 2
<P%=mcode
F
[OPT pass
PLDA #&7F
ZLDX #block � 256
dLDY #block � 256
nJSR osword
xLDA result
�
BEQ ok
�BRK
�BRK
�EQUS "Read error"
�.ok
�BRK
�EQUS "Read sucessful"
�BRK
�BRK
�
.block
�EQUB &FF \ current drive
�EQUD page \ start at �
�EQUB &03 \ 3 parameters

)EQUB &57 \ read data and deleted data

EQUB &01 \ logical track 1

%EQUB &00 \ start logical sector 0

"&EQUB &2A \ 10 sectors of 256 bytes

,.result

6EQUB &00 \ result byte

@]

J�

T3�''"Type: CALL &";~mcode;" to read 10 sectors"'
�

00000000  0d 00 0a 0d f4 3a 20 52  45 41 44 31 30 0d 00 14  |.....: READ10...|
00000010  11 6d 63 6f 64 65 20 3d  20 26 30 41 30 30 0d 00  |.mcode = &0A00..|
00000020  1e 10 6f 73 77 6f 72 64  3d 26 46 46 46 31 0d 00  |..osword=&FFF1..|
00000030  28 0c 70 61 67 65 20 3d  20 90 0d 00 32 13 e3 70  |(.page = ...2..p|
00000040  61 73 73 3d 30 20 b8 20  32 20 88 20 32 0d 00 3c  |ass=0 . 2 . 2..<|
00000050  0c 50 25 3d 6d 63 6f 64  65 0d 00 46 0d 5b 4f 50  |.P%=mcode..F.[OP|
00000060  54 20 70 61 73 73 0d 00  50 0c 4c 44 41 20 23 26  |T pass..P.LDA #&|
00000070  37 46 0d 00 5a 14 4c 44  58 20 23 62 6c 6f 63 6b  |7F..Z.LDX #block|
00000080  20 83 20 32 35 36 0d 00  64 14 4c 44 59 20 23 62  | . 256..d.LDY #b|
00000090  6c 6f 63 6b 20 81 20 32  35 36 0d 00 6e 0e 4a 53  |lock . 256..n.JS|
000000a0  52 20 6f 73 77 6f 72 64  0d 00 78 0e 4c 44 41 20  |R osword..x.LDA |
000000b0  72 65 73 75 6c 74 0d 00  82 0a 42 45 51 20 6f 6b  |result....BEQ ok|
000000c0  0d 00 8c 07 42 52 4b 0d  00 96 07 42 52 4b 0d 00  |....BRK....BRK..|
000000d0  a0 15 45 51 55 53 20 22  52 65 61 64 20 65 72 72  |..EQUS "Read err|
000000e0  6f 72 22 0d 00 aa 07 2e  6f 6b 0d 00 b4 07 42 52  |or".....ok....BR|
000000f0  4b 0d 00 be 19 45 51 55  53 20 22 52 65 61 64 20  |K....EQUS "Read |
00000100  73 75 63 65 73 73 66 75  6c 22 0d 00 c8 07 42 52  |sucessful"....BR|
00000110  4b 0d 00 d2 07 42 52 4b  0d 00 dc 0a 2e 62 6c 6f  |K....BRK.....blo|
00000120  63 6b 0d 00 e6 1c 45 51  55 42 20 26 46 46 20 5c  |ck....EQUB &FF \|
00000130  20 63 75 72 72 65 6e 74  20 64 72 69 76 65 0d 00  | current drive..|
00000140  f0 1a 45 51 55 44 20 70  61 67 65 20 5c 20 73 74  |..EQUD page \ st|
00000150  61 72 74 20 61 74 20 90  0d 00 fa 1b 45 51 55 42  |art at .....EQUB|
00000160  20 26 30 33 20 5c 20 33  20 70 61 72 61 6d 65 74  | &03 \ 3 paramet|
00000170  65 72 73 0d 01 04 29 45  51 55 42 20 26 35 37 20  |ers...)EQUB &57 |
00000180  5c 20 72 65 61 64 20 64  61 74 61 20 61 6e 64 20  |\ read data and |
00000190  64 65 6c 65 74 65 64 20  64 61 74 61 0d 01 0e 1e  |deleted data....|
000001a0  45 51 55 42 20 26 30 31  20 5c 20 6c 6f 67 69 63  |EQUB &01 \ logic|
000001b0  61 6c 20 74 72 61 63 6b  20 31 0d 01 18 25 45 51  |al track 1...%EQ|
000001c0  55 42 20 26 30 30 20 5c  20 73 74 61 72 74 20 6c  |UB &00 \ start l|
000001d0  6f 67 69 63 61 6c 20 73  65 63 74 6f 72 20 30 0d  |ogical sector 0.|
000001e0  01 22 26 45 51 55 42 20  26 32 41 20 5c 20 31 30  |."&EQUB &2A \ 10|
000001f0  20 73 65 63 74 6f 72 73  20 6f 66 20 32 35 36 20  | sectors of 256 |
00000200  62 79 74 65 73 0d 01 2c  0b 2e 72 65 73 75 6c 74  |bytes..,..result|
00000210  0d 01 36 1a 45 51 55 42  20 26 30 30 20 5c 20 72  |..6.EQUB &00 \ r|
00000220  65 73 75 6c 74 20 62 79  74 65 0d 01 40 05 5d 0d  |esult byte..@.].|
00000230  01 4a 05 ed 0d 01 54 33  f1 27 27 22 54 79 70 65  |.J....T3.''"Type|
00000240  3a 20 43 41 4c 4c 20 26  22 3b 7e 6d 63 6f 64 65  |: CALL &";~mcode|
00000250  3b 22 20 74 6f 20 72 65  61 64 20 31 30 20 73 65  |;" to read 10 se|
00000260  63 74 6f 72 73 22 27 0d  ff                       |ctors"'..|
00000269