�: RFSLANG
�7
�=&3C00
(diff=&8000-�
2H%=�
<comvec=&F2
Fromnumber=&F4
P
phrom=&F5
Zrompoint=&F6
dbreakv=&202
ngsread=&FFC5
xosbyte=&FFF4
�� 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")

BRK

.service

PHA

"
CMP #4

,BNE trythirteen

6TXA

@PHA

JTYA

TPHA

^LDX #&FF

h.comloop

rINX

|LDA title+diff,X

�
BEQ found

�LDA (comvec),Y

�INY

�CMP #�(".")

�
BEQ found

�
� #&DF

�CMP title+diff,X

�BEQ comloop

�PLA

�TAY

�PLA

�TAX

�PLA
RTS

.found
LDA #&8E
&LDX romnumber
0JMP osbyte \ Enter this ROM
:.trythirteen
DCMP #13
NBNE fourteen
XTYA
b	� #&F
lCMP romnumber
vBCC 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
BNE out

LDA phrom
	� #&F
 CMP romnumber
*BNE out
4
LDY #0
>LDA (rompoint),Y
HTAY
RINC rompoint
\BNE exit
fINC rompoint+1
pJMP exit+diff
z.out
�PLA
�RTS
�
.language
�"CLI \ Enable interupt requests
�LDX #&FF
�TXS \ Reset stack
�LDA #(basic+diff) � 256
�STA breakv
�LDA #(basic+diff) � 256
�STA breakv+1
�LDA #&8D
�JSR osbyte \ *ROM
�LDA #&8B

LDX #1

LDY #0
JSR osbyte \ *OPT1,0
$LDA #&0F
.
LDX #0
8"JSR osbyte \ Flush all buffers
BLDA #&FF
LPHA
V
.keyboard
`PLA
jTAX
tINX
~TXA
�PHA
�LDY rfscomm+diff,X
�
BEQ basic
�LDA #&8A
�
LDX #0
�JSR osbyte
�JMP keyboard+diff
�
.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)
2BRK
<
.lastbyte
F]
P�
ZO%=lastbyte
d
�"RFSGEN"
nݤequb(byte)
x?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 52  46 53 4c 41 4e 47 0d 00  |.....: RFSLANG..|
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 0e 63 6f 6d 76 65  |.2.H%=...<.comve|
00000040  63 3d 26 46 32 0d 00 46  11 72 6f 6d 6e 75 6d 62  |c=&F2..F.romnumb|
00000050  65 72 3d 26 46 34 0d 00  50 0d 70 68 72 6f 6d 3d  |er=&F4..P.phrom=|
00000060  26 46 35 0d 00 5a 10 72  6f 6d 70 6f 69 6e 74 3d  |&F5..Z.rompoint=|
00000070  26 46 36 0d 00 64 0f 62  72 65 61 6b 76 3d 26 32  |&F6..d.breakv=&2|
00000080  30 32 0d 00 6e 10 67 73  72 65 61 64 3d 26 46 46  |02..n.gsread=&FF|
00000090  43 35 0d 00 78 10 6f 73  62 79 74 65 3d 26 46 46  |C5..x.osbyte=&FF|
000000a0  46 34 0d 00 82 16 e3 20  70 61 73 73 20 3d 20 30  |F4..... pass = 0|
000000b0  20 b8 20 32 20 88 20 32  0d 00 8c 08 50 25 3d 93  | . 2 . 2....P%=.|
000000c0  0d 00 96 0d 5b 4f 50 54  20 70 61 73 73 0d 00 a0  |....[OPT pass...|
000000d0  15 4a 4d 50 20 6c 61 6e  67 75 61 67 65 2b 64 69  |.JMP language+di|
000000e0  66 66 0d 00 aa 14 4a 4d  50 20 73 65 72 76 69 63  |ff....JMP servic|
000000f0  65 2b 64 69 66 66 0d 00  b4 12 4f 50 54 20 a4 65  |e+diff....OPT .e|
00000100  71 75 62 28 26 43 32 29  0d 00 be 25 4f 50 54 20  |qub(&C2)...%OPT |
00000110  a4 65 71 75 62 28 28 63  6f 70 79 72 69 67 68 74  |.equb((copyright|
00000120  2b 64 69 66 66 29 20 83  20 32 35 36 29 0d 00 c8  |+diff) . 256)...|
00000130  07 42 52 4b 0d 00 d2 0a  2e 74 69 74 6c 65 0d 00  |.BRK.....title..|
00000140  dc 14 4f 50 54 20 a4 65  71 75 73 28 22 52 46 53  |..OPT .equs("RFS|
00000150  22 29 0d 00 e6 0e 2e 63  6f 70 79 72 69 67 68 74  |").....copyright|
00000160  0d 00 f0 07 42 52 4b 0d  00 fa 2b 4f 50 54 20 a4  |....BRK...+OPT .|
00000170  65 71 75 73 28 22 28 43  29 20 47 6f 72 64 6f 6e  |equs("(C) Gordon|
00000180  20 48 6f 72 73 69 6e 67  74 6f 6e 20 31 39 38 37  | Horsington 1987|
00000190  22 29 0d 01 04 07 42 52  4b 0d 01 0e 0c 2e 73 65  |")....BRK.....se|
000001a0  72 76 69 63 65 0d 01 18  07 50 48 41 0d 01 22 0a  |rvice....PHA..".|
000001b0  43 4d 50 20 23 34 0d 01  2c 13 42 4e 45 20 74 72  |CMP #4..,.BNE tr|
000001c0  79 74 68 69 72 74 65 65  6e 0d 01 36 07 54 58 41  |ythirteen..6.TXA|
000001d0  0d 01 40 07 50 48 41 0d  01 4a 07 54 59 41 0d 01  |..@.PHA..J.TYA..|
000001e0  54 07 50 48 41 0d 01 5e  0c 4c 44 58 20 23 26 46  |T.PHA..^.LDX #&F|
000001f0  46 0d 01 68 0c 2e 63 6f  6d 6c 6f 6f 70 0d 01 72  |F..h..comloop..r|
00000200  07 49 4e 58 0d 01 7c 14  4c 44 41 20 74 69 74 6c  |.INX..|.LDA titl|
00000210  65 2b 64 69 66 66 2c 58  0d 01 86 0d 42 45 51 20  |e+diff,X....BEQ |
00000220  66 6f 75 6e 64 0d 01 90  12 4c 44 41 20 28 63 6f  |found....LDA (co|
00000230  6d 76 65 63 29 2c 59 0d  01 9a 07 49 4e 59 0d 01  |mvec),Y....INY..|
00000240  a4 0f 43 4d 50 20 23 97  28 22 2e 22 29 0d 01 ae  |..CMP #.(".")...|
00000250  0d 42 45 51 20 66 6f 75  6e 64 0d 01 b8 0a 80 20  |.BEQ found..... |
00000260  23 26 44 46 0d 01 c2 14  43 4d 50 20 74 69 74 6c  |#&DF....CMP titl|
00000270  65 2b 64 69 66 66 2c 58  0d 01 cc 0f 42 45 51 20  |e+diff,X....BEQ |
00000280  63 6f 6d 6c 6f 6f 70 0d  01 d6 07 50 4c 41 0d 01  |comloop....PLA..|
00000290  e0 07 54 41 59 0d 01 ea  07 50 4c 41 0d 01 f4 07  |..TAY....PLA....|
000002a0  54 41 58 0d 01 fe 07 50  4c 41 0d 02 08 07 52 54  |TAX....PLA....RT|
000002b0  53 0d 02 12 0a 2e 66 6f  75 6e 64 0d 02 1c 0c 4c  |S.....found....L|
000002c0  44 41 20 23 26 38 45 0d  02 26 11 4c 44 58 20 72  |DA #&8E..&.LDX r|
000002d0  6f 6d 6e 75 6d 62 65 72  0d 02 30 1f 4a 4d 50 20  |omnumber..0.JMP |
000002e0  6f 73 62 79 74 65 20 5c  20 45 6e 74 65 72 20 74  |osbyte \ Enter t|
000002f0  68 69 73 20 52 4f 4d 0d  02 3a 10 2e 74 72 79 74  |his ROM..:..tryt|
00000300  68 69 72 74 65 65 6e 0d  02 44 0b 43 4d 50 20 23  |hirteen..D.CMP #|
00000310  31 33 0d 02 4e 10 42 4e  45 20 66 6f 75 72 74 65  |13..N.BNE fourte|
00000320  65 6e 0d 02 58 07 54 59  41 0d 02 62 09 82 20 23  |en..X.TYA..b.. #|
00000330  26 46 0d 02 6c 11 43 4d  50 20 72 6f 6d 6e 75 6d  |&F..l.CMP romnum|
00000340  62 65 72 0d 02 76 0b 42  43 43 20 6f 75 74 0d 02  |ber..v.BCC out..|
00000350  80 1e 4c 44 41 20 23 28  6c 61 73 74 62 79 74 65  |..LDA #(lastbyte|
00000360  2b 64 69 66 66 29 20 83  20 32 35 36 0d 02 8a 10  |+diff) . 256....|
00000370  53 54 41 20 72 6f 6d 70  6f 69 6e 74 0d 02 94 1e  |STA rompoint....|
00000380  4c 44 41 20 23 28 6c 61  73 74 62 79 74 65 2b 64  |LDA #(lastbyte+d|
00000390  69 66 66 29 20 81 20 32  35 36 0d 02 9e 12 53 54  |iff) . 256....ST|
000003a0  41 20 72 6f 6d 70 6f 69  6e 74 2b 31 0d 02 a8 11  |A rompoint+1....|
000003b0  4c 44 41 20 72 6f 6d 6e  75 6d 62 65 72 0d 02 b2  |LDA romnumber...|
000003c0  09 82 20 23 26 46 0d 02  bc 0d 53 54 41 20 70 68  |.. #&F....STA ph|
000003d0  72 6f 6d 0d 02 c6 09 2e  65 78 69 74 0d 02 d0 07  |rom.....exit....|
000003e0  50 4c 41 0d 02 da 0a 4c  44 41 20 23 30 0d 02 e4  |PLA....LDA #0...|
000003f0  07 52 54 53 0d 02 ee 0d  2e 66 6f 75 72 74 65 65  |.RTS.....fourtee|
00000400  6e 0d 02 f8 0b 43 4d 50  20 23 31 34 0d 03 02 0b  |n....CMP #14....|
00000410  42 4e 45 20 6f 75 74 0d  03 0c 0d 4c 44 41 20 70  |BNE out....LDA p|
00000420  68 72 6f 6d 0d 03 16 09  82 20 23 26 46 0d 03 20  |hrom..... #&F.. |
00000430  11 43 4d 50 20 72 6f 6d  6e 75 6d 62 65 72 0d 03  |.CMP romnumber..|
00000440  2a 0b 42 4e 45 20 6f 75  74 0d 03 34 0a 4c 44 59  |*.BNE out..4.LDY|
00000450  20 23 30 0d 03 3e 14 4c  44 41 20 28 72 6f 6d 70  | #0..>.LDA (romp|
00000460  6f 69 6e 74 29 2c 59 0d  03 48 07 54 41 59 0d 03  |oint),Y..H.TAY..|
00000470  52 10 49 4e 43 20 72 6f  6d 70 6f 69 6e 74 0d 03  |R.INC rompoint..|
00000480  5c 0c 42 4e 45 20 65 78  69 74 0d 03 66 12 49 4e  |\.BNE exit..f.IN|
00000490  43 20 72 6f 6d 70 6f 69  6e 74 2b 31 0d 03 70 11  |C rompoint+1..p.|
000004a0  4a 4d 50 20 65 78 69 74  2b 64 69 66 66 0d 03 7a  |JMP exit+diff..z|
000004b0  08 2e 6f 75 74 0d 03 84  07 50 4c 41 0d 03 8e 07  |..out....PLA....|
000004c0  52 54 53 0d 03 98 0d 2e  6c 61 6e 67 75 61 67 65  |RTS.....language|
000004d0  0d 03 a2 22 43 4c 49 20  5c 20 45 6e 61 62 6c 65  |..."CLI \ Enable|
000004e0  20 69 6e 74 65 72 75 70  74 20 72 65 71 75 65 73  | interupt reques|
000004f0  74 73 0d 03 ac 0c 4c 44  58 20 23 26 46 46 0d 03  |ts....LDX #&FF..|
00000500  b6 15 54 58 53 20 5c 20  52 65 73 65 74 20 73 74  |..TXS \ Reset st|
00000510  61 63 6b 0d 03 c0 1b 4c  44 41 20 23 28 62 61 73  |ack....LDA #(bas|
00000520  69 63 2b 64 69 66 66 29  20 83 20 32 35 36 0d 03  |ic+diff) . 256..|
00000530  ca 0e 53 54 41 20 62 72  65 61 6b 76 0d 03 d4 1b  |..STA breakv....|
00000540  4c 44 41 20 23 28 62 61  73 69 63 2b 64 69 66 66  |LDA #(basic+diff|
00000550  29 20 81 20 32 35 36 0d  03 de 10 53 54 41 20 62  |) . 256....STA b|
00000560  72 65 61 6b 76 2b 31 0d  03 e8 0c 4c 44 41 20 23  |reakv+1....LDA #|
00000570  26 38 44 0d 03 f2 15 4a  53 52 20 6f 73 62 79 74  |&8D....JSR osbyt|
00000580  65 20 5c 20 2a 52 4f 4d  0d 03 fc 0c 4c 44 41 20  |e \ *ROM....LDA |
00000590  23 26 38 42 0d 04 06 0a  4c 44 58 20 23 31 0d 04  |#&8B....LDX #1..|
000005a0  10 0a 4c 44 59 20 23 30  0d 04 1a 18 4a 53 52 20  |..LDY #0....JSR |
000005b0  6f 73 62 79 74 65 20 5c  20 2a 4f 50 54 31 2c 30  |osbyte \ *OPT1,0|
000005c0  0d 04 24 0c 4c 44 41 20  23 26 30 46 0d 04 2e 0a  |..$.LDA #&0F....|
000005d0  4c 44 58 20 23 30 0d 04  38 22 4a 53 52 20 6f 73  |LDX #0..8"JSR os|
000005e0  62 79 74 65 20 5c 20 46  6c 75 73 68 20 61 6c 6c  |byte \ Flush all|
000005f0  20 62 75 66 66 65 72 73  0d 04 42 0c 4c 44 41 20  | buffers..B.LDA |
00000600  23 26 46 46 0d 04 4c 07  50 48 41 0d 04 56 0d 2e  |#&FF..L.PHA..V..|
00000610  6b 65 79 62 6f 61 72 64  0d 04 60 07 50 4c 41 0d  |keyboard..`.PLA.|
00000620  04 6a 07 54 41 58 0d 04  74 07 49 4e 58 0d 04 7e  |.j.TAX..t.INX..~|
00000630  07 54 58 41 0d 04 88 07  50 48 41 0d 04 92 16 4c  |.TXA....PHA....L|
00000640  44 59 20 72 66 73 63 6f  6d 6d 2b 64 69 66 66 2c  |DY rfscomm+diff,|
00000650  58 0d 04 9c 0d 42 45 51  20 62 61 73 69 63 0d 04  |X....BEQ basic..|
00000660  a6 0c 4c 44 41 20 23 26  38 41 0d 04 b0 0a 4c 44  |..LDA #&8A....LD|
00000670  58 20 23 30 0d 04 ba 0e  4a 53 52 20 6f 73 62 79  |X #0....JSR osby|
00000680  74 65 0d 04 c4 15 4a 4d  50 20 6b 65 79 62 6f 61  |te....JMP keyboa|
00000690  72 64 2b 64 69 66 66 0d  04 ce 0a 2e 62 61 73 69  |rd+diff.....basi|
000006a0  63 0d 04 d8 0c 4c 44 41  20 23 26 42 42 0d 04 e2  |c....LDA #&BB...|
000006b0  0a 4c 44 58 20 23 30 0d  04 ec 0c 4c 44 59 20 23  |.LDX #0....LDY #|
000006c0  26 46 46 0d 04 f6 1b 4a  53 52 20 6f 73 62 79 74  |&FF....JSR osbyt|
000006d0  65 20 5c 20 46 69 6e 64  20 42 41 53 49 43 0d 05  |e \ Find BASIC..|
000006e0  00 0c 4c 44 41 20 23 26  38 45 0d 05 0a 1c 4a 4d  |..LDA #&8E....JM|
000006f0  50 20 6f 73 62 79 74 65  20 5c 20 45 6e 74 65 72  |P osbyte \ Enter|
00000700  20 42 41 53 49 43 0d 05  14 0c 2e 72 66 73 63 6f  | BASIC.....rfsco|
00000710  6d 6d 0d 05 1e 1e 4f 50  54 20 a4 65 71 75 73 28  |mm....OPT .equs(|
00000720  22 43 48 41 49 4e 22 22  44 45 4d 4f 22 22 22 29  |"CHAIN""DEMO""")|
00000730  0d 05 28 12 4f 50 54 20  a4 65 71 75 62 28 26 30  |..(.OPT .equb(&0|
00000740  44 29 0d 05 32 07 42 52  4b 0d 05 3c 0d 2e 6c 61  |D)..2.BRK..<..la|
00000750  73 74 62 79 74 65 0d 05  46 05 5d 0d 05 50 05 ed  |stbyte..F.]..P..|
00000760  0d 05 5a 0f 4f 25 3d 6c  61 73 74 62 79 74 65 0d  |..Z.O%=lastbyte.|
00000770  05 64 0d d7 22 52 46 53  47 45 4e 22 0d 05 6e 10  |.d.."RFSGEN"..n.|
00000780  dd a4 65 71 75 62 28 62  79 74 65 29 0d 05 78 0c  |..equb(byte)..x.|
00000790  3f 50 25 3d 62 79 74 65  0d 05 82 0b 50 25 3d 50  |?P%=byte....P%=P|
000007a0  25 2b 31 0d 05 8c 09 3d  70 61 73 73 0d 05 96 10  |%+1....=pass....|
000007b0  dd a4 65 71 75 77 28 77  6f 72 64 29 0d 05 a0 12  |..equw(word)....|
000007c0  3f 50 25 3d 77 6f 72 64  20 83 20 32 35 36 0d 05  |?P%=word . 256..|
000007d0  aa 13 50 25 3f 31 3d 77  6f 72 64 20 81 20 32 35  |..P%?1=word . 25|
000007e0  36 0d 05 b4 0b 50 25 3d  50 25 2b 32 0d 05 be 09  |6....P%=P%+2....|
000007f0  3d 70 61 73 73 0d 05 c8  12 dd a4 65 71 75 64 28  |=pass......equd(|
00000800  64 6f 75 62 6c 65 29 0d  05 d2 0e 21 50 25 3d 64  |double)....!P%=d|
00000810  6f 75 62 6c 65 0d 05 dc  0b 50 25 3d 50 25 2b 34  |ouble....P%=P%+4|
00000820  0d 05 e6 09 3d 70 61 73  73 0d 05 f0 13 dd a4 65  |....=pass......e|
00000830  71 75 73 28 73 74 72 69  6e 67 24 29 0d 05 fa 0f  |qus(string$)....|
00000840  24 50 25 3d 73 74 72 69  6e 67 24 0d 06 04 14 50  |$P%=string$....P|
00000850  25 3d 50 25 2b a9 28 73  74 72 69 6e 67 24 29 0d  |%=P%+.(string$).|
00000860  06 0e 09 3d 70 61 73 73  0d ff                    |...=pass..|
0000086a