�: ALLRFS
�7
�=&3C00
(diff=&8000-�
2H%=�
<address=&70
Fcomvec=&F2
Promnumber=&F4
Z
phrom=&F5
drompoint=&F6
nbreakv=&202
xgsinit=&FFC2
�gsread=&FFC5
�osasci=&FFE3
�osnewl=&FFE7
�osbyte=&FFF4
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�JMP language+diff
�JMP service+diff
�OPT �equb(&C2)
�%OPT �equb((copyright+diff) � 256)
�BRK


.title

OPT �equs("RFS")

.copyright

"BRK

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

6BRK

@.service

JPHA

T
CMP #4

^BNE trythirteen

hTXA

rPHA

|TYA

�PHA

�LDX #&FF

�.comloop

�INX

�LDA title+diff,X

�
BEQ found

�LDA (comvec),Y

�INY

�CMP #�(".")

�
BEQ found

�
� #&DF

�CMP title+diff,X

�BEQ comloop
PLA
TAY
PLA
&TAX
0PLA
:RTS
D
.found
NLDA #&8E
XLDX romnumber
bJMP osbyte \ Enter this ROM
l.trythirteen
vCMP #13
�BNE fourteen
�TYA
�	� #&F
�CMP romnumber
�BCC out
�LDA #(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
4BNE trythree
>
LDA phrom
H	� #&F
RCMP romnumber
\BNE out
f
LDY #0
pLDA (rompoint),Y
zTAY
�INC rompoint
�BNE exit
�INC rompoint+1
�JMP exit+diff
�.out
�PLA
�RTS
�
.trythree
�
CMP #3
�BNE trynine
�JMP three+diff
�.trynine
�
CMP #9
BNE out
TXA
PHA
$TYA
.PHA
8LDA address
BPHA
LLDA address+1
VPHA
`SEC
jJSR gsinit
t
LDX #0
~JSR gsread
�BCC tryextended
�LDX #(helptitle+diff) � 256
�LDY #(helptitle+diff) � 256
�JSR print+diff
�
.exithelp
�PLA
�STA address+1
�PLA
�STA address
�PLA
�TAY
�PLA
TAX

PLA
RTS

.helploop
(INX
2JSR gsread
<.tryextended
FCMP #�(".")
PBEQ extension
Z
� #&DF
dCMP extended+diff,X
nBEQ helploop
xLDA extended+diff,X
�BPL exithelp
�.extension
�LDX #(exthelp+diff) � 256
�LDY #(exthelp+diff) � 256
�JSR print+diff
�BEQ exithelp
�
.print
�STX address
�STY address+1
�LDY #&FF
�.printloop
�INY
�LDA (address),Y
BEQ endprint
BMI printloop
JSR osasci
"JMP printloop+diff
,
.endprint
6RTS
@.helptitle
JOPT �equb(&0D)
T"OPT �equs("Rom Filing System")
^OPT �equb(&0D)
hOPT �equw(&2020)
r
.extended
|OPT �equs("RFS")
�OPT �equw(&0DFF)
�BRK
�.exthelp
�OPT �equb(&0D)
�"OPT �equs("Rom Filing System")
�OPT �equw(&0D0D)
�%OPT �equs("Select RFS with *ROM")
�OPT �equb(&0D)
�+OPT �equs("Boot RFS with Ctrl-R-Break")
�OPT �equb(&0D)
�0OPT �equs("Enter RFS with *RFS or *FX142,n")
�OPT �equb(&0D)
�BRK

.three
TXA
PHA
&TYA
0PHA
:LDA #&7A
DJSR osbyte
N"CPX #&33 \ Is it Ctrl-R-Break?
XBEQ rbreak
bPLA
lTAY
vPLA
�TAX
�PLA
�RTS
�.rbreak
�LDA #&C9
�
LDX #1
�
LDY #0
�!JSR osbyte \ Disable keyboard
�LDA #&0F
�
LDX #0
�"JSR osbyte \ Flush all buffers
�LDA address
�PHA
LDA address+1
PHA
LDX #(rfs+diff) � 256
 LDY #(rfs+diff) � 256
*JSR print+diff
4LDX #(cat+diff) � 256
>LDY #(cat+diff) � 256
HJSR print+diff
RLDA #&8D
\JSR osbyte \ Select RFS
fLDA #&8B
p
LDX #1
z
LDY #2
�JSR osbyte \ *OPT1,2
�LDX #(dot+diff) � 256
�LDY #(dot+diff) � 256
�JSR oscli \ Catalogue RFS
�LDA #&8B
�
LDX #0
�
LDY #0
�JSR osbyte \ *OPT 1,0
�JSR osnewl
�LDX #(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
	8STA address
	BLDA #&C9
	L
LDX #0
	V
LDY #0
	` JSR osbyte \ Enable keyboard
	jPLA
	tPLA
	~PLA
	�
LDA #0
	�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
(
.language
2"CLI \ Enable interupt requests
<LDX #&FF
FTXS \ Reset stack
PLDA #(basic+diff) � 256
ZSTA breakv
dLDA #(basic+diff) � 256
nSTA breakv+1
xLDA #&8D
�JSR osbyte \ *ROM
�LDA #&8B
�
LDX #1
�
LDY #0
�JSR osbyte \ *OPT1,0
�LDA #&0F
�
LDX #0
�"JSR osbyte \ Flush all buffers
�LDA #&FF
�PHA
�
.keyboard
�PLA
�TAX
INX
TXA
PHA
"LDY rfscomm+diff,X
,BEQ endkey
6LDA #&8A
@
LDX #0
JJSR osbyte
TJMP keyboard+diff
^.endkey
hPLA
r
.basic
|LDA #&BB
�
LDX #0
�LDY #&FF
�JSR osbyte \ Find BASIC
�LDA #&8E
�JMP osbyte \ Enter BASIC
�.rfscomm
�OPT �equs("CHAIN""DEMO""")
�OPT �equb(&0D)
�BRK
�
.lastbyte
�]
��
�O%=lastbyte

�"RFSGEN"
ݤequb(byte)
?P%=byte
&P%=P%+1
0	=pass
:ݤequw(word)
D?P%=word � 256
NP%?1=word � 256
XP%=P%+2
b	=pass
lݤequd(double)
v!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
�	=pass
�

00000000  0d 00 0a 0d f4 3a 20 41  4c 4c 52 46 53 0d 00 14  |.....: ALLRFS...|
00000010  06 eb 37 0d 00 1e 0b d3  3d 26 33 43 30 30 0d 00  |..7.....=&3C00..|
00000020  28 10 64 69 66 66 3d 26  38 30 30 30 2d 93 0d 00  |(.diff=&8000-...|
00000030  32 08 48 25 3d 93 0d 00  3c 0f 61 64 64 72 65 73  |2.H%=...<.addres|
00000040  73 3d 26 37 30 0d 00 46  0e 63 6f 6d 76 65 63 3d  |s=&70..F.comvec=|
00000050  26 46 32 0d 00 50 11 72  6f 6d 6e 75 6d 62 65 72  |&F2..P.romnumber|
00000060  3d 26 46 34 0d 00 5a 0d  70 68 72 6f 6d 3d 26 46  |=&F4..Z.phrom=&F|
00000070  35 0d 00 64 10 72 6f 6d  70 6f 69 6e 74 3d 26 46  |5..d.rompoint=&F|
00000080  36 0d 00 6e 0f 62 72 65  61 6b 76 3d 26 32 30 32  |6..n.breakv=&202|
00000090  0d 00 78 10 67 73 69 6e  69 74 3d 26 46 46 43 32  |..x.gsinit=&FFC2|
000000a0  0d 00 82 10 67 73 72 65  61 64 3d 26 46 46 43 35  |....gsread=&FFC5|
000000b0  0d 00 8c 10 6f 73 61 73  63 69 3d 26 46 46 45 33  |....osasci=&FFE3|
000000c0  0d 00 96 10 6f 73 6e 65  77 6c 3d 26 46 46 45 37  |....osnewl=&FFE7|
000000d0  0d 00 a0 10 6f 73 62 79  74 65 3d 26 46 46 46 34  |....osbyte=&FFF4|
000000e0  0d 00 aa 0f 6f 73 63 6c  69 3d 26 46 46 46 37 0d  |....oscli=&FFF7.|
000000f0  00 b4 16 e3 20 70 61 73  73 20 3d 20 30 20 b8 20  |.... pass = 0 . |
00000100  32 20 88 20 32 0d 00 be  08 50 25 3d 93 0d 00 c8  |2 . 2....P%=....|
00000110  0d 5b 4f 50 54 20 70 61  73 73 0d 00 d2 15 4a 4d  |.[OPT pass....JM|
00000120  50 20 6c 61 6e 67 75 61  67 65 2b 64 69 66 66 0d  |P language+diff.|
00000130  00 dc 14 4a 4d 50 20 73  65 72 76 69 63 65 2b 64  |...JMP service+d|
00000140  69 66 66 0d 00 e6 12 4f  50 54 20 a4 65 71 75 62  |iff....OPT .equb|
00000150  28 26 43 32 29 0d 00 f0  25 4f 50 54 20 a4 65 71  |(&C2)...%OPT .eq|
00000160  75 62 28 28 63 6f 70 79  72 69 67 68 74 2b 64 69  |ub((copyright+di|
00000170  66 66 29 20 83 20 32 35  36 29 0d 00 fa 07 42 52  |ff) . 256)....BR|
00000180  4b 0d 01 04 0a 2e 74 69  74 6c 65 0d 01 0e 14 4f  |K.....title....O|
00000190  50 54 20 a4 65 71 75 73  28 22 52 46 53 22 29 0d  |PT .equs("RFS").|
000001a0  01 18 0e 2e 63 6f 70 79  72 69 67 68 74 0d 01 22  |....copyright.."|
000001b0  07 42 52 4b 0d 01 2c 2b  4f 50 54 20 a4 65 71 75  |.BRK..,+OPT .equ|
000001c0  73 28 22 28 43 29 20 47  6f 72 64 6f 6e 20 48 6f  |s("(C) Gordon Ho|
000001d0  72 73 69 6e 67 74 6f 6e  20 31 39 38 37 22 29 0d  |rsington 1987").|
000001e0  01 36 07 42 52 4b 0d 01  40 0c 2e 73 65 72 76 69  |.6.BRK..@..servi|
000001f0  63 65 0d 01 4a 07 50 48  41 0d 01 54 0a 43 4d 50  |ce..J.PHA..T.CMP|
00000200  20 23 34 0d 01 5e 13 42  4e 45 20 74 72 79 74 68  | #4..^.BNE tryth|
00000210  69 72 74 65 65 6e 0d 01  68 07 54 58 41 0d 01 72  |irteen..h.TXA..r|
00000220  07 50 48 41 0d 01 7c 07  54 59 41 0d 01 86 07 50  |.PHA..|.TYA....P|
00000230  48 41 0d 01 90 0c 4c 44  58 20 23 26 46 46 0d 01  |HA....LDX #&FF..|
00000240  9a 0c 2e 63 6f 6d 6c 6f  6f 70 0d 01 a4 07 49 4e  |...comloop....IN|
00000250  58 0d 01 ae 14 4c 44 41  20 74 69 74 6c 65 2b 64  |X....LDA title+d|
00000260  69 66 66 2c 58 0d 01 b8  0d 42 45 51 20 66 6f 75  |iff,X....BEQ fou|
00000270  6e 64 0d 01 c2 12 4c 44  41 20 28 63 6f 6d 76 65  |nd....LDA (comve|
00000280  63 29 2c 59 0d 01 cc 07  49 4e 59 0d 01 d6 0f 43  |c),Y....INY....C|
00000290  4d 50 20 23 97 28 22 2e  22 29 0d 01 e0 0d 42 45  |MP #.(".")....BE|
000002a0  51 20 66 6f 75 6e 64 0d  01 ea 0a 80 20 23 26 44  |Q found..... #&D|
000002b0  46 0d 01 f4 14 43 4d 50  20 74 69 74 6c 65 2b 64  |F....CMP title+d|
000002c0  69 66 66 2c 58 0d 01 fe  0f 42 45 51 20 63 6f 6d  |iff,X....BEQ com|
000002d0  6c 6f 6f 70 0d 02 08 07  50 4c 41 0d 02 12 07 54  |loop....PLA....T|
000002e0  41 59 0d 02 1c 07 50 4c  41 0d 02 26 07 54 41 58  |AY....PLA..&.TAX|
000002f0  0d 02 30 07 50 4c 41 0d  02 3a 07 52 54 53 0d 02  |..0.PLA..:.RTS..|
00000300  44 0a 2e 66 6f 75 6e 64  0d 02 4e 0c 4c 44 41 20  |D..found..N.LDA |
00000310  23 26 38 45 0d 02 58 11  4c 44 58 20 72 6f 6d 6e  |#&8E..X.LDX romn|
00000320  75 6d 62 65 72 0d 02 62  1f 4a 4d 50 20 6f 73 62  |umber..b.JMP osb|
00000330  79 74 65 20 5c 20 45 6e  74 65 72 20 74 68 69 73  |yte \ Enter this|
00000340  20 52 4f 4d 0d 02 6c 10  2e 74 72 79 74 68 69 72  | ROM..l..trythir|
00000350  74 65 65 6e 0d 02 76 0b  43 4d 50 20 23 31 33 0d  |teen..v.CMP #13.|
00000360  02 80 10 42 4e 45 20 66  6f 75 72 74 65 65 6e 0d  |...BNE fourteen.|
00000370  02 8a 07 54 59 41 0d 02  94 09 82 20 23 26 46 0d  |...TYA..... #&F.|
00000380  02 9e 11 43 4d 50 20 72  6f 6d 6e 75 6d 62 65 72  |...CMP romnumber|
00000390  0d 02 a8 0b 42 43 43 20  6f 75 74 0d 02 b2 1e 4c  |....BCC out....L|
000003a0  44 41 20 23 28 6c 61 73  74 62 79 74 65 2b 64 69  |DA #(lastbyte+di|
000003b0  66 66 29 20 83 20 32 35  36 0d 02 bc 10 53 54 41  |ff) . 256....STA|
000003c0  20 72 6f 6d 70 6f 69 6e  74 0d 02 c6 1e 4c 44 41  | rompoint....LDA|
000003d0  20 23 28 6c 61 73 74 62  79 74 65 2b 64 69 66 66  | #(lastbyte+diff|
000003e0  29 20 81 20 32 35 36 0d  02 d0 12 53 54 41 20 72  |) . 256....STA r|
000003f0  6f 6d 70 6f 69 6e 74 2b  31 0d 02 da 11 4c 44 41  |ompoint+1....LDA|
00000400  20 72 6f 6d 6e 75 6d 62  65 72 0d 02 e4 09 82 20  | romnumber..... |
00000410  23 26 46 0d 02 ee 0d 53  54 41 20 70 68 72 6f 6d  |#&F....STA phrom|
00000420  0d 02 f8 09 2e 65 78 69  74 0d 03 02 07 50 4c 41  |.....exit....PLA|
00000430  0d 03 0c 0a 4c 44 41 20  23 30 0d 03 16 07 52 54  |....LDA #0....RT|
00000440  53 0d 03 20 0d 2e 66 6f  75 72 74 65 65 6e 0d 03  |S.. ..fourteen..|
00000450  2a 0b 43 4d 50 20 23 31  34 0d 03 34 10 42 4e 45  |*.CMP #14..4.BNE|
00000460  20 74 72 79 74 68 72 65  65 0d 03 3e 0d 4c 44 41  | trythree..>.LDA|
00000470  20 70 68 72 6f 6d 0d 03  48 09 82 20 23 26 46 0d  | phrom..H.. #&F.|
00000480  03 52 11 43 4d 50 20 72  6f 6d 6e 75 6d 62 65 72  |.R.CMP romnumber|
00000490  0d 03 5c 0b 42 4e 45 20  6f 75 74 0d 03 66 0a 4c  |..\.BNE out..f.L|
000004a0  44 59 20 23 30 0d 03 70  14 4c 44 41 20 28 72 6f  |DY #0..p.LDA (ro|
000004b0  6d 70 6f 69 6e 74 29 2c  59 0d 03 7a 07 54 41 59  |mpoint),Y..z.TAY|
000004c0  0d 03 84 10 49 4e 43 20  72 6f 6d 70 6f 69 6e 74  |....INC rompoint|
000004d0  0d 03 8e 0c 42 4e 45 20  65 78 69 74 0d 03 98 12  |....BNE exit....|
000004e0  49 4e 43 20 72 6f 6d 70  6f 69 6e 74 2b 31 0d 03  |INC rompoint+1..|
000004f0  a2 11 4a 4d 50 20 65 78  69 74 2b 64 69 66 66 0d  |..JMP exit+diff.|
00000500  03 ac 08 2e 6f 75 74 0d  03 b6 07 50 4c 41 0d 03  |....out....PLA..|
00000510  c0 07 52 54 53 0d 03 ca  0d 2e 74 72 79 74 68 72  |..RTS.....trythr|
00000520  65 65 0d 03 d4 0a 43 4d  50 20 23 33 0d 03 de 0f  |ee....CMP #3....|
00000530  42 4e 45 20 74 72 79 6e  69 6e 65 0d 03 e8 12 4a  |BNE trynine....J|
00000540  4d 50 20 74 68 72 65 65  2b 64 69 66 66 0d 03 f2  |MP three+diff...|
00000550  0c 2e 74 72 79 6e 69 6e  65 0d 03 fc 0a 43 4d 50  |..trynine....CMP|
00000560  20 23 39 0d 04 06 0b 42  4e 45 20 6f 75 74 0d 04  | #9....BNE out..|
00000570  10 07 54 58 41 0d 04 1a  07 50 48 41 0d 04 24 07  |..TXA....PHA..$.|
00000580  54 59 41 0d 04 2e 07 50  48 41 0d 04 38 0f 4c 44  |TYA....PHA..8.LD|
00000590  41 20 61 64 64 72 65 73  73 0d 04 42 07 50 48 41  |A address..B.PHA|
000005a0  0d 04 4c 11 4c 44 41 20  61 64 64 72 65 73 73 2b  |..L.LDA address+|
000005b0  31 0d 04 56 07 50 48 41  0d 04 60 07 53 45 43 0d  |1..V.PHA..`.SEC.|
000005c0  04 6a 0e 4a 53 52 20 67  73 69 6e 69 74 0d 04 74  |.j.JSR gsinit..t|
000005d0  0a 4c 44 58 20 23 30 0d  04 7e 0e 4a 53 52 20 67  |.LDX #0..~.JSR g|
000005e0  73 72 65 61 64 0d 04 88  13 42 43 43 20 74 72 79  |sread....BCC try|
000005f0  65 78 74 65 6e 64 65 64  0d 04 92 1f 4c 44 58 20  |extended....LDX |
00000600  23 28 68 65 6c 70 74 69  74 6c 65 2b 64 69 66 66  |#(helptitle+diff|
00000610  29 20 83 20 32 35 36 0d  04 9c 1f 4c 44 59 20 23  |) . 256....LDY #|
00000620  28 68 65 6c 70 74 69 74  6c 65 2b 64 69 66 66 29  |(helptitle+diff)|
00000630  20 81 20 32 35 36 0d 04  a6 12 4a 53 52 20 70 72  | . 256....JSR pr|
00000640  69 6e 74 2b 64 69 66 66  0d 04 b0 0d 2e 65 78 69  |int+diff.....exi|
00000650  74 68 65 6c 70 0d 04 ba  07 50 4c 41 0d 04 c4 11  |thelp....PLA....|
00000660  53 54 41 20 61 64 64 72  65 73 73 2b 31 0d 04 ce  |STA address+1...|
00000670  07 50 4c 41 0d 04 d8 0f  53 54 41 20 61 64 64 72  |.PLA....STA addr|
00000680  65 73 73 0d 04 e2 07 50  4c 41 0d 04 ec 07 54 41  |ess....PLA....TA|
00000690  59 0d 04 f6 07 50 4c 41  0d 05 00 07 54 41 58 0d  |Y....PLA....TAX.|
000006a0  05 0a 07 50 4c 41 0d 05  14 07 52 54 53 0d 05 1e  |...PLA....RTS...|
000006b0  0d 2e 68 65 6c 70 6c 6f  6f 70 0d 05 28 07 49 4e  |..helploop..(.IN|
000006c0  58 0d 05 32 0e 4a 53 52  20 67 73 72 65 61 64 0d  |X..2.JSR gsread.|
000006d0  05 3c 10 2e 74 72 79 65  78 74 65 6e 64 65 64 0d  |.<..tryextended.|
000006e0  05 46 0f 43 4d 50 20 23  97 28 22 2e 22 29 0d 05  |.F.CMP #.(".")..|
000006f0  50 11 42 45 51 20 65 78  74 65 6e 73 69 6f 6e 0d  |P.BEQ extension.|
00000700  05 5a 0a 80 20 23 26 44  46 0d 05 64 17 43 4d 50  |.Z.. #&DF..d.CMP|
00000710  20 65 78 74 65 6e 64 65  64 2b 64 69 66 66 2c 58  | extended+diff,X|
00000720  0d 05 6e 10 42 45 51 20  68 65 6c 70 6c 6f 6f 70  |..n.BEQ helploop|
00000730  0d 05 78 17 4c 44 41 20  65 78 74 65 6e 64 65 64  |..x.LDA extended|
00000740  2b 64 69 66 66 2c 58 0d  05 82 10 42 50 4c 20 65  |+diff,X....BPL e|
00000750  78 69 74 68 65 6c 70 0d  05 8c 0e 2e 65 78 74 65  |xithelp.....exte|
00000760  6e 73 69 6f 6e 0d 05 96  1d 4c 44 58 20 23 28 65  |nsion....LDX #(e|
00000770  78 74 68 65 6c 70 2b 64  69 66 66 29 20 83 20 32  |xthelp+diff) . 2|
00000780  35 36 0d 05 a0 1d 4c 44  59 20 23 28 65 78 74 68  |56....LDY #(exth|
00000790  65 6c 70 2b 64 69 66 66  29 20 81 20 32 35 36 0d  |elp+diff) . 256.|
000007a0  05 aa 12 4a 53 52 20 70  72 69 6e 74 2b 64 69 66  |...JSR print+dif|
000007b0  66 0d 05 b4 10 42 45 51  20 65 78 69 74 68 65 6c  |f....BEQ exithel|
000007c0  70 0d 05 be 0a 2e 70 72  69 6e 74 0d 05 c8 0f 53  |p.....print....S|
000007d0  54 58 20 61 64 64 72 65  73 73 0d 05 d2 11 53 54  |TX address....ST|
000007e0  59 20 61 64 64 72 65 73  73 2b 31 0d 05 dc 0c 4c  |Y address+1....L|
000007f0  44 59 20 23 26 46 46 0d  05 e6 0e 2e 70 72 69 6e  |DY #&FF.....prin|
00000800  74 6c 6f 6f 70 0d 05 f0  07 49 4e 59 0d 05 fa 13  |tloop....INY....|
00000810  4c 44 41 20 28 61 64 64  72 65 73 73 29 2c 59 0d  |LDA (address),Y.|
00000820  06 04 10 42 45 51 20 65  6e 64 70 72 69 6e 74 0d  |...BEQ endprint.|
00000830  06 0e 11 42 4d 49 20 70  72 69 6e 74 6c 6f 6f 70  |...BMI printloop|
00000840  0d 06 18 0e 4a 53 52 20  6f 73 61 73 63 69 0d 06  |....JSR osasci..|
00000850  22 16 4a 4d 50 20 70 72  69 6e 74 6c 6f 6f 70 2b  |".JMP printloop+|
00000860  64 69 66 66 0d 06 2c 0d  2e 65 6e 64 70 72 69 6e  |diff..,..endprin|
00000870  74 0d 06 36 07 52 54 53  0d 06 40 0e 2e 68 65 6c  |t..6.RTS..@..hel|
00000880  70 74 69 74 6c 65 0d 06  4a 12 4f 50 54 20 a4 65  |ptitle..J.OPT .e|
00000890  71 75 62 28 26 30 44 29  0d 06 54 22 4f 50 54 20  |qub(&0D)..T"OPT |
000008a0  a4 65 71 75 73 28 22 52  6f 6d 20 46 69 6c 69 6e  |.equs("Rom Filin|
000008b0  67 20 53 79 73 74 65 6d  22 29 0d 06 5e 12 4f 50  |g System")..^.OP|
000008c0  54 20 a4 65 71 75 62 28  26 30 44 29 0d 06 68 14  |T .equb(&0D)..h.|
000008d0  4f 50 54 20 a4 65 71 75  77 28 26 32 30 32 30 29  |OPT .equw(&2020)|
000008e0  0d 06 72 0d 2e 65 78 74  65 6e 64 65 64 0d 06 7c  |..r..extended..||
000008f0  14 4f 50 54 20 a4 65 71  75 73 28 22 52 46 53 22  |.OPT .equs("RFS"|
00000900  29 0d 06 86 14 4f 50 54  20 a4 65 71 75 77 28 26  |)....OPT .equw(&|
00000910  30 44 46 46 29 0d 06 90  07 42 52 4b 0d 06 9a 0c  |0DFF)....BRK....|
00000920  2e 65 78 74 68 65 6c 70  0d 06 a4 12 4f 50 54 20  |.exthelp....OPT |
00000930  a4 65 71 75 62 28 26 30  44 29 0d 06 ae 22 4f 50  |.equb(&0D)..."OP|
00000940  54 20 a4 65 71 75 73 28  22 52 6f 6d 20 46 69 6c  |T .equs("Rom Fil|
00000950  69 6e 67 20 53 79 73 74  65 6d 22 29 0d 06 b8 14  |ing System")....|
00000960  4f 50 54 20 a4 65 71 75  77 28 26 30 44 30 44 29  |OPT .equw(&0D0D)|
00000970  0d 06 c2 25 4f 50 54 20  a4 65 71 75 73 28 22 53  |...%OPT .equs("S|
00000980  65 6c 65 63 74 20 52 46  53 20 77 69 74 68 20 2a  |elect RFS with *|
00000990  52 4f 4d 22 29 0d 06 cc  12 4f 50 54 20 a4 65 71  |ROM")....OPT .eq|
000009a0  75 62 28 26 30 44 29 0d  06 d6 2b 4f 50 54 20 a4  |ub(&0D)...+OPT .|
000009b0  65 71 75 73 28 22 42 6f  6f 74 20 52 46 53 20 77  |equs("Boot RFS w|
000009c0  69 74 68 20 43 74 72 6c  2d 52 2d 42 72 65 61 6b  |ith Ctrl-R-Break|
000009d0  22 29 0d 06 e0 12 4f 50  54 20 a4 65 71 75 62 28  |")....OPT .equb(|
000009e0  26 30 44 29 0d 06 ea 30  4f 50 54 20 a4 65 71 75  |&0D)...0OPT .equ|
000009f0  73 28 22 45 6e 74 65 72  20 52 46 53 20 77 69 74  |s("Enter RFS wit|
00000a00  68 20 2a 52 46 53 20 6f  72 20 2a 46 58 31 34 32  |h *RFS or *FX142|
00000a10  2c 6e 22 29 0d 06 f4 12  4f 50 54 20 a4 65 71 75  |,n")....OPT .equ|
00000a20  62 28 26 30 44 29 0d 06  fe 07 42 52 4b 0d 07 08  |b(&0D)....BRK...|
00000a30  0a 2e 74 68 72 65 65 0d  07 12 07 54 58 41 0d 07  |..three....TXA..|
00000a40  1c 07 50 48 41 0d 07 26  07 54 59 41 0d 07 30 07  |..PHA..&.TYA..0.|
00000a50  50 48 41 0d 07 3a 0c 4c  44 41 20 23 26 37 41 0d  |PHA..:.LDA #&7A.|
00000a60  07 44 0e 4a 53 52 20 6f  73 62 79 74 65 0d 07 4e  |.D.JSR osbyte..N|
00000a70  22 43 50 58 20 23 26 33  33 20 5c 20 49 73 20 69  |"CPX #&33 \ Is i|
00000a80  74 20 43 74 72 6c 2d 52  2d 42 72 65 61 6b 3f 0d  |t Ctrl-R-Break?.|
00000a90  07 58 0e 42 45 51 20 72  62 72 65 61 6b 0d 07 62  |.X.BEQ rbreak..b|
00000aa0  07 50 4c 41 0d 07 6c 07  54 41 59 0d 07 76 07 50  |.PLA..l.TAY..v.P|
00000ab0  4c 41 0d 07 80 07 54 41  58 0d 07 8a 07 50 4c 41  |LA....TAX....PLA|
00000ac0  0d 07 94 07 52 54 53 0d  07 9e 0b 2e 72 62 72 65  |....RTS.....rbre|
00000ad0  61 6b 0d 07 a8 0c 4c 44  41 20 23 26 43 39 0d 07  |ak....LDA #&C9..|
00000ae0  b2 0a 4c 44 58 20 23 31  0d 07 bc 0a 4c 44 59 20  |..LDX #1....LDY |
00000af0  23 30 0d 07 c6 21 4a 53  52 20 6f 73 62 79 74 65  |#0...!JSR osbyte|
00000b00  20 5c 20 44 69 73 61 62  6c 65 20 6b 65 79 62 6f  | \ Disable keybo|
00000b10  61 72 64 0d 07 d0 0c 4c  44 41 20 23 26 30 46 0d  |ard....LDA #&0F.|
00000b20  07 da 0a 4c 44 58 20 23  30 0d 07 e4 22 4a 53 52  |...LDX #0..."JSR|
00000b30  20 6f 73 62 79 74 65 20  5c 20 46 6c 75 73 68 20  | osbyte \ Flush |
00000b40  61 6c 6c 20 62 75 66 66  65 72 73 0d 07 ee 0f 4c  |all buffers....L|
00000b50  44 41 20 61 64 64 72 65  73 73 0d 07 f8 07 50 48  |DA address....PH|
00000b60  41 0d 08 02 11 4c 44 41  20 61 64 64 72 65 73 73  |A....LDA address|
00000b70  2b 31 0d 08 0c 07 50 48  41 0d 08 16 19 4c 44 58  |+1....PHA....LDX|
00000b80  20 23 28 72 66 73 2b 64  69 66 66 29 20 83 20 32  | #(rfs+diff) . 2|
00000b90  35 36 0d 08 20 19 4c 44  59 20 23 28 72 66 73 2b  |56.. .LDY #(rfs+|
00000ba0  64 69 66 66 29 20 81 20  32 35 36 0d 08 2a 12 4a  |diff) . 256..*.J|
00000bb0  53 52 20 70 72 69 6e 74  2b 64 69 66 66 0d 08 34  |SR print+diff..4|
00000bc0  19 4c 44 58 20 23 28 63  61 74 2b 64 69 66 66 29  |.LDX #(cat+diff)|
00000bd0  20 83 20 32 35 36 0d 08  3e 19 4c 44 59 20 23 28  | . 256..>.LDY #(|
00000be0  63 61 74 2b 64 69 66 66  29 20 81 20 32 35 36 0d  |cat+diff) . 256.|
00000bf0  08 48 12 4a 53 52 20 70  72 69 6e 74 2b 64 69 66  |.H.JSR print+dif|
00000c00  66 0d 08 52 0c 4c 44 41  20 23 26 38 44 0d 08 5c  |f..R.LDA #&8D..\|
00000c10  1b 4a 53 52 20 6f 73 62  79 74 65 20 5c 20 53 65  |.JSR osbyte \ Se|
00000c20  6c 65 63 74 20 52 46 53  0d 08 66 0c 4c 44 41 20  |lect RFS..f.LDA |
00000c30  23 26 38 42 0d 08 70 0a  4c 44 58 20 23 31 0d 08  |#&8B..p.LDX #1..|
00000c40  7a 0a 4c 44 59 20 23 32  0d 08 84 18 4a 53 52 20  |z.LDY #2....JSR |
00000c50  6f 73 62 79 74 65 20 5c  20 2a 4f 50 54 31 2c 32  |osbyte \ *OPT1,2|
00000c60  0d 08 8e 19 4c 44 58 20  23 28 64 6f 74 2b 64 69  |....LDX #(dot+di|
00000c70  66 66 29 20 83 20 32 35  36 0d 08 98 19 4c 44 59  |ff) . 256....LDY|
00000c80  20 23 28 64 6f 74 2b 64  69 66 66 29 20 81 20 32  | #(dot+diff) . 2|
00000c90  35 36 0d 08 a2 1d 4a 53  52 20 6f 73 63 6c 69 20  |56....JSR oscli |
00000ca0  5c 20 43 61 74 61 6c 6f  67 75 65 20 52 46 53 0d  |\ Catalogue RFS.|
00000cb0  08 ac 0c 4c 44 41 20 23  26 38 42 0d 08 b6 0a 4c  |...LDA #&8B....L|
00000cc0  44 58 20 23 30 0d 08 c0  0a 4c 44 59 20 23 30 0d  |DX #0....LDY #0.|
00000cd0  08 ca 19 4a 53 52 20 6f  73 62 79 74 65 20 5c 20  |...JSR osbyte \ |
00000ce0  2a 4f 50 54 20 31 2c 30  0d 08 d4 0e 4a 53 52 20  |*OPT 1,0....JSR |
00000cf0  6f 73 6e 65 77 6c 0d 08  de 19 4c 44 58 20 23 28  |osnewl....LDX #(|
00000d00  72 66 73 2b 64 69 66 66  29 20 83 20 32 35 36 0d  |rfs+diff) . 256.|
00000d10  08 e8 19 4c 44 59 20 23  28 72 66 73 2b 64 69 66  |...LDY #(rfs+dif|
00000d20  66 29 20 81 20 32 35 36  0d 08 f2 12 4a 53 52 20  |f) . 256....JSR |
00000d30  70 72 69 6e 74 2b 64 69  66 66 0d 08 fc 19 4c 44  |print+diff....LD|
00000d40  58 20 23 28 61 63 74 2b  64 69 66 66 29 20 83 20  |X #(act+diff) . |
00000d50  32 35 36 0d 09 06 19 4c  44 59 20 23 28 61 63 74  |256....LDY #(act|
00000d60  2b 64 69 66 66 29 20 81  20 32 35 36 0d 09 10 12  |+diff) . 256....|
00000d70  4a 53 52 20 70 72 69 6e  74 2b 64 69 66 66 0d 09  |JSR print+diff..|
00000d80  1a 07 50 4c 41 0d 09 24  11 53 54 41 20 61 64 64  |..PLA..$.STA add|
00000d90  72 65 73 73 2b 31 0d 09  2e 07 50 4c 41 0d 09 38  |ress+1....PLA..8|
00000da0  0f 53 54 41 20 61 64 64  72 65 73 73 0d 09 42 0c  |.STA address..B.|
00000db0  4c 44 41 20 23 26 43 39  0d 09 4c 0a 4c 44 58 20  |LDA #&C9..L.LDX |
00000dc0  23 30 0d 09 56 0a 4c 44  59 20 23 30 0d 09 60 20  |#0..V.LDY #0..` |
00000dd0  4a 53 52 20 6f 73 62 79  74 65 20 5c 20 45 6e 61  |JSR osbyte \ Ena|
00000de0  62 6c 65 20 6b 65 79 62  6f 61 72 64 0d 09 6a 07  |ble keyboard..j.|
00000df0  50 4c 41 0d 09 74 07 50  4c 41 0d 09 7e 07 50 4c  |PLA..t.PLA..~.PL|
00000e00  41 0d 09 88 0a 4c 44 41  20 23 30 0d 09 92 07 52  |A....LDA #0....R|
00000e10  54 53 0d 09 9c 08 2e 64  6f 74 0d 09 a6 14 4f 50  |TS.....dot....OP|
00000e20  54 20 a4 65 71 75 73 28  22 43 41 54 22 29 0d 09  |T .equs("CAT")..|
00000e30  b0 12 4f 50 54 20 a4 65  71 75 62 28 26 30 44 29  |..OPT .equb(&0D)|
00000e40  0d 09 ba 08 2e 72 66 73  0d 09 c4 23 4f 50 54 20  |.....rfs...#OPT |
00000e50  a4 65 71 75 73 28 22 52  6f 6d 20 46 69 6c 69 6e  |.equs("Rom Filin|
00000e60  67 20 53 79 73 74 65 6d  20 22 29 0d 09 ce 07 42  |g System ")....B|
00000e70  52 4b 0d 09 d8 08 2e 63  61 74 0d 09 e2 1a 4f 50  |RK.....cat....OP|
00000e80  54 20 a4 65 71 75 73 28  22 43 61 74 61 6c 6f 67  |T .equs("Catalog|
00000e90  75 65 22 29 0d 09 ec 12  4f 50 54 20 a4 65 71 75  |ue")....OPT .equ|
00000ea0  62 28 26 30 44 29 0d 09  f6 07 42 52 4b 0d 0a 00  |b(&0D)....BRK...|
00000eb0  08 2e 61 63 74 0d 0a 0a  17 4f 50 54 20 a4 65 71  |..act....OPT .eq|
00000ec0  75 73 28 22 61 63 74 69  76 65 22 29 0d 0a 14 14  |us("active")....|
00000ed0  4f 50 54 20 a4 65 71 75  77 28 26 30 44 30 44 29  |OPT .equw(&0D0D)|
00000ee0  0d 0a 1e 07 42 52 4b 0d  0a 28 0d 2e 6c 61 6e 67  |....BRK..(..lang|
00000ef0  75 61 67 65 0d 0a 32 22  43 4c 49 20 5c 20 45 6e  |uage..2"CLI \ En|
00000f00  61 62 6c 65 20 69 6e 74  65 72 75 70 74 20 72 65  |able interupt re|
00000f10  71 75 65 73 74 73 0d 0a  3c 0c 4c 44 58 20 23 26  |quests..<.LDX #&|
00000f20  46 46 0d 0a 46 15 54 58  53 20 5c 20 52 65 73 65  |FF..F.TXS \ Rese|
00000f30  74 20 73 74 61 63 6b 0d  0a 50 1b 4c 44 41 20 23  |t stack..P.LDA #|
00000f40  28 62 61 73 69 63 2b 64  69 66 66 29 20 83 20 32  |(basic+diff) . 2|
00000f50  35 36 0d 0a 5a 0e 53 54  41 20 62 72 65 61 6b 76  |56..Z.STA breakv|
00000f60  0d 0a 64 1b 4c 44 41 20  23 28 62 61 73 69 63 2b  |..d.LDA #(basic+|
00000f70  64 69 66 66 29 20 81 20  32 35 36 0d 0a 6e 10 53  |diff) . 256..n.S|
00000f80  54 41 20 62 72 65 61 6b  76 2b 31 0d 0a 78 0c 4c  |TA breakv+1..x.L|
00000f90  44 41 20 23 26 38 44 0d  0a 82 15 4a 53 52 20 6f  |DA #&8D....JSR o|
00000fa0  73 62 79 74 65 20 5c 20  2a 52 4f 4d 0d 0a 8c 0c  |sbyte \ *ROM....|
00000fb0  4c 44 41 20 23 26 38 42  0d 0a 96 0a 4c 44 58 20  |LDA #&8B....LDX |
00000fc0  23 31 0d 0a a0 0a 4c 44  59 20 23 30 0d 0a aa 18  |#1....LDY #0....|
00000fd0  4a 53 52 20 6f 73 62 79  74 65 20 5c 20 2a 4f 50  |JSR osbyte \ *OP|
00000fe0  54 31 2c 30 0d 0a b4 0c  4c 44 41 20 23 26 30 46  |T1,0....LDA #&0F|
00000ff0  0d 0a be 0a 4c 44 58 20  23 30 0d 0a c8 22 4a 53  |....LDX #0..."JS|
00001000  52 20 6f 73 62 79 74 65  20 5c 20 46 6c 75 73 68  |R osbyte \ Flush|
00001010  20 61 6c 6c 20 62 75 66  66 65 72 73 0d 0a d2 0c  | all buffers....|
00001020  4c 44 41 20 23 26 46 46  0d 0a dc 07 50 48 41 0d  |LDA #&FF....PHA.|
00001030  0a e6 0d 2e 6b 65 79 62  6f 61 72 64 0d 0a f0 07  |....keyboard....|
00001040  50 4c 41 0d 0a fa 07 54  41 58 0d 0b 04 07 49 4e  |PLA....TAX....IN|
00001050  58 0d 0b 0e 07 54 58 41  0d 0b 18 07 50 48 41 0d  |X....TXA....PHA.|
00001060  0b 22 16 4c 44 59 20 72  66 73 63 6f 6d 6d 2b 64  |.".LDY rfscomm+d|
00001070  69 66 66 2c 58 0d 0b 2c  0e 42 45 51 20 65 6e 64  |iff,X..,.BEQ end|
00001080  6b 65 79 0d 0b 36 0c 4c  44 41 20 23 26 38 41 0d  |key..6.LDA #&8A.|
00001090  0b 40 0a 4c 44 58 20 23  30 0d 0b 4a 0e 4a 53 52  |.@.LDX #0..J.JSR|
000010a0  20 6f 73 62 79 74 65 0d  0b 54 15 4a 4d 50 20 6b  | osbyte..T.JMP k|
000010b0  65 79 62 6f 61 72 64 2b  64 69 66 66 0d 0b 5e 0b  |eyboard+diff..^.|
000010c0  2e 65 6e 64 6b 65 79 0d  0b 68 07 50 4c 41 0d 0b  |.endkey..h.PLA..|
000010d0  72 0a 2e 62 61 73 69 63  0d 0b 7c 0c 4c 44 41 20  |r..basic..|.LDA |
000010e0  23 26 42 42 0d 0b 86 0a  4c 44 58 20 23 30 0d 0b  |#&BB....LDX #0..|
000010f0  90 0c 4c 44 59 20 23 26  46 46 0d 0b 9a 1b 4a 53  |..LDY #&FF....JS|
00001100  52 20 6f 73 62 79 74 65  20 5c 20 46 69 6e 64 20  |R osbyte \ Find |
00001110  42 41 53 49 43 0d 0b a4  0c 4c 44 41 20 23 26 38  |BASIC....LDA #&8|
00001120  45 0d 0b ae 1c 4a 4d 50  20 6f 73 62 79 74 65 20  |E....JMP osbyte |
00001130  5c 20 45 6e 74 65 72 20  42 41 53 49 43 0d 0b b8  |\ Enter BASIC...|
00001140  0c 2e 72 66 73 63 6f 6d  6d 0d 0b c2 1e 4f 50 54  |..rfscomm....OPT|
00001150  20 a4 65 71 75 73 28 22  43 48 41 49 4e 22 22 44  | .equs("CHAIN""D|
00001160  45 4d 4f 22 22 22 29 0d  0b cc 12 4f 50 54 20 a4  |EMO""")....OPT .|
00001170  65 71 75 62 28 26 30 44  29 0d 0b d6 07 42 52 4b  |equb(&0D)....BRK|
00001180  0d 0b e0 0d 2e 6c 61 73  74 62 79 74 65 0d 0b ea  |.....lastbyte...|
00001190  05 5d 0d 0b f4 05 ed 0d  0b fe 0f 4f 25 3d 6c 61  |.].........O%=la|
000011a0  73 74 62 79 74 65 0d 0c  08 0d d7 22 52 46 53 47  |stbyte....."RFSG|
000011b0  45 4e 22 0d 0c 12 10 dd  a4 65 71 75 62 28 62 79  |EN"......equb(by|
000011c0  74 65 29 0d 0c 1c 0c 3f  50 25 3d 62 79 74 65 0d  |te)....?P%=byte.|
000011d0  0c 26 0b 50 25 3d 50 25  2b 31 0d 0c 30 09 3d 70  |.&.P%=P%+1..0.=p|
000011e0  61 73 73 0d 0c 3a 10 dd  a4 65 71 75 77 28 77 6f  |ass..:...equw(wo|
000011f0  72 64 29 0d 0c 44 12 3f  50 25 3d 77 6f 72 64 20  |rd)..D.?P%=word |
00001200  83 20 32 35 36 0d 0c 4e  13 50 25 3f 31 3d 77 6f  |. 256..N.P%?1=wo|
00001210  72 64 20 81 20 32 35 36  0d 0c 58 0b 50 25 3d 50  |rd . 256..X.P%=P|
00001220  25 2b 32 0d 0c 62 09 3d  70 61 73 73 0d 0c 6c 12  |%+2..b.=pass..l.|
00001230  dd a4 65 71 75 64 28 64  6f 75 62 6c 65 29 0d 0c  |..equd(double)..|
00001240  76 0e 21 50 25 3d 64 6f  75 62 6c 65 0d 0c 80 0b  |v.!P%=double....|
00001250  50 25 3d 50 25 2b 34 0d  0c 8a 09 3d 70 61 73 73  |P%=P%+4....=pass|
00001260  0d 0c 94 13 dd a4 65 71  75 73 28 73 74 72 69 6e  |......equs(strin|
00001270  67 24 29 0d 0c 9e 0f 24  50 25 3d 73 74 72 69 6e  |g$)....$P%=strin|
00001280  67 24 0d 0c a8 14 50 25  3d 50 25 2b a9 28 73 74  |g$....P%=P%+.(st|
00001290  72 69 6e 67 24 29 0d 0c  b2 09 3d 70 61 73 73 0d  |ring$)....=pass.|
000012a0  ff                                                |.|
000012a1