Test szybkości zmiennych
Poniżej przykładowy program pokazujący różnice w prędkości wykonywania operacji na pamięci w pętlach w zależności od typów zmiennych.
;porownanie zmiennej tablicowej i wskaznikowej
BYTE RTCLOCK=20,I
CARD XX,EK=88,TMP
BYTE ARRAY P=0
CARD ARRAY PP=0
BYTE POINTER O
CARD POINTER PO
PROC KBGET=$F302()
PROC TEST()
GRAPHICS(8)
Print(„Tablica BYTE :”)
RTCLOCK=0
FOR I=1 TO 14 DO
FOR XX=EK TO EK+6399 DO
P(XX)==!$FF
OD
OD
I=RTCLOCK PRINTBE(I)
Print(„Wskaznik BYTE :”)
RTCLOCK=0
FOR I=1 TO 14 DO
FOR O=EK TO EK+6399 DO
O^==!$FF
OD
OD
I=RTCLOCK PRINTBE(I)
Print(„Tablica CARD :”)
TMP=EK RSH 1
RTCLOCK=0
FOR I=1 TO 14 DO
FOR XX=TMP TO TMP+3199 DO
PP(XX)==!$FFFF
OD
OD
I=RTCLOCK PRINTBE(I)
Print(„Wskaznik CARD :”)
RTCLOCK=0
FOR I=1 TO 14 DO
FOR PO=EK TO EK+6399 STEP 2 DO
PO^==!$FFFF
OD
OD
I=RTCLOCK PRINTB(I)
KBGET()