.TITLE TICKS ;+ ; ; Gets the system time to return to a FORTRAN program ; ;- .MCALL GTIM$C .PSECT DATA,RW,D TIMBUF: .BLKW 8. .PSECT TICKS:: GTIM$C TIMBUF MOV #TIMBUF,R1 LOOP: MOV (R1),@2(R5) ADD 2(R1),@2(R5) ADD 4(R1),@2(R5) ADD 6(R1),@2(R5) ADD 10(R1),@2(R5) ADD 12(R1),@2(R5) SWAB 14(R1) ADD 14(R1),@2(R5) BIC #100000,@2(R5) RTS PC .END