FTN4,Q,C
* 
*     DATE: MARCH 15, 1979
*     NAME: CFTML 
*     SOURCE: 91711-18027 
*     RELOC:  91711-16027 
*     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 CFTML (5,89),91711-16027  REV 1926  790906
C     27.08.79
C     THIS SEGMENT SHOWS INITIALIZED TERMINAL CONFIGURATION 
C     AND SENDS CONTROL 22 (NAK, WAK, TERMINAL BLOCK SIZE), 
C     CONTROL 23 (DISABLE/ENABLE ROUTINE POLLING, SET EDIT MODE FLAGS), 
C     GROUP/LINE SELECT AND WRITE A MESSAGE TO THE SELECTED 
C     TERMINAL. 
C     THIS SEGMENT IS CALLED BY TXTD2.
C     THERE IS A LINE VALIDATION AND TERMINAL VALIDATION PROCEDURE
C     HERE THAT ALLOWS REDEFINING THE TERMINAL OR LINE BY ENTERING
C     SPACE-SPACE WHEN THE "?? FOR CFTML OP CODE LIST" MESSAGE IS 
C     PRESENT, OR ENTERING ZERO WHEN EITHER THE LINE OR TERMINAL LU 
C     ENTRY MESSAGE IS PRESENT.  THIS IS ALSO THE ONLY WAY TO EXIT
C     THIS SEGMENT AND CLEARS THE LINE LU AND TERMIANL  LU NUMBERS
C     IN LOCAL COMMON.
C 
      COMMON IARAY(3),ILU(1),ILLU(1),INLU(1),ITLU(1),IXLU(1), 
     +IBUFR(128),IGRUP(30),IOFLN(30),IBUFV(60)
      DIMENSION IREG(2),ICWORD(2),INAM1(3),INAM2(3),INAM3(3)
      EQUIVALENCE (IREG(1),REG,IA),(IREG(2),IB) 
      DATA ICWORD/0,2300B/
      DATA IKKK/1/
      DATA ICCC/11/ 
      DATA INAM1/2HTX,2HTD,2H3 /
      DATA INAM2/2HIW,2HRZ,2HZ /
      DATA INAM3/2HIM,2HPT,2HM /
C 
C   TXTD1 - CONFIGURE A TERMINAL
5     CALL IMSG8(ILLU,IARAY,7,11) 
C 
C   IF INLU IS ZERO, GET A LINE LU
      IF(INLU.GT.0) GO TO 30
C 
C     ENTER THE LINE CONTROL INFORMATION.  IF NO MORE LINES, ENTER
C     0 TO STOP.
C 
15    CALL IMSG7(ILU,INLU,IARAY,1,11) 
      IF(INLU.EQ.0) GO TO 9999
C 
C     CHECK LU FOR MULTIPOINT LINE ASSIGNMENT 
C     SHOW ANY MESSAGE
C 
30    ICCC = 11 
      CALL LUCHK(ILLU,INLU,IERCD,IARAY,ICCC)
      IF(IERCD.EQ.7) GO TO 35 
      IF(IERCD.EQ.9) GO TO 35 
      GO TO 15
C 
C   SHOW LINE NUMBER AND TERMINAL LU NUMBER(S) ASSIGNED 
C   TO THIS LINE LU.
C 
35    CALL ILINE(INLU,ILLU,INUM,LINE,IARAY) 
      I4LIN = LINE*10000B 
C 
C   IF ITLU IS ZERO, GET A TERMINAL LU
      IF(ITLU.GT.0) GO TO 36
C   ENTER TERMINAL LU.  IF NO MORE TERMINALS ON THIS LINE, ENTER
C   0 TO STOP 
16    CALL IMSG7(ILU,ITLU,IARAY,2,11) 
      IF(ITLU.EQ.0) GO TO 15
C 
C   CHECK LU FOR MULTIPOINT TERMINAL ASSIGNMENT 
C 
C   SHOW ANY MESSAGE
36    CONTINUE
37    ICCC = 6
      CALL LUCHK(ILLU,ITLU,IERCD,IARAY,ICCC)
      IF(IERCD.EQ.0) GO TO 71 
      IF(IERCD.EQ.6) GO TO 71 
      GO TO 16
C 
C   ACTIVE TERMINAL HERE
C 
70    CONTINUE
C   GET AN OP CODE
      IF(IOP.EQ.52102B) GO TO 401 
      IF(IOP.EQ.42515B) GO TO 402 
      IF(IOP.EQ.46505B) GO TO 404 
      IF(IOP.EQ.20040B) GO TO 406 
      IF(IOP.EQ.37477B) GO TO 407 
      IF(IOP.EQ.51526B) GO TO 408 
      IF(IOP.EQ.46116B) GO TO 409 
      IF(IOP.EQ.43520B) GO TO 410 
      IF(IOP.EQ.52107B) GO TO 411 
C 
C 
71    WRITE(ILU,299)IARAY 
299   FORMAT(/2X3A2"- ENTER OP CODE (?? FOR CFTML OP CODE LIST):_") 
      READ(ILU,72)IOP 
72    FORMAT(A2)
      GO TO 70
C  TB 
401   CALL IMSG8(ILLU,IARAY,2,11) 
      CALL TB(ILU,INLU,ILLU,IARAY,0)
      GO TO 71
C  EM 
402   CALL IMSG8(ILLU,IARAY,3,11) 
      IBBB = 0
      CALL EM(ILU,ITLU,ILLU,IARAY,IBBB) 
      GO TO 71
C  ME 
404   CALL IMSG8(ILLU,IARAY,5,11) 
      CALL IOGLS(ILU,ILLU,INLU,IBUFL,IARAY) 
      GO TO 71
C  SP-SP
406   CONTINUE
      GO TO 16
C  ?? 
407   WRITE(ILLU,27)
27    FORMAT(2/10X"TB    SET NAK, WAK, TERMINAL BLOCK SIZE",
     +/10X"EM    SET EDIT MODE AND POLLING GLOBALS",
     +/10X"ME    GROUP-LINE SELECT AND SEND A MESSAGE", 
     +/10X"SV    MULTIPOINT SURVEY MESSAGE",
     +/10X"LN    MULTIPOINT LINE ASSIGNMENT", 
     +/10X"GP    WHO ARE YOU",
     +/10X"TG    WHO ARE YOU ON CURRENT TERMINAL'S GROUP",
     +/10X"SP-SP END",
     +/)
      GO TO 71
C  SV 
408   CALL EXEC(8,INAM3,0)
C  LN 
409   CALL ILINE(INLU,ILLU,INUM,LINE,IARAY) 
      GO TO 71
C  GP 
410   CALL EXEC(8,INAM2,3)
C  TG 
411   CALL EXEC(8,INAM2,5)
C 
C 
C     END MULTIPOINT TERMINAL CONFIGURATION 
C 
9999  IOP = 0 
      CALL EXEC(8,INAM1,IOP)
      END 
      END$
                                                                                                                                                                                                                              