ASMB,R,Q,C,Z
      IFZ 
      HED RJE WITH FMP INTERFACE [Z] * (C) HEWLETT-PACKARD CO.1979 *
      NAM RJE,19,50 91780-16011 REV.2013 800123 
      XIF 
      IFN 
      HED RJE WITHOUT FMP INTERFACE [N] * (C) HEWLETT-PACKARD CO. 1979 *
      NAM RJE,3,50 UNRELEASED 91780-16002 UPDATE
      XIF 
* 
*    NAME:         RJE          "REMOTE JOB ENTRY"
*    SOURCE:       91780-18011   -      -   - 
      UNL 
      IFZ 
      LST 
*    RELOC:        91780-16011  [FMP VERSION: 'Z' ASSEMBLY OPTION]
      UNL 
      XIF 
      IFN 
      LST 
*    RELOC:        91780-16002  [NON-FMP VERSION: 'N' ASSEMBLY OPTION]
      UNL 
      XIF 
      LST 
*    PGMR:         R. PASSMORE  ( 11/20/73 )
* 
*    MODIFIED BY:  R. SHATZER, R. FUNK, P. KAPOOR  ( 01/11/75 ) 
*                  C. WHELAN    ( 10/31/75 )
*                  C. HAMILTON  ( 04/12/77 )
*                  D.B. & R.G.  ( 08/11/78 )
*                  R.G. ( 01/31/79 )
*                  R.G. ( 04/26/79 )
*                  R.G. ( 10/09/79 )
*                  R.G. ( 01/23/80 )
* 
*  *****************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS       *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT  *
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.         *
*  *****************************************************************
* 
      ENT RJE 
      EXT $LIBR,$LIBX,$OPSY,EXEC
      EXT #BSC,#TIME,#CTRL,#CMBF,#WRBF,#RDBF
      UNL 
      IFZ 
      LST 
      EXT PARSE,REIO,PRTN,IFBRK,.MVW
      EXT #TFLG 
      EXT OPEN,CLOSE,CREAT,READF,WRITF,#RDCB,#LDCB,#PDCB
      UNL 
      XIF 
      IFN 
      LST 
      EXT #INGT 
REIO  EQU EXEC
      UNL 
      XIF 
      LST 
      EXT LURQ
      SUP 
* 
*  THE PROGRAM RJE, WITH THE BISYNC DRIVER (DVR50, AND #BSC)
*  EMULATES THE IBM 2780 REMOTE BATCH TERMINAL TO PROVIDE A 
*  COMMUNICATIONS LINK TO IBM 360/370 COMPUTERS FROM THE
*  RTE-II,III,IV AND RTE-C ENVIRONMENTS. (WITH RTE-C IS UNSUPPORTED)
      SKP 
*********************************************************************** 
*                      RJE PARAMETERS 
* 
*  UP TO FIVE OPTIONAL PARAMETERS MAY BE SPECIFIED WHEN SCHEDULING
*  RJE. THE MEANING OF THESE PARAMETERS ARE:
* 
*         P1.......LOGICAL UNIT OF DVR50 (DEFAULT CAUSES SEARCH)
*         P2.......MODE PARAMETER.  POSSIBLE VALUES ARE:
*                     0=INPUT AVAILABLE,LOCAL DIAL,NON TRANSPARENT
*                     1=NO INPUT, LOCAL DIAL, NON TRANSPARENT 
*                     2=INPUT AVAILABLE, LOCAL ANSWER, NON TRANS. 
*                     3=NO INPUT, LOCAL ANSWER, NON TRANSPARENT 
*                     4=INPUT AVAILABLE, LOCAL DIAL, TRANSPARENT
*                     5=NO INPUT, LOCAL DIAL, TRANSPARENT 
*                     6=INPUT AVAILABLE, LOCAL ANSWER, TRANSPARENT
*                     7=NO INPUT, LOCAL ANSWER, TRANSPARENT 
* 
*                     ADD 16384 FOR DIAGNOSTIC MODE.
* 
      UNL 
      IFZ 
      LST 
*         P3-P5.....THREE CASES: 1) LOGICAL UNITS OF INPUT, LIST, 
      UNL 
      XIF 
      IFN 
      LST 
*         P3-P5.......TWO CASES: 1) LOGICAL UNITS OF INPUT, LIST, 
      UNL 
      XIF 
      LST 
*                          AND PUNCH DEVICES, RESPECTIVELY. 
*                                2) P3=(LOGICAL UNIT + 100) OF
*                          DEVICE USED TO SPECIFY INPUT, LIST AND PUNCH.
      UNL 
      IFZ 
      LST 
*                                3) P3-P5 CONTAIN ASCII FILE NAME 
*                          USED TO SPECIFY INPUT, LIST, AND PUNCH.
      UNL 
      XIF 
      LST 
* 
* 
*   DEFAULT VALUES ARE P2=0, P3=5, P4=6, P5=4 
* 
* 
      UNL 
      IFZ 
      LST 
*    WHEN CASE TWO OR THREE IS USED, THE DEVICES ARE SPECIFIED
*    IN THIS FORMAT:
* 
*        [INPUT LU OR FN][,LIST LU OR FN][,PUNCH LU OR FN]
*                   ( FN = FNAMER[:SC[:CR]] ) 
* 
*    NON-EXISTING FILES ARE CREATED FOR LIST AND PUNCH STREAMS. 
*            ( FILE-TYPE = 3, FILE SIZE = 24 BLOCKS ) 
      UNL 
      XIF 
      IFN 
      LST 
*    WHEN CASE TWO IS USED, THE DEVICES ARE SPECIFIED IN THIS FORMAT: 
* 
*              [ INPUT LU ] [ ,LIST LU ] [ ,PUNCH LU ]
      UNL 
      XIF 
      LST 
* 
*    ALL READ REQUESTS TO THE SYSTEM CONSOLE ARE PRECEEDED BY 
*    THE PROMPT #.
* 
*    FILE NAMES ARE ACCEPTED FOR I/O ONLY WHEN THE FILE MANAGER 
*    VERSION IS BEING USED. 
* 
* 
****************************************************************************
      SKP 
*************************************************************************** 
*                     SYSGEN REQUIREMENTS 
* 
*  THE 12618A SYNCHRONOUS MODEM INTERFACE KIT AND APPROPRIATE DATA
*  SET ARE REQUIRED TO COMMUNICATE.  INSTALLATION OF THIS PACKAGE 
*  FOLLOWS NORMAL RTE/RTE-C SYSGEN PROCEEDURES.  THE DRIVER, DVR50
*  MUST BE INSTALLED AS PRIVILEDGED (OPTION P23 IN RTE).
* 
*  RJE IS RECOMMENDED BACKGROUND DISC RESIDENT IN RTE, AND IS NOT 
*  SWAPPABLE WHEN #BSC IS ATTACHED.  ON LINE LOADING OF RJE IS
*  RECOMMENDED IN RTE-C DUE TO THE PROGRAM SIZE.
* 
*  #BSC MAY BE CONFIGURED AS A RESIDENT LIBRARY ROUTINE, MAKING 
*  RJE SWAPPABLE.  LARGE BATCH ORIENTED SYSTEMS MAY PREFER THIS 
*  CONFIGURATION WITH RJE FORGROUND DISC RESIDENT.
* 
* 
****************************************************************************
*                     DIALING CAPABILITY
* 
*  DURING ITS OPERATION, RJE WILL SCHEDULE A PROGRAM, #DIAL 
*  TO PROVIDE DIALING CAPABILITY.  THE HP SUPPLIED VERSION PRINTS 
*  A MESSAGE FOR MANUAL DIALING.  THE USER MAY SUPPLY HIS OWN 
*  VERSION FOR AUTO DIALING, ETC. 
* 
* 
*************************************************************************** 
*                     DATA FORMAT 
* 
*  DATA TRANSMISSION IS ON A UNIT RECORD (CARD IMAGE) BASIS, WITH 
*  MULTIRECORD BLOCKING USED TO FILL A 400 CHARACTER BUFFER. THE
*  EM CHARACTER MAY BE USED TO SUPPRESS TRAILING BLANKS.
* 
*  HORIZONTAL TAB, VERTICAL FORMAT CONTROL, DEVICE SELECTION, 
*  AND TRANSPARENCY ARE ALSO SUPPORTED. 
* 
*  IF TRANSPARENT MODE IS SPECIFIED, THE INPUT "FILE" IS NOT
*  TRANSLATED INTO THE PROPER LINE CODE, BUT BINARY TRANSMISSION
*  OF 80 CHARACTER RECORDS IS POSSIBLE.  ON RECEPTION, THE LIST 
*  STREAM IS ALWAYS TRANSLATED, BUT THE PUNCH STREAM IS TRANSLATED
*  ONLY IN NON TRANSPARENT OPERATION, OR IF DIRECTED TO LPT OR TTY. 
* 
*************************************************************************** 
      SKP 
*************************************************************************** 
*               COMMANDS USED IN INPUT STREAM 
* 
*  INPUT-EOF CAUSES A LINE TURNAROUND, AND, FOLLOWING THE RECEPTION OF ONE
*  FILE, TERMINATION OF RJE.
* 
*  TEN SPECIAL CONTROL RECORDS ARE RECOGNIZED IN THE INPUT STREAM:
* 
*    #E RECORD TRANSMITS THE CURRENT DATA BUFFER & CAUSES A LINE TURNAROUND.
* 
*    #P [,N [,M]] PAUSES FOR N LONG TIMEOUTS TO WAIT FOR UP TO M OUTPUTS. 
*  N OR M EQUAL TO -1 MEANS INFINITE: #P,3,-1 = #R , #P = #E , #P,-1 = #W 
* 
*    #C [,XX] RECORD CAUSES RECONFIGURATION OF I/O DEVICES. [XX] IS OF THE
      UNL 
      IFZ 
      LST 
*  SAME FORMAT AS CASE TWO OR THREE FOR P3, ABOVE, BUT DEFAULT =NO CHANGE.
      UNL 
      XIF 
      IFN 
      LST 
*  SAME FORMAT AS CASE TWO FOR P3, ABOVE, BUT DEFAULT = NO CHANGE.
      UNL 
      XIF 
      LST 
* 
*    #I RECORD CAUSES A TTY FILE TO BE INSERTED IN THE INPUT STREAM 
*  UNTIL AN EOF IS READ FROM THE TTY, OR #P, #E, #R, #W IS USED.
*  WHEN THIS HAPPENS, THE INSERT IS TERMINATED. 
* 
*    #R RECORD IS EQUIVALENT TO A #P,3,-1.
* 
*    #W RECORD SPECIFIES CONTINUAL WAIT FOR ONE OUTPUT FROM THE REMOTE. 
*  THE WAIT INTERVAL MAY BE TERMINATED VIA OPERATOR INTERRUPT.
*  (*BR,RJE--FMP VERSION, OR *ON,#INRP--NON-FMP VERSION)
* 
*    #D RECORD CAUSES IMMEDIATE TERMINATION.
* 
*    #T [,XX] RECORD ENABLES TRANSPARENT MODE FROM THE CURRENT INPUT STREAM.
      UNL 
      IFZ 
      LST 
*  'XX' = LU OR FILE FROM WHICH INPUT WILL BE DERIVED UPON DETECTION OF 
      UNL 
      XIF 
      IFN 
      LST 
*  'XX' = LU FROM WHICH INPUT WILL BE DERIVED UPON DETECTION OF 
      UNL 
      XIF 
      LST 
*  END-OF-FILE ON THE CURRENT INPUT-STREAM. 'XX' HAS THE SAME FORMAT AS 
      UNL 
      IFZ 
      LST 
*  CASE TWO OR THREE FOR P3, AND MAY ALSO BE USED TO RE-CONFIGURE THE 
      UNL 
      XIF 
      IFN 
      LST 
*  CASE TWO FOR P3, AND MAY ALSO BE USED TO RE-CONFIGURE THE
      UNL 
      XIF 
      LST 
*  LIST AND PUNCH STREAM DEVICES AS IN #C. NOTE THAT #COMMANDS, E.G. #P 
*  RECORDS, ARE TREATED AS DATA, NOT COMMANDS, IN TRANSPARENT MODE. 
* 
*    #X COMMAND FORCES TRANSLATION OF TRANSPARENT DATA IN THE PUNCH STREAM. 
*   #X IS CANCELLED AT RECEIPT OF 'EOT' IN PUNCH STREAM OR ENTRY OF THE 
*   #C COMMAND, OR INVOCATION OF #T STREAM CHANGES AFTER EOF FROM INPUT.
* 
*    #S COMMAND IS USED TO SWITCH ON OR OFF THE DIAGNOSTIC MESSAGES 
*  CAPABILITY OR THE TRACE FEATURE. THIS COMMAND MAY ALSO APPEAR IN 
*  A CONFIGURATION DATA STREAM, E.G. #S,T,ON  => TURN ON TRACE MODE.
* 
****************************************************************************
*                RTE INTERRUPT FEATURE
* 
*  THE RTE OPERATOR INTERRUPT FEATURE IS SUPPORTED, AND CAUSES
*  INTERRUPTION OF THE OUTPUT STREAM AND INSERTION (#I) OF A TTY
*  FILE IN THE INPUT STREAM 
* 
****************************************************************************
      SKP 
*************************************************************************** 
*              DIAGNOSTIC AND ERROR MESSAGES
* 
* RJE PRINTS AN ON MESSAGE, A TERMINATION MESSAGE, AND ERROR
* MESSAGES WITH THE FORMAT " RJE: XX" WHERE XX HAS VALUES WHOSE 
* MEANINGS ARE: 
* 
* 50...INITIALIZATION REQUEST ISSUED TO DRIVER
* 51...#DIAL SCHEDULED
* 52...HANDSHAKE REQUEST ISSUED 
* 53...ANSWER REQUEST ISSUED
* 54...WRITE REQUEST ISSUED 
* 55...READ REQUEST ISSUED
* 56...SEND EOT REQUEST ISSUED
* 57...RECEIVE TO SEND REQUEST ISSUED 
* 58...DISCONNECT REQUEST ISSUED
* 59...EXTENDED STATUS REQUEST ISSUED 
* 60...IRRECOVERABLE LINE ERROR 
* 61...TERMINAL ON LINE 
* 62...TRANSMIT MODE
* 63...RECEIVE MODE 
* 64...RVI RECEIVED 
* 65...BUFFER OVERFLOWED
* 66...CONTROL MODE 
* 67...WAITING FOR REMOTE MODEM...
* 
*        NOTE THAT CODES 50-67 ARE PRINTED ONLY IN DIAGNOSTIC 
*          MODE, AND ARE INFORMATION MESSAGES, NOT ERROR
*          MESSAGES.
* 
* 20...SECURITY CODE VIOLATION (#BSC NOT FOUND IN CORE) 
* 21...PASSWORD VIOLATION (ANOTHER PROGRAM HAS INITIALIZED THE DRIVER)
* 22...ILLEGAL MODE FOR REQUEST ISSUED TO DRIVER
* 23...ILLEGAL BUFFER FORMAT GIVEN TO DRIVER
* 24...ILLEGAL BISYNC SEQUENCE RECEIVED REPEATEDLY
* 25...LOSS OF CLEAR TO SEND
* 26...8 NAK CHARACTERS SENT (GARBAGE RECEIVED) 
* 27...8 NAK CHARACTERS TRANSMITTED (GARBAGE TRANSMITTED) 
* 
* 30...RECEIVE TIMEOUT OCCURRED REPEATEDLY
* 31...LONG TIMEOUT FAILURE 
* 32...LINE TERMINATION SEQUENCE SENT (DLE/EOT) 
* 33...LINE TERMINATION SEQUENCE RECEIVED (DLE/EOT) 
* 34...LOSS OF DATA SET READY SIGNAL
* 35...LOSS OF CARRIER DETECT DURING RECEIVE (REPEATEDLY) 
* 36...TTD OR WACK LIMIT EXCEEDED 
* 37...REQUEST TIMEOUT DURING CONTROL MODE
* 
* 
*         NOTE THAT CODES 20-37 REPORT ERRORS WHICH WERE DETECTED 
*            IN THE DRIVER, AND ARE CONSIDERED IRRECOVERABLE. 
* 
      SKP 
* 
* 40...NAK READ REQUEST ISSUED 3 TIMES
* 41...REMOTE DOES NOT RESPOND TO BID FOR LINE (HANDSHAKE REQUEST)
* 42...I/0 DEVICE ERROR 
* 43...I/O CONFIGURATION PARAMETER ERROR
* 44...LOGICAL UNIT NUMBER INVALID
* 45...DVR50 NOT AVAILABLE (DEVICE DOWN, OR IN USE BY ANOTHER PROG) 
* 46...I/O REQUEST REJECTED BY DVR50
* 47...USER REQUEST TO ABORT RJE
      UNL 
      IFZ 
      LST 
* 48...TIMEOUT AND CONTROL MODIFICATION PARAMETER ERROR 
* 
* 
*          NOTE THAT CODES 40-48 ARE ERRORS DETECTED BY RJE.
      UNL 
      XIF 
      IFN 
      LST 
* 
* 
*          NOTE THAT CODES 40-47 ARE ERRORS DETECTED BY RJE.
      UNL 
      XIF 
      IFZ 
      LST 
* 
* 
* 01...FMGR ERROR -1
* 02...FMGR ERROR -2
* 03...FMGR ERROR -3
* 04...FMGR ERROR -4
* 05...FMGR ERROR -5
* 06...FMGR ERROR -6
* 07...FMGR ERROR -7
* 08...FMGR ERROR -8
* 09...FMGR ERROR -9
* 
* 10...FMGR ERROR -10 
* 11...FMGR ERROR -11 
* 12...FMGR ERROR -12 
* 13...FMGR ERROR -13 
* 14...FMGR ERROR -14 
* 15...FMGR ERROR -15 
* 16...FMGR ERROR -16 
* 17...FMGR ERROR -17 
* 
* 
*          NOTE THAT CODES 00-17 ARE ERRORS ENCOUNTERED BY THE
*            FILE MANAGER, AND ARE CONSIDERED IRRECOVERABLE BY
*            RJE. 
* 
      UNL 
      XIF 
      LST 
* 
* 
****************************************************************************
      SKP 
*************************************************************************** 
*********** THIS IS AN ENHANCED VERSION OF RJE CREATED 11/11/76   ********* 
*********** IT CONTAINS THE FOLLOWING CHANGES:                    ********* 
* 
*   ->  DOES A CORELOCK TO PREVENT SWAPPING IF #BSC IS DISC-RESIDENT. 
*   ->  WHEN ENTERING CONFIGURATION DATA, THE COMMAND "#!" WILL ABORT RJE.
      UNL 
      IFZ 
      LST 
*   ->  IF THE FIRST RECORD OF CONFIGURATION DATA IS OF THE FORMAT: 
*              -----
*       #M,CODE [,PAD [,DUPLEX [,RCVTO [,XMITO [,LNGTO [,TTDWK ]]]]]] 
* 
*       RJE MAY BE CONFIGURED FOR THE FOLLOWING OPERATING OPTIONS:
* 
*       CODE*   =  EBCDIC/ASCII    COMMUNICATION LINE CODE TO BE USED.
*       PAD*    =  PAD/EOM         PAD WITH BLANKS/TERMINATE WITH 'EOM'.
*       DUPLEX* =  HALF/FULL       MODEM OPERATIONAL MODE.
*       RCVTO   =  NNNNN (+10'S OF MSEC.>=+200) RECEIVE TIMEOUT.
*       XMITO   =  NNNNN (+10'S OF MSEC.>=+100) TRANSMIT TIMEOUT. 
*       LNGTO   =  NNNNN (+10'S OF MSEC.>=+400) LONG TIMEOUT. 
*       TTDWK   =  NNNNN (POSITIVE COUNT >=400) NO.OF TTD/WACK SEQUENCES. 
* 
*       PARAMETERS INDICATED WITH '*' SUFFIX ARE ENTERED AS ASCII;
*        (CODE,PAD,DUPLEX ARE ASCII; OTHERS ARE NUMERIC <= +32767)
*       AT LEAST ONE PARAMETER MUST BE ENTERED; OTHERS ARE OPTIONAL.
*       CURRENT VALUES ARE UNCHANGED WHEN ",," PLACE-HOLDERS ARE ENTERED. 
*       INITIAL VALUES ARE DEFINED BY <#COMN>. IF <#COMN> IS CORE-RESIDENT, 
*        CHANGED VALUES REMAIN IN EFFECT, UNTIL FURTHER MODIFIED, OR UNTIL
*        THE SYSTEM IS RE-BOOTED FROM DISC. 
* 
*   ->  NON-EXISTING LIST AND/OR PUNCH-STREAM FILES ARE CREATED.
*   ->  THE RTE "BR" COMMAND IS USED INSTEAD OF THE OPERATOR
*       SCHEDULING "#INRP".  "#INRP" & "#INXT" ARE NO LONGER NEEDED.
*   ->  "PRTN" IS CALLED TO REPORT ERRORS BACK TO THE SCHEDULING
*       PROGRAM.  THE FIVE PARAMETERS ARE AS FOLLOWS: 
*        P1 = INDICATES ABORT IF BIT 15 SET 
*        P2 = LOWER 8 BITS OF EQT WORD 5
*        P3 = EQT WORD 12 
*        P4 = FMP ERROR CODE
*        P5 = LAST ERROR CODE (IN ASCII) REPORTED TO SYSTEM CONSOLE 
*       NOTE THAT NORMAL COMPLETION IS INDICATED BY P3 = 2000B. 
      UNL 
      XIF 
      LST 
*   ->  TRANSMITTED RECORDS WILL NORMALLY BE PADDED OUT TO 80 
*       CHARACTERS WITH BLANKS.  END-OF-MEDIA CHARACTERS WILL ONLY
*       BE USED(AS PREVIOUSLY) IF BIT 1 OF WORD #5 IN "#COMN" IS SET. 
      UNL 
      IFZ 
      LST 
*   ->  RE-ENTRANT I/O ("REIO") IS USED FOR ALL UNIT-RECORD DEVICE
*       READ/WRITES. THIS PERMITS SWAPPING OF RJE WHILE IN I/O SUSPEND. 
      UNL 
      XIF 
      LST 
*   ->  DVR05 ( 2640/2644/2645 ) TERMINAL OPERATION IS SUPPORTED. 
*   ->  ASCII AND EBCDIC ARE BOTH HANDLED BY THIS VERSION OF RJE. 
*       ASCII TRANSLATION IS SELECTED BY SETTING BIT 2 IN THE 
*       #CTRL WORD OF "#COMN".
*   ->  #W COMMAND ADDED: CONTINUAL WAIT FOR OUTPUT FROM REMOTE.
*   ->  #T[,XX] ALLOWS 'XX' TO RECONFIGURE ALL STREAMS AS IN #C[,XX]. 
*   ->  THIS SOURCE SUPPORTS BOTH THE FMP AND NON-FMP VERSIONS OF 
*       RJE.  TO ASSEMBLE THE FMP VERSION, INCLUDE THE CONDITIONAL
*       ASSEMBLY "Z" OPERATOR ON THE ASSEMBLER CONTROL CARD. TO 
*       ASSEMBLE THE NON-FMP VERSION, USE THE "N" OPERATOR INSTEAD. 
*   ->  PARTS OF RJE HAVE BEEN RECODED TO DECREASE ITS SIZE AND 
*       BASE PAGE LINKAGE REQUIREMENTS. 
*   ->  RJE,#BSC, AND DVR50 HAVE BEEN MODIFIED FOR RTE-III OPERATION. 
*************************************************************************** 
* 
* 
* 
****************************************************************************
****************************************************************************
****************************************************************************
*                PCO 1840           AUGUST 11,1978
****************************************************************************
* 
*  THIS VERSION OF RJE DOES NOT BID FOR THE LINE UNLESS IT HAS
*  DATA TO SEND. THIS PREVENTS THE "READER ACTIVE" DEADLOCK 
*  WHICH WAS CAUSED BY BIDDING FOR THE LINE AND THEN TURNING
*  IT AROUND BY SENDING EOT WITHOUT HAVING SENT DATA. 
* 
*   TO COPE WITH MULTIPLE RETURNING OUTPUTS, #P COMMAND WAS ADDED.
* 
*   DIAGNOSTIC MESSAGES AND ERROR MESSAGES AND INFORMATION MESSAGES 
*   ARE NOW PRINTED IN ASCII FOR FMP VERSIONS.
* 
*   A TRACE CAPABILITY NOW EXISTS WHICH ALLOWS RECORDING OF ALL 
*   BYTES SENT AND RECEIVED OVER THE LINE.
* 
*   TRACE AND DIAGNOSTICS MODE MAY BE SWITCHED ON OR OFF AT ANY TIME
*   BY USE OF THE #S COMMAND. 
* 
*........................................................................ 
* 
*                 BUGS FIXED: 
* 
*  PARSING BUG IN CONFIGURATION FILE INPUT FILENAME RECOGNITION.
*    (CAN NOW BE LESS THAN SIX CHARACTERS.) 
* 
*  COMMUNICATIONS BUFFER OVERLAP. 
* 
*  #I USED TO CAUSE BID FOR THE LINE. 
* 
*  18.2 HR IN AUTO ANSWER USED TO HANG SYSTEM.
* 
*  DID NOT RECOGNIZE SECURITY CODE > 72.
* 
*  #R WAITED FOR FOUR LONG TIMEOUTS INSTEAD OF THREE. 
* 
*  BAD SYN CHARACTER SEARCH COULD CAUSE TO BE LOCKED OUT OF SYNC. 
* 
*  END OF MEDIA EM NOW IS BYPASSED ONLY ON VERY FIRST RECORD. 
* 
*  TROUBLE WITH 80 CHARACTER FIRST RECORDS. 
* 
*  IF SENT NAK AND TIMED OUT RECEIPT OF ANSWER SYSTEM WOULD HANG. 
* 
**************************************************************************
**************************************************************************
      SKP 
**************************************************************************
*                    PCO 1913      JANUARY 31,1979
* 
*      CHANGES MADE INCLUDE:
* 
*      1. USE OF EXEC 13 INSTEAD OF REFERENCING THE DRT DIRECTLY
*         IN DETERMINING DEVICE TYPE. 
* 
*      2. CLEAN UP OF THE TERMINATION SEQUENCE (EXIT).
* 
*************************************************************************** 
*************************************************************************** 
*                    PCO 1926    APRIL 26,1979
* 
*            RTE-IVB SESSION MONITOR COMPATIBILITY! 
* 
*************************************************************************** 
*************************************************************************** 
*                    PCO 2001    OCTOBER 9, 1979
* 
*     NOTE:  #BSC HAS BEEN CHANGED ALSO FOR PCO 2001!!! 
* 
*          1.  FIXED P2 INPUT RECOGNITION BUG.
* 
*          2.  CHANGED BUFFER ADDRESS FOR WRITES AND READS TO 
*              DVR50 FOR COMPATIBILITY WITH PCO 1926 OF RTE.
*              THIS WILL INSURE THAT THE USER MAP WILL BE ENABLED 
*              WHEN THE DRIVER IS ENTERED.
* 
*************************************************************************** 
*************************************************************************** 
*                    PCO 2013    JANUARY 23, 1980 
* 
*    NOTE:  ONLY RJE MODULE IS CHANGED FOR PCO 2013.
* 
*      REASON:  JES3 HAS LINE FILL SEQUENCE WHEN NOTHING TO SEND. 
*               ENQ(3 SEC),EOT(10 SEC),ENQ... 
*               IT EXPECTS A REPLY TO THE ENQ WITHIN 16 ENQS OR 
*               ELSE IT WILL GIVE UP.  ACK0 OR NAK WORK.
*               DO A #P TYPE WAIT COMMAND OR A #W.
* 
*               IN OTHER WORDS, JES3 HAS A CONTROL MODE TIMEOUT 
*               OF ITS OWN, APART FROM RJE'S. 
* 
*               RJE WOULD WAIT FOREVER AFTER A #P, HOWEVER. 
*               CODE HAS BEEN CHANGED SO THAT RECEIPT OF AN EOT 
*               AFTER AN ENQ (WITHOUT DATA) WILL DECREMENT THE
*               WAIT COUNT BY ONE (13 SEC COUNTS AS 20 IN THIS CASE). 
* 
*     CHANGED:  IN RECEIVE PROCESS, LOOK FOR (JES3).
* 
***************************************************************************** 
                                                                                                                                                                                                                  