.TITLE NTACC .ENABLE LC .IDENT /010688/ ; ; Desc: Accept Network Link Connect Request ; File: [22,310]NTACC.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit: 15-NOV-1988 12:14:37 ; 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:06 - JMB PA3UTL upgrade. ; ; .REM | {*CALL*} Procedure NTACC ( lun:integer; efn:event_flag; VAR conb:Net_Connect_block; VAR msg:CH16; VAR iosb:Io_status_block );External; {*USER* Directs DECnet software to complete the logical link request from a remote task, using LUN. CONB is the connect block filled in by a previous NTGND or NTGNDW call. MSG contains user message returned to the remote task. } {*WIZZARD* AST, NOFLOW control not implemented. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .LIBRARY /LB:[1,1]NETLIB.MLB/ .include /pas$utl:pasmac.mac/ .MCALL ACCW$S PROC NTACC PARAM lun, integer ; logical unit for link PARAM EFN, Char ; efn set when ACC completes PARAM CONB, address ; connect block address PARAM MSG, Address ; CH16 address PARAM IOSB, Address ; status block address SAVE BEGIN mov sp, r0 ; form frame pointer movb efn(r0), r1 ; get event flag bic #^C377, r1 ACCW$S lun(r0),r1,iosb(r0),, ENDPR .END