home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.sym.equ.kercom < prev    next >
Text File  |  2020-01-01  |  3KB  |  62 lines
  1. ; 22 jly 85 esj converted and eliminated uneeded globals
  2. ;;;;;;;;;;;;;;  KERCOM         ;;;;;;;;;;;;;;;;;;;;;;;
  3. ;     DEFINITION OF KEY GLOBAL VARIABLES FOLLOWS:
  4.  
  5. ;     DELAY        - # of seconds waited before sending out the first
  6. ;                  - SINIT packet ( only in remote mode).
  7. ;     EOL          - End of line delimiter required by other KERMITS.
  8. ;     ESCHAR       - The character used to return back to command parser
  9. ;                  - from 'CHAT' mode.
  10. ;     FD           - The file descriptor of sending/receiving
  11. ;                  - file
  12. ;     FILNAME(*) - The integer array which holds  The currrent working
  13. ;                  - filename
  14. ;     HOSTON       - Identifies whether this KERMIT is running in local
  15. ;                  - or remote mode.
  16. ;     IBMON        - Identifies whether this KERMIT is talking to an
  17. ;                  - IBM CMS system.
  18. ;     MAXTRY       - Maximum number of re-try before giving up
  19. ;     MYEOL        - The end of line delimiter selectable by users
  20. ;     MYPAD        - The # of pad characters required by this KERMIT
  21. ;     MYPCHAR      - The pad character required by this KERMIT
  22. ;     MYQUOTE      - The quote  used for control s
  23. ;                  - by this KERMIT slectable by user
  24. ;     N            - The number of the current packet frame number
  25. ;     NUMTRY       - The number of re-try attempt so far
  26. ;     OLDTRY       - The number of re-try already attempted
  27. ;     PACKET(*)  - An integer array to hold the content of a packet
  28. ;     PAD          - The # of pad characters required by other KERMIT
  29. ;     PADCHAR      - The pad character to used if required by other KERM
  30. ;     PAKSIZ       - The maximum packet size selectable by users
  31. ;     PROMPT       - The turnaround control character this KERMIT looks
  32. ;                  - for in file transfer with IBM.
  33. ;     QUOTE        - The quote character used for control character used
  34. ;                  - by other KERMITS
  35. ;     RECPKT(*)  - An integer array which holds the incoming packet
  36. ;     RMTDEV(*)  - The remote (TTY) line KM will be the default name
  37. ;                  - RMTDEV(1) = IOFLAG FOR THE UNIT
  38. ;     LOCALDEV(*)- Local (tty) (login line) SD is the device name
  39. ;                  - LOCALDEV(1) = IOFLAG FOR THE UNIT
  40. ;     RMTTTY(*)  - An integer array which hold the un-login line
  41. ;                  - for file-transfer.
  42. ;     RPSIZ        - maximum size of packet to be receive
  43. ;     SBAUD        - whether this system supports baud switching
  44. ;     SIZE         - maximum size of data packet to be sent
  45. ;     SOH          - The start of header used in sending packet; selecta
  46. ;                  - by user
  47. ;     SPARITY      - whether this system supports parity switching
  48. ;     SPORT        - whether this system supports remote line switching
  49. ;     SPSIZ        - Maximum size of packet to be used for sending
  50. ;     STATE        - Current state of file transfer processs
  51.  
  52.  
  53.       G'L   DELAY,EOL,ESCHAR,FD(*),FILNAME(*),HOSTON
  54.       G'L   IBMON,MAXTRY
  55.       G'L   MYEOL,MYPAD,MYPCHAR,MYQUOTE,N,NUMTRY,OLDTRY
  56.       G'L   PACKET(*),PAD,PADCHAR,PAKSIZ,PROMPT
  57.       G'L   QUOTE,RECPKT(*),RMTDEV(*),RMTTTY(*)
  58.       G'L   RPSIZ,SBAUD,SIZE,SOH,SPARITY,SPORT,SPSIZ
  59.       G'L   STATE
  60.       G'L   LOCALDEV(*) ; replaced --> LOCALINFD
  61.                         ; NOT USED --> LOCALOUTFD
  62.