
D. COMPILE/LINK EXAMPLE
B–66102E/10
APPENDIX
70
Fri Mar-14-1997 16:27:4 Page 2
(F0/F16) Macro Compiler (Pre) V01.01 SUB1.SRC
S-Line G-Line
220 /
:
221 /:
222 /: (#101=#102+#103) Operation Time Test.
223 /
:
224 /: No. O1100 : SUB program.
225 /
:
226 /:
227 0001 O1100 ;
228 0002 NOREAD ; NO data read.
229 0003 ;
230 0004 DISPLAY X2 Y2 B0 (’#101=#102+#103 TEST’) ; Operation code disp.
231 0005 ;
232 0006 COUNT = LOOPCT ; Loop counter set.
233 0007 TIMER1 = 0 ; Timer initialize.
234 0008 WHILE[COUNT GT 0]DO1 ;
235 0009 #101 = #102 + #103 ; (Time Measure)
236 0010 COUNT = COUNT -1 ;
237 0011 END1 ;
238 0012 ;
239 0013 TSTTIME = TIMER1 ; Measure Time save.
240 0014 ;
241 0015 CALL DISPSUB ; Measure Time disp.
242 0016 ;
243 0017 LOOP DISPLAY X8 Y11 B1 (PUSH RESET KEY) ;
244 0018 IF[KEYCODE EQ RESET]GOTO FIN ; ”RESET” key wait.
245 0019 RETURNP LOOP ;
246 0020 ;
247 0021 FIN TAIWAP1 = MAINPR ;
248 0022 RETURN ;
249 /
:
250 /:
251 $EJECT