.TITLE NTCON .ENABLE LC .IDENT /010688/ ; ; Description: Request DECnet logical Link Connection ; File: [22,310]NTCON.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit: 12-JUN-1989 19:07:27 ; History: ; 3-AUG-1989 10:50:29 - JMB - changed location of PASMAC (again) ; 12-JUN-1989 19:07:40 - JMB - Use proper symbol in CONW$S. ; 15-NOV-88 12:00:00 - JMB - Conform to AMI Header specs. ; ; 23-JUN-1988 21:17:17 - JMB PA3UTL upgrade. ; .REM | {*CALL*} Procedure NTCON ( lun: integer; EFN: Event_flag; Out_MSG: CH16; { user message sent to remote task } VAR Conb: Net_request_block; VAR In_MSG: CH16; VAR IOSB: Io_Status_block );External; {*USER* Request a logical link with remote task. Build Conb with call to NTCONB prior to invoking NTCON. OUT_MSG contains user data sent to remote task (it get's it in the NTGND call). In_MSG will receive data sent by the remote task in it's NTACC call. } {*WIZARD* AST, NOFLOW, short connect blocks not implemented. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .library /lb:[1,1]netlib.mlb/ .include /pas$utl:PASMAC/ .MCALL CONW$S,CRBDF$ CRBDF$ PROC NTCON PARAM LUN, Integer PARAM EFN, Char PARAM OutMsg, 16.*Char PARAM Conb, Address PARAM InMsg, Address PARAM IOSB, Address SAVE BEGIN mov sp, r0 movb efn(sp), r1 ; get EFN bic #^C377, r1 mov r0, r2 ; get outmsg pointer add #outmsg, r2 ; ... tstb (r2) ; null message? bne 10$ ; no - send it clr r2 ; say no message 10$: conw$s lun(r0),r1,iosb(r0),, ENDPR .END