.TITLE NTACC .ENABLE LC .IDENT /010688/ ; ; File:[22,310]NTACC.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit: jmb - 1-JUN-1988 17:54:30 ; Desc: Accept Network Link Connect Request ; History: JMB 1-JUN-1988 ; ; .REM | 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/ .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