�: AUTORFS
�7
�=&3C00
(diff=&8000-�
2H%=�
<romnumber=&F4
F
phrom=&F5
Prompoint=&F6
Zbreakv=&202
dosbyte=&FFF4
n� pass = 0 � 2 � 2
xP%=�
�
[OPT pass
�JMP language+diff
�JMP service+diff
�OPT �equb(&C2)
�%OPT �equb((copyright+diff) � 256)
�BRK
�OPT �equs("AUTORFS")
�.copyright
�BRK
�+OPT �equs("(C) Gordon Horsington 1987")
�BRK
�.service
�PHA

CMP #&FE

BNE trythirteen

TXA

"PHA

,TYA

6PHA

@LDA #&FC

JLDX romnumber

T
LDY #0

^JSR osbyte

hPLA

rTAY

|PLA

�TAX

�PLA

�RTS

�.trythirteen

�CMP #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
0	.exit
:PLA
D
LDA #0
NRTS
X
.fourteen
bCMP #14
lBNE out
v
LDA phrom
�	� #&F
�CMP romnumber
�BNE out
�
LDY #0
�LDA (rompoint),Y
�TAY
�INC rompoint
�BNE exit
�INC rompoint+1
�JMP exit+diff
�.out
�PLA
�RTS

.language
"CLI \ Enable interupt requests
LDX #&FF
 TXS \ Reset stack
*LDA #(basic+diff) � 256
4STA breakv
>LDA #(basic+diff) � 256
HSTA breakv+1
RLDA #&8D
\JSR osbyte \ *ROM
fLDA #&8B
p
LDX #1
z
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 basic
LDA #&8A

LDX #0
$JSR osbyte
.JMP keyboard+diff
8
.basic
BLDA #&BB
L
LDX #0
VLDY #&FF
`JSR osbyte \ Find BASIC
jLDA #&8E
tJMP osbyte \ Enter BASIC
~.rfscomm
�OPT �equs("CHAIN""DEMO""")
�OPT �equb(&0D)
�BRK
�
.lastbyte
�]
��
�O%=lastbyte
�
�"RFSGEN"
�ݤequb(byte)
�?P%=byte
�P%=P%+1
�	=pass
ݤequw(word)

?P%=word � 256
P%?1=word � 256
P%=P%+2
(	=pass
2ݤequd(double)
<!P%=double
FP%=P%+4
P	=pass
Zݤequs(string$)
d$P%=string$
nP%=P%+�(string$)
x	=pass
�

00000000  0d 00 0a 0e f4 3a 20 41  55 54 4f 52 46 53 0d 00  |.....: AUTORFS..|
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 11 72 6f 6d 6e 75  |.2.H%=...<.romnu|
00000040  6d 62 65 72 3d 26 46 34  0d 00 46 0d 70 68 72 6f  |mber=&F4..F.phro|
00000050  6d 3d 26 46 35 0d 00 50  10 72 6f 6d 70 6f 69 6e  |m=&F5..P.rompoin|
00000060  74 3d 26 46 36 0d 00 5a  0f 62 72 65 61 6b 76 3d  |t=&F6..Z.breakv=|
00000070  26 32 30 32 0d 00 64 10  6f 73 62 79 74 65 3d 26  |&202..d.osbyte=&|
00000080  46 46 46 34 0d 00 6e 16  e3 20 70 61 73 73 20 3d  |FFF4..n.. pass =|
00000090  20 30 20 b8 20 32 20 88  20 32 0d 00 78 08 50 25  | 0 . 2 . 2..x.P%|
000000a0  3d 93 0d 00 82 0d 5b 4f  50 54 20 70 61 73 73 0d  |=.....[OPT pass.|
000000b0  00 8c 15 4a 4d 50 20 6c  61 6e 67 75 61 67 65 2b  |...JMP language+|
000000c0  64 69 66 66 0d 00 96 14  4a 4d 50 20 73 65 72 76  |diff....JMP serv|
000000d0  69 63 65 2b 64 69 66 66  0d 00 a0 12 4f 50 54 20  |ice+diff....OPT |
000000e0  a4 65 71 75 62 28 26 43  32 29 0d 00 aa 25 4f 50  |.equb(&C2)...%OP|
000000f0  54 20 a4 65 71 75 62 28  28 63 6f 70 79 72 69 67  |T .equb((copyrig|
00000100  68 74 2b 64 69 66 66 29  20 83 20 32 35 36 29 0d  |ht+diff) . 256).|
00000110  00 b4 07 42 52 4b 0d 00  be 18 4f 50 54 20 a4 65  |...BRK....OPT .e|
00000120  71 75 73 28 22 41 55 54  4f 52 46 53 22 29 0d 00  |qus("AUTORFS")..|
00000130  c8 0e 2e 63 6f 70 79 72  69 67 68 74 0d 00 d2 07  |...copyright....|
00000140  42 52 4b 0d 00 dc 2b 4f  50 54 20 a4 65 71 75 73  |BRK...+OPT .equs|
00000150  28 22 28 43 29 20 47 6f  72 64 6f 6e 20 48 6f 72  |("(C) Gordon Hor|
00000160  73 69 6e 67 74 6f 6e 20  31 39 38 37 22 29 0d 00  |sington 1987")..|
00000170  e6 07 42 52 4b 0d 00 f0  0c 2e 73 65 72 76 69 63  |..BRK.....servic|
00000180  65 0d 00 fa 07 50 48 41  0d 01 04 0c 43 4d 50 20  |e....PHA....CMP |
00000190  23 26 46 45 0d 01 0e 13  42 4e 45 20 74 72 79 74  |#&FE....BNE tryt|
000001a0  68 69 72 74 65 65 6e 0d  01 18 07 54 58 41 0d 01  |hirteen....TXA..|
000001b0  22 07 50 48 41 0d 01 2c  07 54 59 41 0d 01 36 07  |".PHA..,.TYA..6.|
000001c0  50 48 41 0d 01 40 0c 4c  44 41 20 23 26 46 43 0d  |PHA..@.LDA #&FC.|
000001d0  01 4a 11 4c 44 58 20 72  6f 6d 6e 75 6d 62 65 72  |.J.LDX romnumber|
000001e0  0d 01 54 0a 4c 44 59 20  23 30 0d 01 5e 0e 4a 53  |..T.LDY #0..^.JS|
000001f0  52 20 6f 73 62 79 74 65  0d 01 68 07 50 4c 41 0d  |R osbyte..h.PLA.|
00000200  01 72 07 54 41 59 0d 01  7c 07 50 4c 41 0d 01 86  |.r.TAY..|.PLA...|
00000210  07 54 41 58 0d 01 90 07  50 4c 41 0d 01 9a 07 52  |.TAX....PLA....R|
00000220  54 53 0d 01 a4 10 2e 74  72 79 74 68 69 72 74 65  |TS.....trythirte|
00000230  65 6e 0d 01 ae 0b 43 4d  50 20 23 31 33 0d 01 b8  |en....CMP #13...|
00000240  10 42 4e 45 20 66 6f 75  72 74 65 65 6e 0d 01 c2  |.BNE fourteen...|
00000250  07 54 59 41 0d 01 cc 09  82 20 23 26 46 0d 01 d6  |.TYA..... #&F...|
00000260  11 43 4d 50 20 72 6f 6d  6e 75 6d 62 65 72 0d 01  |.CMP romnumber..|
00000270  e0 0b 42 43 43 20 6f 75  74 0d 01 ea 1e 4c 44 41  |..BCC out....LDA|
00000280  20 23 28 6c 61 73 74 62  79 74 65 2b 64 69 66 66  | #(lastbyte+diff|
00000290  29 20 83 20 32 35 36 0d  01 f4 10 53 54 41 20 72  |) . 256....STA r|
000002a0  6f 6d 70 6f 69 6e 74 0d  01 fe 1e 4c 44 41 20 23  |ompoint....LDA #|
000002b0  28 6c 61 73 74 62 79 74  65 2b 64 69 66 66 29 20  |(lastbyte+diff) |
000002c0  81 20 32 35 36 0d 02 08  12 53 54 41 20 72 6f 6d  |. 256....STA rom|
000002d0  70 6f 69 6e 74 2b 31 0d  02 12 11 4c 44 41 20 72  |point+1....LDA r|
000002e0  6f 6d 6e 75 6d 62 65 72  0d 02 1c 09 82 20 23 26  |omnumber..... #&|
000002f0  46 0d 02 26 0d 53 54 41  20 70 68 72 6f 6d 0d 02  |F..&.STA phrom..|
00000300  30 09 2e 65 78 69 74 0d  02 3a 07 50 4c 41 0d 02  |0..exit..:.PLA..|
00000310  44 0a 4c 44 41 20 23 30  0d 02 4e 07 52 54 53 0d  |D.LDA #0..N.RTS.|
00000320  02 58 0d 2e 66 6f 75 72  74 65 65 6e 0d 02 62 0b  |.X..fourteen..b.|
00000330  43 4d 50 20 23 31 34 0d  02 6c 0b 42 4e 45 20 6f  |CMP #14..l.BNE o|
00000340  75 74 0d 02 76 0d 4c 44  41 20 70 68 72 6f 6d 0d  |ut..v.LDA phrom.|
00000350  02 80 09 82 20 23 26 46  0d 02 8a 11 43 4d 50 20  |.... #&F....CMP |
00000360  72 6f 6d 6e 75 6d 62 65  72 0d 02 94 0b 42 4e 45  |romnumber....BNE|
00000370  20 6f 75 74 0d 02 9e 0a  4c 44 59 20 23 30 0d 02  | out....LDY #0..|
00000380  a8 14 4c 44 41 20 28 72  6f 6d 70 6f 69 6e 74 29  |..LDA (rompoint)|
00000390  2c 59 0d 02 b2 07 54 41  59 0d 02 bc 10 49 4e 43  |,Y....TAY....INC|
000003a0  20 72 6f 6d 70 6f 69 6e  74 0d 02 c6 0c 42 4e 45  | rompoint....BNE|
000003b0  20 65 78 69 74 0d 02 d0  12 49 4e 43 20 72 6f 6d  | exit....INC rom|
000003c0  70 6f 69 6e 74 2b 31 0d  02 da 11 4a 4d 50 20 65  |point+1....JMP e|
000003d0  78 69 74 2b 64 69 66 66  0d 02 e4 08 2e 6f 75 74  |xit+diff.....out|
000003e0  0d 02 ee 07 50 4c 41 0d  02 f8 07 52 54 53 0d 03  |....PLA....RTS..|
000003f0  02 0d 2e 6c 61 6e 67 75  61 67 65 0d 03 0c 22 43  |...language..."C|
00000400  4c 49 20 5c 20 45 6e 61  62 6c 65 20 69 6e 74 65  |LI \ Enable inte|
00000410  72 75 70 74 20 72 65 71  75 65 73 74 73 0d 03 16  |rupt requests...|
00000420  0c 4c 44 58 20 23 26 46  46 0d 03 20 15 54 58 53  |.LDX #&FF.. .TXS|
00000430  20 5c 20 52 65 73 65 74  20 73 74 61 63 6b 0d 03  | \ Reset stack..|
00000440  2a 1b 4c 44 41 20 23 28  62 61 73 69 63 2b 64 69  |*.LDA #(basic+di|
00000450  66 66 29 20 83 20 32 35  36 0d 03 34 0e 53 54 41  |ff) . 256..4.STA|
00000460  20 62 72 65 61 6b 76 0d  03 3e 1b 4c 44 41 20 23  | breakv..>.LDA #|
00000470  28 62 61 73 69 63 2b 64  69 66 66 29 20 81 20 32  |(basic+diff) . 2|
00000480  35 36 0d 03 48 10 53 54  41 20 62 72 65 61 6b 76  |56..H.STA breakv|
00000490  2b 31 0d 03 52 0c 4c 44  41 20 23 26 38 44 0d 03  |+1..R.LDA #&8D..|
000004a0  5c 15 4a 53 52 20 6f 73  62 79 74 65 20 5c 20 2a  |\.JSR osbyte \ *|
000004b0  52 4f 4d 0d 03 66 0c 4c  44 41 20 23 26 38 42 0d  |ROM..f.LDA #&8B.|
000004c0  03 70 0a 4c 44 58 20 23  31 0d 03 7a 0a 4c 44 59  |.p.LDX #1..z.LDY|
000004d0  20 23 30 0d 03 84 18 4a  53 52 20 6f 73 62 79 74  | #0....JSR osbyt|
000004e0  65 20 5c 20 2a 4f 50 54  31 2c 30 0d 03 8e 0c 4c  |e \ *OPT1,0....L|
000004f0  44 41 20 23 26 30 46 0d  03 98 0a 4c 44 58 20 23  |DA #&0F....LDX #|
00000500  30 0d 03 a2 22 4a 53 52  20 6f 73 62 79 74 65 20  |0..."JSR osbyte |
00000510  5c 20 46 6c 75 73 68 20  61 6c 6c 20 62 75 66 66  |\ Flush all buff|
00000520  65 72 73 0d 03 ac 0c 4c  44 41 20 23 26 46 46 0d  |ers....LDA #&FF.|
00000530  03 b6 07 50 48 41 0d 03  c0 0d 2e 6b 65 79 62 6f  |...PHA.....keybo|
00000540  61 72 64 0d 03 ca 07 50  4c 41 0d 03 d4 07 54 41  |ard....PLA....TA|
00000550  58 0d 03 de 07 49 4e 58  0d 03 e8 07 54 58 41 0d  |X....INX....TXA.|
00000560  03 f2 07 50 48 41 0d 03  fc 16 4c 44 59 20 72 66  |...PHA....LDY rf|
00000570  73 63 6f 6d 6d 2b 64 69  66 66 2c 58 0d 04 06 0d  |scomm+diff,X....|
00000580  42 45 51 20 62 61 73 69  63 0d 04 10 0c 4c 44 41  |BEQ basic....LDA|
00000590  20 23 26 38 41 0d 04 1a  0a 4c 44 58 20 23 30 0d  | #&8A....LDX #0.|
000005a0  04 24 0e 4a 53 52 20 6f  73 62 79 74 65 0d 04 2e  |.$.JSR osbyte...|
000005b0  15 4a 4d 50 20 6b 65 79  62 6f 61 72 64 2b 64 69  |.JMP keyboard+di|
000005c0  66 66 0d 04 38 0a 2e 62  61 73 69 63 0d 04 42 0c  |ff..8..basic..B.|
000005d0  4c 44 41 20 23 26 42 42  0d 04 4c 0a 4c 44 58 20  |LDA #&BB..L.LDX |
000005e0  23 30 0d 04 56 0c 4c 44  59 20 23 26 46 46 0d 04  |#0..V.LDY #&FF..|
000005f0  60 1b 4a 53 52 20 6f 73  62 79 74 65 20 5c 20 46  |`.JSR osbyte \ F|
00000600  69 6e 64 20 42 41 53 49  43 0d 04 6a 0c 4c 44 41  |ind BASIC..j.LDA|
00000610  20 23 26 38 45 0d 04 74  1c 4a 4d 50 20 6f 73 62  | #&8E..t.JMP osb|
00000620  79 74 65 20 5c 20 45 6e  74 65 72 20 42 41 53 49  |yte \ Enter BASI|
00000630  43 0d 04 7e 0c 2e 72 66  73 63 6f 6d 6d 0d 04 88  |C..~..rfscomm...|
00000640  1e 4f 50 54 20 a4 65 71  75 73 28 22 43 48 41 49  |.OPT .equs("CHAI|
00000650  4e 22 22 44 45 4d 4f 22  22 22 29 0d 04 92 12 4f  |N""DEMO""")....O|
00000660  50 54 20 a4 65 71 75 62  28 26 30 44 29 0d 04 9c  |PT .equb(&0D)...|
00000670  07 42 52 4b 0d 04 a6 0d  2e 6c 61 73 74 62 79 74  |.BRK.....lastbyt|
00000680  65 0d 04 b0 05 5d 0d 04  ba 05 ed 0d 04 c4 0f 4f  |e....].........O|
00000690  25 3d 6c 61 73 74 62 79  74 65 0d 04 ce 0d d7 22  |%=lastbyte....."|
000006a0  52 46 53 47 45 4e 22 0d  04 d8 10 dd a4 65 71 75  |RFSGEN"......equ|
000006b0  62 28 62 79 74 65 29 0d  04 e2 0c 3f 50 25 3d 62  |b(byte)....?P%=b|
000006c0  79 74 65 0d 04 ec 0b 50  25 3d 50 25 2b 31 0d 04  |yte....P%=P%+1..|
000006d0  f6 09 3d 70 61 73 73 0d  05 00 10 dd a4 65 71 75  |..=pass......equ|
000006e0  77 28 77 6f 72 64 29 0d  05 0a 12 3f 50 25 3d 77  |w(word)....?P%=w|
000006f0  6f 72 64 20 83 20 32 35  36 0d 05 14 13 50 25 3f  |ord . 256....P%?|
00000700  31 3d 77 6f 72 64 20 81  20 32 35 36 0d 05 1e 0b  |1=word . 256....|
00000710  50 25 3d 50 25 2b 32 0d  05 28 09 3d 70 61 73 73  |P%=P%+2..(.=pass|
00000720  0d 05 32 12 dd a4 65 71  75 64 28 64 6f 75 62 6c  |..2...equd(doubl|
00000730  65 29 0d 05 3c 0e 21 50  25 3d 64 6f 75 62 6c 65  |e)..<.!P%=double|
00000740  0d 05 46 0b 50 25 3d 50  25 2b 34 0d 05 50 09 3d  |..F.P%=P%+4..P.=|
00000750  70 61 73 73 0d 05 5a 13  dd a4 65 71 75 73 28 73  |pass..Z...equs(s|
00000760  74 72 69 6e 67 24 29 0d  05 64 0f 24 50 25 3d 73  |tring$)..d.$P%=s|
00000770  74 72 69 6e 67 24 0d 05  6e 14 50 25 3d 50 25 2b  |tring$..n.P%=P%+|
00000780  a9 28 73 74 72 69 6e 67  24 29 0d 05 78 09 3d 70  |.(string$)..x.=p|
00000790  61 73 73 0d ff                                    |ass..|
00000795