Home » CEEFAX disks » telesoftware6.adl » 09-04-88/ALLRFS

09-04-88/ALLRFS

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware6.adl
Filename: 09-04-88/ALLRFS
Read OK:
File size: 12A1 bytes
Load address: 0800
Exec address: 8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM: ALLRFS
   20MODE7
   30HIMEM=&3C00
   40diff=&8000-HIMEM
   50H%=HIMEM
   60address=&70
   70comvec=&F2
   80romnumber=&F4
   90phrom=&F5
  100rompoint=&F6
  110breakv=&202
  120gsinit=&FFC2
  130gsread=&FFC5
  140osasci=&FFE3
  150osnewl=&FFE7
  160osbyte=&FFF4
  170oscli=&FFF7
  180FOR pass = 0 TO 2 STEP 2
  190P%=HIMEM
  200[OPT pass
  210JMP language+diff
  220JMP service+diff
  230OPT FNequb(&C2)
  240OPT FNequb((copyright+diff) MOD 256)
  250BRK
  260.title
  270OPT FNequs("RFS")
  280.copyright
  290BRK
  300OPT FNequs("(C) Gordon Horsington 1987")
  310BRK
  320.service
  330PHA
  340CMP #4
  350BNE trythirteen
  360TXA
  370PHA
  380TYA
  390PHA
  400LDX #&FF
  410.comloop
  420INX
  430LDA title+diff,X
  440BEQ found
  450LDA (comvec),Y
  460INY
  470CMP #ASC(".")
  480BEQ found
  490AND #&DF
  500CMP title+diff,X
  510BEQ comloop
  520PLA
  530TAY
  540PLA
  550TAX
  560PLA
  570RTS
  580.found
  590LDA #&8E
  600LDX romnumber
  610JMP osbyte \ Enter this ROM
  620.trythirteen
  630CMP #13
  640BNE fourteen
  650TYA
  660EOR #&F
  670CMP romnumber
  680BCC out
  690LDA #(lastbyte+diff) MOD 256
  700STA rompoint
  710LDA #(lastbyte+diff) DIV 256
  720STA rompoint+1
  730LDA romnumber
  740EOR #&F
  750STA phrom
  760.exit
  770PLA
  780LDA #0
  790RTS
  800.fourteen
  810CMP #14
  820BNE trythree
  830LDA phrom
  840EOR #&F
  850CMP romnumber
  860BNE out
  870LDY #0
  880LDA (rompoint),Y
  890TAY
  900INC rompoint
  910BNE exit
  920INC rompoint+1
  930JMP exit+diff
  940.out
  950PLA
  960RTS
  970.trythree
  980CMP #3
  990BNE trynine
 1000JMP three+diff
 1010.trynine
 1020CMP #9
 1030BNE out
 1040TXA
 1050PHA
 1060TYA
 1070PHA
 1080LDA address
 1090PHA
 1100LDA address+1
 1110PHA
 1120SEC
 1130JSR gsinit
 1140LDX #0
 1150JSR gsread
 1160BCC tryextended
 1170LDX #(helptitle+diff) MOD 256
 1180LDY #(helptitle+diff) DIV 256
 1190JSR print+diff
 1200.exithelp
 1210PLA
 1220STA address+1
 1230PLA
 1240STA address
 1250PLA
 1260TAY
 1270PLA
 1280TAX
 1290PLA
 1300RTS
 1310.helploop
 1320INX
 1330JSR gsread
 1340.tryextended
 1350CMP #ASC(".")
 1360BEQ extension
 1370AND #&DF
 1380CMP extended+diff,X
 1390BEQ helploop
 1400LDA extended+diff,X
 1410BPL exithelp
 1420.extension
 1430LDX #(exthelp+diff) MOD 256
 1440LDY #(exthelp+diff) DIV 256
 1450JSR print+diff
 1460BEQ exithelp
 1470.print
 1480STX address
 1490STY address+1
 1500LDY #&FF
 1510.printloop
 1520INY
 1530LDA (address),Y
 1540BEQ endprint
 1550BMI printloop
 1560JSR osasci
 1570JMP printloop+diff
 1580.endprint
 1590RTS
 1600.helptitle
 1610OPT FNequb(&0D)
 1620OPT FNequs("Rom Filing System")
 1630OPT FNequb(&0D)
 1640OPT FNequw(&2020)
 1650.extended
 1660OPT FNequs("RFS")
 1670OPT FNequw(&0DFF)
 1680BRK
 1690.exthelp
 1700OPT FNequb(&0D)
 1710OPT FNequs("Rom Filing System")
 1720OPT FNequw(&0D0D)
 1730OPT FNequs("Select RFS with *ROM")
 1740OPT FNequb(&0D)
 1750OPT FNequs("Boot RFS with Ctrl-R-Break")
 1760OPT FNequb(&0D)
 1770OPT FNequs("Enter RFS with *RFS or *FX142,n")
 1780OPT FNequb(&0D)
 1790BRK
 1800.three
 1810TXA
 1820PHA
 1830TYA
 1840PHA
 1850LDA #&7A
 1860JSR osbyte
 1870CPX #&33 \ Is it Ctrl-R-Break?
 1880BEQ rbreak
 1890PLA
 1900TAY
 1910PLA
 1920TAX
 1930PLA
 1940RTS
 1950.rbreak
 1960LDA #&C9
 1970LDX #1
 1980LDY #0
 1990JSR osbyte \ Disable keyboard
 2000LDA #&0F
 2010LDX #0
 2020JSR osbyte \ Flush all buffers
 2030LDA address
 2040PHA
 2050LDA address+1
 2060PHA
 2070LDX #(rfs+diff) MOD 256
 2080LDY #(rfs+diff) DIV 256
 2090JSR print+diff
 2100LDX #(cat+diff) MOD 256
 2110LDY #(cat+diff) DIV 256
 2120JSR print+diff
 2130LDA #&8D
 2140JSR osbyte \ Select RFS
 2150LDA #&8B
 2160LDX #1
 2170LDY #2
 2180JSR osbyte \ *OPT1,2
 2190LDX #(dot+diff) MOD 256
 2200LDY #(dot+diff) DIV 256
 2210JSR oscli \ Catalogue RFS
 2220LDA #&8B
 2230LDX #0
 2240LDY #0
 2250JSR osbyte \ *OPT 1,0
 2260JSR osnewl
 2270LDX #(rfs+diff) MOD 256
 2280LDY #(rfs+diff) DIV 256
 2290JSR print+diff
 2300LDX #(act+diff) MOD 256
 2310LDY #(act+diff) DIV 256
 2320JSR print+diff
 2330PLA
 2340STA address+1
 2350PLA
 2360STA address
 2370LDA #&C9
 2380LDX #0
 2390LDY #0
 2400JSR osbyte \ Enable keyboard
 2410PLA
 2420PLA
 2430PLA
 2440LDA #0
 2450RTS
 2460.dot
 2470OPT FNequs("CAT")
 2480OPT FNequb(&0D)
 2490.rfs
 2500OPT FNequs("Rom Filing System ")
 2510BRK
 2520.cat
 2530OPT FNequs("Catalogue")
 2540OPT FNequb(&0D)
 2550BRK
 2560.act
 2570OPT FNequs("active")
 2580OPT FNequw(&0D0D)
 2590BRK
 2600.language
 2610CLI \ Enable interupt requests
 2620LDX #&FF
 2630TXS \ Reset stack
 2640LDA #(basic+diff) MOD 256
 2650STA breakv
 2660LDA #(basic+diff) DIV 256
 2670STA breakv+1
 2680LDA #&8D
 2690JSR osbyte \ *ROM
 2700LDA #&8B
 2710LDX #1
 2720LDY #0
 2730JSR osbyte \ *OPT1,0
 2740LDA #&0F
 2750LDX #0
 2760JSR osbyte \ Flush all buffers
 2770LDA #&FF
 2780PHA
 2790.keyboard
 2800PLA
 2810TAX
 2820INX
 2830TXA
 2840PHA
 2850LDY rfscomm+diff,X
 2860BEQ endkey
 2870LDA #&8A
 2880LDX #0
 2890JSR osbyte
 2900JMP keyboard+diff
 2910.endkey
 2920PLA
 2930.basic
 2940LDA #&BB
 2950LDX #0
 2960LDY #&FF
 2970JSR osbyte \ Find BASIC
 2980LDA #&8E
 2990JMP osbyte \ Enter BASIC
 3000.rfscomm
 3010OPT FNequs("CHAIN""DEMO""")
 3020OPT FNequb(&0D)
 3030BRK
 3040.lastbyte
 3050]
 3060NEXT
 3070O%=lastbyte
 3080CHAIN"RFSGEN"
 3090DEFFNequb(byte)
 3100?P%=byte
 3110P%=P%+1
 3120=pass
 3130DEFFNequw(word)
 3140?P%=word MOD 256
 3150P%?1=word DIV 256
 3160P%=P%+2
 3170=pass
 3180DEFFNequd(double)
 3190!P%=double
 3200P%=P%+4
 3210=pass
 3220DEFFNequs(string$)
 3230$P%=string$
 3240P%=P%+LEN(string$)
 3250=pass


�: 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
09-04-88/ALLRFS.m0
09-04-88/ALLRFS.m1
09-04-88/ALLRFS.m2
09-04-88/ALLRFS.m4
09-04-88/ALLRFS.m5