
C.COMPILE/LINK EXAMPLE APPENDIX B-66264EN/01
- 66 -
Fri Apr-25-2003 12:11:55 Page 2
(FS30i) Macro Compiler (Pre) V01.0 SUB1.SRC
S-Line G-Line
813 /*
814 /*
815 /* (#101=#102+#103) Operation Time Test.
816 /*
817 /* No. O1100 : SUB program.
818 /*
819 /*
820 0001 O1100 ;
821 0002 NOREAD ; NO data read.
822 0003 ;
823 0004 DISPLAY X2 Y2 B0 ('#101=#102+#103 TEST') ; Operation code disp.
824 0005 ;
825 0006 COUNT = LOOPCT ; Loop counter set.
826 0007 TIMER1 = 0 ; Timer initialize.
827 0008 WHILE[COUNT GT 0]DO1 ;
828 0009 #101 = #102 + #103 ; (Time Measure)
829 0010 COUNT = COUNT –1 ;
830 0011 END1 ;
831 0012 ;
832 0013 TSTTIME = TIMER1 ; Measure Time save.
833 0014 ;
834 0015 CALL DISPSUB ; Measure Time disp.
835 0016 ;
836 0017 LOOP DISPLAY X8 Y11 B1 (PUSH RESET KEY) ;
837 0018 IF[KEYCODE EQ RESET]GOTO FIN ; "RESET" key wait.
838 0019 RETURNP LOOP ;
839 0020 ;
840 0021 FIN TAIWAP1 = MAINPR ;
841 0022 RETURN ;
842 /*
843 /*
844 $EJECT