Home » Archimedes archive » Archimedes World » AW-1996-02-Disc1.adf » !ElfKing_Elf » !ElfKing/ONE/LINK
!ElfKing/ONE/LINK
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 » Archimedes archive » Archimedes World » AW-1996-02-Disc1.adf » !ElfKing_Elf |
| Filename: | !ElfKing/ONE/LINK |
| Read OK: | ✔ |
| File size: | 0198 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10
20DIM tblk% 80
30a$=FNreadsysvar("ElfK$EntryPt")
40IFINSTR(a$,"fromstartup"):CHAIN"<ElfK$chaindir>.ONE.ektitle"
50
60IFL%<=1030:CHAIN"<ElfK$chaindir>.ONE.elfking1"
70REM map
80IFL%=1040:CHAIN"<ElfK$chaindir>.ONE.elfking2"
90REM mend ladders
100IFL%=1050:CHAIN"<ElfK$chaindir>.ONE.elfking3"
110
120
130END
140
150DEFFNreadsysvar(a$)
160LOCAL p%
170SYS "OS_ReadVarVal",a$,tblk%,80,0,0 TO ,,a%:a$="":FORp%=0TOa%-1:a$+=CHR$(tblk%?p%):NEXT
180=a$
190
� tblk% 80
"a$=�readsysvar("ElfK$EntryPt")
(6�a$,"fromstartup"):�"<ElfK$chaindir>.ONE.ektitle"
2
<-�L%<=1030:�"<ElfK$chaindir>.ONE.elfking1"
F � map
P,�L%=1040:�"<ElfK$chaindir>.ONE.elfking2"
Z� mend ladders
d,�L%=1050:�"<ElfK$chaindir>.ONE.elfking3"
n
x
��
�
�ݤreadsysvar(a$)
�� p%
�Pș "OS_ReadVarVal",a$,tblk%,80,0,0 � ,,a%:a$="":�p%=0�a%-1:a$+=�(tblk%?p%):�
�=a$
�
� 00000000 0d 00 0a 04 0d 00 14 0e de 20 74 62 6c 6b 25 20 |......... tblk% |
00000010 38 30 0d 00 1e 22 61 24 3d a4 72 65 61 64 73 79 |80..."a$=.readsy|
00000020 73 76 61 72 28 22 45 6c 66 4b 24 45 6e 74 72 79 |svar("ElfK$Entry|
00000030 50 74 22 29 0d 00 28 36 e7 a7 61 24 2c 22 66 72 |Pt")..(6..a$,"fr|
00000040 6f 6d 73 74 61 72 74 75 70 22 29 3a d7 22 3c 45 |omstartup"):."<E|
00000050 6c 66 4b 24 63 68 61 69 6e 64 69 72 3e 2e 4f 4e |lfK$chaindir>.ON|
00000060 45 2e 65 6b 74 69 74 6c 65 22 0d 00 32 04 0d 00 |E.ektitle"..2...|
00000070 3c 2d e7 4c 25 3c 3d 31 30 33 30 3a d7 22 3c 45 |<-.L%<=1030:."<E|
00000080 6c 66 4b 24 63 68 61 69 6e 64 69 72 3e 2e 4f 4e |lfK$chaindir>.ON|
00000090 45 2e 65 6c 66 6b 69 6e 67 31 22 0d 00 46 09 f4 |E.elfking1"..F..|
000000a0 20 6d 61 70 0d 00 50 2c e7 4c 25 3d 31 30 34 30 | map..P,.L%=1040|
000000b0 3a d7 22 3c 45 6c 66 4b 24 63 68 61 69 6e 64 69 |:."<ElfK$chaindi|
000000c0 72 3e 2e 4f 4e 45 2e 65 6c 66 6b 69 6e 67 32 22 |r>.ONE.elfking2"|
000000d0 0d 00 5a 12 f4 20 6d 65 6e 64 20 6c 61 64 64 65 |..Z.. mend ladde|
000000e0 72 73 0d 00 64 2c e7 4c 25 3d 31 30 35 30 3a d7 |rs..d,.L%=1050:.|
000000f0 22 3c 45 6c 66 4b 24 63 68 61 69 6e 64 69 72 3e |"<ElfK$chaindir>|
00000100 2e 4f 4e 45 2e 65 6c 66 6b 69 6e 67 33 22 0d 00 |.ONE.elfking3"..|
00000110 6e 04 0d 00 78 04 0d 00 82 05 e0 0d 00 8c 04 0d |n...x...........|
00000120 00 96 14 dd a4 72 65 61 64 73 79 73 76 61 72 28 |.....readsysvar(|
00000130 61 24 29 0d 00 a0 08 ea 20 70 25 0d 00 aa 50 c8 |a$)..... p%...P.|
00000140 99 20 22 4f 53 5f 52 65 61 64 56 61 72 56 61 6c |. "OS_ReadVarVal|
00000150 22 2c 61 24 2c 74 62 6c 6b 25 2c 38 30 2c 30 2c |",a$,tblk%,80,0,|
00000160 30 20 b8 20 2c 2c 61 25 3a 61 24 3d 22 22 3a e3 |0 . ,,a%:a$="":.|
00000170 70 25 3d 30 b8 61 25 2d 31 3a 61 24 2b 3d bd 28 |p%=0.a%-1:a$+=.(|
00000180 74 62 6c 6b 25 3f 70 25 29 3a ed 0d 00 b4 07 3d |tblk%?p%):.....=|
00000190 61 24 0d 00 be 04 0d ff |a$......|
00000198 
.