
B–66102E/10
D. COMPILE/LINK EXAMPLE
APPENDIX
61
Fri Mar-14-1997 16:27:3 Page 2
(F0/F16) Macro Compiler (Pre) V01.01 MAIN.SRC
S-Line G-Line
219 /
:
220 /: No. O1000 : Main program.
221 /
:
222 0001 O1000 ;
223 0002 NUMREAD ;
Numeric data input.
224 0003 CURSOR OFF ;
Cursol OFF
225 0004 DISPLAY X0 Y0 B0 (’EXECUTION TIME TEST’);
”MENU” display.
226 0005 X2 Y2 (’1.#101=#102+#103’);
227 0006 X2 Y3 (’2.#101=#102 AND #103’);
228 0007 X2 Y4 (’3.#101=SIN[#102]’);
229 0008 ;
230 0009 LOOP DISPLAY X8 Y11 B1 (SELECT TEST NO.) ;
231 0010 IF [KEYCODE NE INPUT]GOTO FIN ;
”INPUT” key push ?
232 0011 IF [KEYDATA LT 1]GOTO FIN ;
0 < DATA < 3 chk.
233 0012 IF [KEYDATA GT 3]GOTO FIN ;
234 0013 ;
No-ope. Time GET.
235 0014 COUNT = LOOPCT ;
Loop counter set.
236 0015 TIMER1 = 0 ;
Timer initialize.
237 0016 WHILE[COUNT GT 0]DO1 ;
238 0017 COUNT = COUNT -1 ;
No-operation loop.
239 0018 END1 ;
240 0019 TIMESAV = TIMER1 ;
Sample time save.
241 0020 ;
242 0021 TAIWAP1 = KEYDATA*100+1000 ;
Jump To TEST progra.
243 0022 ;
O1x00:x=key in data.
244 0023 ;
245 0024 FIN RETURNP LOOP ;
END of conv. MACRO.
246 /
:
247 /:
248 $EJECT