PROGRAM OVL2A C GTIM,PRINT,JJCVT,JSUB, AND TIMASC ARE ALL SYSLIB ROUTINES C C The following programs are used in the RT-11 User and RT-11 C Programmer self paced instruction courses for RT-11 V4.They are also C similar to programs used in the Programming with RT-11 series for C RT-11 V5.0 or later. The name of the files are as specified in the C self paced course. C C The code is supplied as a service as Digital does not supply these C on diskette. C Any copyright is the property of Digital Equipment Corporartion C INTEGER*4 TIME0,TIME1,JDIFF BYTE DIFF(8) BYTE FIRST COMMON FIRST DATA FIRST/.TRUE./ CALL GTIM(TIMEO) CALL PRINT ('PROGRAM BEGINS') DO 10 I=1,100 CALL OVL2D(4) CALL OVL2E(4) CALL OVL2F(4) IF (.NOT.FIRST) GO TO 10 FIRST=.FALSE. 10 CONTINUE CALL GTIM(TIME) CALL JJCVT(TIME0) CALL JJCVT(TIME1) CALL JSUB(TIME1,TIME0,JDIFF) CALL JJCVT(JDIFF) CALL TIMASC(JDIFF,DIFF) TYPE 1,DIFF 1 FORMAT (' EXECUTION TIME: ',8A1) CALL EXIT END