home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / modcomp / kermit. < prev    next >
Text File  |  2020-01-01  |  8KB  |  216 lines
  1.       PROGRAM KERMIT
  2. C
  3. C     ****************************************************************
  4. C
  5. C              KERMIT for the MODCOMP MAXIV operating system
  6. C
  7. C        Compliments of:
  8. C
  9. C                         SETPOINT, Inc.
  10. C                      10245 Brecksville Rd.
  11. C                      Brecksville, Ohio 44141
  12. C
  13. C
  14. C      KERMIT is a copyrighted protocol of Columbia Univ. The authors
  15. C      of this version hereby grant permission to copy this software
  16. C      provided that it is not used for an explicitly commercial
  17. C      purpose and that proper credit be given. SETPOINT, Inc. makes
  18. C      no warranty whatsoever regarding the accuracy of this package
  19. C      and will assume no liability resulting from it's use.
  20. C
  21. C
  22. C     ****************************************************************
  23. C
  24. C     Abstract:  Kermit communications program for MODCOMP Classic
  25. C                running MAX IV.  This program and all subroutines
  26. C                were adapted from a version written by John Lee
  27. C                of RCA Laboratories.  It was originally written in
  28. C                FORTRAN 77 for an HP-1000 running RTE-6/VM.  The
  29. C                bulk of the conversion effort related to removing
  30. C                the FORTRAN 77 logic constructs, replacing the
  31. C                RTE system calls with MAX IV system calls, and
  32. C                modification of the data file I/O to conform to
  33. C                the requirements of MAX IV.
  34. C
  35. C     MODIFICATION HISTORY
  36. C
  37. C     BY            DATE     REASON
  38. C
  39. C     ****************************************************************
  40. C
  41. C     Author:   Rick Burke             Version: A.0    Date: Aug-86
  42. C
  43. C     ****************************************************************
  44. C
  45. C     Messages generated by this module :  None
  46. C
  47. C     ****************************************************************
  48. C
  49. C     Subroutines called directly :  EXIT, PARSER, UFTINI
  50. C
  51. C     ****************************************************************
  52. C
  53. C     Files referenced :  None
  54. C
  55. C     ****************************************************************
  56. C
  57. C     Local variable definitions :
  58. C
  59. C     DELAY        - # of seconds waited before sending out the first
  60. C                    SINIT packet (only in remote mode).
  61. C     EOL          - End-of-line delimiter required by other Kermits.
  62. C     ESCHAR       - The character used to return back to command parser
  63. C                    from "chat" mode.
  64. C     FILNAM(132)  - The integer array which holds the current working
  65. C                    file name.
  66. C     HOSTON       - Identifies whether this Kermit is running in local
  67. C                    or "chat" mode.
  68. C     LOCALI       - Local (TTY) input channel (login line)
  69. C     LOCALO       - Local (TTY) output channel (login line)
  70. C     MAXTRY       - Maximum number of retries before giving up
  71. C     MYEOL        - The end-of-line delimiter selectable by users
  72. C     MYPAD        - The # of pad characters required by this Kermit
  73. C     MYPCHA       - The pad character required by this Kermit
  74. C     MYQUOT       - The quote used for control-S by this Kermit
  75. C                    This is selectable by the user
  76. C     N            - The number of the current packet frame number
  77. C     NUMTRY       - The number of retry attempts so far
  78. C     OLDTRY       - The number of retries already attempted
  79. C     PACKET(132)  - An integer array to hold the content of a packet
  80. C     PAD          - The # of pad characters required by other Kermit
  81. C     PADCHA       - The pad character to use, if required by other
  82. C                    Kermit
  83. C     PAKSIZ       - The maximum packet size selectable by users
  84. C     PARITY       - One of five parity modes used in sending and
  85. C                    receiving data (local mode only).  Only ODD,
  86. C                    EVEN, and NONE are implemented.
  87. C     PROMPT       - The turnaround control character this Kermit looks
  88. C                    for in file transfer with IBM.
  89. C     QUOTE        - The quote character used for control character used
  90. C                    by the other Kermit.
  91. C     RECPKT(132)  - An integer array which holds the imcoming packet
  92. C     RMTINF       - The remote input channel
  93. C     RMTOUT       - The remote output channel
  94. C     RPSIZ        - Maximum size of packet to be received.
  95. C     SBAUD        - Whether this system supports baud switching
  96. C     SIZE         - Maximum size of data packet to be sent
  97. C     SOH          - The start of header used in sending packet;
  98. C                    selectable by the user
  99. C     SPARIT       - Whether this system supports parity switching
  100. C     SPEED        - Baud rate of the remote TTY line
  101. C     SPORT        - Whether this system supports remote line switching
  102. C     SPSIZ        - Maximum size of packet to be used for sending
  103. C     STATE        - Current state of the file transfer process
  104. C
  105. C     ****************************************************************
  106. C
  107. C     Commons referenced :  KER and KERPAR local commons
  108. C
  109. C     ****************************************************************
  110. C
  111. C     (*$END.DOCUMENT*)
  112. C
  113. C     ****************************************************************
  114. C     *                                                              *
  115. C     *         D I M E N S I O N   S T A T E M E N T S              *
  116. C     *                                                              *
  117. C     ****************************************************************
  118. C
  119.       IMPLICIT INTEGER (A-Z)
  120.       INTEGER*2   ALIN(132),   BLIN(132)
  121. C
  122. C     ****************************************************************
  123. C     *                                                              *
  124. C     *         T Y P E   S T A T E M E N T S                        *
  125. C     *                                                              *
  126. C     ****************************************************************
  127. C
  128. C
  129. C     ****************************************************************
  130. C     *                                                              *
  131. C     *         C O M M O N   S T A T E M E N T S                    *
  132. C     *                                                              *
  133. C     ****************************************************************
  134. C
  135.       INCLUDE USL/KERCOM
  136.       INCLUDE USL/KERPMC
  137. C
  138. C     ****************************************************************
  139. C     *                                                              *
  140. C     *         E Q U I V A L E N C E   S T A T E M E N T S          *
  141. C     *                                                              *
  142. C     ****************************************************************
  143. C
  144. C
  145. C     ****************************************************************
  146. C     *                                                              *
  147. C     *         D A T A   S T A T E M E N T S                        *
  148. C     *                                                              *
  149. C     ****************************************************************
  150. C
  151. C
  152. C     ****************************************************************
  153. C
  154. C     Code starts here :
  155. C
  156. C----->  Set default parameters.
  157. C
  158.       DELAY = 10
  159.       EOL = 13
  160.       ESCHAR = 29
  161.       IBMON = NO
  162.       QUOTE = 35
  163.       SOH = 1
  164.       SPEED = 9600
  165.       STATE = BIGC
  166. C
  167.       MAXTRY = 5
  168.       MYEOL = 13
  169.       MYPAD = 0
  170.       MYPCHAR = 0
  171.       MYQUOTE = 35
  172.       PAD = 0
  173.       PADCHAR = 0
  174.       PAKSIZ  = 90
  175. C
  176. C----->  1=EVEN, 2=ODD 3=SPACE 4=MARK 5=NONE
  177. C----->  MARK and SPACE not currently implemented.
  178. C
  179.       PARITY = 5
  180. C
  181. C----->  DC1, IBM mode only.
  182. C
  183.       PROMPT = 17
  184. C
  185. C----->  Disable all I/O port modifications.
  186. C
  187.       SPARITY = NO
  188.       SBAUD = NO
  189.       SPORT = NO
  190. C
  191. C----->  Initialize the UFTs.
  192. C
  193.       CALL UFTINI
  194. C
  195. C----->  Initialize UFT numbers for local terminal & Kermit I/O.
  196. C
  197.       LOCALO = 3@KE1
  198.       LOCALI = 3@KE2
  199.       RMTINF = 4
  200.       RMTOUT = 3
  201. C
  202. C----->  Set default USL to current USL.
  203. C
  204.       SUSL = 3@USL
  205. C
  206.       WRITE (LOCALO,99)
  207.       CALL PARSER
  208.       CALL EXIT
  209.    99 FORMAT(' MAX IV KERMIT VERSION 1.0')
  210.       END
  211.       BLOCK DATA
  212.       IMPLICIT INTEGER (A-Z)
  213.       INCLUDE USL/KERPMC
  214.       INCLUDE USL/KERPMD
  215.       END
  216.