.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 BEGIN mov sp, r0 mov efn(r0), r1 bic #^C377, r1 GNDW$S lun(r0),r1,iosb(r0),, ENDPR .END