
B–66102E/10
D. COMPILE/LINK EXAMPLE
APPENDIX
67
;
LOOP DISPLAY X8 Y11 B1 (PUSH RESET KEY) ;
IF[KEYCODE EQ RESET]GOTO FIN ; ”RESET” key wait.
RETURNP LOOP ;
;
FIN TAIWAP1 = MAINPR ;
RETURN ;
/
:
/:
$EJECT
/
:
/:
/: (#101=#102 AND #103) Operation Time Test.
/
:
/: No. O1200 : SUB program.
/
:
/:
O1200 ;
NOREAD ; NO data read.
;
DISPLAY X2 Y2 B0 (’#101=#102 AND #103 TEST’); Operation code disp.
;
COUNT = LOOPCT ; Loop counter set.
TIMER1 = 0 ; Timer initialize.
WHILE[COUNT GT 0]DO1 ;
#101 = #102 AND #103 ; (Time Measure)
COUNT = COUNT -1 ;
END1 ;
;
TSTTIME = TIMER1 ; Measure Time save.
;
CALL DISPSUB ; Measure Time disp.
;
LOOP DISPLAY X8 Y11 B1 (PUSH RESET KEY) ;
IF[KEYCODE EQ RESET]GOTO FIN ; ”RESET” key wait.
RETURNP LOOP ;
;
FIN TAIWAP1 = MAINPR ;
RETURN ;
/
:
/:
$EJECT
/
:
/:
/: (#101=SIN[#102]) Operation Time Test.
/
:
/: No. O1300 : SUB program.
/
:
/:
O1300 ;
NOREAD ; NO data read.
;
DISPLAY X2 Y2 B0 (’#101=SIN[#102]’) ; Operation code disp.
;
COUNT = LOOPCT ; Loop counter set.
TIMER1 = 0 ; Timer initialize.