.TITLE GTSK
	.IDENT /06JA84/


;	File:[22,310]GTSK.MAC
;	Author: Phil Hannay  - cloned from GETTAS in PASTUL incorporating
;                 new record type "Task_info_rec" rather than 16 word
;                 array.
;
;	Last Edit:
;

.REM |


PROCEDURE GTSK(VAR Task_info: Task_info_rec); External;

{*USER*
 Pascal-3 procedure to return information about the task.  Such useful
 tidbits are returned in "Task_info" like 
 task name, task partition name, default uic, priority, 
 operating system, SST table location and size, number of luns, 
 size of window zero, and protection uic.  The directive status
 is available in global variable $DSW.  Note that this routine uses
 a record type "Task_info_rec" that is defined in the include file
 LB:[22,320]GTSK.TYP.  The GTSK.TYP file must be included whenever
 GTSK.EXT is included and must precede the EXT file.

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

}

|

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

	.MCALL GTSK$S
	
	PROC GTSK
	PARAM INF, ADDRESS	;Task_info_rec type record (16 words)
  	SAVE <R0>		;WE WILL USE R0 SO PRESERVE IT
  	BEGIN
	MOV SP,R0		;PRESERVE STACK REFERENCE
	GTSK$S INF(0)

	ENDPR
	.END