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, MBXCHAN_IN, MBXCHAN_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, MBXCHAN_IN, MBXCHAN_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, 2 CMD_SIZE, MODEM_SIZE, LOGIN_SIZE, USER_SIZE, PASSWORD_SIZE, 3 LOGOUT_SIZE, TYPEAHEAD_LIMIT, AUTODIAL_TYPE, MAX_TYPEAHEAD, 4 LMAX_TYPEAHEAD, MAX_RECSIZE, RSIZE, VSIZE, PROTOCOL, BITMASK, 5 TSIZE, TTY_WIDTH, FILE_TYPE, VCMD_SIZE, DIALER_SIZE, 6 DIALER_RATE, DSPEED_SIZE, PARITY_SIZE, REMOTE_PARITY, 7 DUMPD_SIZE, DUMPT_SIZE, PROMPT_SIZE, START_SIZE, VERIFY_SIZE, 8 RDELAY_SIZE, WDELAY_SIZE, PHOCOM_START, PHOCOM_END, 9 LOCAL_MBX_SIZE COMMON /SIZES/ LOCAL_SIZE, REMOTE_SIZE, SPEED_SIZE, SYSTEM_SIZE, 1 LOGFILE_SIZE, INFILE_SIZE, OUTFILE_SIZE, PHONE_SIZE, 2 CMD_SIZE, MODEM_SIZE, USER_SIZE, PASSWORD_SIZE, 3 LOGIN_SIZE, LOGOUT_SIZE, TYPEAHEAD_LIMIT, RSIZE, VSIZE, 4 PROTOCOL, BITMASK, TSIZE, TTY_WIDTH, FILE_TYPE, VCMD_SIZE, 5 DIALER_SIZE, DIALER_RATE, DSPEED_SIZE, PARITY_SIZE, 6 REMOTE_PARITY, DUMPD_SIZE, DUMPT_SIZE, PROMPT_SIZE, 7 START_SIZE, VERIFY_SIZE, RDELAY_SIZE, WDELAY_SIZE, 8 PHOCOM_START, PHOCOM_END, LOCAL_MBX_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 PHONE_UNIT = 4 ! Unit # for phone log. 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 = 510 ! Log file buffer size. PARAMETER MAX_MBX_SIZE = 256 ! Maximum size of mailbox message. PARAMETER PHONELOG_SIZE = 256 ! Phone log file 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 LAST_LOCAL_CHAR(1) ! Last local input 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, MODEM_CHECK, 1 CALL_ME_BACK, LOCAL_MBX_ASSIGNED, PASTHRU_ENABLED 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, LAST_LOCAL_CHAR, MODEM_CHECK, 1 CALL_ME_BACK, LOCAL_MBX_ASSIGNED, PASTHRU_ENABLED C C Character strings for filenames, system type, baud rate, etc. C CHARACTER*8 ACCOUNT_NAME CHARACTER*10 SYSTEM_TYPE, REMOTE_BAUD, MODEM_TYPE, TERMINAL_TYPE CHARACTER*10 DIALER_SPEED, DUMP_DELAY, PARITY_TYPE, READ_DELAY CHARACTER*10 WRITE_DELAY CHARACTER*12 USER_NAME CHARACTER*63 LOCAL_MBX_NAME CHARACTER*80 CMD_PROMPT, DUMP_TERM, PROGRAM_START, PROGRAM_VERIFY CHARACTER*80 LOCAL_DEVICE, REMOTE_DEVICE, LOGIN_CMD, LOGOUT_CMD CHARACTER*80 PHONE_NUMBER, 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, 2 REMOTE_DEVICE, INTERRUPT_CHAR, PHONE_NUMBER, MODEM_TYPE, 3 CMD_FILE, LOG_FILE, LOGIN_CMD, LOGOUT_CMD, USER_NAME, PASSWORD, 4 TERMINATE_CHAR, MODE, RINDEX, FLOW, BAUD_RATE, TERMINAL_TYPE, 5 SCRATCH, TEMP_FILE, VCMD_FILE, DIALER_PORT, DIALER_SPEED, 6 PARITY_TYPE, DUMP_DELAY, DUMP_TERM, CMD_PROMPT, PROGRAM_START, 7 PROGRAM_VERIFY, READ_DELAY, WRITE_DELAY, ACCOUNT_NAME, 8 LOCAL_MBX_NAME 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. PARAMETER AJ = 10 ! Anderson Jacobson AJ1259. PARAMETER NULLMODEM = 11 ! Null Modem (for X.25 port). PARAMETER VENTEL31 = 12 ! VENTEL 1200-31 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 and system service status codes. C INCLUDE '($IODEF)/NOLIST' INCLUDE '($SSDEF)/NOLIST' C C End of COM.INC. C