Benchmark Testing Program
Posted: Fri Oct 26, 2018 10:08 pm
Is there a benchmark testing program or calculation available that I could use to run my DM42 through its' paces so I can see just how amazing this machine runs?
forum.swissmicros.com
https://forum.swissmicros.com/
Code: Select all
00 { 74-Byte Prgm }
01 LBL "BNCHMRK"
02 STO 00 Store iteration count for DSE
03 FIX 04 for display
04 STO 02 save iteration count
05 CLST housekeep
06 ×
07 CLA
08 TIME capture start time
09 STO 01 save it
10 ATIME24 to alpha for start time display
11 |-"--" format alpha reg
12 LBL 01 Loop Top
13 FS? 00 test flag 00 to execute code or jump around
14 XEQ 99 Execute routine of your choice
15 DSE 00 decrement loop count
16 GTO 01 not zero, loop back
17 TIME done, capture end time
18 ATIME24 to alpha for end time display
19 STO 03 save it
20 RCL 01 start time
21 HMS- end time - start time = elapsed time
22 FIX 06 for display
23 RCL 01 Build stack for end display
24 X<>Y x=initial loop count
25 RCL 03 y=elapsed time (h.mmsshh) hours, minutes,seconds, hundredths
26 X<>Y z=end time
27 RCL 02 t=start time
28 AVIEW display start and stop times
29 STOP stop
30 GTO "BNCHMRK" r/s to repeat test
31 LBL 99 dummy subroutine containing instructions to benchmark
32 CLST insert anything to time
33 30 '
34 SIN '
35 SQRT '
36 LOG '
37 ABS '
38 LN '
39 RTN Exit dummy routine
40 END