
D. COMPILE/LINK EXAMPLE
B–66102E/10
APPENDIX
72
Fri Mar-14-1997 16:27:5 Page 4
(F0/F16) Macro Compiler (Pre) V01.01 SUB1.SRC
S-Line G-Line
284 /
:
285 /:
286 /: (#101=SIN[#102]) Operation Time Test.
287 /
:
288 /: No. O1300 : SUB program.
289 /
:
290 /:
291 0045 O1300 ;
292 0046 NOREAD ; NO data read.
293 0047 ;
294 0048 DISPLAY X2 Y2 B0 (’#101=SIN[#102]’) ; Operation code disp.
295 0049 ;
296 0050 COUNT = LOOPCT ; Loop counter set.
297 0051 TIMER1 = 0 ; Timer initialize.
298 0052 WHILE[COUNT GT 0]DO1 ;
299 0053 #101 = SIN[#102] ; (Time Measure)
300 0054 COUNT = COUNT -1 ;
301 0055 END1 ;
302 0056 ;
303 0057 TSTTIME = TIMER1 ; Measure Time save.
304 0058 ;
305 0059 CALL DISPSUB ; Measure Time disp.
306 0060 ;
307 0061 LOOP DISPLAY X8 Y11 B1 (PUSH RESET KEY) ;
308 0062 IF[KEYCODE EQ RESET]GOTO FIN ; ”RESET” key wait.
309 0063 RETURNP LOOP ;
310 0064 ;
311 0065 FIN TAIWAP1 = MAINPR ;
312 0066 RETURN ;
313 0067 %