Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0013/tim.mac
There are 2 other files named tim.mac in the archive. Click here to see a list.
TITLE TIM GIVES A REAL RESULT OF TIME OF DAY HHMM.
SUBTTL V.001 J. BURCHFIEL 28 MAY 1969
ENTRY TIM
INTERN TIM
EXTERN TIME
P=17
; Modified to PUSHJ/POPJ calling convention 11 Oct 1980
; by Paul T. Robinson, Wesleyan Univ. for DECUS conversion to DEC-20
;TIM: JSA 16,TIME
; JUMP 2,TMP
tim: movei 16,[exp tmp]
pushj 17,time ;FORLIB ROUTINE
MOVE TMP
FSC 233
popj p,
TMP: Z
END