New Saturn asm "add loop" benchmark for the HP48G

[dlidstrom]

This program will run until keypress and will calculate the per minute number of additions. Using iHP48 on my iPhone Xs it reports about 5-7 million (!) additions. Imagine a physical device at that speed!

Code:


::
 SysTime
 %0
 BEGIN
 ZERO
 # 1000 ( try different values here )
 #1+_ONE_DO
 #1+
 LOOP
 UNCOERCE
 %+
 GETTOUCH
 UNTIL
 DROP
 SysTime
 ROT
 bit-
 HXS>%
 % 8192
 %/
 2DUP
 %/
 % 60
 %*
;