.TITLE NTDSC .ENABLE LC .IDENT /010688/ ; ; Description: Disconnect a DECnet Logical Link ; File: [22,310]NTDSC.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit: 15-NOV-1988 12:20:19 ; 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:29 - JMB PA3UTL upgrade. ; .REM | {*CALL*} 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. } {*WIZARD* AST not implemented. DSCW$S synchronous call used. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .library /lb:[1,1]netlib.mlb/ .include /pas$utl:pasmac.mac/ .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 #16., r3 ; assume message length mov sp, r2 add #MSG, r2 tstb (r2) ; null message? bne 10$ ; no -br clr r2 ; use null params clr r3 10$: DSCW$S lun(r0),r1,iosb(r0),, ENDPR .END