.TITLE	GINTSK
;
;	HISTORIK:
;	DATUM	NAMN		ORSAK
;	880712	B-E TAPPER	URUPPF\RANDE
;
;	L[SER TASKPARAMETRAR F\R ETT VISST TASK. REF 11M+ 4.0 SYST.DIRECT.MANUAL
;	SIDAN 5-122, AVSNITT 5.41.11	GIN$ - GI.TSK
;
;
;	CALL:
;
;	INTEGER BUFFER(8)
;	REAL	NAME
;	DATA	NAME/6R...TSK/
;	INTEGER	IDSW
;
;	CALL	GINTSK(NAME,BUFFER,IDSW)
;
	.MCALL	GIN$S
;
;
;
;
GTBUF:	.WORD
NAM1:	.WORD
NAM2:	.WORD
;
GINTSK::
	MOV	2(R5),R2		;GET BASE ADRESS OF TASK NAME
	MOV	(R2)+,NAM1		;FIRST PART OF TASK NAME
	MOV	(R2),NAM2		;SECOND PART OF TASK NAME
	MOV	4(R5),GTBUF		;BUFFER ADRESS
	GIN$S	#GI.TSK,@#GTBUF,#8.,@#NAM1,@#NAM2
	MOV	$DSW,@6(R5)		;RETURN STATUS
	RETURN
;
	.END