.TITLE TEMPUS ; JEFFREY KODOSKY ARL JUL76 ; ; SUBR ; ENTRY: NO ARGS ; EXIT: 1 ARG (SYSTEM TIME IN SECONDS) ; ERRORS: NONE ; CALLS: TIMER ; R2ATM .GLOBL TEMPUS,ZTEMPUS,QTIMER,QR2ATM TEMPUS: CLR -(SP) ;"START" TIME FOR TIMER=0 CLR -(SP) QTIMER QR2ATM .WORD 0 ZTEMPUS=.-TEMPUS .END