home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / modcomp / sstatu. < prev    next >
Text File  |  2020-01-01  |  6KB  |  172 lines
  1.       SUBROUTINE SSTATUS
  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     Abstract:  OUTPUT THE STATUS AND VALUES OF VARIABLES
  24. C
  25. C     MODIFICATION HISTORY
  26. C
  27. C     BY            DATE     REASON            PROGRAMS AFFECTED
  28. C
  29. C     ****************************************************************
  30. C
  31. C     Author: BOB BORGESON          Version: A.0    Date: Oct-86
  32. C
  33. C     Calling Parameters:  None
  34. C
  35. C     ****************************************************************
  36. C
  37. C     Messages generated by this module :  None
  38. C
  39. C     ****************************************************************
  40. C
  41. C     Subroutines called directly :  CTA4
  42. C
  43. C     ****************************************************************
  44. C
  45. C     Files referenced :  None
  46. C
  47. C     ****************************************************************
  48. C
  49. C     Local variable definitions :
  50. C
  51. C     KUSL   -  UNPACKED VERSION OF USL NAME  (IN HIGH ORDER BYTES)
  52. C
  53. C     ****************************************************************
  54. C
  55. C     Commons referenced :  KER, and KERPAR local commons
  56. C
  57. C     ****************************************************************
  58. C
  59. C     (*$END.DOCUMENT*)
  60. C
  61. C     ****************************************************************
  62. C     *                                                              *
  63. C     *         D I M E N S I O N   S T A T E M E N T S              *
  64. C     *                                                              *
  65. C     ****************************************************************
  66. C
  67.       IMPLICIT INTEGER (A-Z)
  68. C
  69.       INTEGER*2   KUSL(3)
  70. C
  71. C     ****************************************************************
  72. C     *                                                              *
  73. C     *         T Y P E   S T A T E M E N T S                        *
  74. C     *                                                              *
  75. C     ****************************************************************
  76. C
  77. C
  78. C     ****************************************************************
  79. C     *                                                              *
  80. C     *         C O M M O N   S T A T E M E N T S                    *
  81. C     *                                                              *
  82. C     ****************************************************************
  83. C
  84.       INCLUDE USL/KERCOM
  85.       INCLUDE USL/KERPMC
  86. C
  87. C     ****************************************************************
  88. C     *                                                              *
  89. C     *         E Q U I V A L E N C E   S T A T E M E N T S          *
  90. C     *                                                              *
  91. C     ****************************************************************
  92. C
  93. C
  94. C     ****************************************************************
  95. C     *                                                              *
  96. C     *         D A T A   S T A T E M E N T S                        *
  97. C     *                                                              *
  98. C     ****************************************************************
  99. C
  100. C
  101. C     ****************************************************************
  102. C
  103. C     Code starts here :
  104. C
  105. C----->  Convert the USL name to ASCII.
  106. C
  107.       CALL CTA4 (SUSL,KUSL,IND)
  108.       IF (IND .EQ. 1) GO TO 10
  109.       KUSL(1) = '?'
  110.       KUSL(2) = '?'
  111.       KUSL(3) = '?'
  112.    10 CONTINUE
  113. C                                    !WE ARE RUNNING IN REMOTE HOST MODE
  114.       IF(HOSTON.NE.YES)GO TO 1000
  115.          WRITE (LOCALO,107)
  116.          WRITE (LOCALO,104)DELAY
  117.          WRITE (LOCALO,103)MYEOL
  118.          WRITE (LOCALO,100)PAKSIZ
  119.          WRITE (LOCALO,102)MYQUOTE
  120.          WRITE (LOCALO,101)SOH
  121.          WRITE (LOCALO,120)KUSL
  122.          IF(STATE.EQ.BIGC) WRITE (LOCALO,108)
  123.          IF(STATE .NE. BIGC)WRITE (LOCALO,109)
  124.          RETURN
  125.  1000 CONTINUE
  126.            WRITE (LOCALO,110)
  127.            WRITE (LOCALO,106)SPEED
  128.            WRITE (LOCALO,103)MYEOL
  129.            WRITE (LOCALO,105)ESCHAR
  130.            IF(IBMON.NE.YES)GO TO 1100
  131.               WRITE (LOCALO,117)
  132.               WRITE (LOCALO,119)PROMPT
  133.               GO TO 1200
  134.  1100      CONTINUE
  135.            WRITE (LOCALO,118)
  136.  1200      CONTINUE
  137.            WRITE (LOCALO,100)PAKSIZ
  138.            IF(PARITY.EQ.1) WRITE (LOCALO,111)
  139.            IF(PARITY.EQ.2) WRITE (LOCALO,112)
  140.            IF(PARITY.EQ.3) WRITE (LOCALO,113)
  141.            IF(PARITY.EQ.4) WRITE (LOCALO,114)
  142.            IF((PARITY .LT. 1) .OR. (PARITY .GT. 4))WRITE (LOCALO,115)
  143.            WRITE (LOCALO,102)MYQUOTE
  144.            WRITE (LOCALO,101)SOH
  145.            WRITE (LOCALO,120)KUSL
  146.            WRITE (LOCALO,116)
  147.            IF(STATE.EQ.BIGC) WRITE (LOCALO,108)
  148.            IF(STATE .NE. BIGC)WRITE (LOCALO,109)
  149. 100   FORMAT(' PACKET SIZE = ',I4)
  150. 101   FORMAT(' SOH         = ',I4)
  151. 102   FORMAT(' MYQUOTE     = ',I4)
  152. 103   FORMAT(' MYEOL       = ',I4)
  153. 104   FORMAT(' DELAY (SEC) = ',I4)
  154. 105   FORMAT(' ESCAPE CHAR = ',I4)
  155. 106   FORMAT(' BAUD RATE   = ',I5)
  156. 107   FORMAT(' REMOTE HOST KERMIT MODE IN EFFECT')
  157. 108   FORMAT(' FILE TRANSFER STATE = C')
  158. 109   FORMAT(' FILE TRANSFER STATE = A')
  159. 110   FORMAT(' LOCAL KERMIT MODE IN EFFECT')
  160. 111   FORMAT(' PARITY      = EVEN')
  161. 112   FORMAT(' PARITY      = ODD')
  162. 113   FORMAT(' PARITY      = SPACE')
  163. 114   FORMAT(' PARITY      = MARK')
  164. 115   FORMAT(' PARITY      = NONE')
  165. 116   FORMAT(' REMOTE TTY LINE USED IS ??')
  166. 117   FORMAT(' IBM FLAG    =   ON')
  167. 118   FORMAT(' IBM FLAG    =  OFF')
  168. 119   FORMAT(' IBM PROMPT  = ',I4)
  169. 120   FORMAT(' USL DIRECTORY = ',3A1)
  170.       RETURN
  171.       END
  172.