.TITLE NTGND
	.ENABLE LC
	.IDENT /010688/

;
;	File:[22,310]NTGND.MAC
;	Author: Jim Bostwick   1-JUN-1988
;	Last Edit: jmb -  1-JUN-1988 18:43:03
;	Desc: Get DECnet Network Data
;	History: JMB 1-JUN-1988
;
;

.REM |

Procedure NTGND (
	lun: Integer;
	EFN: Event_flag;
	VAR Conb: Net_Connect_block;
	VAR IOSB: IO_Status_block
	);External;

{*USER*
 Retrieve data from local task's network data queue, and store in CONB. 
IOSB defines type of data received. See DECnet-M-PLUS Programmer's Reference
Manual for definitions. Various useful constants, defined in DECNET.TYP,
can help crack the IOSB return codes. 
} 

{*WIZZARD*
AST not implemented. Short connect blocks not implemented. GNDW$S synchronous
call used. 
}

|

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

	.library /lb:[1,1]netlib.mlb/
	.MCALL GNDW$S

	PROC NTGND
	PARAM LUN, Integer
	PARAM EFN, Char
	PARAM CONB, Address
	PARAM IOSB, Address
	
	SAVE <R0,R1,R2,R3,R4,R5> 

	BEGIN 
	mov	sp, r0
	mov	efn(r0), r1
	bic	#^C377, r1
	GNDW$S lun(r0),r1,iosb(r0),,<conb(r0),#196.>

	ENDPR

	.END