Home » CEEFAX disks » telesoftware11.adl » 02-12-88/AUTORFS

02-12-88/AUTORFS

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 » telesoftware11.adl
Filename: 02-12-88/AUTORFS
Read OK:
File size: 0795 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

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

File contents
   10REM: AUTORFS
   20MODE7
   30HIMEM=&3C00
   40diff=&8000-HIMEM
   50H%=HIMEM
   60romnumber=&F4
   70phrom=&F5
   80rompoint=&F6
   90breakv=&202
  100osbyte=&FFF4
  110FOR pass = 0 TO 2 STEP 2
  120P%=HIMEM
  130[OPT pass
  140JMP language+diff
  150JMP service+diff
  160OPT FNequb(&C2)
  170OPT FNequb((copyright+diff) MOD 256)
  180BRK
  190OPT FNequs("AUTORFS")
  200.copyright
  210BRK
  220OPT FNequs("(C) Gordon Horsington 1987")
  230BRK
  240.service
  250PHA
  260CMP #&FE
  270BNE trythirteen
  280TXA
  290PHA
  300TYA
  310PHA
  320LDA #&FC
  330LDX romnumber
  340LDY #0
  350JSR osbyte
  360PLA
  370TAY
  380PLA
  390TAX
  400PLA
  410RTS
  420.trythirteen
  430CMP #13
  440BNE fourteen
  450TYA
  460EOR #&F
  470CMP romnumber
  480BCC out
  490LDA #(lastbyte+diff) MOD 256
  500STA rompoint
  510LDA #(lastbyte+diff) DIV 256
  520STA rompoint+1
  530LDA romnumber
  540EOR #&F
  550STA phrom
  560.exit
  570PLA
  580LDA #0
  590RTS
  600.fourteen
  610CMP #14
  620BNE out
  630LDA phrom
  640EOR #&F
  650CMP romnumber
  660BNE out
  670LDY #0
  680LDA (rompoint),Y
  690TAY
  700INC rompoint
  710BNE exit
  720INC rompoint+1
  730JMP exit+diff
  740.out
  750PLA
  760RTS
  770.language
  780CLI \ Enable interupt requests
  790LDX #&FF
  800TXS \ Reset stack
  810LDA #(basic+diff) MOD 256
  820STA breakv
  830LDA #(basic+diff) DIV 256
  840STA breakv+1
  850LDA #&8D
  860JSR osbyte \ *ROM
  870LDA #&8B
  880LDX #1
  890LDY #0
  900JSR osbyte \ *OPT1,0
  910LDA #&0F
  920LDX #0
  930JSR osbyte \ Flush all buffers
  940LDA #&FF
  950PHA
  960.keyboard
  970PLA
  980TAX
  990INX
 1000TXA
 1010PHA
 1020LDY rfscomm+diff,X
 1030BEQ basic
 1040LDA #&8A
 1050LDX #0
 1060JSR osbyte
 1070JMP keyboard+diff
 1080.basic
 1090LDA #&BB
 1100LDX #0
 1110LDY #&FF
 1120JSR osbyte \ Find BASIC
 1130LDA #&8E
 1140JMP osbyte \ Enter BASIC
 1150.rfscomm
 1160OPT FNequs("CHAIN""DEMO""")
 1170OPT FNequb(&0D)
 1180BRK
 1190.lastbyte
 1200]
 1210NEXT
 1220O%=lastbyte
 1230CHAIN"RFSGEN"
 1240DEFFNequb(byte)
 1250?P%=byte
 1260P%=P%+1
 1270=pass
 1280DEFFNequw(word)
 1290?P%=word MOD 256
 1300P%?1=word DIV 256
 1310P%=P%+2
 1320=pass
 1330DEFFNequd(double)
 1340!P%=double
 1350P%=P%+4
 1360=pass
 1370DEFFNequs(string$)
 1380$P%=string$
 1390P%=P%+LEN(string$)
 1400=pass

�: 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
02-12-88/AUTORFS.m0
02-12-88/AUTORFS.m1
02-12-88/AUTORFS.m2
02-12-88/AUTORFS.m4
02-12-88/AUTORFS.m5