Home » Personal collection » Acorn tapes » Own_Work » box04_tape18a_acorn_d60_memlist.wav » MEMLIST
MEMLIST
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 » Personal collection » Acorn tapes » Own_Work » box04_tape18a_acorn_d60_memlist.wav |
| Filename: | MEMLIST |
| Read OK: | ✔ |
| File size: | 0381 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
0 GOTO 10
5 *LOAD ABOOK 3000
10 ADDRESS=&3000
13 HIMEM=&2FFF
15 NAME$=""
20 IF ADDRESS MOD 8<>5 THEN ADDRESS=ADDRESS+1:GOTO 20
25 IF ?ADDRESS=0 THEN VDU 3:END
30 ADDRESS=ADDRESS+1:IF ?ADDRESS<>&2E AND ?ADDRESS<>&20 AND ?ADDRESS<>&D THEN NAME$=NAME$+CHR$(?ADDRESS)
40 IF ?ADDRESS<>&D THEN 30
50 ADDRESS$=""
60 PROCaddress
70 IF ?ADDRESS<>&D THEN 60
80 PROCaddress
90 IF ?ADDRESS<>&D THEN 80
100 PROCaddress
110 IF ?ADDRESS<>&D THEN 100
120 PROCaddress
130 IF ?ADDRESS<>&D THEN 120
140 PROCaddress
150 IF ?ADDRESS<>&D THEN 140
160 TELEPHONE$=""
170 ADDRESS=ADDRESS+1:IF ?ADDRESS<>&2E AND ?ADDRESS<>&20 AND ?ADDRESS<>&D THEN TELEPHONE$=TELEPHONE$+CHR$(?ADDRESS)
180 IF ?ADDRESS<>&D THEN 170
190 FORloop=1 TO 2
200 ADDRESS=ADDRESS+1
210 IF ADDRESS<>&D THEN 200
220 NEXT
230 PRINT NAME$;SPC(20-LEN(NAME$));ADDRESS$;SPC(60-LEN(ADDRESS$));TELEPHONE$
300 GOTO 15
1000 DEFPROCaddress
1010 ADDRESS=ADDRESS+1:IF ?ADDRESS<>&2E AND ?ADDRESS<>&20 AND ?ADDRESS<>&D THEN ADDRESS$=ADDRESS$+CHR$(?ADDRESS)
1020 ENDPROC
� �TJ@
*LOAD ABOOK 3000
ADDRESS=&3000
�=&2FFF
NAME$=""
0 � ADDRESS � 8<>5 � ADDRESS=ADDRESS+1:� �TT@
� ?ADDRESS=0 � � 3:�
_ ADDRESS=ADDRESS+1:� ?ADDRESS<>&2E � ?ADDRESS<>&20 � ?ADDRESS<>&D � NAME$=NAME$+�(?ADDRESS)
( � ?ADDRESS<>&D � �T^@
2 ADDRESS$=""
<
�address
F � ?ADDRESS<>&D � �T|@
P
�address
Z � ?ADDRESS<>&D � �DP@
d
�address
n � ?ADDRESS<>&D � �Dd@
x
�address
� � ?ADDRESS<>&D � �Dx@
�
�address
� � ?ADDRESS<>&D � �tL@
� TELEPHONE$=""
�i ADDRESS=ADDRESS+1:� ?ADDRESS<>&2E � ?ADDRESS<>&20 � ?ADDRESS<>&D � TELEPHONE$=TELEPHONE$+�(?ADDRESS)
� � ?ADDRESS<>&D � �tj@
� �loop=1 � 2
� ADDRESS=ADDRESS+1
� � ADDRESS<>&D � �dH@
� �
�A � NAME$;�(20-�(NAME$));ADDRESS$;�(60-�(ADDRESS$));TELEPHONE$
, � �TO@
� ��address
�e ADDRESS=ADDRESS+1:� ?ADDRESS<>&2E � ?ADDRESS<>&20 � ?ADDRESS<>&D � ADDRESS$=ADDRESS$+�(?ADDRESS)
� �
� 00000000 0d 00 00 0b 20 e5 20 8d 54 4a 40 0d 00 05 15 20 |.... . .TJ@.... | 00000010 2a 4c 4f 41 44 20 41 42 4f 4f 4b 20 33 30 30 30 |*LOAD ABOOK 3000| 00000020 0d 00 0a 12 20 41 44 44 52 45 53 53 3d 26 33 30 |.... ADDRESS=&30| 00000030 30 30 0d 00 0d 0c 20 d3 3d 26 32 46 46 46 0d 00 |00.... .=&2FFF..| 00000040 0f 0d 20 4e 41 4d 45 24 3d 22 22 0d 00 14 30 20 |.. NAME$=""...0 | 00000050 e7 20 41 44 44 52 45 53 53 20 83 20 38 3c 3e 35 |. ADDRESS . 8<>5| 00000060 20 8c 20 41 44 44 52 45 53 53 3d 41 44 44 52 45 | . ADDRESS=ADDRE| 00000070 53 53 2b 31 3a e5 20 8d 54 54 40 0d 00 19 19 20 |SS+1:. .TT@.... | 00000080 e7 20 3f 41 44 44 52 45 53 53 3d 30 20 8c 20 ef |. ?ADDRESS=0 . .| 00000090 20 33 3a e0 0d 00 1e 5f 20 41 44 44 52 45 53 53 | 3:...._ ADDRESS| 000000a0 3d 41 44 44 52 45 53 53 2b 31 3a e7 20 3f 41 44 |=ADDRESS+1:. ?AD| 000000b0 44 52 45 53 53 3c 3e 26 32 45 20 80 20 3f 41 44 |DRESS<>&2E . ?AD| 000000c0 44 52 45 53 53 3c 3e 26 32 30 20 80 20 3f 41 44 |DRESS<>&20 . ?AD| 000000d0 44 52 45 53 53 3c 3e 26 44 20 8c 20 4e 41 4d 45 |DRESS<>&D . NAME| 000000e0 24 3d 4e 41 4d 45 24 2b bd 28 3f 41 44 44 52 45 |$=NAME$+.(?ADDRE| 000000f0 53 53 29 0d 00 28 1a 20 e7 20 3f 41 44 44 52 45 |SS)..(. . ?ADDRE| 00000100 53 53 3c 3e 26 44 20 8c 20 8d 54 5e 40 0d 00 32 |SS<>&D . .T^@..2| 00000110 10 20 41 44 44 52 45 53 53 24 3d 22 22 0d 00 3c |. ADDRESS$=""..<| 00000120 0d 20 f2 61 64 64 72 65 73 73 0d 00 46 1a 20 e7 |. .address..F. .| 00000130 20 3f 41 44 44 52 45 53 53 3c 3e 26 44 20 8c 20 | ?ADDRESS<>&D . | 00000140 8d 54 7c 40 0d 00 50 0d 20 f2 61 64 64 72 65 73 |.T|@..P. .addres| 00000150 73 0d 00 5a 1a 20 e7 20 3f 41 44 44 52 45 53 53 |s..Z. . ?ADDRESS| 00000160 3c 3e 26 44 20 8c 20 8d 44 50 40 0d 00 64 0d 20 |<>&D . .DP@..d. | 00000170 f2 61 64 64 72 65 73 73 0d 00 6e 1a 20 e7 20 3f |.address..n. . ?| 00000180 41 44 44 52 45 53 53 3c 3e 26 44 20 8c 20 8d 44 |ADDRESS<>&D . .D| 00000190 64 40 0d 00 78 0d 20 f2 61 64 64 72 65 73 73 0d |d@..x. .address.| 000001a0 00 82 1a 20 e7 20 3f 41 44 44 52 45 53 53 3c 3e |... . ?ADDRESS<>| 000001b0 26 44 20 8c 20 8d 44 78 40 0d 00 8c 0d 20 f2 61 |&D . .Dx@.... .a| 000001c0 64 64 72 65 73 73 0d 00 96 1a 20 e7 20 3f 41 44 |ddress.... . ?AD| 000001d0 44 52 45 53 53 3c 3e 26 44 20 8c 20 8d 74 4c 40 |DRESS<>&D . .tL@| 000001e0 0d 00 a0 12 20 54 45 4c 45 50 48 4f 4e 45 24 3d |.... TELEPHONE$=| 000001f0 22 22 0d 00 aa 69 20 41 44 44 52 45 53 53 3d 41 |""...i ADDRESS=A| 00000200 44 44 52 45 53 53 2b 31 3a e7 20 3f 41 44 44 52 |DDRESS+1:. ?ADDR| 00000210 45 53 53 3c 3e 26 32 45 20 80 20 3f 41 44 44 52 |ESS<>&2E . ?ADDR| 00000220 45 53 53 3c 3e 26 32 30 20 80 20 3f 41 44 44 52 |ESS<>&20 . ?ADDR| 00000230 45 53 53 3c 3e 26 44 20 8c 20 54 45 4c 45 50 48 |ESS<>&D . TELEPH| 00000240 4f 4e 45 24 3d 54 45 4c 45 50 48 4f 4e 45 24 2b |ONE$=TELEPHONE$+| 00000250 bd 28 3f 41 44 44 52 45 53 53 29 0d 00 b4 1a 20 |.(?ADDRESS).... | 00000260 e7 20 3f 41 44 44 52 45 53 53 3c 3e 26 44 20 8c |. ?ADDRESS<>&D .| 00000270 20 8d 74 6a 40 0d 00 be 10 20 e3 6c 6f 6f 70 3d | .tj@.... .loop=| 00000280 31 20 b8 20 32 0d 00 c8 16 20 41 44 44 52 45 53 |1 . 2.... ADDRES| 00000290 53 3d 41 44 44 52 45 53 53 2b 31 0d 00 d2 19 20 |S=ADDRESS+1.... | 000002a0 e7 20 41 44 44 52 45 53 53 3c 3e 26 44 20 8c 20 |. ADDRESS<>&D . | 000002b0 8d 64 48 40 0d 00 dc 06 20 ed 0d 00 e6 41 20 f1 |.dH@.... ....A .| 000002c0 20 4e 41 4d 45 24 3b 89 28 32 30 2d a9 28 4e 41 | NAME$;.(20-.(NA| 000002d0 4d 45 24 29 29 3b 41 44 44 52 45 53 53 24 3b 89 |ME$));ADDRESS$;.| 000002e0 28 36 30 2d a9 28 41 44 44 52 45 53 53 24 29 29 |(60-.(ADDRESS$))| 000002f0 3b 54 45 4c 45 50 48 4f 4e 45 24 0d 01 2c 0b 20 |;TELEPHONE$..,. | 00000300 e5 20 8d 54 4f 40 0d 03 e8 0e 20 dd f2 61 64 64 |. .TO@.... ..add| 00000310 72 65 73 73 0d 03 f2 65 20 41 44 44 52 45 53 53 |ress...e ADDRESS| 00000320 3d 41 44 44 52 45 53 53 2b 31 3a e7 20 3f 41 44 |=ADDRESS+1:. ?AD| 00000330 44 52 45 53 53 3c 3e 26 32 45 20 80 20 3f 41 44 |DRESS<>&2E . ?AD| 00000340 44 52 45 53 53 3c 3e 26 32 30 20 80 20 3f 41 44 |DRESS<>&20 . ?AD| 00000350 44 52 45 53 53 3c 3e 26 44 20 8c 20 41 44 44 52 |DRESS<>&D . ADDR| 00000360 45 53 53 24 3d 41 44 44 52 45 53 53 24 2b bd 28 |ESS$=ADDRESS$+.(| 00000370 3f 41 44 44 52 45 53 53 29 0d 03 fc 06 20 e1 0d |?ADDRESS).... ..| 00000380 ff |.| 00000381
MEMLIST.m0
MEMLIST.m1
MEMLIST.m2
MEMLIST.m4
MEMLIST.m5
.