.TITLE NTGND .ENABLE LC .IDENT /010688/ ; ; Description: Get DECnet Network Data ; File: [22,310]NTGND.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit: 15-NOV-1988 12:21:24 ; History: ; 3-AUG-1989 10:50:29 - JMB - changed location of PASMAC (again) ; 15-NOV-88 12:00:00 - JMB - Conform to AMI Header specs. ; ; 23-JUN-1988 21:17:35 - JMB PA3UTL upgrade. ; .REM | {*CALL*} 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. } {*WIZARD* AST not implemented. Short connect blocks not implemented. GNDW$S synchronous call used. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .include /pas$utl:pasmac.mac/ .library /lb:[1,1]netlib.mlb/ .MCALL GNDW$S PROC NTGND PARAM LUN, Integer PARAM EFN, Char PARAM CONB, Address PARAM IOSB, Address SAVE BEGIN mov sp, r0 movb efn(r0), r1 bic #^C377, r1 GNDW$S lun(r0),r1,iosb(r0),, ENDPR .END