; 22 jly 85 esj converted and eliminated uneeded globals
;;;;;;;;;;;;;;  KERCOM         ;;;;;;;;;;;;;;;;;;;;;;;
;     DEFINITION OF KEY GLOBAL VARIABLES FOLLOWS:

;     DELAY        - # of seconds waited before sending out the first
;                  - SINIT packet ( only in remote mode).
;     EOL          - End of line delimiter required by other KERMITS.
;     ESCHAR       - The character used to return back to command parser
;                  - from 'CHAT' mode.
;     FD           - The file descriptor of sending/receiving
;                  - file
;     FILNAME(*) - The integer array which holds  The currrent working
;                  - filename
;     HOSTON       - Identifies whether this KERMIT is running in local
;                  - or remote mode.
;     IBMON        - Identifies whether this KERMIT is talking to an
;                  - IBM CMS system.
;     MAXTRY       - Maximum number of re-try before giving up
;     MYEOL        - The end of line delimiter selectable by users
;     MYPAD        - The # of pad characters required by this KERMIT
;     MYPCHAR      - The pad character required by this KERMIT
;     MYQUOTE      - The quote  used for control s
;                  - by this KERMIT slectable by user
;     N            - The number of the current packet frame number
;     NUMTRY       - The number of re-try attempt so far
;     OLDTRY       - The number of re-try already attempted
;     PACKET(*)  - An integer array to hold the content of a packet
;     PAD          - The # of pad characters required by other KERMIT
;     PADCHAR      - The pad character to used if required by other KERM
;     PAKSIZ       - The maximum packet size selectable by users
;     PROMPT       - The turnaround control character this KERMIT looks
;                  - for in file transfer with IBM.
;     QUOTE        - The quote character used for control character used
;                  - by other KERMITS
;     RECPKT(*)  - An integer array which holds the incoming packet
;     RMTDEV(*)  - The remote (TTY) line KM will be the default name
;                  - RMTDEV(1) = IOFLAG FOR THE UNIT
;     LOCALDEV(*)- Local (tty) (login line) SD is the device name
;                  - LOCALDEV(1) = IOFLAG FOR THE UNIT
;     RMTTTY(*)  - An integer array which hold the un-login line
;                  - for file-transfer.
;     RPSIZ        - maximum size of packet to be receive
;     SBAUD        - whether this system supports baud switching
;     SIZE         - maximum size of data packet to be sent
;     SOH          - The start of header used in sending packet; selecta
;                  - by user
;     SPARITY      - whether this system supports parity switching
;     SPORT        - whether this system supports remote line switching
;     SPSIZ        - Maximum size of packet to be used for sending
;     STATE        - Current state of file transfer processs


      G'L   DELAY,EOL,ESCHAR,FD(*),FILNAME(*),HOSTON
      G'L   IBMON,MAXTRY
      G'L   MYEOL,MYPAD,MYPCHAR,MYQUOTE,N,NUMTRY,OLDTRY
      G'L   PACKET(*),PAD,PADCHAR,PAKSIZ,PROMPT
      G'L   QUOTE,RECPKT(*),RMTDEV(*),RMTTTY(*)
      G'L   RPSIZ,SBAUD,SIZE,SOH,SPARITY,SPORT,SPSIZ
      G'L   STATE
      G'L   LOCALDEV(*) ; replaced --> LOCALINFD
                        ; NOT USED --> LOCALOUTFD

.