Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » MemSpeed
MemSpeed
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 » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo |
| Filename: | MemSpeed |
| Read OK: | ✔ |
| File size: | 06B5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >MemSpeed (Info14)
20REM By Nick Craig-Wood
30REM For 32-bit machines
40REM (c) BAU August 1993
50:
60cycles=25000
70fudge=1.25
80PROCcode
90at%=@%
100:
110ON ERROR @%=at%:PROCcache(TRUE):PRINTREPORT$;" at line ";ERL:END
120n=0
130sum=0
140REPEAT
150 speed=FNmemspeed
160 sum+=speed
170 n+=1
180 @%="g10.9"
190 PRINT "Average = ";INT(sum/n);"Hz, This test = ";INT(speed);" Hz"
200 @%="f10.3"
210 PRINT " Rounded = ";sum/n/1000000;"Mhz"
220UNTIL INKEY$(0)<>""
230END
240:
250DEF PROCcache(state)
260IF FNarm3 THEN
270 IF state THEN
280 *Cache On
290 ELSE
300 *Cache Off
310 ENDIF
320ENDIF
330ENDPROC
340:
350DEF FNarm3
360SYS "XOS_SWINumberFromString","Cache_Flush" TO ;f%
370=(f% AND 1)<>0
380:
390DEF FNmemspeed
400PROCcache(FALSE)
410PROCpause(20)
420time=USR(timetrial)
430PROCpause(20)
440PROCcache(TRUE)
450=fudge*cycles/((65535-time)/2E6)
460
470DEF PROCpause(t%)
480t%+=TIME:REPEAT:UNTIL TIME>t%
490ENDPROC
500:
510DEF PROCcode
520t1low= &50
530t1high= &54
540t1go= &58
550t1latch=&5C
560codesize=256*1024
570DIM code codesize
580sp=13:link=14:pc=15
590pass=8
600P%=code:L%=code+codesize
610[OPT pass
620
630.timetrial
640 STMFD (sp)!,{link}
650 SWI "OS_EnterOS"
660
670 MOV R0,#%00000<<8
680 MOV R1,#%11111<<8
690 SWI "OS_UpdateMEMC"
700
710 SWI "OS_IntOff"
720
730 MOV R12,#&3200000
740
750 MOV R0,#&FF
760 STRB R0,[R12,#t1low]
770 STRB R0,[R12,#t1high]
780
790 STRB R0,[R12,#t1go]
800]
810FOR i%=1 TO cycles
820[OPT pass
830 ADD R0,R0,#1
840]
850IF (i% MOD 100)=0 PRINTcycles-i%;CHR$13;
860NEXT i%
870[OPT pass
880 STRB R0,[R12,#t1latch]
890
900 LDRB R0,[R12,#t1low]
910 LDRB R1,[R12,#t1high]
920 ORR R11,R0,R1,lsl#8
930
940 MOV R0,#%11101<<8
950 MOV R1,#%11111<<8
960 SWI "OS_UpdateMEMC"
970
980 TEQP pc,#0
990 MOV R0,R0
1000
1010 MOV R0,R11
1020 LDMFD (sp)!,{pc}^
1030]
1040ENDPROC
� >MemSpeed (Info14)
� By Nick Craig-Wood
� For 32-bit machines
(� (c) BAU August 1993
2:
<cycles=25000
Ffudge=1.25
P �code
Z
at%=@%
d:
n,� � @%=at%:�cache(�):�$;" at line ";�:�
xn=0
� sum=0
��
� speed=�memspeed
� sum+=speed
� n+=1
� @%="g10.9"
�? � "Average = ";�(sum/n);"Hz, This test = ";�(speed);" Hz"
� @%="f10.3"
�) � " Rounded = ";sum/n/1000000;"Mhz"
�� �(0)<>""
��
�:
�� �cache(state)
� �arm3 �
� state �
*Cache On
" �
, *Cache Off
6 �
@�
J�
T:
^ � �arm3
h4ș "XOS_SWINumberFromString","Cache_Flush" � ;f%
r=(f% � 1)<>0
|:
�� �memspeed
�
�cache(�)
��pause(20)
�time=�(timetrial)
��pause(20)
�
�cache(�)
�$=fudge*cycles/((65535-time)/2E6)
�
�� �pause(t%)
�t%+=�:�:� �>t%
��
�:
� � �code
t1low= &50
t1high= &54
t1go= &58
&t1latch=&5C
0codesize=256*1024
:� code codesize
Dsp=13:link=14:pc=15
N
pass=8
X P%=code:L%=code+codesize
b
[OPT pass
l
v.timetrial
� STMFD (sp)!,{link}
� SWI "OS_EnterOS"
�
� MOV R0,#%00000<<8
� MOV R1,#%11111<<8
� SWI "OS_UpdateMEMC"
�
� SWI "OS_IntOff"
�
� MOV R12,#&3200000
�
� MOV R0,#&FF
� STRB R0,[R12,#t1low]
STRB R0,[R12,#t1high]
STRB R0,[R12,#t1go]
]
*� i%=1 � cycles
4
[OPT pass
> ADD R0,R0,#1
H]
R"� (i% � 100)=0 �cycles-i%;�13;
\� i%
f
[OPT pass
p STRB R0,[R12,#t1latch]
z
� LDRB R0,[R12,#t1low]
� LDRB R1,[R12,#t1high]
� �R R11,R0,R1,lsl#8
�
� MOV R0,#%11101<<8
� MOV R1,#%11111<<8
� SWI "OS_UpdateMEMC"
�
� TEQP pc,#0
� MOV R0,R0
�
� MOV R0,R11
� LDMFD (sp)!,{pc}^
]
�
� 00000000 0d 00 0a 1c f4 20 20 20 20 20 3e 4d 65 6d 53 70 |..... >MemSp|
00000010 65 65 64 20 28 49 6e 66 6f 31 34 29 0d 00 14 19 |eed (Info14)....|
00000020 f4 20 42 79 20 20 4e 69 63 6b 20 43 72 61 69 67 |. By Nick Craig|
00000030 2d 57 6f 6f 64 0d 00 1e 19 f4 20 46 6f 72 20 33 |-Wood..... For 3|
00000040 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 0d 00 |2-bit machines..|
00000050 28 19 f4 20 28 63 29 20 42 41 55 20 41 75 67 75 |(.. (c) BAU Augu|
00000060 73 74 20 31 39 39 33 0d 00 32 05 3a 0d 00 3c 10 |st 1993..2.:..<.|
00000070 63 79 63 6c 65 73 3d 32 35 30 30 30 0d 00 46 0e |cycles=25000..F.|
00000080 66 75 64 67 65 3d 31 2e 32 35 0d 00 50 09 f2 63 |fudge=1.25..P..c|
00000090 6f 64 65 0d 00 5a 0a 61 74 25 3d 40 25 0d 00 64 |ode..Z.at%=@%..d|
000000a0 05 3a 0d 00 6e 2c ee 20 85 20 40 25 3d 61 74 25 |.:..n,. . @%=at%|
000000b0 3a f2 63 61 63 68 65 28 b9 29 3a f1 f6 24 3b 22 |:.cache(.):..$;"|
000000c0 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 | at line ";.:...|
000000d0 78 07 6e 3d 30 0d 00 82 09 73 75 6d 3d 30 0d 00 |x.n=0....sum=0..|
000000e0 8c 05 f5 0d 00 96 14 20 73 70 65 65 64 3d a4 6d |....... speed=.m|
000000f0 65 6d 73 70 65 65 64 0d 00 a0 0f 20 73 75 6d 2b |emspeed.... sum+|
00000100 3d 73 70 65 65 64 0d 00 aa 09 20 6e 2b 3d 31 0d |=speed.... n+=1.|
00000110 00 b4 0f 20 40 25 3d 22 67 31 30 2e 39 22 0d 00 |... @%="g10.9"..|
00000120 be 3f 20 f1 20 22 41 76 65 72 61 67 65 20 3d 20 |.? . "Average = |
00000130 22 3b a8 28 73 75 6d 2f 6e 29 3b 22 48 7a 2c 20 |";.(sum/n);"Hz, |
00000140 20 54 68 69 73 20 74 65 73 74 20 3d 20 22 3b a8 | This test = ";.|
00000150 28 73 70 65 65 64 29 3b 22 20 48 7a 22 0d 00 c8 |(speed);" Hz"...|
00000160 0f 20 40 25 3d 22 66 31 30 2e 33 22 0d 00 d2 29 |. @%="f10.3"...)|
00000170 20 f1 20 22 20 20 52 6f 75 6e 64 65 64 20 3d 20 | . " Rounded = |
00000180 22 3b 73 75 6d 2f 6e 2f 31 30 30 30 30 30 30 3b |";sum/n/1000000;|
00000190 22 4d 68 7a 22 0d 00 dc 0e fd 20 bf 28 30 29 3c |"Mhz"..... .(0)<|
000001a0 3e 22 22 0d 00 e6 05 e0 0d 00 f0 05 3a 0d 00 fa |>"".........:...|
000001b0 13 dd 20 f2 63 61 63 68 65 28 73 74 61 74 65 29 |.. .cache(state)|
000001c0 0d 01 04 0d e7 20 a4 61 72 6d 33 20 8c 0d 01 0e |..... .arm3 ....|
000001d0 0e 20 e7 20 73 74 61 74 65 20 8c 0d 01 18 0f 20 |. . state ..... |
000001e0 20 2a 43 61 63 68 65 20 4f 6e 0d 01 22 06 20 cc | *Cache On..". .|
000001f0 0d 01 2c 10 20 20 2a 43 61 63 68 65 20 4f 66 66 |..,. *Cache Off|
00000200 0d 01 36 06 20 cd 0d 01 40 05 cd 0d 01 4a 05 e1 |..6. ...@....J..|
00000210 0d 01 54 05 3a 0d 01 5e 0b dd 20 a4 61 72 6d 33 |..T.:..^.. .arm3|
00000220 0d 01 68 34 c8 99 20 22 58 4f 53 5f 53 57 49 4e |..h4.. "XOS_SWIN|
00000230 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 6e 67 22 |umberFromString"|
00000240 2c 22 43 61 63 68 65 5f 46 6c 75 73 68 22 20 b8 |,"Cache_Flush" .|
00000250 20 3b 66 25 0d 01 72 10 3d 28 66 25 20 80 20 31 | ;f%..r.=(f% . 1|
00000260 29 3c 3e 30 0d 01 7c 05 3a 0d 01 86 0f dd 20 a4 |)<>0..|.:..... .|
00000270 6d 65 6d 73 70 65 65 64 0d 01 90 0d f2 63 61 63 |memspeed.....cac|
00000280 68 65 28 a3 29 0d 01 9a 0e f2 70 61 75 73 65 28 |he(.).....pause(|
00000290 32 30 29 0d 01 a4 15 74 69 6d 65 3d ba 28 74 69 |20)....time=.(ti|
000002a0 6d 65 74 72 69 61 6c 29 0d 01 ae 0e f2 70 61 75 |metrial).....pau|
000002b0 73 65 28 32 30 29 0d 01 b8 0d f2 63 61 63 68 65 |se(20).....cache|
000002c0 28 b9 29 0d 01 c2 24 3d 66 75 64 67 65 2a 63 79 |(.)...$=fudge*cy|
000002d0 63 6c 65 73 2f 28 28 36 35 35 33 35 2d 74 69 6d |cles/((65535-tim|
000002e0 65 29 2f 32 45 36 29 0d 01 cc 04 0d 01 d6 10 dd |e)/2E6).........|
000002f0 20 f2 70 61 75 73 65 28 74 25 29 0d 01 e0 12 74 | .pause(t%)....t|
00000300 25 2b 3d 91 3a f5 3a fd 20 91 3e 74 25 0d 01 ea |%+=.:.:. .>t%...|
00000310 05 e1 0d 01 f4 05 3a 0d 01 fe 0b dd 20 f2 63 6f |......:..... .co|
00000320 64 65 0d 02 08 0f 74 31 6c 6f 77 3d 20 20 26 35 |de....t1low= &5|
00000330 30 0d 02 12 0f 74 31 68 69 67 68 3d 20 26 35 34 |0....t1high= &54|
00000340 0d 02 1c 0f 74 31 67 6f 3d 20 20 20 26 35 38 0d |....t1go= &58.|
00000350 02 26 0f 74 31 6c 61 74 63 68 3d 26 35 43 0d 02 |.&.t1latch=&5C..|
00000360 30 15 63 6f 64 65 73 69 7a 65 3d 32 35 36 2a 31 |0.codesize=256*1|
00000370 30 32 34 0d 02 3a 13 de 20 63 6f 64 65 20 63 6f |024..:.. code co|
00000380 64 65 73 69 7a 65 0d 02 44 17 73 70 3d 31 33 3a |desize..D.sp=13:|
00000390 6c 69 6e 6b 3d 31 34 3a 70 63 3d 31 35 0d 02 4e |link=14:pc=15..N|
000003a0 0a 70 61 73 73 3d 38 0d 02 58 1c 50 25 3d 63 6f |.pass=8..X.P%=co|
000003b0 64 65 3a 4c 25 3d 63 6f 64 65 2b 63 6f 64 65 73 |de:L%=code+codes|
000003c0 69 7a 65 0d 02 62 0d 5b 4f 50 54 20 70 61 73 73 |ize..b.[OPT pass|
000003d0 0d 02 6c 04 0d 02 76 0e 2e 74 69 6d 65 74 72 69 |..l...v..timetri|
000003e0 61 6c 0d 02 80 19 20 20 20 53 54 4d 46 44 20 28 |al.... STMFD (|
000003f0 73 70 29 21 2c 7b 6c 69 6e 6b 7d 0d 02 8a 19 20 |sp)!,{link}.... |
00000400 20 20 53 57 49 20 20 20 22 4f 53 5f 45 6e 74 65 | SWI "OS_Ente|
00000410 72 4f 53 22 0d 02 94 04 0d 02 9e 1a 20 20 20 4d |rOS"........ M|
00000420 4f 56 20 20 20 52 30 2c 23 25 30 30 30 30 30 3c |OV R0,#%00000<|
00000430 3c 38 0d 02 a8 1a 20 20 20 4d 4f 56 20 20 20 52 |<8.... MOV R|
00000440 31 2c 23 25 31 31 31 31 31 3c 3c 38 0d 02 b2 1c |1,#%11111<<8....|
00000450 20 20 20 53 57 49 20 20 20 22 4f 53 5f 55 70 64 | SWI "OS_Upd|
00000460 61 74 65 4d 45 4d 43 22 0d 02 bc 04 0d 02 c6 18 |ateMEMC"........|
00000470 20 20 20 53 57 49 20 20 20 22 4f 53 5f 49 6e 74 | SWI "OS_Int|
00000480 4f 66 66 22 0d 02 d0 04 0d 02 da 1a 20 20 20 4d |Off"........ M|
00000490 4f 56 20 20 20 52 31 32 2c 23 26 33 32 30 30 30 |OV R12,#&32000|
000004a0 30 30 0d 02 e4 04 0d 02 ee 14 20 20 20 4d 4f 56 |00........ MOV|
000004b0 20 20 20 52 30 2c 23 26 46 46 0d 02 f8 1c 20 20 | R0,#&FF.... |
000004c0 20 53 54 52 42 20 20 52 30 2c 5b 52 31 32 2c 23 | STRB R0,[R12,#|
000004d0 74 31 6c 6f 77 5d 0d 03 02 1d 20 20 20 53 54 52 |t1low].... STR|
000004e0 42 20 20 52 30 2c 5b 52 31 32 2c 23 74 31 68 69 |B R0,[R12,#t1hi|
000004f0 67 68 5d 0d 03 0c 04 0d 03 16 1b 20 20 20 53 54 |gh]........ ST|
00000500 52 42 20 20 52 30 2c 5b 52 31 32 2c 23 74 31 67 |RB R0,[R12,#t1g|
00000510 6f 5d 0d 03 20 05 5d 0d 03 2a 13 e3 20 69 25 3d |o].. .]..*.. i%=|
00000520 31 20 b8 20 63 79 63 6c 65 73 0d 03 34 0d 5b 4f |1 . cycles..4.[O|
00000530 50 54 20 70 61 73 73 0d 03 3e 15 20 20 20 41 44 |PT pass..>. AD|
00000540 44 20 20 20 52 30 2c 52 30 2c 23 31 0d 03 48 05 |D R0,R0,#1..H.|
00000550 5d 0d 03 52 22 e7 20 28 69 25 20 83 20 31 30 30 |]..R". (i% . 100|
00000560 29 3d 30 20 f1 63 79 63 6c 65 73 2d 69 25 3b bd |)=0 .cycles-i%;.|
00000570 31 33 3b 0d 03 5c 08 ed 20 69 25 0d 03 66 0d 5b |13;..\.. i%..f.[|
00000580 4f 50 54 20 70 61 73 73 0d 03 70 1e 20 20 20 53 |OPT pass..p. S|
00000590 54 52 42 20 20 52 30 2c 5b 52 31 32 2c 23 74 31 |TRB R0,[R12,#t1|
000005a0 6c 61 74 63 68 5d 0d 03 7a 04 0d 03 84 1c 20 20 |latch]..z..... |
000005b0 20 4c 44 52 42 20 20 52 30 2c 5b 52 31 32 2c 23 | LDRB R0,[R12,#|
000005c0 74 31 6c 6f 77 5d 0d 03 8e 1d 20 20 20 4c 44 52 |t1low].... LDR|
000005d0 42 20 20 52 31 2c 5b 52 31 32 2c 23 74 31 68 69 |B R1,[R12,#t1hi|
000005e0 67 68 5d 0d 03 98 1b 20 20 20 84 52 20 20 20 52 |gh].... .R R|
000005f0 31 31 2c 52 30 2c 52 31 2c 6c 73 6c 23 38 0d 03 |11,R0,R1,lsl#8..|
00000600 a2 04 0d 03 ac 1a 20 20 20 4d 4f 56 20 20 20 52 |...... MOV R|
00000610 30 2c 23 25 31 31 31 30 31 3c 3c 38 0d 03 b6 1a |0,#%11101<<8....|
00000620 20 20 20 4d 4f 56 20 20 20 52 31 2c 23 25 31 31 | MOV R1,#%11|
00000630 31 31 31 3c 3c 38 0d 03 c0 1c 20 20 20 53 57 49 |111<<8.... SWI|
00000640 20 20 20 22 4f 53 5f 55 70 64 61 74 65 4d 45 4d | "OS_UpdateMEM|
00000650 43 22 0d 03 ca 04 0d 03 d4 12 20 20 20 54 45 51 |C"........ TEQ|
00000660 50 20 20 70 63 2c 23 30 0d 03 de 12 20 20 20 4d |P pc,#0.... M|
00000670 4f 56 20 20 20 52 30 2c 52 30 0d 03 e8 04 0d 03 |OV R0,R0......|
00000680 f2 13 20 20 20 4d 4f 56 20 20 20 52 30 2c 52 31 |.. MOV R0,R1|
00000690 31 0d 03 fc 18 20 20 20 4c 44 4d 46 44 20 28 73 |1.... LDMFD (s|
000006a0 70 29 21 2c 7b 70 63 7d 5e 0d 04 06 05 5d 0d 04 |p)!,{pc}^....]..|
000006b0 10 05 e1 0d ff |.....|
000006b5 
.