FTN4,Q,C
* 
*     DATE: MARCH 15, 1979
*     NAME: IMPTM 
*     SOURCE: 91711-18029 
*     RELOC:  91711-16029 
*     PGMR:  R.T.A. 
* 
*  *******************************************************************
*  * (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.           *
*  *******************************************************************
* 
* 
* 
      PROGRAM IMPTM (5,89),91711-16029  REV 1926  790906
C     29.10.79
C     THIS SEGMENT DISPLAYS THE MULTIPOINT LINE AND TERMINAL
C     CONFIGURATION FOR THE 3075A, 3076A, 3077A TERMINALS.
C 
C     IF IPARM(2) IS NEGATIVE, THIS SEGMENT WAS CALLED BY TXTD1.
C     IF IPARM(2) IS POSITIVE, THIS SEGMENT WAS CALLED BY TXTD3 OR CFTML. 
C 
C     FOR IPARM(2) NEGATIVE, A TEST FOR VALID LINE LU IS MADE SINCE THIS
C     IS THE VERIFY THEN END SELECTION AS DETERMINED BY THE RUN STRING
C     PARAMETERS.  THE INTENT IS TO PROVIDE A PATH TO THE VERIFY SUBROUTINES
C     CALLED BY TXTD2 FROM TXTD1 WITH THE PROVISION GOOD LINE LU INFORMATION
C     IS PASSED.  THEREFORE A FORCED DEFINE CONDITION IS SET UP (INLU = 0)
C     WHEN THE RUN STRING ENTRY IS  :RU,TXTD1 
C     INLU IS DEFINED IN IMPXX IF INLU = 0 ON ENTRY TO IMPTM, THEN A TEST 
C     FOR NONZERO INLU IS MADE AFTER ALL EQT HAVE BEEN SURVEYED.  SHOULD
C     THERE BE NO LINE EQT FOUND BY IMPXX, THE VALUE OF INLU REMAINS ZERO 
C     AND A MESSAGE TELLING THERE IS NO MULTIPOINT SYSTEM IS MADE THEN
C     EXIT FROM TXTD1.  FOR A VALID LINE LU (CHECKS ARE MADE IN IMPXX)
C     TXTD2  CALLS TXTD3 PASSING THE OP CODE PARAMETER FORCE DEFINED BY 
C     TXTD1 IF THIS SEGMENT WAS CALLED BY TXTD1, OR BY THE OPERATOR IF
C     THIS SEGMENT WAS CALLED BY TXTD3 OR CFTML.
C 
C     ILU  = CONSOLE LU 
C     ILLU = LIST LU
C     INLU = LINE LU
C 
C     CALLS:  IMPXX  SHOW THE MULTIPOINT CONFIGURATION
C 
      COMMON IARAY(3),ILU(1),ILLU(1),INLU(1),ITLU(1),IXLU(1), 
     +IBUFR(128),IGRUP(30),KOFLN(30),IBUFV(60)
      DIMENSION INAM1(3),IPARM(5),INAM2(3)
      DATA INAM1/2HTX,2HTD,2H3 /
      DATA INAM2/2HTX,2HTD,2H2 /
C 
C 
      CALL RMPAR(IPARM) 
C 
C   HERE'S THE OP CODE
      IOP = IPARM(1)
C 
C   FOR NONZERO LINE LU, CHECK IT BEFORE THE LU SURVEY
C 
      IF(INLU.EQ.0) GO TO 2 
      ICCC = 11 
      CALL LUCHK(ILLU,INLU,IERCD,IARAY,ICCC)
C 
C   IF INLU IS NOT A LINE LU, SET INLU = 0, THEN LET IMPXX FIND IT
C 
      IF(IERCD.EQ.4) GO TO 2
      IF(IERCD.EQ.7) GO TO 2
      IF(IERCD.EQ.9) GO TO 2
      INLU = 0
C 
C   PREPARE TO CALL IMPXX BY DO LOOP
C 
2     ID = 040175B
C 
      WRITE (ILLU,111)
111   FORMAT(2X"LU",1X"FBIT",1X"EQT",1X"AV",1X"EQW5",1X"S.C.",
     +"STATE",2X"IN LN ID",8X"MODEL K D LM RM INT PR")
C 
      LUMAX=IGET(1653B) 
CC
CC
CC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CC
CC
CC
CC
      DO 5 I=1,LUMAX
      IFFF = -1 
      CALL IMPXX(I,ILLU,INLU,IARAY,IFFF)
      IF(INLU.EQ.I) GO TO 4 
      GO TO 5 
CC
CC   THERE'S A LINE LU, CHECK IT
CC
4     ICCC = 10 
      CALL LUCHK(ILLU,INLU,IERCD,IARAY,ICCC)
CC
      IF(IERCD.EQ.3) GO TO 5
      IF(IERCD.EQ.4) GO TO 5
      IF(IERCD.EQ.7) GO TO 5
      IF(IERCD.EQ.9) GO TO 5
      I = LUMAX 
CC
5     CONTINUE
CC
CC
CC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CC
CC
CC
C 
C 
C 
C   CHECK SECOND PARAMETER.  WAS IT -1 ?
      IF(IPARM(2)) 9,10 
C 
C 
C 
C 
C 
C 
C   YES, CALLED BY MAIN.  WAS INLU FOUND BY THE SURVEY ?
9     IF(INLU.EQ.0) GO TO 11
      IF(IERCD.EQ.3) GO TO 12 
      IF(IERCD.EQ.5) GO TO 12 
C 
C   GET THE LINKED LIST 
C 
C     CALL SFILL(LLINK,1,56,0B) 
C     CALL LINK(INLU,ITLU,LLINK,ITMCT)
C  SHOW THE LU
C     DO 20 J = 3,LLINK(2)
C0    WRITE(ILLU,21)LLINK(J),LLINK(1),LLINK(2),LLINK(J+1) 
C1    FORMAT(2X"IMPTM LU:",I2X"LINE:",I2X"LU:",I2X"LU:",I2) 
C 
C   THERE'S A LINE LU HERE.  SHOW THE OFF LINE TERMINALS THEN 
C   CHECK IN TXTD2 FOR THE NEXT OPERATION.
C 
      CALL OFFLN(ILU,INLU,ILLU,IARAY) 
C 
C   IF IOP = SPACE-SPACE, COMPLETE IMMEDIATELY. 
C 
      IF(IOP.EQ.020040B) GO TO 13 
C 
C   IF THE LINE IS ACTIVE WITH TERMINALS ASSIGNED 
      CALL EXEC(8,INAM2,IOP,-1) 
C 
C   INLU CAN'T BE USED FOR LINE OPERATION.  COMPLETE IMMEDIATELY. 
C 
12    IOP = 020040B 
      GO TO 13
C 
C 
C 
C 
C 
C 
C 
C   SECOND PARAMETER IS NOT NEGATIVE.  CHECK IN TXTD3 FOR NEXT
C   OPERATION 
C 
10    CALL EXEC(8,INAM1,IPARM)
C 
C   SURVEY COULD NOT FIND LINE LU.
C   TXTD1 - NO MULTIPOINT SYSTEM
C   EXIT BY TXTD3 USING OP CODE SPACE-SPACE 
11    IOP = 020040B 
      CALL IMSG6(ILLU,0,0,0,IARAY,4,11) 
13    CALL EXEC(8,INAM1,IOP)
      END 
      END$
                                                                                                                                                                                                              