
D. COMPILE/LINK EXAMPLE
B–66102E/10
APPENDIX
66
Subprogram source file File name : SUB1.SRC
/:
/: SAMPLE Program.
/
:
/: Conversation MACRO Execution-Time Test Program.
/
: (Vol 01.01 1997.03.14)
/
:
/:
/: ( SUB Program )
/
:
/:
/: Symbol define.
/
:
/: System common symbole FILE Include.
/
:
$INCLUDE \MCOMP\TOOL\SYSTEM.DEF
/
:
/:
@LOOPCT #500 /: TEST Loop count.
@TIMESAV #501 /
: No-operatinon Time save.
@TSTTIME #502 /
: Measured Time save.
/
:
/:
@COUNT #100 /: Loop counter work.
@MAINPR 1000 /
: MAIN Program No.
@DISPSUB 1001 /
: Answer display SUB Program.
/
:
/:
>LOOP 100 /: GOTO Sequense No. define.
>FIN 999
/:
/:
$EJECT
/
:
/:
/: (#101=#102+#103) Operation Time Test.
/
:
/: No. O1100 : SUB program.
/
:
/:
O1100 ;
NOREAD ; NO data read.
;
DISPLAY X2 Y2 B0 (’#101=#102+#103 TEST’) ; Operation code disp.
;
COUNT = LOOPCT ; Loop counter set.
TIMER1 = 0 ; Timer initialize.
WHILE[COUNT GT 0]DO1 ;
#101 = #102 + #103 ; (Time Measure)
COUNT = COUNT -1 ;
END1 ;
;
TSTTIME = TIMER1 ; Measure Time save.
CALL DISPSUB ; Measure Time disp.