�: RFSERV
�7
�=&3C00
(diff=&8000-�
2H%=�
<comvec=&F2
Fromnumber=&F4
P
phrom=&F5
Zrompoint=&F6
dgsread=&FFC5
nosbyte=&FFF4
x� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�
.title
�OPT �equs("DEMO")
�.copyright
�BRK

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

BRK

.service

"PHA

,
CMP #4

6BNE trythirteen

@TXA

JPHA

TTYA

^PHA

hLDX #&FF

r.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
PLA
RTS
.trythirteen
&CMP #13
0BNE fourteen
:TYA
D	� #&F
NCMP romnumber
XBCC out
bLDA #(lastbyte+diff) � 256
lSTA rompoint
vLDA #(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

LDY #0
 LDA (rompoint),Y
*TAY
4INC rompoint
>BNE exit
HINC rompoint+1
RJMP exit+diff
\.out
fPLA
pRTS
z
.found
�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
8BEQ endkey
BLDA #&8A
LLDX #&0
VJSR osbyte
`JMP keyboard+diff
j.endkey
tPLA
~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
2	=pass
<ݤequw(word)
F?P%=word � 256
PP%?1=word � 256
ZP%=P%+2
d	=pass
nݤequd(double)
x!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
�	=pass
�

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