
B-66264EN/01 APPENDIX C.COMPILE/LINK EXAMPLE
- 53 -
Main program source file File name : MAIN.SRC
/*
/* SAMPLE Program.
/*
/* Conversation MACRO Execution-Time Test Program.
/* (Vol 01.00 2003.04.10)
/*
/*
/* ( MAIN Program )
/*
/*
/* Symbol define.
/*
/* System common symbole FILE Include.
/*
$INCLUDE C:\MCOMP30I\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.
;
TAIWAP1 = KEYDATA*100+1000 ; Jump To TEST progra.