.TITLE GTIM
	.IDENT /06SE89/


;	File:[22,310]GTIM.MAC
;	Author: Phil Hannay  - created 6-Sep-89.
;
;	Last Edit: 6-SEP-1989 16:43:17 
;

.REM |


PROCEDURE GTIM(VAR Timestamp: Int_timestamp); External;

{*USER*

Pascal-3 procedure to return the current system time.
The system time is returned using the 8 word integer timestamp
record type produced by the GTIM$ directive.  If you use the TICK
portion of the information, be sure to also be aware of the TICK_PER_SEC
(ticks per second) value, as that could vary depending upon
sysgen and electical cycle time.

This routine directly calls the GTIM$ executive call.  The executive
status can can be accessed in global variable $DSW.

}

|

;
; Assemble with PASMAC.MAC as prefix file.
;

	.MCALL GTIM$S
	
	PROC GTIM
	PARAM TIM,ADDRESS	;Int_timestamp type record (8 words)
  	SAVE <R0>		;WE WILL USE R0 SO PRESERVE IT
  	BEGIN
	MOV SP,R0		;PRESERVE STACK REFERENCE
	GTIM$S TIM(0)

	ENDPR
	.END