�: BOOTRFS
�7
�=&3C00
(diff=&8000-�
2H%=�
<address=&70
Fromnumber=&F4
P
phrom=&F5
Zrompoint=&F6
dosasci=&FFE3
nosnewl=&FFE7
xosbyte=&FFF4
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�OPT �equs("BOOTRFS")
�.copyright

BRK

+OPT �equs("(C) Gordon Horsington 1987")

BRK

".service

,PHA

6CMP #13

@BNE fourteen

JTYA

T	� #&F

^CMP romnumber

hBCC out

rLDA #(lastbyte+diff) � 256

|STA rompoint

�LDA #(lastbyte+diff) � 256

�STA rompoint+1

�LDA romnumber

�	� #&F

�
STA phrom

�	.exit

�PLA

�
LDA #0

�RTS

�
.fourteen

�CMP #14

�BNE trythree

�
LDA phrom
	� #&F
CMP romnumber
BNE out
&
LDY #0
0LDA (rompoint),Y
:TAY
DINC rompoint
NBNE exit
XINC rompoint+1
bJMP exit+diff
l.out
vPLA
�RTS
�
.trythree
�
CMP #3
�BNE out
�TXA
�PHA
�TYA
�PHA
�LDA #&7A
�JSR osbyte
�CPX #&33 \ Is it R Break?
�BEQ rbreak
�PLA
TAY
PLA
TAX
 PLA
*RTS
4.rbreak
>LDA #&C9
H
LDX #1
R
LDY #0
\!JSR osbyte \ Disable keyboard
fLDA #&0F
p
LDX #0
z"JSR osbyte \ Flush all buffers
�LDA address
�PHA
�LDA address+1
�PHA
�LDX #(rfs+diff) � 256
�LDY #(rfs+diff) � 256
�JSR print+diff
�LDX #(cat+diff) � 256
�LDY #(cat+diff) � 256
�JSR print+diff
�LDA #&8D
�JSR osbyte \ Select RFS
�LDA #&8B

LDX #1

LDY #2
JSR osbyte \ *OPT1,2
$LDX #(dot+diff) � 256
.LDY #(dot+diff) � 256
8JSR oscli \ Catalogue RFS
BLDA #&8B
L
LDX #0
V
LDY #0
`JSR osbyte \ *OPT 1,0
jJSR osnewl
tLDX #(rfs+diff) � 256
~LDY #(rfs+diff) � 256
�JSR print+diff
�LDX #(act+diff) � 256
�LDY #(act+diff) � 256
�JSR print+diff
�PLA
�STA address+1
�PLA
�STA address
�LDA #&C9
�
LDX #0
�
LDY #0
� JSR osbyte \ Enable keyboard
PLA

PLA
PLA

LDA #0
(RTS
2
.print
<STX address
FSTY address+1
PLDY #&FF
Z.printloop
dINY
nLDA (address),Y
xBEQ endprint
�JSR osasci
�JMP printloop+diff
�
.endprint
�RTS
�.dot
�OPT �equs("CAT")
�OPT �equb(&0D)
�.rfs
�#OPT �equs("ROM Filing System ")
�BRK
�.cat
�OPT �equs("Catalogue")
�OPT �equb(&0D)
BRK
.act
OPT �equs("active")
"OPT �equw(&0D0D)
,BRK
6
.lastbyte
@]
J�
TO%=lastbyte
^
�"RFSGEN"
hݤequb(byte)
r?P%=byte
|P%=P%+1
�	=pass
�ݤequw(word)
�?P%=word � 256
�P%?1=word � 256
�P%=P%+2
�	=pass
�ݤequd(double)
�!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
	=pass
�

00000000  0d 00 0a 0e f4 3a 20 42  4f 4f 54 52 46 53 0d 00  |.....: BOOTRFS..|
00000010  14 06 eb 37 0d 00 1e 0b  d3 3d 26 33 43 30 30 0d  |...7.....=&3C00.|
00000020  00 28 10 64 69 66 66 3d  26 38 30 30 30 2d 93 0d  |.(.diff=&8000-..|
00000030  00 32 08 48 25 3d 93 0d  00 3c 0f 61 64 64 72 65  |.2.H%=...<.addre|
00000040  73 73 3d 26 37 30 0d 00  46 11 72 6f 6d 6e 75 6d  |ss=&70..F.romnum|
00000050  62 65 72 3d 26 46 34 0d  00 50 0d 70 68 72 6f 6d  |ber=&F4..P.phrom|
00000060  3d 26 46 35 0d 00 5a 10  72 6f 6d 70 6f 69 6e 74  |=&F5..Z.rompoint|
00000070  3d 26 46 36 0d 00 64 10  6f 73 61 73 63 69 3d 26  |=&F6..d.osasci=&|
00000080  46 46 45 33 0d 00 6e 10  6f 73 6e 65 77 6c 3d 26  |FFE3..n.osnewl=&|
00000090  46 46 45 37 0d 00 78 10  6f 73 62 79 74 65 3d 26  |FFE7..x.osbyte=&|
000000a0  46 46 46 34 0d 00 82 0f  6f 73 63 6c 69 3d 26 46  |FFF4....oscli=&F|
000000b0  46 46 37 0d 00 8c 16 e3  20 70 61 73 73 20 3d 20  |FF7..... pass = |
000000c0  30 20 b8 20 32 20 88 20  32 0d 00 96 08 50 25 3d  |0 . 2 . 2....P%=|
000000d0  93 0d 00 a0 0d 5b 4f 50  54 20 70 61 73 73 0d 00  |.....[OPT pass..|
000000e0  aa 07 42 52 4b 0d 00 b4  07 42 52 4b 0d 00 be 07  |..BRK....BRK....|
000000f0  42 52 4b 0d 00 c8 14 4a  4d 50 20 73 65 72 76 69  |BRK....JMP servi|
00000100  63 65 2b 64 69 66 66 0d  00 d2 12 4f 50 54 20 a4  |ce+diff....OPT .|
00000110  65 71 75 62 28 26 38 32  29 0d 00 dc 25 4f 50 54  |equb(&82)...%OPT|
00000120  20 a4 65 71 75 62 28 28  63 6f 70 79 72 69 67 68  | .equb((copyrigh|
00000130  74 2b 64 69 66 66 29 20  83 20 32 35 36 29 0d 00  |t+diff) . 256)..|
00000140  e6 07 42 52 4b 0d 00 f0  18 4f 50 54 20 a4 65 71  |..BRK....OPT .eq|
00000150  75 73 28 22 42 4f 4f 54  52 46 53 22 29 0d 00 fa  |us("BOOTRFS")...|
00000160  0e 2e 63 6f 70 79 72 69  67 68 74 0d 01 04 07 42  |..copyright....B|
00000170  52 4b 0d 01 0e 2b 4f 50  54 20 a4 65 71 75 73 28  |RK...+OPT .equs(|
00000180  22 28 43 29 20 47 6f 72  64 6f 6e 20 48 6f 72 73  |"(C) Gordon Hors|
00000190  69 6e 67 74 6f 6e 20 31  39 38 37 22 29 0d 01 18  |ington 1987")...|
000001a0  07 42 52 4b 0d 01 22 0c  2e 73 65 72 76 69 63 65  |.BRK.."..service|
000001b0  0d 01 2c 07 50 48 41 0d  01 36 0b 43 4d 50 20 23  |..,.PHA..6.CMP #|
000001c0  31 33 0d 01 40 10 42 4e  45 20 66 6f 75 72 74 65  |13..@.BNE fourte|
000001d0  65 6e 0d 01 4a 07 54 59  41 0d 01 54 09 82 20 23  |en..J.TYA..T.. #|
000001e0  26 46 0d 01 5e 11 43 4d  50 20 72 6f 6d 6e 75 6d  |&F..^.CMP romnum|
000001f0  62 65 72 0d 01 68 0b 42  43 43 20 6f 75 74 0d 01  |ber..h.BCC out..|
00000200  72 1e 4c 44 41 20 23 28  6c 61 73 74 62 79 74 65  |r.LDA #(lastbyte|
00000210  2b 64 69 66 66 29 20 83  20 32 35 36 0d 01 7c 10  |+diff) . 256..|.|
00000220  53 54 41 20 72 6f 6d 70  6f 69 6e 74 0d 01 86 1e  |STA rompoint....|
00000230  4c 44 41 20 23 28 6c 61  73 74 62 79 74 65 2b 64  |LDA #(lastbyte+d|
00000240  69 66 66 29 20 81 20 32  35 36 0d 01 90 12 53 54  |iff) . 256....ST|
00000250  41 20 72 6f 6d 70 6f 69  6e 74 2b 31 0d 01 9a 11  |A rompoint+1....|
00000260  4c 44 41 20 72 6f 6d 6e  75 6d 62 65 72 0d 01 a4  |LDA romnumber...|
00000270  09 82 20 23 26 46 0d 01  ae 0d 53 54 41 20 70 68  |.. #&F....STA ph|
00000280  72 6f 6d 0d 01 b8 09 2e  65 78 69 74 0d 01 c2 07  |rom.....exit....|
00000290  50 4c 41 0d 01 cc 0a 4c  44 41 20 23 30 0d 01 d6  |PLA....LDA #0...|
000002a0  07 52 54 53 0d 01 e0 0d  2e 66 6f 75 72 74 65 65  |.RTS.....fourtee|
000002b0  6e 0d 01 ea 0b 43 4d 50  20 23 31 34 0d 01 f4 10  |n....CMP #14....|
000002c0  42 4e 45 20 74 72 79 74  68 72 65 65 0d 01 fe 0d  |BNE trythree....|
000002d0  4c 44 41 20 70 68 72 6f  6d 0d 02 08 09 82 20 23  |LDA phrom..... #|
000002e0  26 46 0d 02 12 11 43 4d  50 20 72 6f 6d 6e 75 6d  |&F....CMP romnum|
000002f0  62 65 72 0d 02 1c 0b 42  4e 45 20 6f 75 74 0d 02  |ber....BNE out..|
00000300  26 0a 4c 44 59 20 23 30  0d 02 30 14 4c 44 41 20  |&.LDY #0..0.LDA |
00000310  28 72 6f 6d 70 6f 69 6e  74 29 2c 59 0d 02 3a 07  |(rompoint),Y..:.|
00000320  54 41 59 0d 02 44 10 49  4e 43 20 72 6f 6d 70 6f  |TAY..D.INC rompo|
00000330  69 6e 74 0d 02 4e 0c 42  4e 45 20 65 78 69 74 0d  |int..N.BNE exit.|
00000340  02 58 12 49 4e 43 20 72  6f 6d 70 6f 69 6e 74 2b  |.X.INC rompoint+|
00000350  31 0d 02 62 11 4a 4d 50  20 65 78 69 74 2b 64 69  |1..b.JMP exit+di|
00000360  66 66 0d 02 6c 08 2e 6f  75 74 0d 02 76 07 50 4c  |ff..l..out..v.PL|
00000370  41 0d 02 80 07 52 54 53  0d 02 8a 0d 2e 74 72 79  |A....RTS.....try|
00000380  74 68 72 65 65 0d 02 94  0a 43 4d 50 20 23 33 0d  |three....CMP #3.|
00000390  02 9e 0b 42 4e 45 20 6f  75 74 0d 02 a8 07 54 58  |...BNE out....TX|
000003a0  41 0d 02 b2 07 50 48 41  0d 02 bc 07 54 59 41 0d  |A....PHA....TYA.|
000003b0  02 c6 07 50 48 41 0d 02  d0 0c 4c 44 41 20 23 26  |...PHA....LDA #&|
000003c0  37 41 0d 02 da 0e 4a 53  52 20 6f 73 62 79 74 65  |7A....JSR osbyte|
000003d0  0d 02 e4 1d 43 50 58 20  23 26 33 33 20 5c 20 49  |....CPX #&33 \ I|
000003e0  73 20 69 74 20 52 20 42  72 65 61 6b 3f 0d 02 ee  |s it R Break?...|
000003f0  0e 42 45 51 20 72 62 72  65 61 6b 0d 02 f8 07 50  |.BEQ rbreak....P|
00000400  4c 41 0d 03 02 07 54 41  59 0d 03 0c 07 50 4c 41  |LA....TAY....PLA|
00000410  0d 03 16 07 54 41 58 0d  03 20 07 50 4c 41 0d 03  |....TAX.. .PLA..|
00000420  2a 07 52 54 53 0d 03 34  0b 2e 72 62 72 65 61 6b  |*.RTS..4..rbreak|
00000430  0d 03 3e 0c 4c 44 41 20  23 26 43 39 0d 03 48 0a  |..>.LDA #&C9..H.|
00000440  4c 44 58 20 23 31 0d 03  52 0a 4c 44 59 20 23 30  |LDX #1..R.LDY #0|
00000450  0d 03 5c 21 4a 53 52 20  6f 73 62 79 74 65 20 5c  |..\!JSR osbyte \|
00000460  20 44 69 73 61 62 6c 65  20 6b 65 79 62 6f 61 72  | Disable keyboar|
00000470  64 0d 03 66 0c 4c 44 41  20 23 26 30 46 0d 03 70  |d..f.LDA #&0F..p|
00000480  0a 4c 44 58 20 23 30 0d  03 7a 22 4a 53 52 20 6f  |.LDX #0..z"JSR o|
00000490  73 62 79 74 65 20 5c 20  46 6c 75 73 68 20 61 6c  |sbyte \ Flush al|
000004a0  6c 20 62 75 66 66 65 72  73 0d 03 84 0f 4c 44 41  |l buffers....LDA|
000004b0  20 61 64 64 72 65 73 73  0d 03 8e 07 50 48 41 0d  | address....PHA.|
000004c0  03 98 11 4c 44 41 20 61  64 64 72 65 73 73 2b 31  |...LDA address+1|
000004d0  0d 03 a2 07 50 48 41 0d  03 ac 19 4c 44 58 20 23  |....PHA....LDX #|
000004e0  28 72 66 73 2b 64 69 66  66 29 20 83 20 32 35 36  |(rfs+diff) . 256|
000004f0  0d 03 b6 19 4c 44 59 20  23 28 72 66 73 2b 64 69  |....LDY #(rfs+di|
00000500  66 66 29 20 81 20 32 35  36 0d 03 c0 12 4a 53 52  |ff) . 256....JSR|
00000510  20 70 72 69 6e 74 2b 64  69 66 66 0d 03 ca 19 4c  | print+diff....L|
00000520  44 58 20 23 28 63 61 74  2b 64 69 66 66 29 20 83  |DX #(cat+diff) .|
00000530  20 32 35 36 0d 03 d4 19  4c 44 59 20 23 28 63 61  | 256....LDY #(ca|
00000540  74 2b 64 69 66 66 29 20  81 20 32 35 36 0d 03 de  |t+diff) . 256...|
00000550  12 4a 53 52 20 70 72 69  6e 74 2b 64 69 66 66 0d  |.JSR print+diff.|
00000560  03 e8 0c 4c 44 41 20 23  26 38 44 0d 03 f2 1b 4a  |...LDA #&8D....J|
00000570  53 52 20 6f 73 62 79 74  65 20 5c 20 53 65 6c 65  |SR osbyte \ Sele|
00000580  63 74 20 52 46 53 0d 03  fc 0c 4c 44 41 20 23 26  |ct RFS....LDA #&|
00000590  38 42 0d 04 06 0a 4c 44  58 20 23 31 0d 04 10 0a  |8B....LDX #1....|
000005a0  4c 44 59 20 23 32 0d 04  1a 18 4a 53 52 20 6f 73  |LDY #2....JSR os|
000005b0  62 79 74 65 20 5c 20 2a  4f 50 54 31 2c 32 0d 04  |byte \ *OPT1,2..|
000005c0  24 19 4c 44 58 20 23 28  64 6f 74 2b 64 69 66 66  |$.LDX #(dot+diff|
000005d0  29 20 83 20 32 35 36 0d  04 2e 19 4c 44 59 20 23  |) . 256....LDY #|
000005e0  28 64 6f 74 2b 64 69 66  66 29 20 81 20 32 35 36  |(dot+diff) . 256|
000005f0  0d 04 38 1d 4a 53 52 20  6f 73 63 6c 69 20 5c 20  |..8.JSR oscli \ |
00000600  43 61 74 61 6c 6f 67 75  65 20 52 46 53 0d 04 42  |Catalogue RFS..B|
00000610  0c 4c 44 41 20 23 26 38  42 0d 04 4c 0a 4c 44 58  |.LDA #&8B..L.LDX|
00000620  20 23 30 0d 04 56 0a 4c  44 59 20 23 30 0d 04 60  | #0..V.LDY #0..`|
00000630  19 4a 53 52 20 6f 73 62  79 74 65 20 5c 20 2a 4f  |.JSR osbyte \ *O|
00000640  50 54 20 31 2c 30 0d 04  6a 0e 4a 53 52 20 6f 73  |PT 1,0..j.JSR os|
00000650  6e 65 77 6c 0d 04 74 19  4c 44 58 20 23 28 72 66  |newl..t.LDX #(rf|
00000660  73 2b 64 69 66 66 29 20  83 20 32 35 36 0d 04 7e  |s+diff) . 256..~|
00000670  19 4c 44 59 20 23 28 72  66 73 2b 64 69 66 66 29  |.LDY #(rfs+diff)|
00000680  20 81 20 32 35 36 0d 04  88 12 4a 53 52 20 70 72  | . 256....JSR pr|
00000690  69 6e 74 2b 64 69 66 66  0d 04 92 19 4c 44 58 20  |int+diff....LDX |
000006a0  23 28 61 63 74 2b 64 69  66 66 29 20 83 20 32 35  |#(act+diff) . 25|
000006b0  36 0d 04 9c 19 4c 44 59  20 23 28 61 63 74 2b 64  |6....LDY #(act+d|
000006c0  69 66 66 29 20 81 20 32  35 36 0d 04 a6 12 4a 53  |iff) . 256....JS|
000006d0  52 20 70 72 69 6e 74 2b  64 69 66 66 0d 04 b0 07  |R print+diff....|
000006e0  50 4c 41 0d 04 ba 11 53  54 41 20 61 64 64 72 65  |PLA....STA addre|
000006f0  73 73 2b 31 0d 04 c4 07  50 4c 41 0d 04 ce 0f 53  |ss+1....PLA....S|
00000700  54 41 20 61 64 64 72 65  73 73 0d 04 d8 0c 4c 44  |TA address....LD|
00000710  41 20 23 26 43 39 0d 04  e2 0a 4c 44 58 20 23 30  |A #&C9....LDX #0|
00000720  0d 04 ec 0a 4c 44 59 20  23 30 0d 04 f6 20 4a 53  |....LDY #0... JS|
00000730  52 20 6f 73 62 79 74 65  20 5c 20 45 6e 61 62 6c  |R osbyte \ Enabl|
00000740  65 20 6b 65 79 62 6f 61  72 64 0d 05 00 07 50 4c  |e keyboard....PL|
00000750  41 0d 05 0a 07 50 4c 41  0d 05 14 07 50 4c 41 0d  |A....PLA....PLA.|
00000760  05 1e 0a 4c 44 41 20 23  30 0d 05 28 07 52 54 53  |...LDA #0..(.RTS|
00000770  0d 05 32 0a 2e 70 72 69  6e 74 0d 05 3c 0f 53 54  |..2..print..<.ST|
00000780  58 20 61 64 64 72 65 73  73 0d 05 46 11 53 54 59  |X address..F.STY|
00000790  20 61 64 64 72 65 73 73  2b 31 0d 05 50 0c 4c 44  | address+1..P.LD|
000007a0  59 20 23 26 46 46 0d 05  5a 0e 2e 70 72 69 6e 74  |Y #&FF..Z..print|
000007b0  6c 6f 6f 70 0d 05 64 07  49 4e 59 0d 05 6e 13 4c  |loop..d.INY..n.L|
000007c0  44 41 20 28 61 64 64 72  65 73 73 29 2c 59 0d 05  |DA (address),Y..|
000007d0  78 10 42 45 51 20 65 6e  64 70 72 69 6e 74 0d 05  |x.BEQ endprint..|
000007e0  82 0e 4a 53 52 20 6f 73  61 73 63 69 0d 05 8c 16  |..JSR osasci....|
000007f0  4a 4d 50 20 70 72 69 6e  74 6c 6f 6f 70 2b 64 69  |JMP printloop+di|
00000800  66 66 0d 05 96 0d 2e 65  6e 64 70 72 69 6e 74 0d  |ff.....endprint.|
00000810  05 a0 07 52 54 53 0d 05  aa 08 2e 64 6f 74 0d 05  |...RTS.....dot..|
00000820  b4 14 4f 50 54 20 a4 65  71 75 73 28 22 43 41 54  |..OPT .equs("CAT|
00000830  22 29 0d 05 be 12 4f 50  54 20 a4 65 71 75 62 28  |")....OPT .equb(|
00000840  26 30 44 29 0d 05 c8 08  2e 72 66 73 0d 05 d2 23  |&0D).....rfs...#|
00000850  4f 50 54 20 a4 65 71 75  73 28 22 52 4f 4d 20 46  |OPT .equs("ROM F|
00000860  69 6c 69 6e 67 20 53 79  73 74 65 6d 20 22 29 0d  |iling System ").|
00000870  05 dc 07 42 52 4b 0d 05  e6 08 2e 63 61 74 0d 05  |...BRK.....cat..|
00000880  f0 1a 4f 50 54 20 a4 65  71 75 73 28 22 43 61 74  |..OPT .equs("Cat|
00000890  61 6c 6f 67 75 65 22 29  0d 05 fa 12 4f 50 54 20  |alogue")....OPT |
000008a0  a4 65 71 75 62 28 26 30  44 29 0d 06 04 07 42 52  |.equb(&0D)....BR|
000008b0  4b 0d 06 0e 08 2e 61 63  74 0d 06 18 17 4f 50 54  |K.....act....OPT|
000008c0  20 a4 65 71 75 73 28 22  61 63 74 69 76 65 22 29  | .equs("active")|
000008d0  0d 06 22 14 4f 50 54 20  a4 65 71 75 77 28 26 30  |..".OPT .equw(&0|
000008e0  44 30 44 29 0d 06 2c 07  42 52 4b 0d 06 36 0d 2e  |D0D)..,.BRK..6..|
000008f0  6c 61 73 74 62 79 74 65  0d 06 40 05 5d 0d 06 4a  |lastbyte..@.]..J|
00000900  05 ed 0d 06 54 0f 4f 25  3d 6c 61 73 74 62 79 74  |....T.O%=lastbyt|
00000910  65 0d 06 5e 0d d7 22 52  46 53 47 45 4e 22 0d 06  |e..^.."RFSGEN"..|
00000920  68 10 dd a4 65 71 75 62  28 62 79 74 65 29 0d 06  |h...equb(byte)..|
00000930  72 0c 3f 50 25 3d 62 79  74 65 0d 06 7c 0b 50 25  |r.?P%=byte..|.P%|
00000940  3d 50 25 2b 31 0d 06 86  09 3d 70 61 73 73 0d 06  |=P%+1....=pass..|
00000950  90 10 dd a4 65 71 75 77  28 77 6f 72 64 29 0d 06  |....equw(word)..|
00000960  9a 12 3f 50 25 3d 77 6f  72 64 20 83 20 32 35 36  |..?P%=word . 256|
00000970  0d 06 a4 13 50 25 3f 31  3d 77 6f 72 64 20 81 20  |....P%?1=word . |
00000980  32 35 36 0d 06 ae 0b 50  25 3d 50 25 2b 32 0d 06  |256....P%=P%+2..|
00000990  b8 09 3d 70 61 73 73 0d  06 c2 12 dd a4 65 71 75  |..=pass......equ|
000009a0  64 28 64 6f 75 62 6c 65  29 0d 06 cc 0e 21 50 25  |d(double)....!P%|
000009b0  3d 64 6f 75 62 6c 65 0d  06 d6 0b 50 25 3d 50 25  |=double....P%=P%|
000009c0  2b 34 0d 06 e0 09 3d 70  61 73 73 0d 06 ea 13 dd  |+4....=pass.....|
000009d0  a4 65 71 75 73 28 73 74  72 69 6e 67 24 29 0d 06  |.equs(string$)..|
000009e0  f4 0f 24 50 25 3d 73 74  72 69 6e 67 24 0d 06 fe  |..$P%=string$...|
000009f0  14 50 25 3d 50 25 2b a9  28 73 74 72 69 6e 67 24  |.P%=P%+.(string$|
00000a00  29 0d 07 08 09 3d 70 61  73 73 0d ff              |)....=pass..|
00000a0c