.TITLE NTDSC .ENABLE LC .IDENT /010688/ ; ; File:[22,310]NTDSC.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit: jmb - 1-JUN-1988 18:25:33 ; Desc: Disconnect a DECnet Logical Link ; History: JMB 1-JUN-1988 ; ; .REM | Procedure NTDSC ( Lun: Integer; EFN: Event_flag; MSG: CH16; VAR IOSB: IO_Status_block );External; {*USER* Disconnect the network logical link active on LUN, and free the LUN. Unlike NTABT, pending transmits are allowed to complete before the link is shut down. Pending receive messages continue to be delivered until all transmits are gone, then any remaining are aborted. MSG is user data sent to remote task. } {*WIZZARD* AST not implemented. DSCW$S synchronous call used. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .library /lb:[1,1]netlib.mlb/ .MCALL DSCW$S PROC NTDSC PARAM LUN, Integer; PARAM EFN, Char PARAM MSG, 16.*Char PARAM IOSB, Address SAVE BEGIN mov sp, r0 mov efn(r0), r1 bic #^C377, r1 mov sp, r2 add #MSG, r2 DSCW$S lun(r0),r1,iosb(r0),, ENDPR .END