Home » Archimedes archive » Micro User » MU 1990-08.adf » Aug\BBC/RamTest

Aug\BBC/RamTest

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 » Micro User » MU 1990-08.adf
Filename: Aug\BBC/RamTest
Read OK: ✔
File size: 0466 bytes
Load address: FFFFFB43
Exec address: 6D420DBA
Duplicates

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

File contents
   10 REM 32K ram board pseudo random binary sequence test.
   20 REM by Rob Anderson
   30 REM (c) The Micro User
   40 MODE128
   50 @%=&0000B
   60 PRINT"32K RAM EXPANSION BOARD"
   70 PRINT"Random number generator seeded with",RND(-1)
   80 PRINT"Writing 5 pages to the board;"
   90 error%=FALSE
  100 FORH%=0TO4
  110 ?&FCFF=H%            :REM High byte
  120 PRINTH%
  130 FORL%=0TO255
  140 ?(&FD00+L%)=RND(256)-1
  150 NEXT,
  160 PRINT"FINISHED DUMP, re-reading values;"
  170 PRINT"Seed set back to ",RND(-1)
  180 FORH%=0 TO 4
  190 ?&FCFF=H%
  200 PRINT"Page, Low address, Value written,        Value received"
  210 FORL%=0TO255
  220 R%=RND(256)-1
  230 PRINT;H%;"     ";L%,R%;" ("FNch(R%);")",?(&FD00+L%);" (";FNch(?(&FD00+L%));")";
  240 IF?(&FD00+L%)<>R% PRINT"   ERROR":error%=TRUE ELSE PRINT
  250 NEXT,
  260 IF error% PRINT"At least 1 error was encountered."
  270 END
  280:
  290 DEFFNch(num)
  300 answer$="":source$=""
  310 source$=STR$(num)
  320 oldbase%=10:newbase%=2
  330 FORcounter%=LENsource$ TO 1 STEP -1
  340 decimalnum%=decimalnum%+((ASC(MID$(source$,counter%,1))-48) - (7*((ASC(MID$(source$,counter%,1)))DIV 65)))*(oldbase%)^(LENsource$-counter%)
  350 NEXT
  360 REPEAT answer$=STR$~(decimalnum% MOD newbase%) + answer$
  370 decimalnum% = decimalnum% DIV newbase%
  380 UNTIL decimalnum% = 0
  390 =answer$


8 � 32K ram board pseudo random binary sequence test.
 � by Rob Anderson
 � (c) The Micro User
(	 �128
2 @%=&0000B
< �"32K RAM EXPANSION BOARD"
F1 �"Random number generator seeded with",�(-1)
P% �"Writing 5 pages to the board;"
Z
 error%=�
d �H%=0�4
n& ?&FCFF=H%            :� High byte
x �H%
� �L%=0�255
� ?(&FD00+L%)=�(256)-1
� �,
�) �"FINISHED DUMP, re-reading values;"
� �"Seed set back to ",�(-1)
� �H%=0 � 4
� ?&FCFF=H%
�? �"Page, Low address, Value written,        Value received"
� �L%=0�255
� R%=�(256)-1
�N �;H%;"     ";L%,R%;" ("�ch(R%);")",?(&FD00+L%);" (";�ch(?(&FD00+L%));")";
�. �?(&FD00+L%)<>R% �"   ERROR":error%=� � �
� �,
2 � error% �"At least 1 error was encountered."
 �
:
" ݤch(num)
, answer$="":source$=""
6 source$=�(num)
@ oldbase%=10:newbase%=2
J  �counter%=�source$ � 1 � -1
T� decimalnum%=decimalnum%+((�(�source$,counter%,1))-48) - (7*((�(�source$,counter%,1)))� 65)))*(oldbase%)^(�source$-counter%)
^ �
h3 � answer$=�~(decimalnum% � newbase%) + answer$
r) decimalnum% = decimalnum% � newbase%
| � decimalnum% = 0
�
 =answer$
�
00000000  0d 00 0a 38 20 f4 20 33  32 4b 20 72 61 6d 20 62  |...8 . 32K ram b|
00000010  6f 61 72 64 20 70 73 65  75 64 6f 20 72 61 6e 64  |oard pseudo rand|
00000020  6f 6d 20 62 69 6e 61 72  79 20 73 65 71 75 65 6e  |om binary sequen|
00000030  63 65 20 74 65 73 74 2e  0d 00 14 16 20 f4 20 62  |ce test..... . b|
00000040  79 20 52 6f 62 20 41 6e  64 65 72 73 6f 6e 0d 00  |y Rob Anderson..|
00000050  1e 19 20 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.. . (c) The Mic|
00000060  72 6f 20 55 73 65 72 0d  00 28 09 20 eb 31 32 38  |ro User..(. .128|
00000070  0d 00 32 0e 20 40 25 3d  26 30 30 30 30 42 0d 00  |..2. @%=&0000B..|
00000080  3c 1f 20 f1 22 33 32 4b  20 52 41 4d 20 45 58 50  |<. ."32K RAM EXP|
00000090  41 4e 53 49 4f 4e 20 42  4f 41 52 44 22 0d 00 46  |ANSION BOARD"..F|
000000a0  31 20 f1 22 52 61 6e 64  6f 6d 20 6e 75 6d 62 65  |1 ."Random numbe|
000000b0  72 20 67 65 6e 65 72 61  74 6f 72 20 73 65 65 64  |r generator seed|
000000c0  65 64 20 77 69 74 68 22  2c b3 28 2d 31 29 0d 00  |ed with",.(-1)..|
000000d0  50 25 20 f1 22 57 72 69  74 69 6e 67 20 35 20 70  |P% ."Writing 5 p|
000000e0  61 67 65 73 20 74 6f 20  74 68 65 20 62 6f 61 72  |ages to the boar|
000000f0  64 3b 22 0d 00 5a 0d 20  65 72 72 6f 72 25 3d a3  |d;"..Z. error%=.|
00000100  0d 00 64 0c 20 e3 48 25  3d 30 b8 34 0d 00 6e 26  |..d. .H%=0.4..n&|
00000110  20 3f 26 46 43 46 46 3d  48 25 20 20 20 20 20 20  | ?&FCFF=H%      |
00000120  20 20 20 20 20 20 3a f4  20 48 69 67 68 20 62 79  |      :. High by|
00000130  74 65 0d 00 78 08 20 f1  48 25 0d 00 82 0e 20 e3  |te..x. .H%.... .|
00000140  4c 25 3d 30 b8 32 35 35  0d 00 8c 19 20 3f 28 26  |L%=0.255.... ?(&|
00000150  46 44 30 30 2b 4c 25 29  3d b3 28 32 35 36 29 2d  |FD00+L%)=.(256)-|
00000160  31 0d 00 96 07 20 ed 2c  0d 00 a0 29 20 f1 22 46  |1.... .,...) ."F|
00000170  49 4e 49 53 48 45 44 20  44 55 4d 50 2c 20 72 65  |INISHED DUMP, re|
00000180  2d 72 65 61 64 69 6e 67  20 76 61 6c 75 65 73 3b  |-reading values;|
00000190  22 0d 00 aa 1f 20 f1 22  53 65 65 64 20 73 65 74  |".... ."Seed set|
000001a0  20 62 61 63 6b 20 74 6f  20 22 2c b3 28 2d 31 29  | back to ",.(-1)|
000001b0  0d 00 b4 0e 20 e3 48 25  3d 30 20 b8 20 34 0d 00  |.... .H%=0 . 4..|
000001c0  be 0e 20 3f 26 46 43 46  46 3d 48 25 0d 00 c8 3f  |.. ?&FCFF=H%...?|
000001d0  20 f1 22 50 61 67 65 2c  20 4c 6f 77 20 61 64 64  | ."Page, Low add|
000001e0  72 65 73 73 2c 20 56 61  6c 75 65 20 77 72 69 74  |ress, Value writ|
000001f0  74 65 6e 2c 20 20 20 20  20 20 20 20 56 61 6c 75  |ten,        Valu|
00000200  65 20 72 65 63 65 69 76  65 64 22 0d 00 d2 0e 20  |e received".... |
00000210  e3 4c 25 3d 30 b8 32 35  35 0d 00 dc 10 20 52 25  |.L%=0.255.... R%|
00000220  3d b3 28 32 35 36 29 2d  31 0d 00 e6 4e 20 f1 3b  |=.(256)-1...N .;|
00000230  48 25 3b 22 20 20 20 20  20 22 3b 4c 25 2c 52 25  |H%;"     ";L%,R%|
00000240  3b 22 20 28 22 a4 63 68  28 52 25 29 3b 22 29 22  |;" (".ch(R%);")"|
00000250  2c 3f 28 26 46 44 30 30  2b 4c 25 29 3b 22 20 28  |,?(&FD00+L%);" (|
00000260  22 3b a4 63 68 28 3f 28  26 46 44 30 30 2b 4c 25  |";.ch(?(&FD00+L%|
00000270  29 29 3b 22 29 22 3b 0d  00 f0 2e 20 e7 3f 28 26  |));")";.... .?(&|
00000280  46 44 30 30 2b 4c 25 29  3c 3e 52 25 20 f1 22 20  |FD00+L%)<>R% ." |
00000290  20 20 45 52 52 4f 52 22  3a 65 72 72 6f 72 25 3d  |  ERROR":error%=|
000002a0  b9 20 8b 20 f1 0d 00 fa  07 20 ed 2c 0d 01 04 32  |. . ..... .,...2|
000002b0  20 e7 20 65 72 72 6f 72  25 20 f1 22 41 74 20 6c  | . error% ."At l|
000002c0  65 61 73 74 20 31 20 65  72 72 6f 72 20 77 61 73  |east 1 error was|
000002d0  20 65 6e 63 6f 75 6e 74  65 72 65 64 2e 22 0d 01  | encountered."..|
000002e0  0e 06 20 e0 0d 01 18 05  3a 0d 01 22 0e 20 dd a4  |.. .....:..". ..|
000002f0  63 68 28 6e 75 6d 29 0d  01 2c 1a 20 61 6e 73 77  |ch(num)..,. answ|
00000300  65 72 24 3d 22 22 3a 73  6f 75 72 63 65 24 3d 22  |er$="":source$="|
00000310  22 0d 01 36 13 20 73 6f  75 72 63 65 24 3d c3 28  |"..6. source$=.(|
00000320  6e 75 6d 29 0d 01 40 1b  20 6f 6c 64 62 61 73 65  |num)..@. oldbase|
00000330  25 3d 31 30 3a 6e 65 77  62 61 73 65 25 3d 32 0d  |%=10:newbase%=2.|
00000340  01 4a 20 20 e3 63 6f 75  6e 74 65 72 25 3d a9 73  |.J  .counter%=.s|
00000350  6f 75 72 63 65 24 20 b8  20 31 20 88 20 2d 31 0d  |ource$ . 1 . -1.|
00000360  01 54 80 20 64 65 63 69  6d 61 6c 6e 75 6d 25 3d  |.T. decimalnum%=|
00000370  64 65 63 69 6d 61 6c 6e  75 6d 25 2b 28 28 97 28  |decimalnum%+((.(|
00000380  c1 73 6f 75 72 63 65 24  2c 63 6f 75 6e 74 65 72  |.source$,counter|
00000390  25 2c 31 29 29 2d 34 38  29 20 2d 20 28 37 2a 28  |%,1))-48) - (7*(|
000003a0  28 97 28 c1 73 6f 75 72  63 65 24 2c 63 6f 75 6e  |(.(.source$,coun|
000003b0  74 65 72 25 2c 31 29 29  29 81 20 36 35 29 29 29  |ter%,1))). 65)))|
000003c0  2a 28 6f 6c 64 62 61 73  65 25 29 5e 28 a9 73 6f  |*(oldbase%)^(.so|
000003d0  75 72 63 65 24 2d 63 6f  75 6e 74 65 72 25 29 0d  |urce$-counter%).|
000003e0  01 5e 06 20 ed 0d 01 68  33 20 f5 20 61 6e 73 77  |.^. ...h3 . answ|
000003f0  65 72 24 3d c3 7e 28 64  65 63 69 6d 61 6c 6e 75  |er$=.~(decimalnu|
00000400  6d 25 20 83 20 6e 65 77  62 61 73 65 25 29 20 2b  |m% . newbase%) +|
00000410  20 61 6e 73 77 65 72 24  0d 01 72 29 20 64 65 63  | answer$..r) dec|
00000420  69 6d 61 6c 6e 75 6d 25  20 3d 20 64 65 63 69 6d  |imalnum% = decim|
00000430  61 6c 6e 75 6d 25 20 81  20 6e 65 77 62 61 73 65  |alnum% . newbase|
00000440  25 0d 01 7c 16 20 fd 20  64 65 63 69 6d 61 6c 6e  |%..|. . decimaln|
00000450  75 6d 25 20 3d 20 30 0d  01 86 0d 20 3d 61 6e 73  |um% = 0.... =ans|
00000460  77 65 72 24 0d ff                                 |wer$..|
00000466

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .