
B–66102E/10
D. COMPILE/LINK EXAMPLE
APPENDIX
59
TAIWAP1 = KEYDATA*100+1000 ; Jump To TEST progra.
; O1x00:x=key in data.
;
FIN RETURNP LOOP ; END of conv. MACRO.
/
:
/:
$EJECT
/
:
/:
/: No. O1001 : Answer display sub program.
/
:
/: LOOPCT : TEST Loop count.
/
: TIMESAV : No-operatinon Time.
/
: TSTTIME : Measured Time.
/
:
O1001 ;
DISPLAY X5 Y4 B0 (SANPLE COUNTER) ; Loop count display.
X20 Y4 FORM 6 ZSUP DATA LOOPCT ;
;
X5 Y6 (TOTAL TIME) ; Total measuer Time
X20 Y6 DATA [TSTTIME-TIMESAV] K1 (MSEC); display.
;
WORK = [TSTTIME-TIMESAV] / LOOPCT ; 1 operation Time
X5 Y8 (ONE OPERATION) ; display.
X20 Y8 FORM 5.2 DATA WORK K1 (MSEC) ;
;
RETURN ; Return to main.
/
:
/:
%