
B-66264EN/01 APPENDIX C.COMPILE/LINK EXAMPLE
- 67 -
Fri Apr-25-2003 12:11:55 Page 3
(FS30i) Macro Compiler (Pre) V01.0 SUB1.SRC
S-Line G-Line
845 /*
846 /*
847 /* (#101=#102 AND #103) Operation Time Test.
848 /*
849 /* No. O1200 : SUB program.
850 /*
851 /*
852 0023 O1200 ;
853 0024 NOREAD ; NO data read.
854 0025 ;
855 0026 DISPLAY X2 Y2 B0 ('#101=#102 AND #103 TEST') ; Operation code disp.
856 0027 ;
857 0028 COUNT = LOOPCT ; Loop counter set.
858 0029 TIMER1 = 0 ; Timer initialize.
859 0030 WHILE[COUNT GT 0]DO1 ;
860 0031 #101 = #102 AND #103 ; (Time Measure)
861 0032 COUNT = COUNT –1 ;
862 0033 END1 ;
863 0034 ;
864 0035 TSTTIME = TIMER1 ; Measure Time save.
865 0036 ;
866 0037 CALL DISPSUB ; Measure Time disp.
867 0038 ;
868 0039 LOOP DISPLAY X8 Y11 B1 (PUSH RESET KEY) ;
869 0040 IF[KEYCODE EQ RESET]GOTO FIN ; "RESET" key wait.
870 0041 RETURNP LOOP ;
871 0042 ;
872 0043 FIN TAIWAP1 = MAINPR ;
873 0044 RETURN ;
874 /*
875 /*
876 $EJECT