.TITLE OV1LA .GLOBL TIMASC ; TIMASC IS A SYSLIB ROUTINE ; ; The following programs are used in the RT-11 User and RT-11 ; Programmer self paced instruction courses for RT-11 V4.They are also ; similar to programs used in the Programming with RT-11 series for ; RT-11 V5.0 or later. The name of the files are as specified in the ; self paced course. ; ; The code is supplied as a service as Digital does not supply these ; on diskette. ; Any copyright is the property of Digital Equipment Corporartion ; .GLOBL OVL1B,OVL1C .MCALL .GTIM,.PRINT,.EXIT .MCALL F4CALL ;IN RTPROG.MLB TIME0: .BLKW 2 TIME1: .BLKW 2 JDIFF: .BLKW 2 EMTARG: .BLKW 6 ; XCUTIM: .ASCII /EXECUTION TIME: / DIFF: .BLKB 8. .BYTE 0 BGNMES: .ASCIZ /PROGRAM BEGINS/ ; .EVEN OVL1A:: .GTIM #EMTARG,#TIME0 ;GET BEGINNING TIME .PRINT #BGNMES ;BEGIN MESSAGE CLR R1 ;"FIRST TIME FLAG" FOR ;CONVENIENCE MOV #100.,R4 ;COUNTER LOOP: CALL OVL1B CALL OVL1C TST R1 ;FIRST TIME? BNE 1$ ;NO INC R1 ;YES, CHANGE FLAG 1$: DEC R4 ;COUNT BNE LOOP ;NOT DONE? DO MORE .GTIM #EMTARG,#TIME1 ;DO 32-BIT INTEGER SUBTRACT ; TIME1-TIME0=JDIFF MOV TIME1+2,R0 ;LOW ORDER SUB TIME0+2,RO ;SUBTRACT 'EM MOV TIME1,R1 ;HIGH ORDER SBC R1 ;SUBTRACT CARRY SUB TIME0,R1 ;SUBTRACT HIGH ORDER MOV R0,JDIFF+2 MOV R1,JDIFF ;CALL TIMASC TO CONVERT TO ASCII F4CALL TIMEASC,<#JDIFF,#DIFF> .PRINT #XCUTIM ;PRINT EXECUTION TIME .EXIT .END ;OVL1A