*DECK,HPA310
      OVCAP.
      SUBROUTINE HPA310 
* 
*      CONTROL PROGRAM FOR ROUTINES IN OVERLAY (3,10) 
*         HPA310 PROCESSES 810/815/825/830 PROCESSOR ERRORS.
*         RECORD TYPE: 22B. 
*         ERROR CODE: 317B - CPU 1 ERRORS, READ 1 RECORD AT A TIME. 
*         ERROR CODE: 320B - CPU 0 ERRORS, READ 1 RECORD AT A TIME. 
* 
*CALL,HPACOM1 
  
      IF (FROG(6) .NE. L"T") GO TO 10 
      CALL SECOND (CP)
      PRINT 9,CP
    9 FORMAT ( ' ENTER HPA310, SECOND = ',F10.3)
   10 CONTINUE
* 
      CALL INISET3
      CALL DREPT3 
  
  100 IF ((MTY .EQ. O"317") .OR. (MTY .EQ. O"320")) GO TO 200 
      GO TO 900 
  
  200 IF ((RCFA .EQ. 2HON) .OR. (RCFD .EQ. 2HON)) CALL AN10P12 (0)
  
  900 CONTINUE
      CALL GNR3 
      CALL SETEM3(1)
      IF (TWIC.GE.2) GO TO 100
  
*      CALL TO PRINT ANALYSIS REPORT
      IF (RCFA .EQ. 2HON) CALL AN10P12 (1)
      END 
      SUBROUTINE AN10P12 (PRANP)
* 
**         DESCRIPTION
*          -----------
* 
*       THIS ROUTINE DEVELOPS THE ANALYSIS REPORT FOR 810/815/825/830 
*       PROCESSOR ERROR MESSAGES. 
* 
* 
*CALL,HPACOM1 
*CALL,HPACOM2 
  
      COMMON /P1P2/ P1MSG (32, 5), P2MSG (64, 5), P1MK (9, 12), 
     .              P1K (32, 11), P2K (64, 6), PRK (32, 7), SIGNAL (32) 
  
*      IF PRANP IS SET, THEN PRINT THE APPROPRIATE ANALYSIS REPORT. 
      IF (PRANP.EQ.1) GO TO 600 
  
*     CHECK FOR SUPPORTIVE STATUS BUFFER INFORMATION FROM DFT 
*     DFT REVISION NUMBER 
      VERSION = IFLD(FUN) 
      IF ((VERSION .GE. 4) .AND. ((IFLD(19) .AND. O"1000") .NE. 0)) THEN
         IF (RCFD .NE. 2HON) GO TO 900
         TAG1 = SHIFT(SEFREC(5), 12) .AND. Z"FFF" 
         TAG2 = SHIFT(SEFREC(5), -8) .AND. Z"F" 
         TAG3 = SHIFT(SEFREC(5), -4) .AND. Z"F" 
         TAG4 = SEFREC(5) .AND. Z"F"
         CALL LOAPR (1,VERSION,SEFREC(4),TAG1,IFLD(29),IFLD(30),
     .                 IFLD(31),IFLD(32),TAG2)
         CALL LOAPR (9,IFLD(33),IFLD(34),IFLD(35),IFLD(36),TAG3,
     .                 SP,SP,SP)
         PL(14) = SHIFT(SEFREC(8),16) .AND. Z"FFFF" 
         PL(15) = SHIFT(SEFREC(8),32) .AND. Z"FFFF" 
         PL(16) = SHIFT(SEFREC(8),48) .AND. Z"FFFF" 
         PL(17) = SEFREC(8) .AND. Z"FFF"
         PL(18) = TAG4
  
        PRINT 200,(PL(I),I=1,18)
  200   FORMAT(/,13X,'DFT REVISION ',I2,' FAULT SYMPTOM CODE = ',R10,R2,
     .         /,13X,'CPU REGISTER 31 BEFORE HALT = ',3(Z4,1X),Z3,Z1, 
     .         /,13X,'CPU REGISTER 31 AFTER  HALT = ',3(Z4,1X),Z3,Z1, 
     .         /,13X,'CPU REGISTER 00 AFTER  HALT = ',3(Z4,1X),Z3,Z1) 
         DO 202 I = 1, 18 
  202   PL(I) = 1H
  
*        REPORT WHEN DFT SUPPORTIVE STATUS BUFFER DATE/TIME IS INVALID
         IF ((IFLD(19) .AND. O"4000") .NE. 0) THEN
            PRINT 204 
  204       FORMAT (13X,'DFT-REPORTED WALL CLOCK TIME INTEGRITY HAS ',
     .                  'BEEN LOST')
            LINE = LINE + 1 
         ENDIF
  
         PRINT 206
  206    FORMAT (1X,7(10H----------),9H---------) 
         LINE = LINE + 6
         GO TO 900
      ENDIF 
  
      IF (IFLD(38).NE.O"020") GO TO 500 
  
*     SET HEADER POINTERS 
      IHDR = 40 
      HCF(1) = 1
      HCF(2) = 4
      HCF(4) = 6
  
      IF (IFLD(23).EQ.O"20") P = 1
      IF (IFLD(23).EQ.O"40") P = 2
      IF (IFLD(23).EQ.O"21") P = 4
      IF (IFLD(23).EQ.O"22") P = 1
*          S1CR 
      IF (IFLD(23).EQ.O"23") P = 5
      IF (IFLD(23).EQ.O"24") P = 6
      IF (IFLD(23).EQ.O"25") P = 6
      IF (IFLD(23).EQ.O"26") P = 5
      IF (RCFA.EQ.2HON) CALL STOJN3 
* 
*     REGISTER 10 (ELEMENT ID)
*     PROCESS CONTENTS FOR HEADER 
* 
      IFLD(24) = SHIFT(IFLD(24),4) .OR. IFLD(37)
      IELEM = SHIFT(IFLD(23),-8) .AND. Z"FF"
      MODEL = PL(64) = IFLD(23) .AND. Z"FF" 
      IF (IELEM .EQ. Z"10") IHDR = 41 
      IF ((HX(1) .NE. IELEM) .OR. (HX(2) .NE. MODEL) .OR. 
     .    (HX(3) .NE. IFLD(24))) LINE = PLF + 1 
      HX(1) = IELEM 
      HX(2) = MODEL 
      HX(3) = IFLD(24)
* 
*     REGISTER 12 (OPTIONS INSTALLED) 
*     PROCESS CONTENTS FOR HEADER 
* 
      IFLD(32) = SHIFT(IFLD(32),4) .OR. IFLD(41)
      IF ((HX(5) .NE. IFLD(29)) .OR. (HX(6) .NE. IFLD(30)) .OR. 
     .    (HX(7) .NE. IFLD(31)) .OR. (HX(8) .NE. IFLD(32))) 
     .    LINE = PLF + 1
      HX(5) = IFLD(29)
      HX(6) = IFLD(30)
      HX(7) = IFLD(31)
      HX(8) = IFLD(32)
* 
*     REGISTER 30 (DEPENDENT ENVIRONMENT CONTROL) 
*     PROCESS CONTENTS FOR HEADER 
* 
      IFLD(36) = SHIFT(IFLD(36),4) .OR. IFLD(43)
      IF ((HX(9)  .NE. IFLD(33)) .OR. (HX(10) .NE. IFLD(34)) .OR. 
     .    (HX(11) .NE. IFLD(35)) .OR. (HX(12) .NE. IFLD(36))) 
     .    LINE = PLF + 1
      HX(9)  = IFLD(33) 
      HX(10) = IFLD(34) 
      HX(11) = IFLD(35) 
      HX(12) = IFLD(36) 
  
  500 CALL DL10P12 (P)
      GO TO 900 
  
  600 CONTINUE
      PL(63) = 0
      CALL XOVCAP ('ERDIST3',0,0) 
      CALL UOVCAP ('ERDIST3') 
* 
*     REPORT THE FAULT STATUS MESSAGE ACCUMULATION
* 
      REG = Z"80" 
      IF (P.EQ.2) GO TO 760 
      DO 725 K = 1,32 
      IF (P1MSG(K,5).NE.0) GO TO 728
  725 CONTINUE
      GO TO 900 
  728 HCF(1) = 5
      CALL PHD310 (1) 
* 
*      PRINT THE P1 MESSAGE SUMMARY 
      DO 740 I = K,32 
      IF (P1MSG(I,5).EQ.0) GO TO 740
      J = I + 31
      CALL LOAPR (1,IELEM,MODEL,REG,J,SP,SP,SP,SP)
      CALL PRT310 (1,4) 
      TCPU0 = P1MSG(I,5).AND.O"777777"
      TCPU1 = SHIFT(P1MSG(I,5),42).AND.O"777777"
      ENCODE (10,807,PCPU1) TCPU1 
      IF ((P.EQ.5).OR.(P.EQ.6)) GO TO 735 
      IN = I
      IF (P1MSG(I,4).EQ.10H          ) GO TO 730
      ENCODE (10,806,SIGNAL) P1MSG(I,4) 
      IF (P.NE.4) GO TO 940 
* 
*          P1 MINUS 
      DO 920  II = 1,9
      IF (IN.NE.P1MK(II,12)) GO TO 920
      GO TO 930 
  920 CONTINUE
      GO TO 940 
  930 CALL LOAPR (1,P1MSG(I,1),P1MSG(I,2),P1MSG(I,3),SP,SIGNAL, 
     .            P1MK(II,1),P1MK(II,2),P1MK(II,3)) 
      PL(9) = TCPU0 
      PL(10) = PCPU1
      CALL PRT310 (4,10)
      IF (P1MK(II,4).EQ.10H          ) GO TO 740
      CALL LOAPR(6,P1MK(II,4),P1MK(II,5),P1MK(II,6),SP,SP,SP,SP,SP) 
      CALL PRT310(4,8)
      IF (P1MK(II,7).EQ.10H          ) GO TO 740
      CALL LOAPR(6,P1MK(II,7),P1MK(II,8),P1MK(II,9),SP,SP,SP,SP,SP) 
      CALL PRT310(4,8)
      IF (P1MK(II,10).EQ.10H          ) GO TO 740 
      PL(6) = P1MK(II,10) 
      PL(7) = P1MK(II,11) 
      CALL PRT310(4,8)
      GO TO 740 
* 
*          P1 
  940 CALL LOAPR (1,P1MSG(I,1),P1MSG(I,2),P1MSG(I,3),SP,
     .         SIGNAL,P1K(IN,1),P1K(IN,2),P1K(IN,3))
      PL(9) = TCPU0 
      PL(10) = PCPU1
      CALL PRT310 (4,10)
      IF (P1K(IN,4).EQ.10H          ) GO TO 740 
      CALL LOAPR(6,P1K(IN,4),P1K(IN,5),P1K(IN,6),SP,SP,SP,SP,SP)
      CALL PRT310 (4,8) 
      IF (P1K(IN,7).EQ.10H          ) GO TO 740 
      CALL LOAPR(6,P1K(IN,7),P1K(IN,8),P1K(IN,9),SP,SP,SP,SP,SP)
      CALL PRT310 (4,8) 
      IF (P1K(IN,10).EQ.10H          ) GO TO 740
      PL(6) = P1K(IN,10)
      PL(7) = P1K(IN,11)
      CALL PRT310 (4,8) 
      GO TO 740 
  730 CONTINUE
      PL(1) = P1MSG(I,1)
      PL(2) = P1MSG(I,2)
      PL(3) = P1MSG(I,3)
      PL(9) = TCPU0 
      PL(10) = PCPU1
      CALL PRT310 (4,10)
* 
*          P1 CR
      GO TO 740 
  735 CONTINUE
*          PRINT S1CR MESSAGE SUMMARY 
      PL(1) = P1MSG(I,1)
      PL(2) = P1MSG(I,2)
      PL(3) = P1MSG(I,3)
      ENCODE(10,806,PL(5)) SIGNAL(I)
      MSGFLAG = 0 
      X = 6 
      DO 2000  N = 1,14 
      ICPU = 4H-CP0 
      IF (MTY.EQ.O"317") ICPU = 4H-CP1
      L = (N+1)/2 
      M = N/2 
      IN = I
      IF (PRK(IN,L).EQ.10H          ) GO TO 1150
      IF (((PRK(IN,L).AND.O"7777 7777").EQ.R"    ").AND.(L.EQ.M)) GOTO 1
     +150 
      IF (L.EQ.M) GO TO 1000
*          1ST HALF OF WORD L 
      PKNUM = SHIFT(PRK(IN,L),24).AND.O"7777" 
      PKN = SHIFT(PRK(IN,L),12).AND.O"7777" 
      IF (PKN .EQ. R"DQ") PKM = R"BQ" 
      IF (PKN .EQ. R"DR") PKM = R"BR" 
      IF (PKN .EQ. R"DS") PKM = R"BS" 
      IF ((PKN .EQ. R"DQ") .OR. (PKN .EQ. R"MQ") .OR. (PKN .EQ. R"BQ")) 
     .     ICPU = 4H-IOU
      ENCODE (10,812,PL(X)) PKN,ICPU,PKNUM
      GO TO 1100
 1000 CONTINUE
*          2ND HALF OF WORD L 
      PKN = SHIFT(PRK(IN,L),-12).AND.O"7777"
      IF (PKN .EQ. R"DQ") PKM = R"BQ" 
      IF (PKN .EQ. R"DR") PKM = R"BR" 
      IF (PKN .EQ. R"DS") PKM = R"BS" 
      IF ((PKN .EQ. R"DQ") .OR. (PKN .EQ. R"MQ") .OR. (PKN .EQ. R"BQ")) 
     .     ICPU = 4H-IOU
      ENCODE (10,812,PL(X)) PKN,ICPU,PRK(IN,L)
 1100 CONTINUE
      X = X + 1 
      IF (X.LE.8) GO TO 2000
 1150 CONTINUE
      IF (MSGFLAG.EQ.1) GO TO 1200
      PL(9) = TCPU0 
      PL(10) = PCPU1
      CALL PRT310 (4,10)
      MSGFLAG = 1 
      X = 6 
      GO TO 2000
 1200 CONTINUE
      IF (PL(6).EQ.10H          ) GO TO 740 
      CALL PRT310 (4,8) 
      X = 6 
 2000 CONTINUE
      IF (PL(6).NE.10H          ) CALL PRT310 (4,8) 
  740 CONTINUE
      GO TO 900 
* 
*      PRINT THE P2 MSSSAGE SUMMARY 
  760 CONTINUE
      DO 765 K = 1,64 
      IF (P2MSG(K,5).NE.0) GO TO 770
  765 CONTINUE
      GO TO 900 
  770 HCF(1) = 5
      CALL PHD310 (1) 
      DO 780 I = K,64 
      IF (P2MSG(I,5).EQ.0) GO TO 780
      J = I - 1 
      CALL LOAPR (1,IELEM,MODEL,REG,J,SP,SP,SP,SP)
      CALL PRT310 (1,4) 
      ENCODE (10,810,SIGNAL) P2MSG(I,4) 
      TCNT = P2MSG(I,5).AND.O"7777 7777"
      CALL LOAPR (1,P2MSG(I,1),P2MSG(I,2),P2MSG(I,3),SP,SIGNAL, 
     .            P2K(I,1),P2K(I,2),P2K(I,3)) 
      PL (9) = TCNT 
      CALL PRT310 (4,9) 
      IF (P2K(I,4).EQ.10H          ) GO TO 775
      CALL LOAPR(6,P2K(I,4),P2K(I,5),P2K(I,6),SP,SP,SP,SP,SP) 
      CALL PRT310 (4,8) 
      IF ((I.EQ.1).OR.(I.EQ.2)) PL(6) = 10HRW-A21 
      IF ((I.EQ.11).OR.(I.EQ.12)) THEN
      PL(6) = 10HPK-B11,RW- 
      PL(7) = 10HA20
      END IF
      IF (I.EQ.19) THEN 
      PL(6) = 10HQD-D09,RW- 
      PL(7) = 10HA19
      END IF
      IF(I.EQ.35) PL(6) = 10HRW-A16 
      IF (PL(6).EQ.10H          ) GO TO 775 
      CALL PRT310(4,7)
  775 IF (I.GT.16) GO TO 780
      PL(5) = 10H        *
      PL(6) = 10HFOR 32K CA 
      PL(7) = 10HCHE SYSTEM 
      PL(8) = 10H ONLY
      CALL PRT310 (4,8) 
  780 CONTINUE
      GO TO 900 
  806 FORMAT(2X,A6,2X)
  807 FORMAT (1H/,I4,5X)
  810 FORMAT(2X,R6,2X)
  812 FORMAT (R2,A4,R2,2H  )
  900 CONTINUE
      RETURN
      END 
      SUBROUTINE DL10P12 (PR) 
* 
**         DESCRIPTION
*          -----------
*     THIS SUBROUTINE DEVELOPS THE DETAIL REPORT FOR P1/P2 MR ERROR 
*     MESSAGES. 
* 
*     CALLED BY AN8P3 
* 
*CALL,HPACOM1 
*CALL,HPACOM2 
  
      COMMON /P1P2/ P1MSG (32, 5), P2MSG (64, 5), P1MK (9, 12), 
     .              P1K (32, 11), P2K (64, 6), PRK (32, 7), SIGNAL (32) 
      DIMENSION NMREG(6,3)
      DIMENSION GROUP(4)
  
      DIMENSION MSG (7,4) 
      DIMENSION P923(64,6), SBIT(24,2), GRP(8), PK(5) 
      DIMENSION P93(8,13) 
      DIMENSION PK281(8)
* 
      DATA(P93(1,I),I=1,13) /10HDE-CPX09  ,10HDW-CPX22  ,10HDW-CPX23  , 
     .         10HGA-CPX21  ,10HUX-CPX24  ,10HGA-C21,TE-,10HC09,UW-C22, 
     .         10H,UW-C23,UX,10H-C24      ,10HTE-CO9,UW-,10HC22,UW-C23, 
     .         10H,UX-C24,UY,10H-C21      / 
      DATA(P93(2,I),I=1,13) /10HDW-CPX25  ,10HDW-CPX26  ,10HGA-CPX21  , 
     .         10H          ,10H          ,10HGA-C21,UW-,10HD01,UW-D02, 
     .         10H          ,10H          ,10HUW-D01,UW-,10HD02,UY-C21, 
     .         10H          ,10H          / 
      DATA(P93(3,I),I=1,13) /10HDW-CPX22  ,10HDW-CPX23  ,10HGA-CPX21  , 
     .         10HUX-CPX24  ,10H          ,10HGA-C21,UW-,10HC22,UW-C23, 
     .         10H,UX-C24   ,10H          ,10HUW-C22,UW-,10HC23,UX-C24, 
     .         10H,UY-C21   ,10H          / 
      DATA(P93(4,I),I=1,13) /10HDW-CPX25  ,10HDW-CPX26  ,10HGA-CPX21  , 
     .         10H          ,10H          ,10HGA-C21,UW-,10HD01,GA-C21, 
     .         10H          ,10H          ,10HUW-D01,UW-,10HD02,UY-C21, 
     .         10H          ,10H          / 
      DATA(P93(5,I),I=1,13) /10HDW-CPX22  ,10HDW-CPX23  ,10HGA-CPX21  , 
     .         10HUX-CPX24  ,10H          ,10HGA-C21,UW-,10HC22,UW-C23, 
     .         10H,UX-C24   ,10H          ,10HUW-C22,UW-,10HC23,UW-C24, 
     .         10H,UY-C21   ,10H          / 
      DATA(P93(6,I),I=1,13) /10HDW-CPX25  ,10HDW-CPX26  ,10HGA-CPX21  , 
     .         10H          ,10H          ,10HGA-C21,UW-,10HD01,UW-D02, 
     .         10H          ,10H          ,10HUW-D01,UW-,10HD02,UY-C21, 
     .         10H          ,10H          / 
      DATA(P93(7,I),I=1,13) /10HDW-CPX22  ,10HDW-CPX23  ,10HGA-CPX21  , 
     .         10HUX-CPX24  ,10H          ,10HGA-C21,UW-,10HC22,UW-C23, 
     .         10H,UX-C24   ,10H          ,10HUW-C22,UW-,10HC23,UX-C24, 
     .         10H,UY-C21   ,10H          / 
      DATA(P93(8,I),I=1,13) /10HDW-CPX25  ,10HDW-CPX26  ,10HGA-CPX21  , 
     .         10H          ,10H          ,10HGA-C21,UW-,10HD01,UW-D02, 
     .         10H          ,10H          ,10HUW-D01,UW-,10HD02,UY-C21, 
     .         10H          ,10H          / 
* 
      DATA(P923(1,I),I=1,6) /10HVALID CACH,10HE CEL ENTR,10HY         , 
     .                       10H      QZ5D,10HQZ-C02,RW-,10HA21       / 
      DATA(P923(2,I),I=1,6) /10HUNLOGGED E,10HRROR      ,10H          , 
     .                       10H      QZ5E,10HQZ-C02,RW-,10HA21       / 
      DATA(P923(3,I),I=1,6) /10HNOT USED  ,10H          ,10H          , 
     .                       10H          ,10HRW-A21    ,10H          / 
      DATA(P923(4,I),I=1,6) /10HLRU STATUS,10H ARRAY COU,10HNTERS     , 
     .                       10H    BLPLCG,10HPL-B10,RW-,10HA21       / 
      DATA(P923(5,I),I=1,6) /10HNOT USED  ,10H          ,10H          , 
     .                       10H          ,10HRW-A21    ,10H          / 
      DATA(P923(6,I),I=1,6) /10HNOT USED  ,10H          ,10H          , 
     .                       10H          ,10HRW-A21    ,10H          / 
      DATA(P923(7,I),I=1,6) /10HNOT USED  ,10H          ,10H          , 
     .                       10H          ,10HRW-A21    ,10H          / 
      DATA(P923(8,I),I=1,6) /10HTAG ARRAY ,10HMULTIPLE H,10HIT        , 
     .                       10H    BLMHAS,10HPL-B10,RW-,10HA21       / 
      DATA(P923(9,I),I=1,6) /10HBN TAG ARR,10HAY, BLOCKS,10H 0,1      , 
     .                       10H     APB00,10HPP-B04,RW-,10HA20       / 
      DATA(P923(10,I),I=1,6)/10HBN TAG ARR,10HAY, BLOCKS,10H 2,3      , 
     .                       10H     APB01,10HPP-B06,RW-,10HA20       / 
      DATA(P923(11,I),I=1,6)/10HBN TAG ARR,10HAY, BLOCKS,10H 4,5      , 
     .                       10H     APB02,10HPP-B03,RW-,10HA20       / 
      DATA(P923(12,I),I=1,6)/10HBN TAG ARR,10HAY, BLOCKS,10H 6,7      , 
     .                       10H     APB03,10HPP-B07,RW-,10HA20       / 
      DATA(P923(13,I),I=1,6)/10HASID TAG A,10HRRAY, BLOC,10HKS 0,1    , 
     .                       10H    AQANE0,10HPQ-B02,RW-,10HA20       / 
      DATA(P923(14,I),I=1,6)/10HASID TAG A,10HRRAY, BLOC,10HKS 2,3    , 
     .                       10H    AQANE1,10HPQ-B08,RW-,10HA20       / 
      DATA(P923(15,I),I=1,6)/10HASID TAG A,10HRRAY, BLOC,10HKS 4,5    , 
     .                       10H    AQANE2,10HPQ-B01,RW-,10HA20       / 
      DATA(P923(16,I),I=1,6)/10HASID TAG A,10HRRAY, BLOC,10HKS 6,7    , 
     .                       10H    AQANE3,10HPQ-B09,RW-,10HA20       / 
      DATA(P923(17,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 0     , 
     .                       10H    AQASH0,10HPQ-B02,RW-,10HA19       / 
      DATA(P923(18,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 1     , 
     .                       10H    AQASH1,10HPQ-B02,RW-,10HA19       / 
      DATA(P923(19,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 2     , 
     .                       10H    AQASH2,10HPQ-B08,RW-,10HA19       / 
      DATA(P923(20,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 3     , 
     .                       10H    AQASH3,10HPQ-B08,RW-,10HA19       / 
      DATA(P923(21,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 4     , 
     .                       10H    AQASH4,10HPQ-B01,RW-,10HA19       / 
      DATA(P923(22,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 5     , 
     .                       10H    AQASH5,10HPQ-B01,RW-,10HA19       / 
      DATA(P923(23,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 6     , 
     .                       10H    AQASH6,10HPQ-B09,RW-,10HA19       / 
      DATA(P923(24,I),I=1,6)/10HASID COMPA,10HRE, BIT BL,10HOCK 7     , 
     .                       10H    AQASH7,10HPQ-B09,RW-,10HA19       / 
      DATA(P923(25,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 0       , 
     .                       10H    AQBNH0,10HPQ-B02,RW-,10HA18       / 
      DATA(P923(26,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 1       , 
     .                       10H    AQBNH1,10HPQ-B02,RW-,10HA18       / 
      DATA(P923(27,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 2       , 
     .                       10H    AQBNH2,10HPQ-B08,RW-,10HA18       / 
      DATA(P923(28,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 3       , 
     .                       10H    AQBNH3,10HPQ-B08,RW-,10HA18       / 
      DATA(P923(29,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 4       , 
     .                       10H    AQBNH4,10HPQ-B01,RW-,10HA18       / 
      DATA(P923(30,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 5       , 
     .                       10H    AQBNH5,10HPQ-B01,RW-,10HA18       / 
      DATA(P923(31,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 6       , 
     .                       10H    AQBNH6,10HPQ-B09,RW-,10HA18       / 
      DATA(P923(32,I),I=1,6)/10HBN COMPARE,10H, BIT BLOC,10HK 7       , 
     .                       10H    AQBNH7,10HPQ-B09,RW-,10HA18       / 
      DATA(P923(33,I),I=1,6)/10HVALID MAP ,10HCEL ENTRY ,10H          , 
     .                       10H      QZ5A,10HQZ-C02,RW-,10HA16       / 
      DATA(P923(34,I),I=1,6)/10HUNLOGGED E,10HRORR      ,10H          , 
     .                       10H      QZ5B,10HQZ-C02,RW-,10HA16       / 
      DATA(P923(35,I),I=1,6)/10HNOT USED  ,10H          ,10H          , 
     .                       10H          ,10HRW-A16    ,10H          / 
      DATA(P923(36,I),I=1,6)/10HNOT USED  ,10H          ,10H          , 
     .                       10H          ,10HRW-A16    ,10H          / 
      DATA(P923(37,I),I=1,6)/10HNOT USED  ,10H          ,10H          , 
     .                       10H          ,10HRW-A16    ,10H          / 
      DATA(P923(38,I),I=1,6)/10HSEGMENT FI,10HLE TAG PE ,10H          , 
     .                       10H   *NGSFPE,10HQG-D08,RW-,10HA16       / 
      DATA(P923(39,I),I=1,6)/10HMULTIPLE H,10HIT, SEGMEN,10HT FILE    , 
     .                       10H   *NGMULT,10HQG-D08,RW-,10HA16       / 
      DATA(P923(40,I),I=1,6)/10HMULTIPLE H,10HIT, PAGE F,10HILE       , 
     .                       10H   *NDMULT,10HQD-D09,RW-,10HA16       / 
      DATA(P923(41,I),I=1,6)/10HSEGMENT FI,10HLE 0      ,10H          , 
     .                       10H   *NFSE00,10HQF-D06,RW-,10HA15       / 
      DATA(P923(42,I),I=1,6)/10HSEGMENT FI,10HLE 1      ,10H          , 
     .                       10H   *NFSE10,10HQF-D06,RW-,10HA15       / 
      DATA(P923(43,I),I=1,6)/10HSEGMENT FI,10HLE 0      ,10H          , 
     .                       10H   *NFSE01,10HQF-D07,RW-,10HA15       / 
      DATA(P923(44,I),I=1,6)/10HSEGMENT FI,10HLE 1      ,10H          , 
     .                       10H   *NFSE11,10HQF-D07,RW-,10HA15       / 
      DATA(P923(45,I),I=1,6)/10HSEGMENT FI,10HLE 0      ,10H          , 
     .                       10H   *NFSE02,10HQF-D11,RW-,10HA15       / 
      DATA(P923(46,I),I=1,6)/10HSEGMENT FI,10HLE 1      ,10H          , 
     .                       10H   *NFSE12,10HQF-D11,RW-,10HA15       / 
      DATA(P923(47,I),I=1,6)/10HSEGMENT FI,10HLE 0      ,10H          , 
     .                       10H   *NFSE03,10HQF-D12,RW-,10HA15       / 
      DATA(P923(48,I),I=1,6)/10HSEGMENT FI,10HLE 1      ,10H          , 
     .                       10H   *NFSE13,10HQF-D12,RW-,10HA15       / 
      DATA(P923(49,I),I=1,6)/10HPAGE FILE ,10H0         ,10H          , 
     .                       10H   *NTPE00,10HQF-D06,QT-,10HD19,RW-A14/ 
      DATA(P923(50,I),I=1,6)/10HPAGE FILE ,10H1         ,10H          , 
     .                       10H   *NTPE10,10HQF-D06,QT-,10HD19,RW-A14/ 
      DATA(P923(51,I),I=1,6)/10HPAGE FILE ,10H2         ,10H          , 
     .                       10H   *NTPE20,10HQF-D06,QT-,10HD19,RW-A14/ 
      DATA(P923(52,I),I=1,6)/10HPAGE FILE ,10H3         ,10H          , 
     .                       10H   *NTPE30,10HQF-D06,QT-,10HD19,RW-A14/ 
      DATA(P923(53,I),I=1,6)/10HPAGE FILE ,10H0         ,10H          , 
     .                       10H   *NTPE01,10HQF-D07,QT-,10HD19,RW-A14/ 
      DATA(P923(54,I),I=1,6)/10HPAGE FILE ,10H1         ,10H          , 
     .                       10H   *NTPE11,10HQF-D07,QT-,10HD19,RW-A14/ 
      DATA(P923(55,I),I=1,6)/10HPAGE FILE ,10H2         ,10H          , 
     .                       10H   *NTPE21,10HQF-D07,QT-,10HD19,RW-A14/ 
      DATA(P923(56,I),I=1,6)/10HPAGE FILE ,10H3         ,10H          , 
     .                       10H   *NTPE31,10HQF-D07,QT-,10HD19,RW-A14/ 
      DATA(P923(57,I),I=1,6)/10HPAGE FILE ,10H0         ,10H          , 
     .                       10H   *NTPE02,10HQF-D11,QT-,10HD19,RW-A13/ 
      DATA(P923(58,I),I=1,6)/10HPAGE FILE ,10H1         ,10H          , 
     .                       10H   *NTPE12,10HQF-D11,QT-,10HD19,RW-A13/ 
      DATA(P923(59,I),I=1,6)/10HPAGE FILE ,10H2         ,10H          , 
     .                       10H   *NTPE22,10HQF-D11,QT-,10HD19,RW-A13/ 
      DATA(P923(60,I),I=1,6)/10HPAGE FILE ,10H3         ,10H          , 
     .                       10H   *NTPE32,10HQF-D11,QT-,10HD19,RW-A13/ 
      DATA(P923(61,I),I=1,6)/10HPAGE FILE ,10H0         ,10H          , 
     .                       10H   *NTPE03,10HQF-D12,QT-,10HD19,RW-A13/ 
      DATA(P923(62,I),I=1,6)/10HPAGE FILE ,10H1         ,10H          , 
     .                       10H   *NTPE13,10HQF-D12,QT-,10HD19,RW-A13/ 
      DATA(P923(63,I),I=1,6)/10HPAGE FILE ,10H2         ,10H          , 
     .                       10H   *NTPE23,10HQF-D12,QT-,10HD19,RW-A13/ 
      DATA(P923(64,I),I=1,6)/10HPAGE FILE ,10H3         ,10H          , 
     .                       10H   *NTPE33,10HQF-D12,QT-,10HD19,RW-A13/ 
* 
      DATA(SBIT(I,1),I=1,24) /Z"38",Z"34",Z"2C",Z"1C",Z"2A",Z"1A",
     .      Z"26",Z"16",Z"29",Z"19",Z"25",Z"15",Z"23",Z"13",Z"0B",
     .      Z"37",Z"2F",Z"1F",Z"20",Z"10",Z"08",Z"04",Z"02",Z"01"/
      DATA(SBIT(I,2),I=1,24) /2H 0,2H 1,2H 2,2H 3,2H 4,2H 5,2H 6, 
     .    2H 7,2H 8,2H 9,2H10,2H11,2H12,2H13,2H14,2H15,2H16,2H17, 
     .              2HE0,2HE1,2HE2,2HE3,2HE4,2HE5/
      DATA(PK(L),L=1,5) / 8HDR-CPX16,8HDR-CPX17,8HDR-CPX18, 
     .                    8HDR-CPX19,8HDS-CPX20/
      DATA(PK281(I),I=1,8) /6HRW-A21,6HRW-A20,6HRW-A19,6HRW-A18,
     .                      6HRW-A16,6HRW-A15,6HRW-A14,6HRW-A13/
* 
      DATA (MSG(1,J),J=1,4) / 
     .10HDEADSTART ,10HERROR LOG ,10HPROCESSOR ,10HERROR     /
      DATA (MSG(2,J),J=1,4) / 
     .10HEXPRESS DE,10HADSTART DU,10HMP PROCESS,10HOR ERROR  /
      DATA (MSG(3,J),J=1,4) / 
     .10HCORRECTED ,10HPROCESSOR ,10HERROR     ,10H          /
      DATA (MSG(4,J),J=1,4) / 
     .10HUNCORRECTE,10HD PROCESSO,10HR ERROR   ,10H          /
      DATA (MSG(5,J),J=1,4) / 
     .10HFATAL CPU ,10HHALT CLASS,10H 1        ,10H          /
      DATA (MSG(6,J),J=1,4) / 
     .10HUNIDENTIFI,10HED DFT ERR,10HOR CODE   ,10H          /
      DATA (MSG(7,J),J=1,4) / 
     .10HMULTIPLE E,10HRROR OCCUR,10HRENCE     ,10H          /
  
      DATA ((P1K(I,J),I=1,32),J=3,11)/288*10H          /
      DATA((P1MK(I,J),I=1,9),J=3,11)/81*10H          /
      DATA(P1MK(I,12),I=1,9)/1,2,3,4,17,19,22,29,31/
      DATA ((P2K(I,J),I=1,64),J=3,6) /256*10H          /
      DATA((PRK(I,J),I=1,32),J=2,7)/192*10H          /
      DATA (P1MSG(I,5),I=1,32) /32*0/ 
      DATA (P2MSG(I,5),I=1,64) /64*0/ 
*          S1CR SIGNAL NAMES
      DATA(SIGNAL(I),I=1,32)/ 
     .6HUM1CPE,  6HUM2CPE,  6HUM3CPE,  6HUM4CPE,  6HDE1201, 
     .6HDE1207,  6HDE12BC,  6HDE12PB,  6HDE17PO,  6HDF1CPF, 
     .6HDL19PC,  6HPR18PE,  6HPS1CAP,  6HDE1205,  6HDF2CPF, 
     .6HUN11PE,  6HDE1AHU,  6HPH14PP,  6HPH14IP,  6HPR18XP, 
     .6HDF3CPF,  6HPV1DPE,  6HPH14PE,  6HDF4CPF,  6HDW15PE, 
     .6HDW25PE,  6HDW35PE,  6HDW45PE,  6HUX1BMH,  6H      , 
     .6HUM19AD,  6HUM29AD/
* 
*      TABLE OF P1 POTENTIALLY BAD PAKS 
* 
      DATA(P1K(01,I),I=1,10)/10HUM-C16,TC-,10HC10,TD-C11,10H,TE-C09   , 
     .                       10HTF-C03,TF-,10HC06,TR-C12,10H,TL-C15   , 
     .                       10HTS-C07,TV-,10HC13,UM-C17,10H,UM-C18   , 
     .                       10HUQ-B20    / 
      DATA(P1K(02,I),I=1,10)/10HUM-C17,TC-,10HC10,TD-C11,10H,TF-C03   , 
     .                       10HTF-C05,TF-,10HC06,TR-C12,10H,TL-C15   , 
     .                       10HTS-C07,TV-,10HC13,UM-C16,10H,UM-C18   , 
     .                       10HUQ-B20    / 
      DATA(P1K(03,I),I=1,11)/10HUM-C18,TC-,10HC10,TD-C11,10H,TF-C04   , 
     .                       10HTF-C06,TR-,10HC12,TS-C07,10H,TL-C15   , 
     .                       10HTV-C13,UM-,10HC16,UM-C17,10H,UM-C19   , 
     .                       10HUQ-B20,UX-,10HC24       / 
      DATA(P1K(04,I),I=1,10)/10HUM-C19,TC-,10HC10,TD-C11,10H,TF-C04   , 
     .                       10HTF-C06,TR-,10HC12,TS-C07,10H,TL-C15   , 
     .                       10HTV-C13,UM-,10HC16,UM-C17,10H,UM-C18   , 
     .                       10HUQ-B20    / 
      DATA(P1K(05,I),I=1,02)/10HTE-C09,UM-,10HC16       / 
      DATA(P1K(06,I),I=1,02)/10HTE-C09,UM-,10HC16       / 
      DATA(P1K(07,I),I=1,02)/10HTE-C09,UM-,10HC16,UM-C18/ 
      DATA(P1K(08,I),I=1,02)/10HTE-C09,UM-,10HC16       / 
      DATA(P1K(09,I),I=1,03)/10HTE-C09,TC-,10HC10,UM-C17,10H,UM-C19   / 
      DATA(P1K(10,I),I=1,08)/10HTF-C03,TF-,10HC04,TF-C06,10H,TG-C02   , 
     .                       10HTJ-C14,TM-,10HC08,UM-C16,10H,UM-C17   , 
     .                       10HUM-C19,UX-,10HC24       / 
      DATA(P1K(11,I),I=1,02)/10HTL-C15,UM-,10HC17,UM-C18/ 
      DATA(P1K(12,I),I=1,02)/10HTR-C12,UM-,10HC17       / 
      DATA(P1K(13,I),I=1,08)/10HTS-C07,TC-,10HC10,TD-C11,10H,TF-C03   , 
     .                       10HTF-C04,TF-,10HC05,TF-C06,10H,TV-C13   , 
     .                       10HUM-C17,UM-,10HC18,UM-C19/ 
      DATA(P1K(14,I),I=1,02)/10HTE-C09,UM-,10HC17       / 
      DATA(P1K(15,I),I=1,06)/10HTF-C04,TF-,10HC03,TF-C05,10H,TG-C02   , 
     .                       10HUM-C17,UM-,10HC18,UM-C19,10H,UX-C24   / 
      DATA(P1K(16,I),I=1,03)/10HUN-C20,TF-,10HC06,TV-C13,10H,UM-C17   / 
      DATA(P1K(17,I),I=1,03)/10HTE-C09,SA-,10HA11,UM-C18,10H,UY-C21   / 
      DATA(P1K(18,I),I=1,02)/10HTH-C01,UM-,10HC18       / 
      DATA(P1K(19,I),I=1,02)/10HTH-C01,UM-,10HC18,UY-C21/ 
      DATA(P1K(20,I),I=1,02)/10HTR-C12,UM-,10HC18       / 
      DATA(P1K(21,I),I=1,07)/10HTF-C05,TF-,10HC04,TF-C06,10H,TH-C01   , 
     .                       10HUM-C16,UM-,10HC17,UM-C18,10H,UW-C22   , 
     .                       10HUW-C23    / 
      DATA(P1K(22,I),I=1,09)/10HTV-C13,TD-,10HC11,TE-C09,10H,TF-C03   , 
     .                       10HTF-C04,TF-,10HC05,TF-C06,10H,TL-C15   , 
     .                       10HUM-C16,UM-,10HC17,UM-C18,10H,UM-C19   / 
      DATA(P1K(23,I),I=1,02)/10HTH-C01,UM-,10HC18       / 
      DATA(P1K(24,I),I=1,06)/10HTF-C06,TF-,10HC03,TF-C05,10H,TH-C01   , 
     .                       10HUM-C18,UM-,10HC19,UW-D01,10H,UW-D02   / 
      DATA(P1K(25,I),I=1,05)/10HUW-C22,TE-,10HC09,TF-C05,10H,UM-C16   , 
     .                       10HUM-C19,UW-,10HC23,UW-D02/ 
      DATA(P1K(26,I),I=1,05)/10HUW-C23,TE-,10HC09,TF-C05,10H,UM-C17   , 
     .                       10HUM-C19,UW-,10HC22,UW-D01/ 
      DATA(P1K(27,I),I=1,07)/10HUW-D01,TD-,10HC11,TE-C09,10H,TF-C06   , 
     .                       10HUM-C18,UM-,10HC19,UW-C22,10H,UW-C23   , 
     .                       10HUW-D02    / 
      DATA(P1K(28,I),I=1,04)/10HUW-D02,TE-,10HC09,UM-C19,10H,UW-C22   , 
     .                       10HUW-D01    / 
      DATA(P1K(29,I),I=1,05)/10HUX-C24,UM-,10HC19,UW-C22,10H,UW-C23   , 
     .                       10HUW-D01,UW-,10HD02,UY-C21/ 
      DATA(P1K(30,I),I=1,02)/10H          ,10H          / 
      DATA(P1K(31,I),I=1,05)/10HUK-B15,UM-,10HC16,UM-C17,10H,UQ-B20   , 
     .                       10HUM-C19,UM-,10HC18       / 
      DATA(P1K(32,I),I=1,04)/10HUM-C16,UM-,10HC17,UM-C18,10H,UM-C19   , 
     .                       10HUN-C20    / 
* 
*         TABLE OF 815 (S1 MINUS) PROCESSOR POTENTIAL BAD PAKS -- 
*         DIFFERENT FROM TABLE P1K
* 
      DATA(P1MK(1,I),I=1,10)/10HUM-C16,GB-,10HC15,GC-B20,10H,TC-C10   , 
     .                       10HTD-C11,TE-,10HC09,TF-C03,10H,TF-C06   , 
     .                       10HTR-C12,TS-,10HC07,TV-C13,10H,UM-C17   , 
     .                       10HUM-C18    / 
      DATA(P1MK(2,I),I=1,10)/10HUM-C17,GB-,10HC15,GC-B20,10H,TC-C10   , 
     .                       10HTD-C11,TF-,10HC03,TF-C05,10H,TF-C06   , 
     .                       10HTR-C12,TS-,10HC07,TV-C13,10H,UM-C16   , 
     .                       10HUM-C18    / 
      DATA(P1MK(3,I),I=1,11)/10HUM-C18,GB-,10HC15,GC-B20,10H,TC-C10   , 
     .                       10HTD-C11,TF-,10HC04,TF-C06,10H,TR-C12   , 
     .                       10HTS-C07,TV-,10HC13,UM-C16,10H,UM-C17   , 
     .                       10HUM-C19,UX-,10HC24       / 
      DATA(P1MK(4,I),I=1,10)/10HUM-C19,GB-,10HC15,GC-B20,10H,TC-C10   , 
     .                       10HTD-C11,TF-,10HC04,TF-C06,10H,TR-C12   , 
     .                       10HTS-C07,TV-,10HC13,UM-C16,10H,UM-C17   , 
     .                       10HUM-C18    / 
      DATA(P1MK(5,I),I=1,03)/10HTE-C09,GA-,10HC21,SA-A11,10H,UM-C18   / 
      DATA(P1MK(6,I),I=1,02)/10HTH-C01,GA-,10HC21,UM-C18/ 
      DATA(P1MK(7,I),I=1,09)/10HTV-C13,GB-,10HC15,TD-C11,10H,TE-C09   , 
     .                       10HTF-C03,TF-,10HC04,TF-C05,10H,TF-C06   , 
     .                       10HUM-C16,UM-,10HC17,UM-C18,10H,UM-C19   / 
      DATA(P1MK(8,I),I=1,05)/10HUX-C24,GA-,10HC21,UM-C19,10H,UW-C22   , 
     .                       10HUW-C23,UW-,10HD01,UW-D02/ 
      DATA(P1MK(9,I),I=1,05)/10HUK-B15,GC-,10HB20,UM-C16,10H,UM-C17   , 
     .                       10HUM-C18,UM-,10HC19       / 
* 
*        TABLE OF P1CR POTENTIAL BAD PAKS 
* 
      DATA(PRK(01,I),I=1,7)/10HDR16  TC10,10HTD11  DE09,10HDF03  DF06,
     .        10HDR17  DR18,10HGL15  TR12,10HTS07  TV13,10HDQ02  MQ02/
      DATA(PRK(02,I),I=1,7)/10HDR17  TC10,10HTD11  DF03,10HDF05  DF06,
     .        10HDR16  DR18,10HGL15  TR12,10HTS07  TV13,10HDQ02  MQ02/
      DATA(PRK(03,I),I=1,7)/10HDR18  TC10,10HTD11  DF04,10HDF06  DR16,
     .        10HDR17  DR19,10HGL15  TR12,10HTS07  TV13,10HDQ02  MQ02/
      DATA(PRK(04,I),I=1,7)/10HDR19  TC10,10HTD11  DF04,10HDF06  DR16,
     .        10HDR17  DR18,10HGL15  TR12,10HTS07  TV13,10HDQ02  MQ02/
      DATA PRK(05,1)/10HDE09  DR16/ 
      DATA PRK(06,1)/10HDE09  DR16/ 
      DATA(PRK(07,I),I=1,2)/10HDE09  DR16,10HDR18      /
      DATA PRK(08,1)/10HDE09  DR16/ 
      DATA(PRK(09,I),I=1,2)/10HDE09  DR17,10HDR19  TC10/
      DATA(PRK(10,I),I=1,5)/10HDF03  DF04,10HDF06  DR16,10HDR17  DR19,
     .        10HTG02  TJ14,10HTM08  UX24/
      DATA(PRK(11,I),I=1,2)/10HGL15  DR17,10HDR18      /
      DATA PRK(12,1)/10HTR12  DR17/ 
      DATA(PRK(13,I),I=1,6)/10HTS07  TC10,10HTD11  DF03,10HDF04  DF05,
     .        10HDF06  DR17,10HDR18  DR19,10HTV13      /
      DATA PRK(14,1)/10HDE09  DR17/ 
      DATA(PRK(15,I),I=1,4)/10HDF04  DF03,10HDF05  DR17,10HDR18  DR19,
     .        10HTG02  UX24/
      DATA(PRK(16,I),I=1,2)/10HDS20  DF06,10HDR17  TV13/
      DATA(PRK(17,I),I=1,4)/10HDE09  DR18,10HDW22  DW23,10HDW25  DW26,
     .        10HGA21      /
      DATA PRK(18,1)/10HTH01  DR18/ 
      DATA(PRK(19,I),I=1,2)/10HTH01  DR18,10HGA21      /
      DATA PRK(20,1)/10HTR12  DR18/ 
      DATA(PRK(21,I),I=1,5)/10HDF05  DF04,10HDF06  DR16,10HDR17  DR18,
     .        10HDW22  DW23,10HTH08      /
      DATA(PRK(22,I),I=1,6)/10HTV13  DE09,10HDF03  DF04,10HDF05  DF06,
     .        10HDR16  DR17,10HDR18  DR19,10HGL15  TD11/
      DATA PRK(23,1)/10HTH01  DR18/ 
      DATA(PRK(24,I),I=1,4)/10HDF06  DF03,10HDF05  DR18,10HDR19  DW25,
     .        10HDW26  TH01/
      DATA(PRK(25,I),I=1,4)/10HDW22  DE09,10HDF05  DR16,10HDR19  DW23,
     .        10HDW26      /
      DATA(PRK(26,I),I=1,4)/10HDW23  DE09,10HDF05  DR17,10HDR19  DW22,
     .        10HDW25      /
      DATA(PRK(27,I),I=1,5)/10HDW25  DE09,10HDF06  DR18,10HDR19  DW22,
     .        10HDW23  DW26,10HTD11      /
      DATA(PRK(28,I),I=1,3)/10HDW26  DE09,10HDR19  DW22,10HDW25      /
      DATA(PRK(29,I),I=1,4)/10HUX24  DR19,10HDW22  DW23,10HDW25  DW26,
     .        10HGA21      /
      DATA PRK(30,1)/10H          / 
      DATA(PRK(31,I),I=1,4)/10HUK27  DQ02,10HDR16  DR17,10HDR18  DR19,
     .        10HMQ02      /
      DATA(PRK(32,I),I=1,3)/10HDR16  DR17,10HDR18  DR19,10HDS20      /
* 
*       TABLE OF P2 POTENTIALLY BAD PAKS
* 
      DATA(P2K(01,I),I=1,6)/10HQA-D15,PM-,10HD01,PQ-B02,10H,QT-D19   ,
     .                      10HRF-C07,RF-,10HC08,RE-C09,10H,*PQ-B01  /
      DATA(P2K(02,I),I=1,6)/10HQA-D16,PM-,10HD02,PP-B04,10H,RF-C10   ,
     .                      10HRF-C11,RS-,10HC15,RB-C22,10H,*PP-B03  /
      DATA(P2K(03,I),I=1,6)/10HRB-C22,QA-,10HD17,PM-D03,10H,PP-B06   ,
     .                      10HRF-C17,RF-,10HC18,*PP-B0,10H7,RW-A21  /
      DATA(P2K(04,I),I=1,6)/10HQA-D18,RA-,10HC23,PM-D04,10H,PQ-B08   ,
     .                      10HRF-C19,RF-,10HC20,*PQ-B0,10H9,RW-A21  /
      DATA(P2K(05,I),I=1,4)/10HPK-B11,PB-,10HB20,PA-B15,10H,*PK-B12  ,
     .                      10HRW-A21    /
      DATA(P2K(06,I),I=1,4)/10HPK-B11,PB-,10HB23,PA-B15,10H,*PK-B12  ,
     .                      10HRW-A21    /
      DATA(P2K(07,I),I=1,5)/10HPK-B13,PB-,10HB21,RM-C21,10H,PA-B15   ,
     .                      10H*PK-B14,RW,10H-A21      /
      DATA(P2K(08,I),I=1,5)/10HPK-B13,PB-,10HB24,PH-B17,10H,PA-B15   ,
     .                      10H*PK-B14,RW,10H-A21      /
      DATA(P2K(09,I),I=1,6)/10HPB-B20,PK-,10HB11,PM-D01,10H,PQ-B02   ,
     .                      10HPC-D20,*PQ,10H-B01*PK-B1,10H2,RW-A20  /
      DATA(P2K(10,I),I=1,6)/10HPB-B23,PK-,10HB11,PM-D02,10H,PP-B04   ,
     .                      10HPC-D23,*PP,10H-B03*PK-B1,10H2,RW-A20  /
      DATA(P2K(11,I),I=1,6)/10HPB-B21,PK-,10HB13,PM-D03,10H,PP-B06   ,
     .                      10HPC-D21,PA-,10HB15,*PP-B0,10H7*PK-B14  /
      DATA(P2K(12,I),I=1,6)/10HPB-B24,PK-,10HB13,PM-D04,10H,PQ-B08   ,
     .                      10HPC-D24,PA-,10HD15,*PQ-B0,10H9*PK-B14  /
      DATA(P2K(13,I),I=1,4)/10HPB-B20,PK-,10HB11,*PK-B1,10H2,PK-B13  ,
     .                      10HRW-A20    /
      DATA(P2K(14,I),I=1,4)/10HPB-B23,PK-,10HB11,*PK-B1,10H2,PK-B13  ,
     .                      10HRW-A20    /
      DATA(P2K(15,I),I=1,3)/10HPB-B21,PK-,10HB13,*PK-B1,10H4,RW-A20  /
      DATA(P2K(16,I),I=1,3)/10HPB-B24,PK-,10HB13,*PK-B1,10H4,RW-A20  /
      DATA(P2K(17,I),I=1,2)/10HPD-B22,PN-,10HD05,RW-A19/
      DATA(P2K(18,I),I=1,2)/10HPD-B22,RW-,10HA19,PN-D05/
      DATA(P2K(19,I),I=1,6)/10HPL-B10,PN-,10HD05,PP-B04,10H,PP-B06   ,
     .                      10HPQ-B02,QN-,10HC24,QZ-C02,10H,RG-C14   /
      DATA(P2K(20,I),I=1,2)/10HRW-A19    ,10H          /
      DATA(P2K(21,I),I=1,2)/10HPL-B10,RW-,10HA19       /
      DATA(P2K(22,I),I=1,2)/10HPD-B22,PK-,10HB11,RW-A19/
      DATA(P2K(23,I),I=1,3)/10HPD-B22,PE-,10HD22,PK-B11,10H,RW-A19   /
      DATA(P2K(24,I),I=1,2)/10HPD-B22,PK-,10HB13,RW-A19/
      DATA(P2K(25,I),I=1,3)/10HPL-B10,PR-,10HB05,PD-B22,10H,RW-A18   /
      DATA(P2K(26,I),I=1,3)/10HPL-B10,RW-,10HA18,PJ-B16,10H,PG-B18   /
      DATA(P2K(27,I),I=1,2)/10HPD-B22,PL-,10HB10,RW-A18/
      DATA(P2K(28,I),I=1,2)/10HPL-B10,RW-,10HA18,PP-B06/
      DATA(P2K(29,I),I=1,2)/10HPD-B22,RW-,10HA18,PP-B04/
      DATA(P2K(30,I),I=1,2)/10HPN-D05,RW-,10HA18       /
      DATA(P2K(31,I),I=1,4)/10HPD-B22,RG-,10HC14,QD-D09,10H,PL-B10   ,
     .                      10HRW-A18    /
      DATA(P2K(32,I),I=1,2)/10HRH-A22,RW-,10HA18       /
      DATA(P2K(33,I),I=1,4)/10HRF-C07,RD-,10HA23,PB-B20,10H,RW-A20   ,
     .                      10HRW-A16    /
      DATA(P2K(34,I),I=1,4)/10HRF-C08,RD-,10HA24,PB-B20,10H,RW-A20   ,
     .                      10HRW-A16    /
      DATA(P2K(35,I),I=1,6)/10HRF-C10,RS-,10HC15,RM-C21,10H,RD-A23   ,
     .                      10HRB-C22,QD-,10HD09,PB-B23,10H,RW-A21   /
      DATA(P2K(36,I),I=1,6)/10HRF-C11,QM-,10HC04,RD-A24,10H,RB-C22   ,
     .                      10HRG-C14,PB-,10HB23,RW-A21,10H,RW-A16   /
      DATA(P2K(37,I),I=1,5)/10HRF-C17,RD-,10HA23,RA-C23,10H,PB-B21   ,
     .                      10HQF-D06,RW-,10HA19,RW-A16/
      DATA(P2K(38,I),I=1,5)/10HRF-C18,RD-,10HA24,RA-C23,10H,PB-B21   ,
     .                      10HQF-D07,RW-,10HA19,RW-A16/
      DATA(P2K(39,I),I=1,6)/10HRF-C19,RG-,10HC14,RD-A23,10H,RB-C22   ,
     .                      10HQF-D11,PB-,10HB24,RW-A21,10H,RW-A16   /
      DATA(P2K(40,I),I=1,6)/10HRF-C20,RD-,10HA24,RB-C22,10H,QM-C04   ,
     .                      10HQF-D12,PB-,10HB24,RW-A21,10HRW-A16    /
      DATA(P2K(41,I),I=1,3)/10HRB-C22,QG-,10HD08,RW-A21,10H,RW-A15   /
      DATA(P2K(42,I),I=1,2)/10HQA-D15,QF-,10HD06,RW-A15/
      DATA(P2K(43,I),I=1,2)/10HQA-D16,QF-,10HD07,RW-A15/
      DATA(P2K(44,I),I=1,3)/10HQM-C04,QA-,10HD17,QF-D11,10H,RW-A15   /
      DATA(P2K(45,I),I=1,2)/10HQA-D18,QF-,10HD12,RW-A15/
      DATA(P2K(46,I),I=1,2)/10HRS-C15,QD-,10HD09,RW-A15/
      DATA(P2K(47,I),I=1,3)/10HQZ-C02,RG-,10HC14,RH-A22,10H,RW-A15   /
      DATA(P2K(48,I),I=1,2)/10HRW-A15    ,10H          /
      DATA(P2K(49,I),I=1,2)/10HRX-A11,RW-,10HA14       /
      DATA(P2K(50,I),I=1,2)/10HRW-A14    , 10H          / 
      DATA(P2K(51,I),I=1,2)/10HQU-E20,RW-,10HA14       /
      DATA(P2K(52,I),I=1,2)/10HQU-E21,RW-,10HA14       /
      DATA(P2K(53,I),I=1,2)/10HQV-E19,RW-,10HA14       /
      DATA(P2K(54,I),I=1,4)/10HQW-E22,QV-,10HE19,QU-E21,10H,QU-E20   ,
     .                      10HRW-A14    /
      DATA(P2K(55,I),I=1,2)/10HQN-C24,RW-,10HA14       /
      DATA(P2K(56,I),I=1,2)/10HRW-A14    ,10H          /
      DATA(P2K(57,I),I=1,3)/10HQV-E19,RE-,10HC09,RW-A20,10H,RW-A13   /
      DATA(P2K(58,I),I=1,2)/10HRC-E08,RW-,10HA20,RW-A13/
      DATA(P2K(59,I),I=1,2)/10HRL-C06,RW-,10HA13       /
      DATA(P2K(60,I),I=1,2)/10HRW-A13    ,10H          /
      DATA(P2K(61,I),I=1,2)/10HRG-C14,RW-,10HA13       /
      DATA(P2K(62,I),I=1,3)/10HQY-C03,QM-,10HC04,RH-A22,10H,RW-A13   /
      DATA(P2K(63,I),I=1,2)/10HRW-A13    ,10H          /
      DATA(P2K(64,I),I=1,2)/10HRW-A13    ,10H          /
* 
*       TABLE OF P1 MR ERROR MESSAGES AND SIGNAL NAME 
* 
      DATA(P1MSG(01,I),I=1,4)/10HARVI PE BI,10HTS 0-7,32-,10H39        ,
     .     10HUM1CPE    / 
      DATA(P1MSG(02,I),I=1,4)/10HARVI PE BI,10HTS 8-15,40,10H-47       ,
     .     10HUM2CPE    / 
      DATA(P1MSG(03,I),I=1,4)/10HARVI PE BI,10HTS 16-23,4,10H8-55      ,
     .     10HUM3CPE    / 
      DATA(P1MSG(04,I),I=1,4)/10HARVI PE BI,10HTS 24-31,5,10H6-63      ,
     .     10HUM4CPE    / 
      DATA(P1MSG(05,I),I=1,4)/10HUNCORRECTE,10HD MEMORY W,10HRITE      ,
     .     10HPE1201    / 
      DATA(P1MSG(06,I),I=1,4)/10HMEMORY REJ,10HECT       ,10H          ,
     .     10HPE1207    / 
      DATA(P1MSG(07,I),I=1,4)/10HMEMORY TAG,10H PE       ,10H          ,
     .     10HPE12BC    / 
      DATA(P1MSG(08,I),I=1,4)/10HRESPONSE C,10HODE PE    ,10H          ,
     .     10HPE12PB    / 
      DATA(P1MSG(09,I),I=1,4)/10HFP EXECPTI,10HON TRAP RO,10HM PE      ,
     .     10HPE17P0    / 
      DATA(P1MSG(10,I),I=1,4)/10HAD OR BD B,10HITS 0-15 P,10HE         ,
     .     10HPF1CPF    / 
      DATA(P1MSG(11,I),I=1,4)/10HLD BOX ROM,10H PE       ,10H          ,
     .     10HPL19PC    / 
      DATA(P1MSG(12,I),I=1,4)/10HADS OR BDS,10H ROM PE   ,10H          ,
     .     10HPR18PE    / 
      DATA(P1MSG(13,I),I=1,4)/10HSHIFT TYPE,10H ROM PE/SH,10HIFTER INP ,
     .     10HPS1CAP    / 
      DATA(P1MSG(14,I),I=1,4)/10HUNCORRECTE,10HD MEMORY R,10HEAD ERROR ,
     .     10HPE1205    / 
      DATA(P1MSG(15,I),I=1,4)/10HAD OR BD B,10HITS 16-31 ,10HPE        ,
     .     10HPF2CPF    / 
      DATA(P1MSG(16,I),I=1,4)/10HAD - UN PE,10H,MAC WRITE,10H PE       ,
     .     10HUN11PE    / 
      DATA(P1MSG(17,I),I=1,4)/10HMEMORY RES,10HPONSE TIME,10HOUT       ,
     .     10HPE1AHU    / 
      DATA(P1MSG(18,I),I=1,4)/10HCYBER ROM ,10HPE        ,10H          ,
     .     10HPH14PP    / 
      DATA(P1MSG(19,I),I=1,4)/10HINSTRUCTIO,10HN PARITY E,10HRROR      ,
     .     10HPH14IP    / 
      DATA(P1MSG(20,I),I=1,4)/10HXBD ROM PE,10H          ,10H          ,
     .     10HPR18XP    / 
      DATA(P1MSG(21,I),I=1,4)/10HAD OR BD B,10HITS 32-47 ,10HPE        ,
     .     10HPF3CPF    / 
      DATA(P1MSG(22,I),I=1,4)/10HBDP ADDER,,10HDATA ROM,R,10HJB,RKB PE ,
     .     10HPV1DPE    / 
      DATA(P1MSG(23,I),I=1,4)/10HIMMEDIATE ,10HROM       ,10H          ,
     .     10HPH14PE    / 
      DATA(P1MSG(24,I),I=1,4)/10HAD OR BD B,10HITS 48-63 ,10HPE        ,
     .     10HPF4CPF    / 
      DATA(P1MSG(25,I),I=1,4)/10HMAP PE BIT,10HS 32-39   ,10H          ,
     .     10HUW15PE    / 
      DATA(P1MSG(26,I),I=1,4)/10HMAP PE BIT,10HS 40-47   ,10H          ,
     .     10HUW25PE    / 
      DATA(P1MSG(27,I),I=1,4)/10HMAP PE BIT,10HS 48-55   ,10H          ,
     .     10HUW35PE    / 
      DATA(P1MSG(28,I),I=1,4)/10HMAP PE BIT,10HS 56-63   ,10H          ,
     .     10HUW45PE    / 
      DATA(P1MSG(29,I),I=1,4)/10HMAP MULTIP,10HLE HIT FAU,10HLT        ,
     .     10HUX1BMH    / 
      DATA(P1MSG(30,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .     10H          / 
      DATA(P1MSG(31,I),I=1,4)/10HMAC ERROR ,10H          ,10H          ,
     .     10HUM19AD    / 
      DATA(P1MSG(32,I),I=1,4)/10HANY CS DAT,10HA PE      ,10H          ,
     .     10HUM29AD    / 
* 
*       TABLE OF P2 MR ERROR MESSAGES AND SIGNAL NAME 
* 
      DATA(P2MSG(01,I),I=1,4)/10HCACHE INP,,10HADD./DATA ,10HBYTES 0-1 ,
     .10HD01/AMPO0 /
      DATA(P2MSG(02,I),I=1,4)/10HCACHE INP,,10HADD./DATA ,10HBYTES 2-3 ,
     .10HD02/AMPO1 /
      DATA(P2MSG(03,I),I=1,4)/10HCACHE INP,,10HADD./DATA ,10HBYTES 4-5 ,
     .10HD03/AMPO2 /
      DATA(P2MSG(04,I),I=1,4)/10HCACHE INP,,10HADD./DATA ,10HBYTES 6-7 ,
     .10HD04/AMPO3 /
      DATA(P2MSG(05,I),I=1,4)/10HCACHE OUT,,10HDATA BYTES,10H 0-1      ,
     .10HB20/DSCPO0/
      DATA(P2MSG(06,I),I=1,4)/10HCACHE OUT,,10HDATA BYTES,10H 2-3      ,
     .10HB23/DSCPO1/
      DATA(P2MSG(07,I),I=1,4)/10HCACHE OUT,,10HDATA BYTES,10H 4-5      ,
     .10HB21/DSCPO2/
      DATA(P2MSG(08,I),I=1,4)/10HCACHE OUT,,10HDATA BYTES,10H 6-7      ,
     .10HB24/DSCPO3/
      DATA(P2MSG(09,I),I=1,4)/10HPORT 0,DAT,10HA BYTES 0-,10H1         ,
     .10HB11/DKMP00/
      DATA(P2MSG(10,I),I=1,4)/10HPORT 0,DAT,10HA BYTES 2-,10H3         ,
     .10HB11/DKMP01/
      DATA(P2MSG(11,I),I=1,4)/10HPORT 0,DAT,10HA BYTES 4-,10H5         ,
     .10HB11/DKMP02/
      DATA(P2MSG(12,I),I=1,4)/10HPORT 0,DAT,10HA BYTES 6-,10H7         ,
     .10HB11/DKMP03/
      DATA(P2MSG(13,I),I=1,4)/10HPORT 1,DAT,10HA BYTES 0-,10H1         ,
     .10HB13/DKMP10/
      DATA(P2MSG(14,I),I=1,4)/10HPORT 1,DAT,10HA BYTES 2-,10H3         ,
     .10HB13/DKMP11/
      DATA(P2MSG(15,I),I=1,4)/10HPORT 1,DAT,10HA BYTES 4-,10H5         ,
     .10HB13/DKMP12/
      DATA(P2MSG(16,I),I=1,4)/10HPORT 1,DAT,10HA BYTES 6-,10H7         ,
     .10HB24/DKMP13/
      DATA(P2MSG(17,I),I=1,4)/10HIDENT RESP,10HONSE PORT ,10H0         ,
     .10HB22/BUMP0 /
      DATA(P2MSG(18,I),I=1,4)/10HIDENT RESP,10HONSE PORT ,10H1         ,
     .10HB22/BUMP1 /
      DATA(P2MSG(19,I),I=1,4)/10HIDENT,FNC,,10HPWRT CACHE,10H INP/OUT  ,
     .10HB10/BLPO  /
      DATA(P2MSG(20,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .10HA19/UNUSED/
      DATA(P2MSG(21,I),I=1,4)/10HCFR STATUS,10H GOOD     ,10H          ,
     .10HB10/BLSTCG/
      DATA(P2MSG(22,I),I=1,4)/10HRESPONSE C,10HODE = 1 ER,10HROR       ,
     .10HB11/BKRC1 /
      DATA(P2MSG(23,I),I=1,4)/10HRESPONSE C,10HODE = 5 ER,10HROR       ,
     .10HB11/BKRC5 /
      DATA(P2MSG(24,I),I=1,4)/10HRESPONSE C,10HODE = 7 ER,10HROR       ,
     .10HB22/BKRC7 /
      DATA(P2MSG(25,I),I=1,4)/10HCACHE ID A,10HND CFR EMP,10HTY        ,
     .10HB22/BUCFRE/
      DATA(P2MSG(26,I),I=1,4)/10HCFR MULTI ,10H- HIT     ,10H          ,
     .10HB10/BLCNMH/
      DATA(P2MSG(27,I),I=1,4)/10HIDENT CACH,10HE OUT     ,10H          ,
     .10HB22,BUCPO /
      DATA(P2MSG(28,I),I=1,4)/10HCACHE TIME,10H - OUT    ,10H          ,
     .10HB10/*BLTO /
      DATA(P2MSG(29,I),I=1,4)/10HNO OVERFLO,10HW ON SIM. ,10HRESP. BUF ,
     .10HB22/*BUBOV/
      DATA(P2MSG(30,I),I=1,4)/10HCACHE INPU,10HT, FNC COD,10HE VALID   ,
     .10HB10/BNFCG /
      DATA(P2MSG(31,I),I=1,4)/10HCACHE INPU,10HT, INCREME,10HNTED ID   ,
     .10HB10/BLFCG /
      DATA(P2MSG(32,I),I=1,4)/10HMAC ROMS  ,10H          ,10H          ,
     .10HA22/RH3A  /
      DATA(P2MSG(33,I),I=1,4)/10HREGISTER F,10HILE BYTE 0,10H          ,
     .10HC07/LF0PE /
      DATA(P2MSG(34,I),I=1,4)/10HREGISTER F,10HILE BYTE 1,10H          ,
     .10HC08/LF1PE /
      DATA(P2MSG(35,I),I=1,4)/10HREGISTER F,10HILE BYTE 2,10H          ,
     .10HC10/LF2PE /
      DATA(P2MSG(36,I),I=1,4)/10HREGISTER F,10HILE BYTE 3,10H          ,
     .10HC11/LF3PE /
      DATA(P2MSG(37,I),I=1,4)/10HREGISTER F,10HILE BYTE 4,10H          ,
     .10HC17/LF4PE /
      DATA(P2MSG(38,I),I=1,4)/10HREGISTER F,10HILE BYTE 5,10H          ,
     .10HC18/LF5PE /
      DATA(P2MSG(39,I),I=1,4)/10HREGISTER F,10HILE BYTE 6,10H          ,
     .10HC19/LF6PE /
      DATA(P2MSG(40,I),I=1,4)/10HREGISTER F,10HILE BYTE 7,10H          ,
     .10HC20/LF7PE /
      DATA(P2MSG(41,I),I=1,4)/10HSEGMENT NU,10HMBER      ,10H          ,
     .10HD08/NGSGPE/
      DATA(P2MSG(42,I),I=1,4)/10HI MUX,B MU,10HX, ADDRESS,10H          ,
     .10HD15/HAPEA /
      DATA(P2MSG(43,I),I=1,4)/10HI MUX,B MU,10HX, ADDRESS,10H          ,
     .10HD16/HAPEB /
      DATA(P2MSG(44,I),I=1,4)/10HI MUX,B MU,10HX, ADDRESS,10H          ,
     .10HD17/HAPEC /
      DATA(P2MSG(45,I),I=1,4)/10HI MUX,B MU,10HX, ADDRESS,10H          ,
     .10HD18/HAPED /
      DATA(P2MSG(46,I),I=1,4)/10HRING PARIT,10HY         ,10H          ,
     .10HD09/NDRPE /
      DATA(P2MSG(47,I),I=1,4)/10HAD SELECT ,10HROMS      ,10H          ,
     .10HC14/MG1A  /
      DATA(P2MSG(48,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .10HA15/UNUSED/
      DATA(P2MSG(49,I),I=1,4)/10HINVALIDATI,10HON ADD,XCH,10HANGE ADD  ,
     .10HA11/FXPE  /
      DATA(P2MSG(50,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .10HA14/UNUSED/
      DATA(P2MSG(51,I),I=1,4)/10HBDP J STRE,10HAM PE     ,10H          ,
     .10HE20/QU06A /
      DATA(P2MSG(52,I),I=1,4)/10HBDP K STRE,10HAM PE     ,10H          ,
     .10HE21/QU16A /
      DATA(P2MSG(53,I),I=1,4)/10HBDP OUTPUT,10H PE       ,10H          ,
     .10HE19/QV7A  /
      DATA(P2MSG(54,I),I=1,4)/10HBDP CONTRO,10HL TO EDIT ,10H          ,
     .10HE22/QW8B  /
      DATA(P2MSG(55,I),I=1,4)/10HBDP BRANCH,10H OR CYB CO,10HNVERT ROM ,
     .10HC24/QN5AC /
      DATA(P2MSG(56,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .10HA14/UNUSED/
      DATA(P2MSG(57,I),I=1,4)/10HFLOATING P,10HOINT TRAP ,10HROM       ,
     .10HC09/E8ERE /
      DATA(P2MSG(58,I),I=1,4)/10HEXP. ADD. ,10HFNC. ADD. ,10HDECODE    ,
     .10HE08/E10CPE/
      DATA(P2MSG(59,I),I=1,4)/10HROM AND PA,10HRTIAL WRIT,10HES        ,
     .10HC06/LLPE  /
      DATA(P2MSG(60,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .10HA13/UNUSED/
      DATA(P2MSG(61,I),I=1,4)/10HIDENT FROM,10H CACHE    ,10H          ,
     .10HC14/MG1F  /
      DATA(P2MSG(62,I),I=1,4)/10HIMMEDIATE ,10HCONTROL RO,10HMS        ,
     .10HC04/QM2PE /
      DATA(P2MSG(63,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .10HA13/UNUSED/
      DATA(P2MSG(64,I),I=1,4)/10HNOT USED  ,10H          ,10H          ,
     .10HA13/UNUSED/
* 
* 
      DATA (NMREG(1,J),J=1,3)/10HSTATUS SUM,10HMARY      ,10H          /
      DATA (NMREG(2,J),J=1,3)/10HPROCESSOR ,10HFAULT STAT,10HUS        /
      DATA (NMREG(3,J),J=1,3)/10HRETRY CORR,10HECTED ERRO,10HR LOG     /
      DATA (NMREG(4,J),J=1,3)/10HCACHE CORR,10HECTED ERRO,10HR LOG     /
      DATA (NMREG(5,J),J=1,3)/10HMAP CORREC,10HTED ERROR ,10HLOG       /
      DATA (NMREG(6,J),J=1,3)/10HCONTROL ST,10HORE ERROR ,10HLOG       /
  
      IF ((RCFD .EQ. 2HON) .AND. (IFLD(FJOB) .NE. R" CONTINU")) THEN
         CALL PLSEC(5)
         CALL UCHEK10 
      ENDIF 
  
      PREG = 0
      N=36
      SUBHEAD = 3HOFF 
* 
*          CHECK THE NEXT 4 REGISTERS 
      DO 900 INC = 1,4
      N = N + 2 
*          GET REGISTER NUMBER FROM IFLD
      NOREG = IFLD(N) 
      IF (NOREG .EQ. O"20") THEN
         IELEM = SHIFT (IFLD(23),-8) .AND. Z"FF"
         MODEL = IFLD(23) .AND. Z"FF" 
      ENDIF 
      IF ((NOREG.EQ.O"20").OR.(NOREG.EQ.O"22").OR.(NOREG.EQ.O"60")) 
     .           GO TO 800
*          IF START OF NEW ERROR SEQUENCE, PRINT A BLANK LINE 
      IF (IFLD(N).NE.0) GO TO 200 
      IF ((IFLD(N).EQ.0).AND.(PREG.NE.O"20")) GO TO 800 
      IF (RCFD .EQ. 3HOFF) GO TO 800
  
*     DEFINE THE ERROR MESSAGE
      J = 0 
  
*     CHECK FOR DFT ERROR MESSAGE 
      IF ((IFLD(45) .GE. O"1001") .AND. (IFLD(45) .LE. O"1004"))
     .     J = IFLD(45) .AND. O"77" 
      IF ((IFLD(45) .GE. O"5001") .AND. (IFLD(45) .LE. O"5004"))
     .     J = IFLD(45) .AND. O"77" 
      IF ((IFLD(45) .EQ. O"1010") .OR. (IFLD(45) .EQ. O"5010")) 
     .     J = 5
  
      IF (J .NE. 0) THEN
         IDFTCD = IFLD(45)
         SEQNO = IFLD(19) 
         CALL LOAPR (1,IFLD(20),IDFTCD,MSG(J,1),MSG(J,2),MSG(J,3),
     .                 MSG(J,4),SEQNO,SP) 
         CALL PRT310 (2,7)
  
*        CHECK FOR MULTIPLE DFT ERRORS
         IF ((IFLD(45) .AND. O"4000") .NE. 0) THEN
            CALL LOAPR (1,SP,MSG(7,1),MSG(7,2),MSG(7,3),SP,SP,SP,SP)
            CALL PRT310 (3,4) 
         ENDIF
  
*     CHECK FOR PRE-DFT ERROR MESSAGE 
      ELSE
      IF ((IFLD(39) .AND. 4) .EQ. 0) J = 3
      IF  (IFLD(12) .NE. 0)          J = 4
      IF  (IFLD(12) .EQ. O"10")      J = 1
      IF  (IFLD(45) .EQ. O"113")     J = 2
      IF (J .NE. 0) THEN
         CALL LOAPR (1,IFLD(20),MSG(J,1),MSG(J,2),MSG(J,3),MSG(J,4),
     .                 SP,SP,SP)
         CALL PRT310 (3,5)
      ENDIF 
  
*        REPORT THE UNIDENTIFIED ERROR CODE 
         IF (J .EQ. 0) THEN 
            IDFTCD = IFLD(45) 
            SEQNO = IFLD(19)
            CALL LOAPR (1,IFLD(20),IDFTCD,MSG(6,1),MSG(6,2),MSG(6,3), 
     .                    SP,SEQNO,SP)
            CALL PRT310 (2, 7)
         ENDIF
      ENDIF 
* 
*         PRINT THE STATUS SUMMARY REGISTER (00)
      CALL LOAPR (1,NOREG,IFLD(25),IFLD(26),IFLD(27),SP,NMREG(1,1), 
     .              NMREG(1,2),SP)
      PL(5) = SHIFT(IFLD(28),4) .OR. IFLD(39) 
      CALL PRT310 (5,7) 
      GO TO 800 
* 
*         PRINT CONTENTS OF NON-PFS REGISTERS 
  200 CONTINUE
      NNN = 2 * (INC - 1) 
      NN = 4 * (INC - 1)
      GROUP(1) = IFLD(21+NN)
      GROUP(2) = IFLD(22+NN)
      GROUP(3) = IFLD(23+NN)
      GROUP(4) = SHIFT(IFLD(24+NN),4).OR.IFLD(37+NNN) 
*          FIND REGISTER NAME 
      IF (IFLD(N).EQ.O"200") IJ = 2 
      IF (IFLD(N).EQ.O"220") IJ = 3 
      IF (IFLD(N).EQ.O"222") IJ = 4 
      IF (IFLD(N).EQ.O"223") IJ = 5 
      IF ((IFLD(N).EQ.O"201").OR.(IFLD(N).EQ.O"221")) IJ = 6
      CALL LOAPR (1,NOREG,GROUP(1),GROUP(2),GROUP(3),GROUP(4),
     .              NMREG(IJ,1),NMREG(IJ,2),NMREG(IJ,3))
      IF (RCFD .EQ. 2HON) CALL PRT310 (5,8) 
  
      IF ((GROUP(1) .EQ. 0) .AND. (GROUP(2) .EQ. 0) .AND. 
     .    (GROUP(3) .EQ. 0) .AND. (GROUP(4) .EQ. 0)) GO TO 800
      IF ((IFLD(N) .EQ. Z"81") .OR. (IFLD(N) .EQ. Z"91"))  GO TO 210
      IF ((IFLD(N) .EQ. Z"92") .OR. (IFLD(N) .EQ. Z"93"))  GO TO 210
      IF ((IFLD(N) .EQ. Z"80") .OR. (IFLD(N) .EQ. Z"90"))  GO TO 290
      GO TO 800 
  
* 
*         810/830/835 - REGISTERS 81,91,92,93 
* 
  210 GCT = 1 
      DO 212 I=1,7,2
         GRP(I) = SHIFT(GROUP(GCT),-8).AND.Z"FF"
         GRP(I+1) = GROUP(GCT).AND.Z"FF"
         GCT = GCT + 1
  212 CONTINUE
* 
      IF ((IFLD(N) .EQ. Z"92") .OR. (IFLD(N) .EQ. Z"93"))  GO TO 230
* 
*          810/830 - REGISTER 81/91 
      DO 229 I = 1,8
          IF (GRP(I) .NE. 0)  THEN
             FCBIT = (I-1)*8
             IF (IFLD(N) .EQ. Z"81")  GO TO 220 
             SYN = GRP(I) .AND. Z"3F" 
             DO 214  L = 1,24 
                IF (SYN .EQ. SBIT(L,1))  GO TO 216
  214        CONTINUE 
             PBIT = 2H
             GO TO 218
  216        PBIT = SBIT(L,2) 
* 
  218        CALL LOAPR(1,IELEM,MODEL,IFLD(N),FCBIT,SP,SP,SP,SP)
             PL(6) = 10HCOR CONTRO
             PL(7) = 10HL STORE ER
             PL(8) = 10HROR  BYTE 
             PL(9) = I-1
             PL(10) = 3HBIT 
             PL(11) = PBIT
             GO TO 228
* 
  220        CALL LOAPR(1,IELEM,MODEL,IFLD(N),FCBIT,SP,SP,SP,SP)
             PL(6) = 10HUNCORRECTE
             PL(7) = 10HD CONTROL 
             PL(8) = 10HSTORE ERR 
* 
  228        IF (SUBHEAD .EQ. 3HOFF)  THEN
                SUBHEAD = 2HON
                CALL PHD310(4)
             ENDIF
             IF (IFLD(N) .EQ. Z"91")  CALL PRT310(8,11) 
             IF (IFLD(N) .EQ. Z"81")  CALL PRT310(8,8)
             PL(10) = PK(I-3) 
      IF (MODEL .EQ. Z"20") PL(10) = PK281(I) 
             CALL PRT310(6,10)
          ENDIF 
  229 CONTINUE
      GO TO 800 
* 
*         CCEL(92) AND MCEL(93) REGISTERS - 835 
* 
  230 IF (MODEL .NE. Z"20") GO TO 250 
      IF ((GRP(1) .AND. Z"80") .EQ. 0)  GO TO 240 
      REG = Z"92" 
      DO 239 J = 1,4
      DO 239 I = 1,8
         IF ((SHIFT(GRP(J),-(8-I)) .AND. 1) .EQ. 0)  GO TO 239
         PBT = (8*(J-1)+I)
         CALL LOAPR(1,IELEM,MODEL,REG,PBT-1,SP,SP,SP,SP)
         PL(9)  = P923(PBT,4) 
         PL(10) = P923(PBT,1) 
         PL(11) = P923(PBT,2) 
         PL(12) = P923(PBT,3) 
         IF (SUBHEAD .EQ. 3HOFF)  THEN
             SUBHEAD = 2HON 
             CALL PHD310(4) 
         ENDIF
         CALL PRT310(7,12)
         PL(10) = P923(PBT,5) 
         PL(11) = P923(PBT,6) 
         CALL PRT310(6,11)
  239 CONTINUE
* 
  240 IF ((GRP(5) .AND. Z"80") .EQ. 0)  GO TO 800 
      REG = Z"93" 
      DO 249 J = 5,8
      DO 249 I = 1,8
         IF ((SHIFT(GRP(J),-(8-I)) .AND. 1) .EQ. 0)  GO TO 249
         PBT = (8*(J-1)+I)
         CALL LOAPR(1,IELEM,MODEL,REG,PBT-1,SP,SP,SP,SP)
         PL(9)  = P923(PBT,4) 
         PL(10) = P923(PBT,1) 
         PL(11) = P923(PBT,2) 
         PL(12) = P923(PBT,3) 
         IF (SUBHEAD .EQ. 3HOFF) THEN 
             SUBHEAD = 2HON 
             CALL PHD310(4) 
         ENDIF
         CALL PRT310(7,13)
         PL(10) = P923(PBT,5) 
         PL(11) = P923(PBT,6) 
         CALL PRT310(6,11)
  249 CONTINUE
      GO TO 800 
* 
*         MCEL(93) REGISTER - 810,815,825,830 
* 
  250 IF (RCFD .EQ. 3HOFF) GO TO 800
      DO 259 I = 1,8
         IF ((SHIFT(GRP(8),-(8-I)) .AND. 1) .EQ. 0)  GO TO 259
         CALL PLSEC (5) 
         PBT = 55 + I 
         CALL LOAPR(1,IELEM,MODEL,IFLD(N),PBT,SP,SP,SP,SP)
         IF ((PBT .EQ. 56) .OR. (PBT .EQ. 57))  THEN
            IF((MODEL.GE.Z"13").AND.(MODEL.LE.Z"16"))PL(9)=10H   DW15F0 
            IF((MODEL.EQ.Z"11").OR.(MODEL.EQ.Z"12")) PL(9)=10H   UW15F0 
            PL(10) = 10HFILE 0 PAR
         ENDIF
         IF ((PBT .EQ. 58) .OR. (PBT .EQ. 59))  THEN
            IF((MODEL.GE.Z"13").AND.(MODEL.LE.Z"16"))PL(9)=10H   DW15F1 
            IF((MODEL.EQ.Z"11").OR.(MODEL.EQ.Z"12")) PL(9)=10H   UW15F1 
            PL(10) = 10HFILE 1 PAR
         ENDIF
         IF ((PBT .EQ. 60) .OR. (PBT .EQ. 61))  THEN
            IF((MODEL.GE.Z"13").AND.(MODEL.LE.Z"16"))PL(9)=10H   DW15F2 
            IF((MODEL.EQ.Z"11").OR.(MODEL.EQ.Z"12")) PL(9)=10H   UW15F2 
            PL(10) = 10HFILE 2 PAR
         ENDIF
         IF ((PBT .EQ. 62) .OR. (PBT .EQ. 63))  THEN
            IF((MODEL.GE.Z"13").AND.(MODEL.LE.Z"16"))PL(9)=10H   DW15F3 
            IF((MODEL.EQ.Z"11").OR.(MODEL.EQ.Z"12")) PL(9)=10H   UW15F3 
            PL(10) = 10HFILE 3 PAR
         ENDIF
         PL(11) = 10HITY ERROR
         IF (SUBHEAD .EQ. 3HOFF)  THEN
             SUBHEAD = 2HON 
             CALL PHD310(4) 
         ENDIF
         CALL PRT310(7,11)
* 
         IF ((MODEL .GE. Z"13") .AND. (MODEL .LE. Z"16")) THEN
            PL(10) = P93(I,1) 
            PL(11) = P93(I,2) 
            PL(12) = P93(I,3) 
            PL(13) = 10H
         ENDIF
* 
         IF(MODEL.EQ.Z"11") THEN
            PL(10) = P93(I,6) 
            PL(11) = P93(I,7) 
            PL(12) = P93(I,8) 
            PL(13) = P93(I,9) 
         ENDIF
* 
         IF(MODEL.EQ.Z"12") THEN
            PL(10) = P93(I,10)
            PL(11) = P93(I,11)
            PL(12) = P93(I,12)
            PL(13) = P93(I,13)
         ENDIF
* 
         CALL PRT310 (6,13) 
         IF((MODEL.EQ.Z"11").OR.(MODEL.EQ.Z"12")) GO TO 259 
* 
         IF (P93(I,4).EQ.10H          ) GO TO 259 
         PL(10) = P93(I,4)
         PL(11) = P93(I,5)
         CALL PRT310 (6,11) 
  259 CONTINUE
      GO TO 800 
  290 DO 292 I = 1,12 
  292 PL(I) = 10H 
*          TEST BITS TO SEE IF SET
      DO 300 I = 1,4
      GROUP(I) = SHIFT(GROUP(I),44) 
  300 CONTINUE
* 
*     CHECK CONTENTS OF PFS REGISTER 80 FOR ERRORS
      DO 700  J = 1,4 
      DO 700 I = 1,16 
      IBIT = SHIFT(GROUP(J),I).AND.1
      IF (IBIT.EQ.0) GO TO 700
      NUMBIT = I + (J-1) * 16 - 1 
      IF ((NUMBIT.LT.32).AND.(PR.NE.2)) GO TO 700 
      PL(1) = IELEM 
      PL(2) = MODEL 
      PL(3) = IFLD(N) 
      PL(4) = NUMBIT
      IND = NUMBIT + 1
      IF (PR.EQ.2) GO TO 500
      IN = IND - 32 
      IF (MTY.EQ.O"320") P1MSG(IN,5) = P1MSG(IN,5) + 1
      IF (MTY.EQ.O"317") P1MSG(IN,5) = P1MSG(IN,5) + O"100 0000"
      IF (RCFD .EQ. 3HOFF) GO TO 700
      CALL PLSEC (5)
      ENCODE (10,902,PL(9)) P1MSG(IN,4) 
      IF ((PR.EQ.5).OR.(PR.EQ.6)) ENCODE (10,902,PL(9)) SIGNAL(IN)
      IF (IND.LE.32) PL(9) = 10H
      PL(10) = P1MSG(IN,1)
      PL(11) = P1MSG(IN,2)
      PL(12) = P1MSG(IN,3)
      IF (SUBHEAD .EQ. 3HOFF) THEN
         SUBHEAD = 2HON 
         CALL PHD310 (4)
      ENDIF 
      CALL PRT310 (7,12)
      IF ((PR.EQ.5).OR.(PR.EQ.6)) GO TO 420 
      IF (P1MSG(IN,4).EQ.10H          ) GO TO 700 
* 
*          PRINT POTENTIAL BAD PAKS 
*          S1 MINUS 
      IF (PR.NE.4) GO TO 390
      DO 382  II = 1,9
      IF (IN.NE.P1MK(II,12)) GO TO 382
      GO TO 384 
  382 CONTINUE
      GO TO 390 
  384 PL(10) = P1MK(II,1) 
      PL(11) = P1MK(II,2) 
      PL(12) = P1MK(II,3) 
      CALL PRT310 (6,12)
*        PRINT THE REST OF POTENTIAL BAD PAK IF ANY 
      DO 386  KK = 4,7,3
      IF (P1MK(II,KK).EQ.10H          ) GO TO 700 
      CALL LOAPR(10,P1MK(II,KK),P1MK(II,KK+1),P1MK(II,KK+2),
     .           SP,SP,SP,SP,SP)
      CALL PRT310 (6,12)
  386 CONTINUE
      IF (P1MK(II,10).EQ.10H           ) GO TO 700
      PL(10) = P1MK(II,10)
      PL(11) = P1MK(II,11)
      CALL PRT310 (6,11)
      GO TO 700 
* 
*          P1 
  390 CONTINUE
      PL(10) = P1K(IN,1)
      PL(11) = P1K(IN,2)
      PL(12) = P1K(IN,3)
      CALL PRT310 (6,12)
*          PRINT THE REST OF PONTENTIAL BAD PAKS IF ANY 
      DO 400 IK = 4,7,3 
      IF (P1K(IN,IK).EQ.10H          ) GO TO 700
      CALL LOAPR(10,P1K(IN,IK),P1K(IN,IK+1),P1K(IN,IK+2), 
     .            SP,SP,SP,SP,SP) 
      CALL PRT310 (6,12)
  400 CONTINUE
      IF (P1K(IN,10).EQ.10H          ) GO TO 700
      PL(10) = P1K(IN,10) 
      PL(11) = P1K(IN,11) 
      CALL PRT310 (6,12)
      GO TO 700 
* 
*          P1CR 
  420 CONTINUE
      IF (IND.LE.32) GO TO 700
*       PRINT POTENTIAL BAD PAKS FOR P1CR 
  
      X = 10
      DO 480  M = 1,14
      ICPU = 4H-CP0 
      IF (MTY.EQ.O"317") ICPU = 4H-CP1
      W = (M+1)/2 
      V = M/2 
      IF (PRK(IN,W).EQ.10H          ) GO TO 450 
      IF (((PRK(IN,W).AND.O"7777 7777").EQ.R"    ").AND.(W.EQ.V)) GO TO 
     +450 
      IF (W.EQ.V) GO TO 430 
*       1ST HALF OF W WORD
      PKNUM = SHIFT(PRK(IN,W),24).AND.O"7777" 
      PKM = SHIFT(PRK(IN,W),12).AND.O"7777" 
      IF (PKM .EQ. R"DQ") PKM = R"BQ" 
      IF (PKM .EQ. R"DR") PKM = R"BR" 
      IF (PKM .EQ. R"DS") PKM = R"BS" 
      IF ((PKM .EQ. R"DQ") .OR. (PKM .EQ. R"MQ") .OR. (PKM .EQ. R"BQ")) 
     .     ICPU = 4H-IOU
      ENCODE (10,955,PL(X)) PKM,ICPU,PKNUM
      GO TO 440 
  430 CONTINUE
*       2ND HALF OF W WORD
      PKM = SHIFT(PRK(IN,W),-12).AND.O"7777"
      IF (PKM .EQ. R"DQ") PKM = R"BQ" 
      IF (PKM .EQ. R"DR") PKM = R"BR" 
      IF (PKM .EQ. R"DS") PKM = R"BS" 
      IF ((PKM .EQ. R"DQ") .OR. (PKM .EQ. R"MQ") .OR. (PKM .EQ. R"BQ")) 
     .     ICPU = 4H-IOU
      ENCODE (10,955,PL(X)) PKM,ICPU,PRK(IN,W)
  440 CONTINUE
      X = X + 1 
      IF (X.LE.12) GO TO 480
  450 CONTINUE
      IF (PL(10).EQ.10H          ) GO TO 700
      CALL PRT310 (6,12)
      X = 10
  480 CONTINUE
      IF (PL(10).NE.10H          ) CALL PRT310 (6,12) 
      GO TO 700 
* 
*          P2 
  500 CONTINUE
      P2MSG(IND,5) = P2MSG(IND,5) + 1 
      IF (RCFD .EQ. 3HOFF) GO TO 700
      CALL PLSEC (5)
      ENCODE(10,904,PL(9)) P2MSG(IND,4) 
      PL(10) = P2MSG(IND,1) 
      PL(11) = P2MSG(IND,2) 
      PL(12) = P2MSG(IND,3) 
      IF (SUBHEAD .EQ. 3HOFF) THEN
         SUBHEAD = 2HON 
         CALL PHD310 (4)
      ENDIF 
      CALL PRT310 (7,12)
*          PRINT POTENTIAL BAD PAKS 
      PL(10) = P2K(IND,1) 
      PL(11) = P2K(IND,2) 
      PL(12) = P2K(IND,3) 
      CALL PRT310 (6,12)
*          PRINT THE REST OF POTENTIAL BAD PAKS IF ANY
      IF (P2K(IND,4).EQ.10H          ) GO TO 600
      CALL LOAPR(10,P2K(IND,4),P2K(IND,5),P2K(IND,6),SP,SP,SP,SP,SP)
      CALL PRT310 (6,12)
      IF ((IND.EQ.1).OR.(IND.EQ.2)) PL(10) = 10HRW-A21
      IF ((IND.EQ.11).OR.(IND.EQ.12)) THEN
      PL(10) = 10HPK-B11,RW-
      PL(11) = 10HA20 
      END IF
      IF (IND.EQ.19) THEN 
      PL(10) = 10HQD-D09,RW-
      PL(11) = 10HA19 
      END IF
      IF(IND.EQ.35) PL(10) = 10HRW-A16
      IF (PL(10).EQ.10H          ) GO TO 600
      CALL PRT310(6,11) 
  600 IF (IND.GT.16) GO TO 700
      PL(10) = 10HFOR 32K CA
      PL(11) = 10HCHE SYSTEM
      PL(12) = 10H ONLY 
      PL(9) = 10H         * 
      CALL PRT310 (6,12)
  700 CONTINUE
  800 CONTINUE
      PREG = NOREG
  900 CONTINUE
  901 FORMAT(25X,"UNRECOGNIZED SYNDROME CODE")
  902 FORMAT(3X,A6,1X)
  903 FORMAT(6X,2HDR,I2)
  904 FORMAT(3X,R6,1X)
  905 FORMAT(7X,1H ,I2) 
  906 FORMAT(9X,I1) 
  955 FORMAT(R2,A4,R2,2H  ) 
      RETURN
      END 
      SUBROUTINE PHD310 (ST)
* 
**        DESCRIPTION 
*         ----------- 
*         SUBROUTINE PHD310 PRINTS HEADINGS FOR REPORTS DEVELOPED 
*         BY HPA310 ROUTINES. 
* 
*         ENTRY CONDITIONS
*         ----- ----------
*         HCF(5) - ARRAY PRESET WITH POINTER TO A SET OF HEADINGS 
*                  THAT MAY BE PRINTED. A NON-ZERO VALUE IN HCF(1)
*                  TO HCF(5) IS A POINTER TO A HEADING, AS USED IN
*                  COMPUTED GO-TO. HCF(1) TO HCF(5) ARE SCANNED 
*                  SEQUENTIALLY AND SEVERAL SUBHEADERS MAY BE PRINTED.
*         ST     - CONTAINS POINTER TO WHERE ROUTINE WILL START 
*                  SCAN OF (HCF) FLAG.
* 
*         EXIT CONDITIONS 
*         ---- ---------- 
*         SUBHEADER HAS BEEN PRINTED
*         AN (HCF) FLAG CONTAING (0) HAS BEEN ENCOUNTERED 
* 
*         DATA AREAS
*         ---- -----
*         HCF(5)   -FLAGS TO CONTROL SUB-HEADERS TO PRINT 
*         TYPEST   -CURRENT EST 
*         TYPEDT   -CURRENT DEVICE TYPE 
* 
*         CALLED BY 
*         ------ -- 
*         PRT310  -AUTOMATICALLY WHEN A NEW PAGE IS INITIATED.
* 
*CALL HPACOM1 
*CALL HPACOM2 
  
      P = ST
      LINE = LINE + 1 
  
    6 IF (P .GT. 5) GO TO 1000
      PTR = HCF(P)
      IF ((PTR .LE. 0) .OR. (PTR .GT. 6)) GO TO 1000
      P = P +1
* 
*         JUMP TO PRINT FORMAT AS CALLED BY POINTER (PTR) 
* 
      GO TO (10, 20, 30, 40, 50, 60) PTR
* 
   10 PRINT 11,HX(1),HX(2),HX(3),MFID,
     .HX(5), HX(6), HX(7), HX(8), HX(9), HX(10), HX(11), HX(12) 
   11 FORMAT (1X,'DT - ** MR **   ELEMENT = ',Z2,'   MODEL = ',Z2,
     .           '   SERIAL = ',Z4,'  MFID = ',R1,//, 
     .       17X,'OPTIONS INSTALLED             =',4(1X,Z4),' (12)',/,
     .       17X,'DEPENDENT ENVIRONMENT CONTROL =',4(1X,Z4),' (30)',/,
     .         1X,'DATE',/,3X,'TIME      (FSC) DESCRIPTION',/,
     .        1X,7(10H----------),9H---------)
      LINE = LINE + 7 
      GO TO 6 
  
   20 GO TO 1000
   30 GO TO 1000
* 
*         DATE
* 
   40 PRINT 41,SEBUF(23)
   41 FORMAT (1X,A8)
      GO TO 1000
* 
*         P1/P2 MR SUMMARY REPORT HEADER
* 
   50 PRINT 51
   51 FORMAT(///,1X,'PROCESSOR FAULT STATUS MESSAGE ACCUMULATION',//, 
     .1X,'REG BIT ID/BIT DESCRIPTION',8X,'SIGNAL  POTENTIAL FAILING ',
     .'PACKS     CPU0/CPU1' 
     ./,1X,7(10H----------),9H---------)
      LINE = LINE + 6 
      GO TO 1000
* 
*         REG BIT ID SUBHEADER
* 
   60 PRINT 61
   61 FORMAT (/,9X,'REG BIT ID      SIGNAL       ', 
     .'BIT DESCRIPTION/POTENTIAL FAILING PACKS',/,
     .           9X,'-----------     ------       ',
     .'-----------------------------------------')
      LINE = LINE + 2 
  
 1000 CONTINUE
      RETURN
      END 
      SUBROUTINE PRT310 (LT,NW) 
* 
**        DESCRIPTION 
*         ----------- 
*         SUBROUTINE PRT310 PRINTS A LINE OF DATA IN VARIOS REPORTS 
*         BY TRACKING LINE COUNTS AND STARTS NEW PAGE IF NEEDED.
* 
*         ENTRY CONDITIONS
*         ----- ----------
*         LT   - DEFINES THE FORMAT STATEMENT TO BE USED. 
*         NW   - DEFINES THE NUMBER OF WORDS TO BE PRINTED. 
* 
*         DATA AREAS SHARED-
*         LINE, RCF, PL(32) 
* 
*         EXIT CONDITIONS 
*         ---- ---------- 
*         DATA AREAS SHARED-
*         LINE
* 
*         DATA AREAS
*         ---- -----
*         LEND   -(1)/LOCAL TO SUBROUTINE/NUMBER OF LINES TO BE 
*                 PRINTED IN A PAGE.
*         LINE   -(1)/COMMON BLOCK/NUMBER OF LINES PRINTED SO FAR 
*                 IN A PAGE.
*         IFORM  -(12,60)/COMMON BLOCK/AREA TO HOLD THE EXECUTION 
*                 TIME FORMAT STATEMENTS FOR VARIOUS REPORTS. 
*                 COLUMN NUMBER SELECTS A SET OF FORMAT STATEMENTS
*                 AND THE MAXIMUM LENGTH OF ONE STATEMENT IS 12 
*                 WORDS LONG. 
*         PL     -(40)/COMMON BLOCK AREA TO HOLD A LIST OF PRINT
*                 DATA LOADED BY THE CALLING ROUTINE. 
* 
*         CALLS 
*         ----- 
*         HEADER -INITIALIZE EACH PAGE OF VARIOUS REPORTS.
*         PRHEAD -PRINT SUB-HEADER IN VARIOUS REPORTS.
* 
*CALL,HPACOM1 
*CALL,HPACOM2 
* 
      DIMENSION IFORM (6,8), FMT (6)
* 
*         FORMAT FOR P1/P1CR/P2 ANALYSIS REPORT REG BIT ID
      DATA(IFORM(I,1),I=1,2,1) /
     .10H(1X,3(Z2,1,10HX),I2)    /
* 
*         FORMAT FOR P1/P1CR/P2 DETAIL REPORT ERROR MESSAGE - DFT 
      DATA(IFORM(I,2),I=1,6,1) /
     .10H(3X,A8,2X,,10H'(',Z3,') ,10H',4A10,1X,,10H'SEQUENCE ,
     .10HNUMBER = ',10HZ2,)      /
* 
*         FORMAT FOR P1/P1CR/P2 DETAIL REPORT ERROR MESSAGE 
      DATA(IFORM(I,3),I=1,2,1) /
     .10H(3X,A8,2X,,10H4A10,10H) /
* 
*          FORMAT FOR P1/P2 MR ERROR SUMMARY
  
      DATA(IFORM(I,4),I=1,3,1) /
     .10H(4X,3A10,R,10H1,R8,2A10,,10HA8,I4,A5) /
  
*          FORMAT FOR P1/P2 SNAPSHOT OF REGISTERS 
  
      DATA(IFORM(I,5),I=1,3,1) /
     .10H(14X,Z2,4X,10H,4(Z4),12X,10H,3A10)    /
  
*          FORMAT FOR P1/P2 DETAIL LINE: POTENTIAL FAILING PACKS
      DATA(IFORM(I,6),I=1,4,1) /
     .10H(9X,3(R2,1,10HX),R2,1X,4,10HR1,R7,6X,4,10HA10)      /
  
*          FORMAT FOR P1/P2 DETAIL LINE: REG BIT ID, SIGNAL, DESCRIPTION
      DATA(IFORM(I,7),I=1,4,1) /
     .10H(9X,3(Z2,1,10HX),I2,1X,4,10HR1,R7,6X,4,10HA10)      /
  
      DATA(IFORM(I,8),I=1,5,1) /
     .10H(9X,3(Z2,1,10HX),I2,5X,R,10H7,6X,3A10,,10HI1,3X,A3,1,
     .10HX,A2)     /
  
  
* 
*         * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
      IF (LINE .LT. PLF) GO TO 20 
  
*     PRINT NEW PAGE HEADER 
   15 CONTINUE
      CALL HEADER 
      CALL PHD310 (1) 
   20 CONTINUE
      LINE = LINE+1 
  
      DO 22 J = 1, 6
       FMT(J)=IFORM(J,LT) 
 22   CONTINUE
      PRINT FMT, (PL(J),J=1,NW) 
* 
      DO 60 K = 1,NW
   60 PL(K) = 1H
* 
      RETURN
      END 
      SUBROUTINE UCHEK10
**
*       UCHEK10 - BASIC ROUTINE USED BY DETAIL PROCESSORS, TO TEST FOR
*                 CHANGES IN MESSAGE THAT WILL AFFECT SUBHEADER PRINT.
*                 WHEN CHANGE OCCURS, MODIFY POINTERS AND CALL PHD310 
*                 FOR NEW HEADING.
* 
*       ENTRY CONDITIONS
*       ------------------- 
*       CURRENT MESSAGE IN PROCESS IS IN IFLD/NFLD
* 
*       EXIT CONDITIONS 
*       ----------------
*       CURRENT APPLICABLE SUB-HEADERS ARE PRINTED, AND FLAGS 
*       FOR TEST CHANGES IN NEXT MESSAGE ARE SAVED. 
* 
*CALL HPACOM1 
*CALL HPACOM2 
  
*     JUMP IF NOT INITIAL ENTRY 
      IF (FLAGS(12) .NE. 7HNEW-EST) GO TO 200 
      FLAGS(12) = 1H
      PDATE = SEBUF(21) 
      CALL HEADER 
      CALL PHD310 (1) 
      GO TO 500 
  
*     TEST FOR NEW PAGE 
  200 IF ((LINE+7) .GE. PLF) GO TO 400
  
*     TEST CHANGE OF DATE 
      IF (PDATE .EQ. SEBUF(23)) GO TO 500 
  
*     PUT DATE BACK INTO DETAIL LINE
      IF ((LINE + 2) .GT. PLF) GO TO 400
      PDATE = SEBUF(23) 
      CALL PHD310 (2) 
      GO TO 500 
  
*     PRINT NEW PAGE HEADER AND SUBHEADERS
  400 PDATE = SEBUF(23) 
      CALL HEADER 
      CALL PHD310 (1) 
  
  500 RETURN
      END 
          IDENT  INTEM10
          LCC OVCAP.
          ENTRY  INTEM10
OVLNO     SET    10 
          USE    /LINK/ 
LINKET    BSS    1
LINKEM    BSS    1
          USE    *
  
INTEM10   BSS    1
          SX6    ET 
          SA6    LINKET 
          SX6    EC 
          SA6    LINKEM 
          JP     INTEM10
          EJECT 
*CALL COMHPAERT 
          END 
