�: WRITE10
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 "Write error"
�.ok
�BRK
�EQUS "Write sucessful"
�BRK
�BRK
�
.block
�EQUB &FF \ current drive
�EQUD page \ start at �
�EQUB &03 \ 3 parameters

&EQUB &4B \ write data multi-sector

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 save 10 sectors"'
�

00000000  0d 00 0a 0e f4 3a 20 57  52 49 54 45 31 30 0d 00  |.....: WRITE10..|
00000010  14 11 6d 63 6f 64 65 20  3d 20 26 30 41 30 30 0d  |..mcode = &0A00.|
00000020  00 1e 10 6f 73 77 6f 72  64 3d 26 46 46 46 31 0d  |...osword=&FFF1.|
00000030  00 28 0c 70 61 67 65 20  3d 20 90 0d 00 32 13 e3  |.(.page = ...2..|
00000040  70 61 73 73 3d 30 20 b8  20 32 20 88 20 32 0d 00  |pass=0 . 2 . 2..|
00000050  3c 0c 50 25 3d 6d 63 6f  64 65 0d 00 46 0d 5b 4f  |<.P%=mcode..F.[O|
00000060  50 54 20 70 61 73 73 0d  00 50 0c 4c 44 41 20 23  |PT pass..P.LDA #|
00000070  26 37 46 0d 00 5a 14 4c  44 58 20 23 62 6c 6f 63  |&7F..Z.LDX #bloc|
00000080  6b 20 83 20 32 35 36 0d  00 64 14 4c 44 59 20 23  |k . 256..d.LDY #|
00000090  62 6c 6f 63 6b 20 81 20  32 35 36 0d 00 6e 0e 4a  |block . 256..n.J|
000000a0  53 52 20 6f 73 77 6f 72  64 0d 00 78 0e 4c 44 41  |SR osword..x.LDA|
000000b0  20 72 65 73 75 6c 74 0d  00 82 0a 42 45 51 20 6f  | result....BEQ o|
000000c0  6b 0d 00 8c 07 42 52 4b  0d 00 96 07 42 52 4b 0d  |k....BRK....BRK.|
000000d0  00 a0 16 45 51 55 53 20  22 57 72 69 74 65 20 65  |...EQUS "Write e|
000000e0  72 72 6f 72 22 0d 00 aa  07 2e 6f 6b 0d 00 b4 07  |rror".....ok....|
000000f0  42 52 4b 0d 00 be 1a 45  51 55 53 20 22 57 72 69  |BRK....EQUS "Wri|
00000100  74 65 20 73 75 63 65 73  73 66 75 6c 22 0d 00 c8  |te sucessful"...|
00000110  07 42 52 4b 0d 00 d2 07  42 52 4b 0d 00 dc 0a 2e  |.BRK....BRK.....|
00000120  62 6c 6f 63 6b 0d 00 e6  1c 45 51 55 42 20 26 46  |block....EQUB &F|
00000130  46 20 5c 20 63 75 72 72  65 6e 74 20 64 72 69 76  |F \ current driv|
00000140  65 0d 00 f0 1a 45 51 55  44 20 70 61 67 65 20 5c  |e....EQUD page \|
00000150  20 73 74 61 72 74 20 61  74 20 90 0d 00 fa 1b 45  | start at .....E|
00000160  51 55 42 20 26 30 33 20  5c 20 33 20 70 61 72 61  |QUB &03 \ 3 para|
00000170  6d 65 74 65 72 73 0d 01  04 26 45 51 55 42 20 26  |meters...&EQUB &|
00000180  34 42 20 5c 20 77 72 69  74 65 20 64 61 74 61 20  |4B \ write data |
00000190  6d 75 6c 74 69 2d 73 65  63 74 6f 72 0d 01 0e 1e  |multi-sector....|
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 73 61  76 65 20 31 30 20 73 65  |;" to save 10 se|
00000260  63 74 6f 72 73 22 27 0d  ff                       |ctors"'..|
00000269