Ein einfacher INVEP-Performance-Test

! Das kleine Programm führt einige simple Schleifendurchläufe
! durch und misst die Laufzeit. Das Ergebnis wird am Ende angezeigt.
CLRSCR
counter=1000000
mysec=1000000
SETSW 0
RUNSW
FOR i=1 TO counter STEP 1
NEXT
STOPSW
EmptyLoopSpeed=SWTIME/counter
DISP "Loop - Test done : " SWTIME " [s]\n"
SETSW 0
RUNSW
FOR i=1 TO counter STEP 1
  b=LOG(i)
NEXT
STOPSW
LogLoopSpeed=SWTIME/counter
DISP "LOG -Loop - Test done : " SWTIME " [s]\n"
SETSW 0
RUNSW
FOR i=1 TO counter STEP 1
  IF NOT (i MOD 500) THEN DISP "\r" i ":" SWTIME
NEXT
STOPSW
DispLoopSpeed=SWTIME/counter
Els=EmptyLoopSpeed
Lls=LogLoopSpeed
Dls=DispLoopSpeed
DISP "\ rMOD -DISP -Loop - Test done : " SWTIME " [c]\n"
DISP "\n"
DISP " Dauer Schleifendurchlauf : " Els * mysec " [my]\n"
DISP " Dauer Log - Berechnung : " (Lls - Els )* mysec " [ms]\n"
DISP " Dauer einer Anzeige : " (Dls -Els )* mysec /500 " [ms]\n"
DISP "Die Einheit [ms] steht hier für Microsekunden \n"
: Loop - Test done : 0,818 [s]
: LOG -Loop - Test done : 1,232 [s]
: MOD -DISP -Loop - Test done : 1,34 [s]
:
: Dauer Schleifendurchlauf : 0,818 [ms]
: Dauer Log - Berechnung : 0,414 [ms]
: Dauer einer Anzeige : 0,001044 [ms]
: Die Einheit [ms] steht hier für Microsekunden