FTN4,Q,C * * DATE: MARCH 15, 1979 * NAME: TXTD2 * SOURCE: 91711-18025 * RELOC: 91711-16025 * 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 TXTD2 (5,89),91711-16025 REV 1926 790906 C 31.07.79 C C IF IPARM(2) IS NEGATIVE, THIS SEGMENT WAS CALLED BY IMPTM OR TXTD1. C IF IPARM(2) IS POSITIVE, THIS SEGMENT WAS CALLED BY TXTD3. C C WHEN THE RUN STRING HAS ONLY A LINE AND:OR A TERMINAL LU, A C SURVEY MESSAGE IS MADE THEN IMPTM OVERLAYS ITSELF WITH TXTD2. IN C THE SEGMENT OVERLAY CALL IMPTM FORCE DEFINES THE OP CODE TO BE C VERIFY LINE IF JUST THE LINE LU IS KNOWN, OR VERIFY A TERMINAL C ON THE DEFINED LINE IF THE TERMINAL LU IS ALSO KNOWN. C WHEN THE RUN STRING CONTAINS AN OP CODE FOR LINE VERIFY OR C TERMINAL VERIFY, TXTD1 MAKES THE SEGMENT LOAD CALL FOR TXTD2, C WHICH EXECUTES THE PROCEDURE. WHENEVER THE INTERACTIVE PROMPT C APPEARS AND THE OPERATOR ENTERS AN OP CODE AMONG THOSE EXECUTED C BY TXTD2, TXTD3 MAKES THE SEGMENT OVERLAY CALL TO TRANSFER C CONTROL HERE. C IPARM(2) = -1 ALL INTERACTIVE OPERATOR PROMPTS ARE INHIBITED, C THE CODE COMPLETES IMMEDIATELY. C COMMON IARAY(3),ILU(1),ILLU(1),INLU(1),ITLU(1),IXLU(1), +IBUFR(128),IGRUP(30),IOFLN(30),IBUFV(60) DIMENSION IPARM(5),IOP(1),ICWORD(2),INAM1(3),INAM2(3) DATA ICWORD/0,200B/ DATA INAM1/2HTX,2HTD,2H3 / DATA INAM2/2HCF,2HTM,2HL / C CALL RMPAR(IPARM) IOP = IPARM(1) C WRITE(ILLU,110)IPARM 110 FORMAT(5(2X"IPAR:",I2)) ICWORD(1) = IOR(ILU,100000B) 20 IF(IOP.EQ.053124B) GO TO 201 IF(IOP.EQ.044524B) GO TO 205 IF(IOP.EQ.041506B) GO TO 207 IF(IOP.EQ.053114B) GO TO 213 IF(IOP.EQ.020040B) GO TO 900 C C CHECK IN TXTD3 FOR NEXT OPERATION 21 IOP = 0 CALL EXEC(8,INAM1,IOP) C C VT 201 IXLU = IPARM(2) CALL VMPTL(ILU,INLU,ILLU,ITLU,IARAY,IXLU) IXLU = 0 GO TO 30 C C C IT 205 IXLU = 0 CALL UPMPT(ILU,INLU,ILLU,ITLU,-1,IXLU,IARAY) GO TO 21 C C CF 207 CALL EXEC(8,INAM2) C C VL 213 IXLU = IPARM(2) CALL VMPLN(ILU,INLU,ILLU,IARAY,IXLU) IXLU = 0 C C WAS TXTD2 CALLED BY TXTD1 OR IMPTM ? IPARM(2) WILL BE -1 30 IF(IPARM(2)) 900,21 C C TXTD1 - DONE 900 CALL IMSG6(ILLU,0,0,0,IARAY,3,11) END END$