Home » Personal collection » Acorn tapes » Own_Work » box04_tape18a_acorn_d60_memlist.wav » MEMLIST2

MEMLIST2

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: MEMLIST2
Read OK: ✔
File size: 0411 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
    5 *LOAD ABOOK 3000
   10 ADDRESS=&3000
   12 VDU 2
   13 HIMEM=&2FFF
   14 VDU 1,27,1,77
   15 NAME$=""
   20 IF ADDRESS MOD 8<>4 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
   75 ADDRESS$=ADDRESS$+" "
   80 PROCaddress
   90 IF ?ADDRESS<>&D THEN 80
   95 ADDRESS$=ADDRESS$+" "
  100 PROCaddress
  110 IF ?ADDRESS<>&D THEN 100
  115 ADDRESS$=ADDRESS$+" "
  120 PROCaddress
  130 IF ?ADDRESS<>&D THEN 120
  135 ADDRESS$=ADDRESS$+" "
  140 PROCaddress
  150 IF ?ADDRESS<>&D THEN 140
  155 ADDRESS$=ADDRESS$+" "
  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

 *LOAD ABOOK 3000

 ADDRESS=&3000
 � 2

 �=&2FFF
 � 1,27,1,77

 NAME$=""
0 � ADDRESS � 8<>4 � 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|@
K ADDRESS$=ADDRESS$+" "
P
 �address
Z � ?ADDRESS<>&D � �DP@
_ ADDRESS$=ADDRESS$+" "
d
 �address
n � ?ADDRESS<>&D � �Dd@
s ADDRESS$=ADDRESS$+" "
x
 �address
� � ?ADDRESS<>&D � �Dx@
� ADDRESS$=ADDRESS$+" "
�
 �address
� � ?ADDRESS<>&D � �tL@
� ADDRESS$=ADDRESS$+" "
� 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 05 15 20 2a 4c 4f  41 44 20 41 42 4f 4f 4b  |.... *LOAD ABOOK|
00000010  20 33 30 30 30 0d 00 0a  12 20 41 44 44 52 45 53  | 3000.... ADDRES|
00000020  53 3d 26 33 30 30 30 0d  00 0c 08 20 ef 20 32 0d  |S=&3000.... . 2.|
00000030  00 0d 0c 20 d3 3d 26 32  46 46 46 0d 00 0e 10 20  |... .=&2FFF.... |
00000040  ef 20 31 2c 32 37 2c 31  2c 37 37 0d 00 0f 0d 20  |. 1,27,1,77.... |
00000050  4e 41 4d 45 24 3d 22 22  0d 00 14 30 20 e7 20 41  |NAME$=""...0 . A|
00000060  44 44 52 45 53 53 20 83  20 38 3c 3e 34 20 8c 20  |DDRESS . 8<>4 . |
00000070  41 44 44 52 45 53 53 3d  41 44 44 52 45 53 53 2b  |ADDRESS=ADDRESS+|
00000080  31 3a e5 20 8d 54 54 40  0d 00 19 19 20 e7 20 3f  |1:. .TT@.... . ?|
00000090  41 44 44 52 45 53 53 3d  30 20 8c 20 ef 20 33 3a  |ADDRESS=0 . . 3:|
000000a0  e0 0d 00 1e 5f 20 41 44  44 52 45 53 53 3d 41 44  |...._ ADDRESS=AD|
000000b0  44 52 45 53 53 2b 31 3a  e7 20 3f 41 44 44 52 45  |DRESS+1:. ?ADDRE|
000000c0  53 53 3c 3e 26 32 45 20  80 20 3f 41 44 44 52 45  |SS<>&2E . ?ADDRE|
000000d0  53 53 3c 3e 26 32 30 20  80 20 3f 41 44 44 52 45  |SS<>&20 . ?ADDRE|
000000e0  53 53 3c 3e 26 44 20 8c  20 4e 41 4d 45 24 3d 4e  |SS<>&D . NAME$=N|
000000f0  41 4d 45 24 2b bd 28 3f  41 44 44 52 45 53 53 29  |AME$+.(?ADDRESS)|
00000100  0d 00 28 1a 20 e7 20 3f  41 44 44 52 45 53 53 3c  |..(. . ?ADDRESS<|
00000110  3e 26 44 20 8c 20 8d 54  5e 40 0d 00 32 10 20 41  |>&D . .T^@..2. A|
00000120  44 44 52 45 53 53 24 3d  22 22 0d 00 3c 0d 20 f2  |DDRESS$=""..<. .|
00000130  61 64 64 72 65 73 73 0d  00 46 1a 20 e7 20 3f 41  |address..F. . ?A|
00000140  44 44 52 45 53 53 3c 3e  26 44 20 8c 20 8d 54 7c  |DDRESS<>&D . .T||
00000150  40 0d 00 4b 1a 20 41 44  44 52 45 53 53 24 3d 41  |@..K. ADDRESS$=A|
00000160  44 44 52 45 53 53 24 2b  22 20 22 0d 00 50 0d 20  |DDRESS$+" "..P. |
00000170  f2 61 64 64 72 65 73 73  0d 00 5a 1a 20 e7 20 3f  |.address..Z. . ?|
00000180  41 44 44 52 45 53 53 3c  3e 26 44 20 8c 20 8d 44  |ADDRESS<>&D . .D|
00000190  50 40 0d 00 5f 1a 20 41  44 44 52 45 53 53 24 3d  |P@.._. ADDRESS$=|
000001a0  41 44 44 52 45 53 53 24  2b 22 20 22 0d 00 64 0d  |ADDRESS$+" "..d.|
000001b0  20 f2 61 64 64 72 65 73  73 0d 00 6e 1a 20 e7 20  | .address..n. . |
000001c0  3f 41 44 44 52 45 53 53  3c 3e 26 44 20 8c 20 8d  |?ADDRESS<>&D . .|
000001d0  44 64 40 0d 00 73 1a 20  41 44 44 52 45 53 53 24  |Dd@..s. ADDRESS$|
000001e0  3d 41 44 44 52 45 53 53  24 2b 22 20 22 0d 00 78  |=ADDRESS$+" "..x|
000001f0  0d 20 f2 61 64 64 72 65  73 73 0d 00 82 1a 20 e7  |. .address.... .|
00000200  20 3f 41 44 44 52 45 53  53 3c 3e 26 44 20 8c 20  | ?ADDRESS<>&D . |
00000210  8d 44 78 40 0d 00 87 1a  20 41 44 44 52 45 53 53  |.Dx@.... ADDRESS|
00000220  24 3d 41 44 44 52 45 53  53 24 2b 22 20 22 0d 00  |$=ADDRESS$+" "..|
00000230  8c 0d 20 f2 61 64 64 72  65 73 73 0d 00 96 1a 20  |.. .address.... |
00000240  e7 20 3f 41 44 44 52 45  53 53 3c 3e 26 44 20 8c  |. ?ADDRESS<>&D .|
00000250  20 8d 74 4c 40 0d 00 9b  1a 20 41 44 44 52 45 53  | .tL@.... ADDRES|
00000260  53 24 3d 41 44 44 52 45  53 53 24 2b 22 20 22 0d  |S$=ADDRESS$+" ".|
00000270  00 a0 12 20 54 45 4c 45  50 48 4f 4e 45 24 3d 22  |... TELEPHONE$="|
00000280  22 0d 00 aa 69 20 41 44  44 52 45 53 53 3d 41 44  |"...i ADDRESS=AD|
00000290  44 52 45 53 53 2b 31 3a  e7 20 3f 41 44 44 52 45  |DRESS+1:. ?ADDRE|
000002a0  53 53 3c 3e 26 32 45 20  80 20 3f 41 44 44 52 45  |SS<>&2E . ?ADDRE|
000002b0  53 53 3c 3e 26 32 30 20  80 20 3f 41 44 44 52 45  |SS<>&20 . ?ADDRE|
000002c0  53 53 3c 3e 26 44 20 8c  20 54 45 4c 45 50 48 4f  |SS<>&D . TELEPHO|
000002d0  4e 45 24 3d 54 45 4c 45  50 48 4f 4e 45 24 2b bd  |NE$=TELEPHONE$+.|
000002e0  28 3f 41 44 44 52 45 53  53 29 0d 00 b4 1a 20 e7  |(?ADDRESS).... .|
000002f0  20 3f 41 44 44 52 45 53  53 3c 3e 26 44 20 8c 20  | ?ADDRESS<>&D . |
00000300  8d 74 6a 40 0d 00 be 10  20 e3 6c 6f 6f 70 3d 31  |.tj@.... .loop=1|
00000310  20 b8 20 32 0d 00 c8 16  20 41 44 44 52 45 53 53  | . 2.... ADDRESS|
00000320  3d 41 44 44 52 45 53 53  2b 31 0d 00 d2 1a 20 e7  |=ADDRESS+1.... .|
00000330  20 3f 41 44 44 52 45 53  53 3c 3e 26 44 20 8c 20  | ?ADDRESS<>&D . |
00000340  8d 64 48 40 0d 00 dc 06  20 ed 0d 00 e6 41 20 f1  |.dH@.... ....A .|
00000350  20 4e 41 4d 45 24 3b 89  28 32 30 2d a9 28 4e 41  | NAME$;.(20-.(NA|
00000360  4d 45 24 29 29 3b 41 44  44 52 45 53 53 24 3b 89  |ME$));ADDRESS$;.|
00000370  28 36 30 2d a9 28 41 44  44 52 45 53 53 24 29 29  |(60-.(ADDRESS$))|
00000380  3b 54 45 4c 45 50 48 4f  4e 45 24 0d 01 2c 0b 20  |;TELEPHONE$..,. |
00000390  e5 20 8d 54 4f 40 0d 03  e8 0e 20 dd f2 61 64 64  |. .TO@.... ..add|
000003a0  72 65 73 73 0d 03 f2 65  20 41 44 44 52 45 53 53  |ress...e ADDRESS|
000003b0  3d 41 44 44 52 45 53 53  2b 31 3a e7 20 3f 41 44  |=ADDRESS+1:. ?AD|
000003c0  44 52 45 53 53 3c 3e 26  32 45 20 80 20 3f 41 44  |DRESS<>&2E . ?AD|
000003d0  44 52 45 53 53 3c 3e 26  32 30 20 80 20 3f 41 44  |DRESS<>&20 . ?AD|
000003e0  44 52 45 53 53 3c 3e 26  44 20 8c 20 41 44 44 52  |DRESS<>&D . ADDR|
000003f0  45 53 53 24 3d 41 44 44  52 45 53 53 24 2b bd 28  |ESS$=ADDRESS$+.(|
00000400  3f 41 44 44 52 45 53 53  29 0d 03 fc 06 20 e1 0d  |?ADDRESS).... ..|
00000410  ff                                                |.|
00000411
MEMLIST2.m0
MEMLIST2.m1
MEMLIST2.m2
MEMLIST2.m4
MEMLIST2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .