Home » CEEFAX disks » telesoftware5.adl » 26-02-88/RFSHEAD

26-02-88/RFSHEAD

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 » telesoftware5.adl
Filename: 26-02-88/RFSHEAD
Read OK:
File size: 0442 bytes
Load address: 0800
Exec address: 8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM: RFSHEAD
   20MODE7
   30HIMEM=&3C00
   40diff=&8000-HIMEM
   50H%=HIMEM
   60romnumber=&F4
   70phrom=&F5
   80rompoint=&F6
   90FOR pass = 0 TO 2 STEP 2
  100P%=HIMEM
  110[OPT pass
  120BRK
  130BRK
  140BRK
  150JMP service+diff
  160OPT FNequb(&82)
  170OPT FNequb((copyright+diff) MOD 256)
  180BRK
  190OPT FNequs("RFS")
  200.copyright
  210BRK
  220OPT FNequs("(C) Gordon Horsington 1986")
  230BRK
  240.service
  250PHA
  260CMP #13
  270BNE fourteen
  280TYA
  290EOR #&F
  300CMP romnumber
  310BCC out
  320LDA #(lastbyte+diff) MOD 256
  330STA rompoint
  340LDA #(lastbyte+diff) DIV 256
  350STA rompoint+1
  360LDA romnumber
  370EOR #&F
  380STA phrom
  390.exit
  400PLA
  410LDA #0
  420RTS
  430.fourteen
  440CMP #14
  450BNE out
  460LDA phrom
  470EOR #&F
  480CMP romnumber
  490BNE out
  500LDY #0
  510LDA (rompoint),Y
  520TAY
  530INC rompoint
  540BNE exit
  550INC rompoint+1
  560JMP exit+diff
  570.out
  580PLA
  590RTS
  600.lastbyte
  610]
  620NEXT
  630O%=lastbyte
  640CHAIN"RFSGEN"
  650DEFFNequb(byte)
  660?P%=byte
  670P%=P%+1
  680=pass
  690DEFFNequw(word)
  700?P%=word MOD 256
  710P%?1=word DIV 256
  720P%=P%+2
  730=pass
  740DEFFNequd(double)
  750!P%=double
  760P%=P%+4
  770=pass
  780DEFFNequs(string$)
  790$P%=string$
  800P%=P%+LEN(string$)
  810=pass

�: RFSHEAD
�7
�=&3C00
(diff=&8000-�
2H%=�
<romnumber=&F4
F
phrom=&F5
Prompoint=&F6
Z� pass = 0 � 2 � 2
dP%=�
n
[OPT pass
xBRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�OPT �equs("RFS")
�.copyright
�BRK
�+OPT �equs("(C) Gordon Horsington 1986")
�BRK
�.service
�PHA
CMP #13
BNE fourteen
TYA
"	� #&F
,CMP romnumber
6BCC out
@LDA #(lastbyte+diff) � 256
JSTA rompoint
TLDA #(lastbyte+diff) � 256
^STA rompoint+1
hLDA romnumber
r	� #&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
INC rompoint
BNE exit
&INC rompoint+1
0JMP exit+diff
:.out
DPLA
NRTS
X
.lastbyte
b]
l�
vO%=lastbyte
�
�"RFSGEN"
�ݤequb(byte)
�?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 48 45 41 44 0d 00  |.....: RFSHEAD..|
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  16 e3 20 70 61 73 73 20  |t=&F6..Z.. pass |
00000070  3d 20 30 20 b8 20 32 20  88 20 32 0d 00 64 08 50  |= 0 . 2 . 2..d.P|
00000080  25 3d 93 0d 00 6e 0d 5b  4f 50 54 20 70 61 73 73  |%=...n.[OPT pass|
00000090  0d 00 78 07 42 52 4b 0d  00 82 07 42 52 4b 0d 00  |..x.BRK....BRK..|
000000a0  8c 07 42 52 4b 0d 00 96  14 4a 4d 50 20 73 65 72  |..BRK....JMP ser|
000000b0  76 69 63 65 2b 64 69 66  66 0d 00 a0 12 4f 50 54  |vice+diff....OPT|
000000c0  20 a4 65 71 75 62 28 26  38 32 29 0d 00 aa 25 4f  | .equb(&82)...%O|
000000d0  50 54 20 a4 65 71 75 62  28 28 63 6f 70 79 72 69  |PT .equb((copyri|
000000e0  67 68 74 2b 64 69 66 66  29 20 83 20 32 35 36 29  |ght+diff) . 256)|
000000f0  0d 00 b4 07 42 52 4b 0d  00 be 14 4f 50 54 20 a4  |....BRK....OPT .|
00000100  65 71 75 73 28 22 52 46  53 22 29 0d 00 c8 0e 2e  |equs("RFS").....|
00000110  63 6f 70 79 72 69 67 68  74 0d 00 d2 07 42 52 4b  |copyright....BRK|
00000120  0d 00 dc 2b 4f 50 54 20  a4 65 71 75 73 28 22 28  |...+OPT .equs("(|
00000130  43 29 20 47 6f 72 64 6f  6e 20 48 6f 72 73 69 6e  |C) Gordon Horsin|
00000140  67 74 6f 6e 20 31 39 38  36 22 29 0d 00 e6 07 42  |gton 1986")....B|
00000150  52 4b 0d 00 f0 0c 2e 73  65 72 76 69 63 65 0d 00  |RK.....service..|
00000160  fa 07 50 48 41 0d 01 04  0b 43 4d 50 20 23 31 33  |..PHA....CMP #13|
00000170  0d 01 0e 10 42 4e 45 20  66 6f 75 72 74 65 65 6e  |....BNE fourteen|
00000180  0d 01 18 07 54 59 41 0d  01 22 09 82 20 23 26 46  |....TYA..".. #&F|
00000190  0d 01 2c 11 43 4d 50 20  72 6f 6d 6e 75 6d 62 65  |..,.CMP romnumbe|
000001a0  72 0d 01 36 0b 42 43 43  20 6f 75 74 0d 01 40 1e  |r..6.BCC out..@.|
000001b0  4c 44 41 20 23 28 6c 61  73 74 62 79 74 65 2b 64  |LDA #(lastbyte+d|
000001c0  69 66 66 29 20 83 20 32  35 36 0d 01 4a 10 53 54  |iff) . 256..J.ST|
000001d0  41 20 72 6f 6d 70 6f 69  6e 74 0d 01 54 1e 4c 44  |A rompoint..T.LD|
000001e0  41 20 23 28 6c 61 73 74  62 79 74 65 2b 64 69 66  |A #(lastbyte+dif|
000001f0  66 29 20 81 20 32 35 36  0d 01 5e 12 53 54 41 20  |f) . 256..^.STA |
00000200  72 6f 6d 70 6f 69 6e 74  2b 31 0d 01 68 11 4c 44  |rompoint+1..h.LD|
00000210  41 20 72 6f 6d 6e 75 6d  62 65 72 0d 01 72 09 82  |A romnumber..r..|
00000220  20 23 26 46 0d 01 7c 0d  53 54 41 20 70 68 72 6f  | #&F..|.STA phro|
00000230  6d 0d 01 86 09 2e 65 78  69 74 0d 01 90 07 50 4c  |m.....exit....PL|
00000240  41 0d 01 9a 0a 4c 44 41  20 23 30 0d 01 a4 07 52  |A....LDA #0....R|
00000250  54 53 0d 01 ae 0d 2e 66  6f 75 72 74 65 65 6e 0d  |TS.....fourteen.|
00000260  01 b8 0b 43 4d 50 20 23  31 34 0d 01 c2 0b 42 4e  |...CMP #14....BN|
00000270  45 20 6f 75 74 0d 01 cc  0d 4c 44 41 20 70 68 72  |E out....LDA phr|
00000280  6f 6d 0d 01 d6 09 82 20  23 26 46 0d 01 e0 11 43  |om..... #&F....C|
00000290  4d 50 20 72 6f 6d 6e 75  6d 62 65 72 0d 01 ea 0b  |MP romnumber....|
000002a0  42 4e 45 20 6f 75 74 0d  01 f4 0a 4c 44 59 20 23  |BNE out....LDY #|
000002b0  30 0d 01 fe 14 4c 44 41  20 28 72 6f 6d 70 6f 69  |0....LDA (rompoi|
000002c0  6e 74 29 2c 59 0d 02 08  07 54 41 59 0d 02 12 10  |nt),Y....TAY....|
000002d0  49 4e 43 20 72 6f 6d 70  6f 69 6e 74 0d 02 1c 0c  |INC rompoint....|
000002e0  42 4e 45 20 65 78 69 74  0d 02 26 12 49 4e 43 20  |BNE exit..&.INC |
000002f0  72 6f 6d 70 6f 69 6e 74  2b 31 0d 02 30 11 4a 4d  |rompoint+1..0.JM|
00000300  50 20 65 78 69 74 2b 64  69 66 66 0d 02 3a 08 2e  |P exit+diff..:..|
00000310  6f 75 74 0d 02 44 07 50  4c 41 0d 02 4e 07 52 54  |out..D.PLA..N.RT|
00000320  53 0d 02 58 0d 2e 6c 61  73 74 62 79 74 65 0d 02  |S..X..lastbyte..|
00000330  62 05 5d 0d 02 6c 05 ed  0d 02 76 0f 4f 25 3d 6c  |b.]..l....v.O%=l|
00000340  61 73 74 62 79 74 65 0d  02 80 0d d7 22 52 46 53  |astbyte....."RFS|
00000350  47 45 4e 22 0d 02 8a 10  dd a4 65 71 75 62 28 62  |GEN"......equb(b|
00000360  79 74 65 29 0d 02 94 0c  3f 50 25 3d 62 79 74 65  |yte)....?P%=byte|
00000370  0d 02 9e 0b 50 25 3d 50  25 2b 31 0d 02 a8 09 3d  |....P%=P%+1....=|
00000380  70 61 73 73 0d 02 b2 10  dd a4 65 71 75 77 28 77  |pass......equw(w|
00000390  6f 72 64 29 0d 02 bc 12  3f 50 25 3d 77 6f 72 64  |ord)....?P%=word|
000003a0  20 83 20 32 35 36 0d 02  c6 13 50 25 3f 31 3d 77  | . 256....P%?1=w|
000003b0  6f 72 64 20 81 20 32 35  36 0d 02 d0 0b 50 25 3d  |ord . 256....P%=|
000003c0  50 25 2b 32 0d 02 da 09  3d 70 61 73 73 0d 02 e4  |P%+2....=pass...|
000003d0  12 dd a4 65 71 75 64 28  64 6f 75 62 6c 65 29 0d  |...equd(double).|
000003e0  02 ee 0e 21 50 25 3d 64  6f 75 62 6c 65 0d 02 f8  |...!P%=double...|
000003f0  0b 50 25 3d 50 25 2b 34  0d 03 02 09 3d 70 61 73  |.P%=P%+4....=pas|
00000400  73 0d 03 0c 13 dd a4 65  71 75 73 28 73 74 72 69  |s......equs(stri|
00000410  6e 67 24 29 0d 03 16 0f  24 50 25 3d 73 74 72 69  |ng$)....$P%=stri|
00000420  6e 67 24 0d 03 20 14 50  25 3d 50 25 2b a9 28 73  |ng$.. .P%=P%+.(s|
00000430  74 72 69 6e 67 24 29 0d  03 2a 09 3d 70 61 73 73  |tring$)..*.=pass|
00000440  0d ff                                             |..|
00000442
26-02-88/RFSHEAD.m0
26-02-88/RFSHEAD.m1
26-02-88/RFSHEAD.m2
26-02-88/RFSHEAD.m4
26-02-88/RFSHEAD.m5