
C.COMPILE/LINK EXAMPLE APPENDIX B-66264EN/01
- 68 -
Fri Apr-25-2003 12:11:55 Page 4
(FS30i) Macro Compiler (Pre) V01.0 SUB1.SRC
S-Line G-Line
877 /*
878 /*
879 /* (#101=SIN[#102]) Operation Time Test.
880 /*
881 /* No. O1300 : SUB program.
882 /*
883 /*
884 0045 O1300 ;
885 0046 NOREAD ; NO data read.
886 0047 ;
887 0048 DISPLAY X2 Y2 B0 ('#101=SIN[#102]') ; Operation code disp.
888 0049 ;
889 0050 COUNT = LOOPCT ; Loop counter set.
890 0051 TIMER1 = 0 ; Timer initialize.
891 0052 WHILE[COUNT GT 0]DO1 ;
892 0053 #101 = SIN[#102] ; (Time Measure)
893 0054 COUNT = COUNT –1 ;
894 0055 END1 ;
895 0056 ;
896 0057 TSTTIME = TIMER1 ; Measure Time save.
897 0058 ;
898 0059 CALL DISPSUB ; Measure Time disp.
899 0060 ;
900 0061 LOOP DISPLAY X8 Y11 B1 (PUSH RESET KEY) ;
901 0062 IF[KEYCODE EQ RESET]GOTO FIN ; "RESET" key wait.
902 0063 RETURNP LOOP ;
903 0064 ;
904 0065 FIN TAIWAP1 = MAINPR ;
905 0066 RETURN ;
906 0067 %