C+ C Title: FINGERCOM.FTN C Author: T. R. Wyant C Date: 02-Oct-1985 C Modified: C Remarks: C This include file describes the FINGER-specific C common. C- PARAMETER EFGMCR = 1 ! Event flag to wait for MCR. PARAMETER LUNIN = 4 ! Terminal input LUN PARAMETER LUNOUT = 5 ! Terminal output LUN PARAMETER LUNMBX = 1 ! DECnet mailbox LUN PARAMETER LUNLNK = 2 ! DECnet outbound link LUN PARAMETER LUNLIN = 3 ! DECnet inbound link LUN PARAMETER LUNDSK = 6 ! Disk LUN. PARAMETER LUNPLN = 7 ! FINGERPLN LUN. PARAMETER NTCONN = 1 ! Packet type for connect request. PARAMETER DEVTYP = 3 ! Device types covered by local FINGER. PARAMETER MINMAT = 1 ! Minimum length for a name match. INTEGER*2 NETMOD ! = .TRUE. if input is over DECnet. INTEGER*2 MATNLN ! Length of name to match. LOGICAL*1 MATNAM(32) ! Name to match. INTEGER*2 MATINX ! Index of matched name. INTEGER*2 MATCHS ! Number of matches found. LOGICAL*1 NODNAM(6) ! Name of node we're calling. INTEGER*2 NODEL ! Length of node name. INTEGER*2 DEVNMS (DEVTYP) ! Names of local devices of interest. INTEGER*2 DEVUTS (DEVTYP) ! Number of each local device type. INTEGER*2 OURNAM (3) ! Our DECnet node name. DATA DEVNMS / 'TT', 'HT', 'RT'/ DATA DEVUTS / 128, 32, 32/ DATA OURNAM /3*' '/ COMMON /FINLCL/ NAMLEN, NAME, NETMOD, MATINX, MATCHS, 1 NODEL, NODNAM, DEVNMS, DEVUTS, OURNAM