C C Include file for use with VAXNET program. C IMPLICIT INTEGER*4 (A-Z) C C Define I/O status blocks and some descriptors. C INTEGER*2 LIOSB(4), RIOSB(4), XIOSB(4), XLIOSB(4), XRIOSB(4), 1 DIALER_IOSB(4), TYPEAHEAD_COUNT(4), LTYPEAHEAD_COUNT(4) INTEGER*4 LDESC(2), RDESC(2), XDESC(2), EXIT_STATUS, 1 LOCAL_STATUS, REMOTE_STATUS, FUNCTION, TERMINATOR INTEGER*4 REMOTE_CHAR(3), LOCAL_CHAR(3), DIALER_CHAR(3) INTEGER*4 TERMPTR(2), TERMTBL(8), NOTERM(2), TPTR(2), TTBL(8) DATA TERMTBL /0,0,0,0,0,0,0,0/ ! Read terminator table (remote). DATA TTBL /0,0,0,0,0,0,0,0/ ! Long terminator table (modem). DATA NOTERM /0,0/ ! Don't terminate on anything. COMMON /STATUS/ LOCAL_STATUS, REMOTE_STATUS, EXIT_STATUS, LIOSB, 1 RIOSB, XIOSB, XLIOSB, XRIOSB, FUNCTION, LOCAL_CHAR, 1 REMOTE_CHAR, TERMPTR, TERMTBL, NOTERM, TERMINATOR, TPTR, 1 TTBL, LDESC, RDESC, XDESC, DIALER_IOSB, DIALER_CHAR C C Define counters, etc. C INTEGER*4 BYTE_COUNT, RECORD_COUNT, RBYTE_COUNT, LBYTE_COUNT, 1 TIMEOUTS, PARITY_ERRORS, NAKS_RECEIVED, NAKS_XMITTED, 1 ENQS_RECEIVED, ENQS_XMITTED, TIMEOUT_COUNT, SYMBOL_COUNT, 1 FLOW, MODE, RINDEX, DUMP_TIMEOUT, OVERRUN_ERRORS, 1 FRAMING_ERRORS, ERROR_COUNT, ERROR_RECORD, RETRY_COUNT, 1 DISPLAY_RECORD, FILE_COUNT, BLOCK_COUNT, RETRY_LIMIT, 1 BLOCK_RECEIVED, BLOCK_XMITTED, MODEM_SLOT, IDLE_TIMEOUT, 1 AUTODIAL_LIMIT, AUTODIAL_TIMEOUT, SCRIPT_RETRYS, 1 SCRIPT_TIMEOUT, SLAVE_TIMEOUT, PROGRAM_RETRYS, 1 PROGRAM_TIMEOUT, READ_TIMEOUT, LOCAL_MAXIMUM, REMOTE_MAXIMUM COMMON /COUNTS/ BYTE_COUNT, RECORD_COUNT, RBYTE_COUNT, LBYTE_COUNT, 1 TIMEOUTS, PARITY_ERRORS, NAKS_RECEIVED, NAKS_XMITTED, 1 ENQS_RECEIVED, ENQS_XMITTED, TIMEOUT_COUNT, AUTODIAL_TYPE, 1 MAX_TYPEAHEAD, MAX_RECSIZE, TYPEAHEAD_COUNT, LTYPEAHEAD_COUNT, 1 SYMBOL_COUNT, LOCAL_ASTS, REMOTE_ASTS, LMAX_TYPEAHEAD, 1 DUMP_TIMEOUT, OVERRUN_ERRORS, FRAMING_ERRORS, ERROR_COUNT, 1 ERROR_RECORD, RETRY_COUNT, DISPLAY_RECORD, FILE_COUNT, 1 BLOCK_COUNT, RETRY_LIMIT, BLOCK_RECEIVED, BLOCK_XMITTED, 1 MODEM_SLOT, IDLE_TIMEOUT, AUTODIAL_LIMIT, AUTODIAL_TIMEOUT, 1 SCRIPT_RETRYS, SCRIPT_TIMEOUT, SLAVE_TIMEOUT, PROGRAM_RETRYS, 1 PROGRAM_TIMEOUT, READ_TIMEOUT, LOCAL_MAXIMUM, REMOTE_MAXIMUM C C Define storage for channels and event flags. C INTEGER*4 LCHAN_IN, LCHAN_OUT, RCHAN_IN, RCHAN_OUT, 1 LOCAL_ASTS, REMOTE_ASTS, LEFN_IN, LEFN_OUT, REFN_IN, REFN_OUT, 1 DCHAN_IN, DCHAN_OUT, DEFN_IN, DEFN_OUT COMMON /CHANNELS/ LCHAN_IN, LCHAN_OUT, RCHAN_IN, RCHAN_OUT, 1 LEFN_IN, LEFN_OUT, REFN_IN, REFN_OUT, DCHAN_IN, DCHAN_OUT, 1 DEFN_IN, DEFN_OUT C C Define integers to contains character sizes. C INTEGER*4 BAUD_RATE, LOCAL_SIZE, REMOTE_SIZE, SPEED_SIZE, SYSTEM_SIZE, 1 LOGFILE_SIZE, INFILE_SIZE, OUTFILE_SIZE, PHONE_SIZE, 1 CMD_SIZE, MODEM_SIZE, LOGIN_SIZE, USER_SIZE, PASSWORD_SIZE, 1 LOGOUT_SIZE, TYPEAHEAD_LIMIT, AUTODIAL_TYPE, MAX_TYPEAHEAD, 1 LMAX_TYPEAHEAD, MAX_RECSIZE, RSIZE, VSIZE, PROTOCOL, BITMASK, 1 TSIZE, TTY_WIDTH, FILE_TYPE, VCMD_SIZE, DIALER_SIZE, 1 DIALER_RATE, DSPEED_SIZE, PARITY_SIZE, REMOTE_PARITY, 1 DUMPD_SIZE, DUMPT_SIZE, PROMPT_SIZE, START_SIZE, VERIFY_SIZE, 1 RDELAY_SIZE COMMON /SIZES/ LOCAL_SIZE, REMOTE_SIZE, SPEED_SIZE, SYSTEM_SIZE, 1 LOGFILE_SIZE, INFILE_SIZE, OUTFILE_SIZE, PHONE_SIZE, 1 CMD_SIZE, MODEM_SIZE, USER_SIZE, PASSWORD_SIZE, 1 LOGIN_SIZE, LOGOUT_SIZE, TYPEAHEAD_LIMIT, RSIZE, VSIZE, 1 PROTOCOL, BITMASK, TSIZE, TTY_WIDTH, FILE_TYPE, VCMD_SIZE, 1 DIALER_SIZE, DIALER_RATE, DSPEED_SIZE, PARITY_SIZE, 1 REMOTE_PARITY, DUMPD_SIZE, DUMPT_SIZE, PROMPT_SIZE, 1 START_SIZE, VERIFY_SIZE, RDELAY_SIZE C C Parameters. C CHARACTER*(*) SS, DS, NULL, BELL PARAMETER (SS = CHAR(13)//CHAR(10)) ! Single space. PARAMETER (DS = SS//SS) ! Double space. PARAMETER (BELL = CHAR(7)) ! Bell. PARAMETER (NULL = CHAR(0)) ! NULL. PARAMETER SOH = 1 ! Start of header. CTRL/A PARAMETER STX = 2 ! Start of text. CTRL/B PARAMETER ETX = 3 ! End of text. CTRL/C PARAMETER EOT = 4 ! End of transmission. CTRL/D PARAMETER ENQ = 5 ! Enquire. CTRL/E PARAMETER ACK = 6 ! Acknowlegment. CTRL/F PARAMETER LF = 10 ! Line feed. CTRL/J PARAMETER CR = 13 ! Carriage return. CTRL/M PARAMETER SI = 15 ! Shift In. CTRL/O PARAMETER DLE = 16 ! Data link escape. CTRL/P PARAMETER XON = 17 ! Resume output to terminal. CTRL/Q PARAMETER XOFF= 19 ! Stop output to the terminal. CTRL/S PARAMETER NAK = 21 ! Negative Acknowlegment. CTRL/U PARAMETER SYN = 22 ! Synchronize byte. CTRL/V PARAMETER ETB = 23 ! End of transmission block. CTRL/W PARAMETER CAN = 24 ! Cancel transmission. CTRL/X PARAMETER EOF = 26 ! End of file. CTRL/Z PARAMETER FILE_UNIT = 1 ! Unit # for VAX file. PARAMETER LOG_UNIT = 2 ! Unit # for log file. PARAMETER CMD_UNIT = 3 ! Unit # for command file. PARAMETER IN_UNIT = 5 ! Unit for batch SYS$COMMAND. PARAMETER OUT_UNIT = 6 ! Unit for batch SYS$OUTPUT. PARAMETER VCMD_UNIT = 7 ! Vaxnet command file input. PARAMETER ESCAPE = 27 ! Escape. PARAMETER IN_SIZE = 80 ! Size of SYS$COMMAND records. PARAMETER OUT_SIZE = 512 ! Size of SYS$OUTPUT records. PARAMETER READ_SIZE = 512 ! Size of remote reads. PARAMETER LOGBUF_SIZE = 512 ! Log file buffer size. PARAMETER BUFFER_SIZE = 1024 ! Buffer size. PARAMETER TIMER_EFN = 10 ! Event flag used with set timer. PARAMETER SEVENBIT_MASK = "177 ! Seven bit mask. PARAMETER EIGHTBIT_MASK = "377 ! Eight bit mask. C C Flags for LIB$SPAWN: C PARAMETER NOWAIT = 1 !(0) If set, don't wait for command. PARAMETER NOCLISYM = 2 !(1) If set, don't copy CLI symbols. PARAMETER NOLOGNAM = 4 !(2) If set, don't copy logical names. C C Buffer allocation: C LOGICAL*1 BREAK_CHAR(1) ! Break character. LOGICAL*1 INTERRUPT_CHAR(1) ! Interrupt character. LOGICAL*1 TERMINATE_CHAR(1) ! Dump terminating character. LOGICAL*1 RBUFFER(BUFFER_SIZE) ! Receive buffer. LOGICAL*1 XBUFFER(BUFFER_SIZE) ! Transmit buffer. LOGICAL*1 TBUFFER(BUFFER_SIZE) ! Logfile buffer. LOGICAL*1 LBUFFER(BUFFER_SIZE) ! Local buffer. C C Flags. C LOGICAL CONTROLC_TYPED, IN_A_COMMAND, LOGFILE, BACKUP, 1 RECEIVER_BUSY, XMITTER_BUSY, XON_XOFF, LOCAL_ECHO, 1 DEBUG_MODE, REMOTE, HANGUP, DUMP_MODE, NEED_TO_DEAL, 1 REMOTE_ASSIGNED, EXIT_ON_ERROR, CROSS_FILE, INI_FILE, 1 AUTODIAL, MODEM, VAX_WILD, LOG_LOCAL, STARTUP, 1 BATCH_MODE, CMD_MODE, WANTS_HELP, HIBERNATING, 1 INTERRUPT_TYPED, DUMP_ECHO, EXITING, AUTO_MODE, 1 MODEM_ONLINE, SUSPEND_OUTPUT, EIGHT_BIT, BINARY_MODE, 1 DISPLAY_SCREEN, IO_IN_PROGRESS, REMOTE_WILD, AUTO_REF, 1 WATCH_FILES, REF_WAIT, VCMD_MODE, SLAVE_MODE, UNIX_MODE, 1 SYSCOM_TERM, SYSOUT_TERM, BREAK_IS_ENABLED, DIALER_ASSIGNED, 1 VERIFY_MODE, STRIP_XOFF, READ_WITH_TIMEOUT COMMON /FLAGS/ RECEIVER_BUSY, XMITTER_BUSY, 1 BACKUP, XON_XOFF, LOCAL_ECHO, DEBUG_MODE, HANGUP, REMOTE, 1 CONTROLC_TYPED, IN_A_COMMAND, LOGFILE, DUMP_MODE, 1 NEED_TO_DEAL, REMOTE_ASSIGNED, EXIT_ON_ERROR, CROSS_FILE, 1 INI_FILE, MODEM, AUTODIAL, VAX_WILD, LOG_LOCAL, STARTUP, 1 BATCH_MODE, CMD_MODE, WANTS_HELP, HIBERNATING, INTERRUPT_TYPED, 1 DUMP_ECHO, EXITING, AUTO_MODE, MODEM_ONLINE, SUSPEND_OUTPUT, 1 EIGHT_BIT, BINARY_MODE, DISPLAY_SCREEN, IO_IN_PROGRESS, 1 REMOTE_WILD, AUTO_REF, WATCH_FILES, REF_WAIT, VCMD_MODE, 1 SLAVE_MODE, SYSCOM_TERM, SYSOUT_TERM, BREAK_IS_ENABLED, 1 BREAK_CHAR, DIALER_ASSIGNED, UNIX_MODE, VERIFY_MODE, 1 STRIP_XOFF, READ_WITH_TIMEOUT C C Character strings for filenames, system type, baud rate, etc. C CHARACTER*10 SYSTEM_TYPE, REMOTE_BAUD, MODEM_TYPE, TERMINAL_TYPE CHARACTER*10 DIALER_SPEED, DUMP_DELAY, PARITY_TYPE, READ_DELAY CHARACTER*80 CMD_PROMPT, DUMP_TERM, PROGRAM_START, PROGRAM_VERIFY CHARACTER*80 LOCAL_DEVICE, REMOTE_DEVICE, LOGIN_CMD, LOGOUT_CMD CHARACTER*80 PHONE_NUMBER, USER_NAME, PASSWORD, DIALER_PORT CHARACTER*128 VAX_FILE, REMOTE_FILE, CMD_FILE, LOG_FILE, TEMP_FILE CHARACTER*128 VCMD_FILE CHARACTER*256 SCRATCH COMMON /BUFFERS/ RBUFFER, XBUFFER, LBUFFER, TBUFFER, VAX_FILE, 1 REMOTE_FILE, SYSTEM_TYPE, REMOTE_BAUD, LOCAL_DEVICE, 1 REMOTE_DEVICE, INTERRUPT_CHAR, PHONE_NUMBER, MODEM_TYPE, 1 CMD_FILE, LOG_FILE, LOGIN_CMD, LOGOUT_CMD, USER_NAME, PASSWORD, 1 TERMINATE_CHAR, MODE, RINDEX, FLOW, BAUD_RATE, TERMINAL_TYPE, 1 SCRATCH, TEMP_FILE, VCMD_FILE, DIALER_PORT, DIALER_SPEED, 1 PARITY_TYPE, DUMP_DELAY, DUMP_TERM, CMD_PROMPT, PROGRAM_START, 1 PROGRAM_VERIFY, READ_DELAY C C Direction for GET/SEND. C PARAMETER TO_VAX = 1 ! Get a file from the remote. PARAMETER TO_REMOTE = 2 ! Send a file to the remote. C C Type of autodial modem. C PARAMETER DF03 = 1 ! DEC DF03 modem. PARAMETER DF112 = 2 ! DEC DF112 modem. PARAMETER RIXON = 3 ! RIXON R212 modem. PARAMETER R212A = 4 ! RIXON R212A Intelligent modem. PARAMETER HAYES = 5 ! HAYES Smartmodem 1200. PARAMETER VA3480 = 6 ! Racal Vadic VA3480 modem. PARAMETER VA3450 = 7 ! Racal Vadic VA3450 modem PARAMETER VA212 = 8 ! Racal Vadic VA212 modem. PARAMETER VENTEL = 9 ! VENTEL 212A modem. C C Type of protocol: C PARAMETER VAXNET = 0 ! Normal VAXNET protocol. PARAMETER XMODEM = 1 ! CPM XMODEM protocol (FTP 3). PARAMETER KERMIT = 2 ! Kermit protocol. C C Type of file being transfered. C PARAMETER ASCII = 0 ! Type of file is ASCII. PARAMETER BINARY = 1 ! Type of file is BINARY. PARAMETER BLOCK = 2 ! Use 512 byte blocks. C C Define the I/O functions. C PARAMETER (IO$_READLBLK = '00000021'X) PARAMETER (IO$_READPROMPT = '00000037'X) PARAMETER (IO$_SETMODE = '00000023'X) PARAMETER (IO$_SENSEMODE = '00000027'X) PARAMETER (IO$_TTYREADALL = '0000003A'X) PARAMETER (IO$_WRITELBLK = '00000020'X) PARAMETER (IO$M_CTRLCAST = '00000100'X) PARAMETER (IO$M_CVTLOW = '00000100'X) PARAMETER (IO$M_HANGUP = '00000200'X) PARAMETER (IO$M_NOECHO = '00000040'X) PARAMETER (IO$M_NOFORMAT = '00000100'X) PARAMETER (IO$M_OUTBAND = '00000400'X) PARAMETER (IO$M_PURGE = '00000800'X) PARAMETER (IO$M_RD_MODEM = '00000080'X) PARAMETER (IO$M_TIMED = '00000080'X) PARAMETER (IO$M_TYPEAHDCNT= '00000040'X) C C Define the status return codes. C PARAMETER (SS$_ABORT = '0000002C'X) PARAMETER (SS$_CONTROLC = '00000651'X) PARAMETER (SS$_CONTROLY = '00000611'X) PARAMETER (SS$_DATAOVERUN = '00000838'X) PARAMETER (SS$_DEVALLOC = '00000840'X) PARAMETER (SS$_DEVALRALLOC= '00000641'X) PARAMETER (SS$_EXQUOTA = '0000001C'X) PARAMETER (SS$_HANGUP = '000002CC'X) PARAMETER (SS$_NOPRIV = '00000024'X) PARAMETER (SS$_NOTRAN = '00000629'X) PARAMETER (SS$_NORMAL = '00000001'X) PARAMETER (SS$_PARITY = '000001F4'X) PARAMETER (SS$_TIMEOUT = '0000022C'X) C C End of COM.INC. C