
D. COMPILE/LINK EXAMPLE
B–66102E/10
APPENDIX
58
Main program source file File name : MAIN.SRC
/:
/: SAMPLE Program.
/
:
/: Conversation MACRO Execution-Time Test Program.
/
: (Vol 01.01 1997.03.14)
/
:
/:
/: ( MAIN 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.
@WORK #100 /
: Work regster.
/
:
/:
>LOOP 100 /: GOTO Sequense No. define.
>FIN 999
/:
/:
$EJECT
/
:
/: No. O1000 : Main program.
/
:
O1000 ;
NUMREAD ; Numeric data input.
CURSOR OFF ; Cursol OFF
DISPLAY X0 Y0 B0 (’EXECUTION TIME TEST’);”MENU” display.
X2 Y2 (’1.#101=#102+#103’);
X2 Y3 (’2.#101=#102 AND #103’);
X2 Y4 (’3.#101=SIN[#102]’);
;
LOOP DISPLAY X8 Y11 B1 (SELECT TEST NO.) ;
IF [KEYCODE NE INPUT]GOTO FIN ; ”INPUT” key push ?
IF [KEYDATA LT 1]GOTO FIN ; 0 < DATA < 3 chk.
IF [KEYDATA GT 3]GOTO FIN ;
; No-ope. Time GET.
COUNT = LOOPCT ; Loop counter set.
TIMER1 = 0 ; Timer initialize.
WHILE[COUNT GT 0]DO1 ;
COUNT = COUNT -1 ; No-operation loop.
END1 ;
TIMESAV = TIMER1 ; Sample time save.
;
Delete this line in Series15.³