*DECK,HPA311
      OVCAP.
      SUBROUTINE HPA311 
* 
*      CONTROL PROGRAM FOR ROUTINES IN OVERLAY (3,11) 
*         HPA311 PROCESSES 840/845/850/855/860 PROCESSOR ERRORS.
*         RECORD TYPE: 102B.
*         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 HPA311, SECOND = ',F10.3) 
   10 CALL INISET3
      CALL DREPT3 
  
  100 CONTINUE
      IF ((MTY.EQ.O"320").OR.(MTY.EQ.O"317")) GO TO 200 
      GO TO 900 
  
*     GENERATE THE DETAIL REPORT
  200 FLG = 0 
      IF ((RCFA .EQ. 2HON) .OR. (RCFD .EQ. 2HON)) CALL AN11P3 (FLG) 
      IF (FLG .EQ. 2HON) GO TO 910
  
  900 CONTINUE
      CALL GNR3 
      CALL SETEM3(1)
  910 CONTINUE
      IF (TWIC.GE.2) GO TO 100
  
*      CALL TO PRINT ANALYSIS REPORT
      FLG = 1 
      IF (RCFA .EQ. 2HON) CALL AN11P3 (FLG) 
      END 
      SUBROUTINE  AN11P3(PRANP) 
* 
**         DESCRIPTION
*          -----------
* 
*      THIS ROUTINE DEVELOPS THE ANALYSIS REPORT FOR S3 PROCESSOR 
*      ERROR MESSAGES.
* 
*      PROCESS REGISTERS FOR VAIOUS P3 MODELS:  
*         SEF REC 1: REGISTERS 10 - 00 - 12 - 30 FOR MODELS 30 - 37 HEX 
*                 2: REGISTERS 80 - 81 - 82 - 83  (AND 3A/3B CTI/EDD) 
*                 3: REGISTERS 84 - 85 - 86 - 87
*                 4: REGISTERS 88 - 89
* 
*         SEF REC 1: REGISTERS 10 - 00 - 11 - 12 FOR MODELS 3A - 3B HEX 
*                 2: REGISTERS 30 - 32 - 80 - 81
*                 3: REGISTERS 82 - 83 - 84 - 85
*                 4: REGISTERS 86 - 87 - 88 - 89
*                 5: REGISTERS A0 
* 
*CALL,HPACOM1 
*CALL,HPACOM2 
  
      COMMON / P3 / P3MSG ( 440, 5 )
  
      DIMENSION MDB ( 200, 2 ),   MDBPRT ( 4, 27 ), MDBPRTX ( 4, 14 ),
     .          MEX ( 9, 52 ),    MDBFLG ( 10 ),
     .          MDBTXT ( 4, 10 ), MDBLGTH ( 10 ), MSGSR ( 3, 4 )
  
      DATA MDBLGTH / 11, 0, 0, 53, 15, 0, 3, 28, 65, 11 / 
  
      DATA (MDBTXT (I,1),I=1,4) / 
     .10HSOFT CONTR,10HOL MEMORY ,10HPARITY DAT,10HA         /
      DATA (MDBTXT (I,2),I=1,4) / 
     .10H          ,10H          ,10H          ,10H          /
      DATA (MDBTXT (I,3),I=1,4) / 
     .10H          ,10H          ,10H          ,10H          /
      DATA (MDBTXT (I,4),I=1,4) / 
     .10HEXCHANGE P,10HACKAGE    ,10H          ,10H          /
      DATA (MDBTXT (I,5),I=1,4) / 
     .10HPROGRAM AD,10HDRESS CONT,10HENTS      ,10H          /
      DATA (MDBTXT (I,6),I=1,4) / 
     .10H          ,10H          ,10H          ,10H          /
      DATA (MDBTXT (I,7),I=1,4) / 
     .10HRETRY INFO,10HRMATION   ,10H          ,10H          /
      DATA (MDBTXT (I,8),I=1,4) / 
     .10HSOFT REGIS,10HTERS      ,10H          ,10H          /
      DATA (MDBTXT (I,9),I=1,4) / 
     .10HREGISTER F,10HILE       ,10H          ,10H          /
      DATA (MDBTXT (I,10),I=1,4) /
     .10HERROR DURI,10HNG MDB LOG,10HGING      ,10H          /
  
      DATA (MSGSR (I,1),I=1,3) /
     .10HPROCESS ST,10HATE AND A ,10HREGISTERS /
      DATA (MSGSR (I,2),I=1,3) /
     .10H          ,10H          ,10H          /
      DATA (MSGSR (I,3),I=1,3) /
     .10HX REGISTER,10HS         ,10H          /
      DATA (MSGSR (I,4),I=1,3) /
     .10HSCRATCH RE,10HGISTERS   ,10H          /
  
*      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)) 
     .     GO TO 100
* 
*     CHECK FOR MODEL DEPENDENT BUFFER INFORMATION FROM DFT 
* 
      IF ((VERSION .GE. 4) .AND. ((IFLD(19) .AND. O"2000").NE.0)) 
     .     GO TO 2000 
  
      GO TO 300 
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*      PROCESS SUPPORTIVE STATUS BUFFER INFORMATION FROM DFT
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
  100    CONTINUE 
         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
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS MODEL DEPENDENT BUFFER INFORMATION FROM DFT 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
*     READ AND UNPACK ALL MDB SEF RECORDS BEFORE MDB REPORTING
 2000 MDBREC = MDBWD = MDBCNT = NEXT = 0
      DO 2005 I = 1, 200
 2005 MDB(I,1) = 0
      DO 2001 I = 1, 10 
 2001 MDBFLG(I) = 3HOFF 
      MDBFLG(2) = MDBFLG(3) = MDBFLG(6) = 2HON
 2002 IF (RCFD .NE. 2HON) GO TO  2008 
      MDBREC = MDBREC + 1 
      IF (MDBREC .GT. 54) THEN
         PRINT 2003 
 2003    FORMAT (' MODEL DEPENDENT BUFFER DATA CONTAINS MORE THAN 200', 
     .           ' WORDS.',/,' EXTRA DATA WILL NOT BE PROCESSED') 
         GO TO 2008 
      ENDIF 
  
      MDBCNT = MDBCNT + 1 
      IF (MDBCNT .EQ. 4) THEN 
*        UNPACK TAG BITS FROM EVERY 4TH RECORD
         MDBCNT = 0 
         MDBWD = MDBWD - 15 
         DO 2004 I = 1, 15
            SHFCNT = I * 4
            MDBWD = MDBWD + 1 
 2004       MDB(MDBWD,2) = SHIFT(SEFREC(4),SHFCNT) .AND. Z"F" 
      ELSE
*        UNPACK NEXT DATA RECORD
         DO 2006 I = 4, 8 
            MDBWD = MDBWD + 1 
 2006       MDB(MDBWD,1) = SEFREC(I)
      ENDIF 
* 
*       GET NEXT RECORD 
* 
 2008 CALL GNR3 
      CALL SETEM3 (1) 
      IF ((TWIC .GE. 6) .AND. ((IFLD(19) .AND. O"2000") .NE. 0))
     .     GO TO 2002 
  
*     SUPPRESS MDB REPORTING IF NO DETAIL REPORT REQUESTED
      PRANP = 2HON
      IF (RCFD .NE. 2HON) GO TO 900 
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*    ALL MDB SEF RECORDS READ - REPORT THEM 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2010 NEXT = NEXT + 1 
  
*     CONCLUDE PROCESSING IF BUFFER DEPLETED
      IF (((NEXT .LT. MDBWD) .AND. (MDB(NEXT,1) .EQ. 0)) .OR. 
     .     (NEXT .EQ. (MDBWD+1))) GO TO 2012
      IF (NEXT .LT. MDBWD) GO TO 2030 
  
*     CHECK WHICH MDB BUFFERS NOT REPORTED
 2012 DO 2016 I = 1, 10 
      IF (MDBFLG(I) .EQ. 2HON) GO TO 2016 
      PRINT 2014,(MDBTXT(J,I),J=1,4,1)
 2014 FORMAT (' *** NO ',4A10)
 2016 CONTINUE
  
*     TERMINATE PROCESSING OF MDB 
 2020 PRINT 206 
      LINE = PLF
      GO TO 900 
  
 2030 LENGTH = SHIFT(MDB(NEXT,1),16) .AND. Z"FFFF"
      ID = MDB(NEXT,2)
      IRR = SHIFT(MDB(NEXT,1),40) .AND. Z"FF" 
      IBB = SHIFT(MDB(NEXT,1),48) .AND. Z"FF" 
  
*     CHECK FOR VALID MDB CONTROL WORD DATA HEADER ID 
      IF ((ID .LT. 1) .OR. (ID .GT. 10) .OR.
     .    (ID .EQ. 2) .OR. (ID .EQ. 3) .OR. (ID .EQ. 6)) THEN 
         PRINT 2032,MDB(NEXT,1),MDB(NEXT,2) 
 2032    FORMAT(' INVALID MODEL DEPENDENT BUFFER CONTROL WORD IN BML =',
     .             1X,Z15,Z1) 
         GO TO 2012 
      ENDIF 
  
      MDBFLG(ID) = 2HON 
 2040 FORMAT (/,' *** ',4A10,A10,A4,'  PFS ERROR ID = ',Z2,I2.2)
 2041 FORMAT (/,' *** ',4A10,4X,A10,A4) 
  
*     CHECK IF ALL THE MDB DATA HAS BEEN LOGGED 
      IF ((NEXT + LENGTH) .GT. MDBWD) THEN
      PRINT 2044,(MDBTXT(J,ID),J=1,4,1) 
 2044 FORMAT (/,1X,'UNABLE TO REPORT ',4A10,'- ALL DATA NOT LOGGED.',/) 
      GO TO 2012
      ENDIF 
  
*     REPORT IF THE LENGTH LOGGED FOR THIS ID IS INVALID
*     (ID 1 MAY HAVE MAX OF 5 2-WORD ENTRIES PER BUFFER)
      IF (((ID .EQ. 1) .AND. (LENGTH .GT. MDBLGTH (ID))) .OR. 
     .    ((ID .NE. 1) .AND. (LENGTH .NE. MDBLGTH (ID)))) THEN
         PRINT 2046,LENGTH,ID 
         GO TO 2012 
      ENDIF 
 2046    FORMAT (' INVALID LENGTH OF ',I3,' LOGGED FOR MDB ID ',Z1) 
  
      NXT = NEXT
      FMT1 = FMT2 = 1H
      GO TO (2100,2200,2300,2400,2500,2600,2700,2800,2900,3000) ID
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 1 - SCM (SOFT CONTROL MEMORY) PE DATA - 10 WDS MAX.
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2100 IF ((LINE+4) .GT. PLF) CALL HEADER
      LINE = LINE + 2 
      IF ((IRR .EQ. 0) .AND. (IBB .EQ. 0)) THEN 
         PRINT 2041,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2
      ELSE
         PRINT 2040,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2,IRR,IBB
      ENDIF 
  
*     MDB SCM BUFFER MAY CONTAIN UP TO 5 2-WORD ENTRIES 
      DO 2150 K = 1, 5
      IF ((K * 2) .GT. LENGTH) GO TO 2150 
  
      DO 2136 J = 1, 2
      NXT = NXT + 1 
      DO 2134 I = 1, 3
      SHFCNT = 16 * I 
 2134 MDBPRT(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. Z"FFFF"
 2136 MDBPRT(I,J) = SHIFT(MDB(NXT,1), 4) .AND. Z"FFF0" .OR. MDB(NXT,2)
  
      IF ((LINE+3) .GT. PLF) CALL HEADER
      LINE = LINE + 3 
      PRINT 2140,MDBPRT(1,1),MDBPRT(3,1),MDBPRT(4,1), 
     .           MDBPRT(2,1),(MDBPRT(I,2),I=1,4,1)
 2140 FORMAT (' MEMORY CODE    = ',  Z4,'  SCM ADDRESS  = ',Z4,1X,Z4,/, 
     .        ' PFS REGISTER   =   ',Z2,'  PFS REGISTER = ',4(Z4,1X),/) 
 2150 CONTINUE
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 2 - CPU CAPTURE BUFFER - 99X ONLY     - 512 WDS
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2200 GO TO 2012
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 3 - HISTORY FILE - 99X ONLY           - 64 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2300 GO TO 2012
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 4 - EXCHANGE PACKAGE                  - 52 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2400 IF ((LINE+11) .GT. PLF) CALL HEADER 
      LINE = LINE + 11
*     CHECK VMID: IF SET, PRINT 170 INTERPRETATION; ELSE, AVOID 
      VMID = SHIFT(MDB(NXT+2,1),8) .AND. Z"FF"
      IF (VMID .EQ. 0) THEN 
         VMID = 5HNO170 
      ELSE
         VMID = 6HYES170
      FMT1 = 10H180/170 FO
      FMT2 = 4HRMAT 
      ENDIF 
      IF ((IRR .EQ. 0) .AND. (IBB .EQ. 0)) THEN 
         PRINT 2041,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2
      ELSE
         PRINT 2040,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2,IRR,IBB
      ENDIF 
  
*     UNPACK THE EXCHANGE PACKAGE - WORDS 1 - 17
      DO 2414 I = 1, 17, 1
      NXT = NXT + 1 
      MDBX = MDB(NXT,1) 
      MEX(1,I) = SHIFT(MDBX,16) .AND. Z"FFFF" 
      MEX(2,I) = SHIFT(MDBX,20) .AND. Z"F"
      MEX(3,I) = SHIFT(MDBX,32) .AND. Z"FFF"
      MEX(4,I) = SHIFT(MDBX, 4) .AND. Z"FFFF FFF0" .OR. MDB(NXT,2)
      IF (VMID .EQ. 5HNO170) GO TO 2414 
      IF ((I .EQ. 2) .OR. (I .EQ. 3) .OR. (I .EQ. 4)) THEN
         MEX(5,I) = MEX(6,I) = 1H 
         GO TO 2414 
      ENDIF 
      IF (I .GE. 10) THEN 
         MEX(5,I) = SHIFT(MDBX,4) .AND. O"77 7760" .OR. MDB(NXT,2)
         MEX(6,I) = 1H
         GO TO 2414 
      ENDIF 
      MEX(5,I) = SHIFT(MDBX,46) .AND. O"3 7777" 
      MEX(6,I) = SHIFT(MDBX, 4) .AND. O"77 7760" .OR. MDB(NXT,2)
      IF (I .EQ. 1) THEN
          MEX(6,I) = (SHIFT(MDBX, 1) .AND. O"7 7776") .OR.
     .               (SHIFT(MDB(NXT,2),-3) .AND. 1) 
          MEX(7,I) =  MDB(NXT,2) .AND. 7
      ENDIF 
 2414 CONTINUE
  
*     UNPACK THE EXCHANGE PACKAGE - WORDS 18 - 34 
      DO 2416 I = 18, 34, 1 
      NXT = NXT + 1 
      MDBX = MDB(NXT,1) 
      MEX(1,I) = SHIFT(MDBX,16) .AND. Z"FFFF" 
      MEX(2,I) = SHIFT(MDBX,32) .AND. Z"FFFF" 
      MEX(3,I) = SHIFT(MDBX,48) .AND. Z"FFFF" 
      MEX(4,I) = SHIFT(MDBX, 4) .AND. Z"FFF0" .OR. MDB(NXT,2) 
      IF (VMID .EQ. 5HNO170) GO TO 2416 
      IF (I .LE. 25) THEN 
         MEX(5,I) = SHIFT(MDBX,4) .AND. O"77 7760" .OR. MDB(NXT,2)
         MEX(6,I) = MEX(7,I) = MEX(8,I) = MEX(9,I) = 1H 
         GO TO 2416 
      ENDIF 
      MEX(5,I) = SHIFT(MDBX,16) .AND. O"7777" 
      MEX(6,I) = SHIFT(MDBX,28) .AND. O"7777" 
      MEX(7,I) = SHIFT(MDBX,40) .AND. O"7777" 
      MEX(8,I) = SHIFT(MDBX,52) .AND. O"7777" 
      MEX(9,I) = SHIFT(MDBX, 4) .AND. O"7760" .OR. MDB(NXT,2) 
      IF (I .EQ. 34) MEX(5,I)= MEX(6,I)=MEX(7,I)=MEX(8,I)=MEX(9,I) = 1H 
 2416 CONTINUE
  
*     UNPACK THE EXCHANGE PACKAGE - WORDS 35 - 52 
      DO 2418 I = 35, 52, 1 
      NXT = NXT + 1 
      MDBX = MDB(NXT,1) 
      MEX(1,I) = SHIFT(MDBX,16) .AND. Z"FFFF" 
      IF (I .GE. 39) MEX(1,I) = 1H
      MEX(2,I) = SHIFT(MDBX,20) .AND. Z"F"
      MEX(3,I) = SHIFT(MDBX,32) .AND. Z"FFF"
      MEX(4,I) = SHIFT(MDBX, 4) .AND. Z"FFFF FFF0" .OR. MDB(NXT,2)
 2418 CONTINUE
  
      IF (VMID .EQ. 5HNO170) THEN 
      PRINT 2460,((MEX(I,J), I= 1,4,1), J= 1,9,1) 
      ELSE
      PRINT 2450,(MEX(I,1),I=1,7,1),((MEX(I,J),I=1,6,1), J = 2, 9, 1) 
      ENDIF 
      IF ((LINE+9) .GT. PLF) CALL HEADER
      LINE = LINE + 9 
  
      IF (VMID .EQ. 5HNO170) THEN 
      PRINT 2461,((MEX(I,J), I = 1, 4, 1), J = 10, 17, 1) 
      ELSE
      PRINT 2451,((MEX(I,J), I = 1, 6, 1), J = 10, 17, 1) 
      ENDIF 
      IF ((LINE+15) .GT. PLF) CALL HEADER 
      LINE = LINE + 18
  
      IF (VMID .EQ. 5HNO170) THEN 
      PRINT 2462,((MEX(I,J), I = 1, 4, 1), J = 18, 34, 1) 
      ELSE
      PRINT 2452,((MEX(I,J), I = 1, 9, 1), J = 18, 34, 1) 
      ENDIF 
      IF ((LINE+15) .GT. PLF) CALL HEADER 
      LINE = LINE + 19
      PRINT 2454,((MEX(I,J), I = 1, 4, 1), J = 35, 52, 1) 
  
 2450 FORMAT (
     . '              ',Z4,6X,'P ',2X,Z1,1X,Z3,2X,Z8,3X,'P    = ',
     .                                          O5.5,1X,O5.5,'/',O1.1,/,
     . ' VMID/UVMID   ',Z4,6X,'A0',2X,Z1,1X,Z3,2X,Z8,A1,A1,/, 
     . ' FLAGS/TE     ',Z4,6X,'A1',2X,Z1,1X,Z3,2X,Z8,A1,A1,/, 
     . ' USER MASK    ',Z4,6X,'A2',2X,Z1,1X,Z3,2X,Z8,A1,A1,/, 
     . ' MONITOR MASK ',Z4,6X,'A3',2X,Z1,1X,Z3,2X,Z8,3X,'RAC  = ',
     .                                               O5.5,1X,O6.6,/,
     . ' UCR          ',Z4,6X,'A4',2X,Z1,1X,Z3,2X,Z8,3X,'FLC  = ',
     .                                               O5.5,1X,O6.6,/,
     . ' MCR          ',Z4,6X,'A5',2X,Z1,1X,Z3,2X,Z8,3X,'MA   = ',
     .                                               O5.5,1X,O6.6,/,
     . ' KYPT CL/LPID ',Z4,6X,'A6',2X,Z1,1X,Z3,2X,Z8,3X,'RAE  = ',
     .                                               O5.5,1X,O6.6,/,
     . ' KYPT MASK    ',Z4,6X,'A7',2X,Z1,1X,Z3,2X,Z8,3X,'FLE  = ',
     .                                               O5.5,1X,O6.6)
 2451 FORMAT (
     . ' KYPT CODE    ',Z4,6X,'A8',2X,Z1,1X,Z3,2X,Z8,3X,'A(0) = ',
     .                                                    O6.6,A1,/,
     . '              ',Z4,6X,'A9',2X,Z1,1X,Z3,2X,Z8,3X,'A(1) = ',
     .                                                    O6.6,A1,/,
     . ' PIT          ',Z4,6X,'AA',2X,Z1,1X,Z3,2X,Z8,3X,'A(2) = ',
     .                                                    O6.6,A1,/,
     . '              ',Z4,6X,'AB',2X,Z1,1X,Z3,2X,Z8,3X,'A(3) = ',
     .                                                    O6.6,A1,/,
     . ' BASE CONST   ',Z4,6X,'AC',2X,Z1,1X,Z3,2X,Z8,3X,'A(4) = ',
     .                                                    O6.6,A1,/,
     . '              ',Z4,6X,'AD',2X,Z1,1X,Z3,2X,Z8,3X,'A(5) = ',
     .                                                    O6.6,A1,/,
     . ' MD FLAGS     ',Z4,6X,'AE',2X,Z1,1X,Z3,2X,Z8,3X,'A(6) = ',
     .                                                    O6.6,A1,/,
     . ' STL          ',Z4,6X,'AF',2X,Z1,1X,Z3,2X,Z8,3X,'A(7) = ',
     .                                                    O6.6,A1,/)
  
 2452 FORMAT (
     .11X,'X0',4(1X,Z4),13X,'B(0) = ',O6.6,4A1,/, 
     .11X,'X1',4(1X,Z4),13X,'B(1) = ',O6.6,4A1,/, 
     .11X,'X2',4(1X,Z4),13X,'B(2) = ',O6.6,4A1,/, 
     .11X,'X3',4(1X,Z4),13X,'B(3) = ',O6.6,4A1,/, 
     .11X,'X4',4(1X,Z4),13X,'B(4) = ',O6.6,4A1,/, 
     .11X,'X5',4(1X,Z4),13X,'B(5) = ',O6.6,4A1,/, 
     .11X,'X6',4(1X,Z4),13X,'B(6) = ',O6.6,4A1,/, 
     .11X,'X7',4(1X,Z4),13X,'B(7) = ',O6.6,4A1,/, 
     .11X,'X8',4(1X,Z4),13X,'X(0) = ',5(O4.4,1X),/, 
     .11X,'X9',4(1X,Z4),13X,'X(1) = ',5(O4.4,1X),/, 
     .11X,'XA',4(1X,Z4),13X,'X(2) = ',5(O4.4,1X),/, 
     .11X,'XB',4(1X,Z4),13X,'X(3) = ',5(O4.4,1X),/, 
     .11X,'XC',4(1X,Z4),13X,'X(4) = ',5(O4.4,1X),/, 
     .11X,'XD',4(1X,Z4),13X,'X(5) = ',5(O4.4,1X),/, 
     .11X,'XE',4(1X,Z4),13X,'X(6) = ',5(O4.4,1X),/, 
     .11X,'XF',4(1X,Z4),13X,'X(7) = ',5(O4.4,1X),//,
     . ' MD WORD      ',4(Z4,1X),5A1) 
  
 2454 FORMAT (
     . ' STA          ',Z4,'  UTP     ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',Z4,'  TRAP    ',Z1,1X,Z3,2X,Z8,/, 
     . ' DB IND/MASK  ',Z4,'  DB LIST ',Z1,1X,Z3,2X,Z8,//,
     . ' MAX RING     ',Z4,'  TOS  1  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  2  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  3  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  4  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  5  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  6  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  7  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  8  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS  9  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS 10  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS 11  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS 12  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS 13  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS 14  ',Z1,1X,Z3,2X,Z8,/, 
     . '              ',A4,'  TOS 15  ',Z1,1X,Z3,2X,Z8,/) 
  
 2460 FORMAT (
     . '              ',Z4,6X,'P ',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' VMID/UVMID   ',Z4,6X,'A0',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' FLAGS/TE     ',Z4,6X,'A1',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' USER MASK    ',Z4,6X,'A2',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' MONITOR MASK ',Z4,6X,'A3',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' UCR          ',Z4,6X,'A4',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' MCR          ',Z4,6X,'A5',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' KYPT CL/LPID ',Z4,6X,'A6',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' KYPT MASK    ',Z4,6X,'A7',2X,Z1,1X,Z3,2X,Z8) 
 2461 FORMAT (
     . ' KYPT CODE    ',Z4,6X,'A8',2X,Z1,1X,Z3,2X,Z8,/, 
     . '              ',Z4,6X,'A9',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' PIT          ',Z4,6X,'AA',2X,Z1,1X,Z3,2X,Z8,/, 
     . '              ',Z4,6X,'AB',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' BASE CONST   ',Z4,6X,'AC',2X,Z1,1X,Z3,2X,Z8,/, 
     . '              ',Z4,6X,'AD',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' MD FLAGS     ',Z4,6X,'AE',2X,Z1,1X,Z3,2X,Z8,/, 
     . ' STL          ',Z4,6X,'AF',2X,Z1,1X,Z3,2X,Z8,/) 
  
 2462 FORMAT (
     .11X,'X0',4(1X,Z4),13X,/,
     .11X,'X1',4(1X,Z4),13X,/,
     .11X,'X2',4(1X,Z4),13X,/,
     .11X,'X3',4(1X,Z4),13X,/,
     .11X,'X4',4(1X,Z4),13X,/,
     .11X,'X5',4(1X,Z4),13X,/,
     .11X,'X6',4(1X,Z4),13X,/,
     .11X,'X7',4(1X,Z4),13X,/,
     .11X,'X8',4(1X,Z4),13X,/,
     .11X,'X9',4(1X,Z4),13X,/,
     .11X,'XA',4(1X,Z4),13X,/,
     .11X,'XB',4(1X,Z4),13X,/,
     .11X,'XC',4(1X,Z4),13X,/,
     .11X,'XD',4(1X,Z4),13X,/,
     .11X,'XE',4(1X,Z4),13X,/,
     .11X,'XF',4(1X,Z4),13X,//, 
     . ' MD WORD      ',4(Z4,1X)) 
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 5 - PROGRAM ADDRESS CONTENTS          - 14 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2500 IF ((LINE+16) .GT. PLF) CALL HEADER 
      LINE = LINE + 16
*     CHECK VMID (EXCH PKG): IF SET, PRINT 170 INTERPRET; ELSE, AVOID 
      IF (VMID .NE. 5HNO170) THEN 
      FMT1 = 10H180/170 FO
      FMT2 = 4HRMAT 
      ENDIF 
      IF ((IRR .EQ. 0) .AND. (IBB .EQ. 0)) THEN 
         PRINT 2041,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2
      ELSE
         PRINT 2040,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2,IRR,IBB
      ENDIF 
  
      DO 2516 J = 1, 14 
      NXT = NXT + 1 
      DO 2514 I = 1, 3
      SHFCNT = 16 * I 
      MDBPRT(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. Z"FFFF"
      IF ((J .GE. 4) .AND. (VMID .NE. 5HNO170)) THEN
         IF (I .EQ. 1) SHFVAL = 3 
         IF (I .EQ. 2) SHFVAL = 2 
         IF (I .EQ. 3) SHFVAL = 1 
         SHFCNT = SHFCNT + SHFVAL 
         MDBPRTX(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. O"7 7777"
      ENDIF 
 2514 CONTINUE
      MDBPRT(I,J) = SHIFT(MDB(NXT,1), 4) .AND. Z"FFF0" .OR. MDB(NXT,2)
      IF ((J .GE. 4) .AND. (VMID .NE. 5HNO170)) 
     .MDBPRTX(I,J) = SHIFT(MDB(NXT,1),4) .AND. O"7 7760" .OR. MDB(NXT,2)
 2516 CONTINUE
  
      IF (VMID .EQ. 5HNO170) THEN 
      PRINT 2530,((MDBPRT(I,J),I = 1, 4, 1), J = 1, 14, 1)
      ELSE
      PRINT 2520,((MDBPRT(I,J),I=1,4,1),J=1,3,1), 
     .           ((MDBPRT(I,J),I=1,4,1),(MDBPRTX(I,J),I=1,4,1),J=4,14,1)
      ENDIF 
 2520 FORMAT (' SEGMENT TABLE ENTRY = ',4(1X,Z4),/, 
     .        ' PAGE TABLE ENTRY 1  = ',4(1X,Z4),/, 
     .        ' PAGE TABLE ENTRY 2  = ',4(1X,Z4),/, 
     .        ' INSTRUCTIONS BEFORE P ',4(1X,Z4),2X,4(1X,O5),'(8)',/, 
     .      4('                       ',4(1X,Z4),2X,4(1X,O5),'(8)',/,), 
     .        ' INSTRUCTION AT P      ',4(1X,Z4),2X,4(1X,O5),'(8)',/, 
     .        ' INSTRUCTIONS AFTER P  ',4(1X,Z4),2X,4(1X,O5),'(8)',/, 
     .      4('                       ',4(1X,Z4),2X,4(1X,O5),'(8)',/,)) 
  
 2530 FORMAT (' SEGMENT TABLE ENTRY = ',4(1X,Z4),/, 
     .        ' PAGE TABLE ENTRY 1  = ',4(1X,Z4),/, 
     .        ' PAGE TABLE ENTRY 2  = ',4(1X,Z4),/, 
     .        ' INSTRUCTIONS BEFORE P ',4(1X,Z4),/, 
     .      4('                       ',4(1X,Z4),/,), 
     .        ' INSTRUCTION AT P      ',4(1X,Z4),/, 
     .        ' INSTRUCTIONS AFTER P  ',4(1X,Z4),/, 
     .      4('                       ',4(1X,Z4),/,)) 
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 6 - EXECUTING WORDS OF SCM - 99X ONLY - 23 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2600 GO TO 2012
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 7 - RETRY INFORMATION                 - 2 WDS
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2700 IF ((LINE+4) .GT. PLF) CALL HEADER
      LINE = LINE + 4 
      IF ((IRR .EQ. 0) .AND. (IBB .EQ. 0)) THEN 
         PRINT 2041,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2
      ELSE
         PRINT 2040,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2,IRR,IBB
      ENDIF 
  
      DO 2716 J = 1, 2
      NXT = NXT + 1 
      DO 2714 I = 1, 3
      SHFCNT = 16 * I 
 2714 MDBPRT(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. Z"FFFF"
 2716 MDBPRT(I,J) = SHIFT(MDB(NXT,1), 4) .AND. Z"FFF0" .OR. MDB(NXT,2)
  
      PRINT 2720,MDBPRT(4,2),(MDBPRT(I,1),I=1,4,1)
 2720 FORMAT (' CONSECUTIVE P COUNT = ',I7,/, 
     .        ' PROGRAM ADDRESS REGISTER = ',4(Z4,1X),/)
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 8 - SOFT REGISTERS                    - 27 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2800 IF ((LINE+17) .GT. PLF) CALL HEADER 
      LINE = LINE + 17
      IF ((IRR .EQ. 0) .AND. (IBB .EQ. 0)) THEN 
         PRINT 2041,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2
      ELSE
         PRINT 2040,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2,IRR,IBB
      ENDIF 
  
      DO 2816 J = 1, 27 
      NXT = NXT + 1 
      DO 2814 I = 1, 3
      SHFCNT = 16 * I 
 2814 MDBPRT(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. Z"FFFF"
 2816 MDBPRT(I,J) = SHIFT(MDB(NXT,1), 4) .AND. Z"FFF0" .OR. MDB(NXT,2)
  
      PRINT 2820,((MDBPRT(I,J),I=1,4,1),J=1,15) 
 2820 FORMAT (' REG 13 VIRTUAL MACHINE CAPABILITY = ',4(Z4,1X),/, 
     .        ' REG 40 P REGISTER                 = ',4(Z4,1X),/, 
     .        ' REG 41 MONITOR PROCESS STATE PTR. = ',4(Z4,1X),/, 
     .        ' REG 42 MONITOR CONDITION REGISTER = ',4(Z4,1X),/, 
     .        ' REG 43 USER CONDITION REGISTER    = ',4(Z4,1X),/, 
     .        ' REG 44 UNTRANSLATABLE POINTER     = ',4(Z4,1X),/, 
     .        ' REG 45 SEGMENT TABLE LENGTH       = ',4(Z4,1X),/, 
     .        ' REG 46 SEGMENT TABLE ADDRESS      = ',4(Z4,1X),/, 
     .        ' REG 47 BASE CONSTANT              = ',4(Z4,1X),/, 
     .        ' REG 48 PAGE TABLE ADDRESS         = ',4(Z4,1X),/, 
     .        ' REG 49 PAGE TABLE LENGTH          = ',4(Z4,1X),/, 
     .        ' REG 4A PAGE SIZE MASK             = ',4(Z4,1X),/, 
     .        ' REG 50 MODEL DEPENDENT FLAGS      = ',4(Z4,1X),/, 
     .        ' REG 60 MONITOR MASK               = ',4(Z4,1X),/, 
     .        ' REG 61 JOB PROCESS STATE POINTER  = ',4(Z4,1X)) 
  
      IF ((LINE+12) .GT. PLF) CALL HEADER 
      LINE = LINE + 12
      PRINT 2822,((MDBPRT(I,J),I=1,4,1),J=16,27)
 2822 FORMAT (' REG 62 SYSTEM INTERVAL TIMER      = ',4(Z4,1X),/, 
     .        ' REG 63 KEYPOINT BUFFER POINTER    = ',4(Z4,1X),/, 
     .        ' REG C0 TRAP ENABLES               = ',4(Z4,1X),/, 
     .        ' REG C4 TRAP POINTER               = ',4(Z4,1X),/, 
     .        ' REG C5 DEBUG LIST POINTER         = ',4(Z4,1X),/, 
     .        ' REG C6 KEYPOINT MASK              = ',4(Z4,1X),/, 
     .        ' REG C9 PROCESS INTERVAL TIMER     = ',4(Z4,1X),/, 
     .        ' REG E0 CRITICAL FRAME FLAG        = ',4(Z4,1X),/, 
     .        ' REG E2 ON CONDITION FLAG          = ',4(Z4,1X),/, 
     .        ' REG E4 DEBUG INDEX                = ',4(Z4,1X),/, 
     .        ' REG E5 DEBUG MASK REGISTER        = ',4(Z4,1X),/, 
     .        ' REG E6 USER MASK REGISTER         = ',4(Z4,1X),/) 
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 9 - REGISTER FILE                     - 65 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2900 IF ((LINE+5) .GT. PLF) CALL HEADER
      LINE = LINE + 2 
      IF ((IRR .EQ. 0) .AND. (IBB .EQ. 0)) THEN 
         PRINT 2041,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2
      ELSE
         PRINT 2040,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2,IRR,IBB
      ENDIF 
  
      DO 2940 K = 1, 4
      PRINT 2910,(MSGSR(I,K),I=1,3,1) 
 2910 FORMAT (/,1X,3A10)
      LINE = LINE + 2 
  
      DO 2930 J = 1, 16 
      NXT = NXT + 1 
      DO 2914 I = 1, 3
      SHFCNT = 16 * I 
 2914 MDBPRT(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. Z"FFFF"
      MDBPRT(I,J) = SHIFT(MDB(NXT,1), 4) .AND. Z"FFF0" .OR. MDB(NXT,2)
  
      IF ((LINE+1) .GT. PLF) CALL HEADER
      LINE = LINE + 1 
      PRINT 2922,K-1,J-1,(MDBPRT(I,J),I=1,4,1)
 2922 FORMAT (1X,'RF',Z1,Z1,' = ',4(Z4,1X)) 
 2930 CONTINUE
  
 2940 CONTINUE
  
      CALL PLSEC(5) 
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID A - ERROR DURING MDB LOGGING          - 10 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 3000 IF ((LINE+12) .GT. PLF) CALL HEADER 
      LINE = LINE + 12
      IF ((IRR .EQ. 0) .AND. (IBB .EQ. 0)) THEN 
         PRINT 2041,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2
      ELSE
         PRINT 2040,(MDBTXT(J,ID),J=1,4,1),FMT1,FMT2,IRR,IBB
      ENDIF 
  
      DO 3730 J = 1, 10 
      NXT = NXT + 1 
  
      DO 3714 I = 1, 3
      SHFCNT = 16 * I 
 3714 MDBPRT(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. Z"FFFF"
      MDBPRT(I,J) = SHIFT(MDB(NXT,1), 4) .AND. Z"FFF0" .OR. MDB(NXT,2)
  
      PRINT 3720,J-1,(MDBPRT(I,J),I=1,4,1)
 3720 FORMAT (' PFS REGISTER 8',Z1,' = ',4(Z4,1X))
 3730 CONTINUE
  
      CALL PLSEC(5) 
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*      PROCESS MAINTENANCE REGISTER ERRORS
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
  300 IF (IFLD(38) .EQ. Z"30") GO TO 400
      IF (IFLD(38) .NE. Z"10") GO TO 500
      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" 
      HCF(1) = 1
      HCF(2) = 5
      HCF(4) = 6
      IHDR = 40 
      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)
  
*     SET FLAG TO PROCESS PIP3 CTI/EDD ERRORS (P3 REGISTERS)
      HX(4) = 3HOFF 
      IF ((IFLD(45) .EQ. O"1001") .OR. (IFLD(45) .EQ. O"1002")) 
     .     HX(4) = 2HON 
* 
*     REGISTER 00 (STATUS SUMMARY)
* 
      IFLD(28) = SHIFT(IFLD(28),4) .OR. IFLD(39)
      HX(21) = IFLD(25) 
      HX(22) = IFLD(26) 
      HX(23) = IFLD(27) 
      HX(24) = IFLD(28) 
* 
*     REGISTER 11 (PROCESSOR ID) FOR 96X
*     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) 
*     REGISTER 12 (OPTIONS INSTALLED) FOR 96X 
*     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) 
      GO TO 500 
* 
*     REGISTER 30 (DEPENDENT ENVIRONMENT CONTROL) FOR 96X 
*     PROCESS CONTENTS FOR HEADER 
* 
  400 IFLD(24) = SHIFT(IFLD(24),4) .OR. IFLD(37)
      IF ((HX(13) .NE. IFLD(21)) .OR. (HX(14) .NE. IFLD(22)) .OR. 
     .    (HX(15) .NE. IFLD(23)) .OR. (HX(16) .NE. IFLD(24))) 
     .    LINE = PLF + 1
      HX(13) = IFLD(21) 
      HX(14) = IFLD(22) 
      HX(15) = IFLD(23) 
      HX(16) = IFLD(24) 
* 
*     REGISTER 32 (CONTROL STORE BREAKPOINT) FOR 96X
*     PROCESS CONTENTS FOR HEADER     ISTER 
* 
      IFLD(28) = SHIFT(IFLD(28),4) .OR. IFLD(39)
      IF ((HX(17) .NE. IFLD(25)) .OR. (HX(18) .NE. IFLD(26)) .OR. 
     .    (HX(19) .NE. IFLD(27)) .OR. (HX(20) .NE. IFLD(28))) 
     .    LINE = PLF + 1
      HX(17) = IFLD(25) 
      HX(18) = IFLD(26) 
      HX(19) = IFLD(27) 
      HX(20) = IFLD(28) 
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     DETAIL REPORT 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
  500 IF (((MODEL .EQ. Z"3A") .OR. (MODEL .EQ. Z"3B")) .AND.
     .     (HX(4) .EQ. 3HOFF)) THEN 
         CALL DL1196X 
      ELSE
         CALL DL11P33 
      ENDIF 
  
      GO TO 900 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     ANALYSIS REPORT 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
  
  600 CONTINUE
      PL(63) = 0
      CALL XOVCAP('ERDIST3',0,0)
      CALL UOVCAP('ERDIST3')
  
      DO 610 K = 1, 440 
      IF (P3MSG(K,5).NE.0) GO TO 620
  610 CONTINUE
      GO TO 900 
  620 HCF(1) = 3
      CALL PHD311 (1) 
  
*     PRINT THE SUMMARY OF PROCESSOR MSGS 
  
      FLAG = 0
      DO 700 I = K, 440 
      IF (P3MSG(I,5).EQ.0) GO TO 700
      UNIT = P3MSG(I,1) 
      PAGE = SHIFT(P3MSG(I,1),24) 
      IF (P3MSG(I,1).NE."          ") ENCODE (10,801,PRPAGE) PAGE 
      IF (P3MSG(I,1).NE.10H          ) PAGE = PRPAGE
      IF ((MODEL .EQ. Z"3A") .OR. (MODEL .EQ. Z"3B")) UNIT = PAGE = 1H
      ENCODE (10,803,REG) P3MSG(I,5)
      IBIT = SHIFT(P3MSG(I,5),6)
      IF ((SHIFT(IBIT,6).AND.O"77").EQ.R"*") FLAG = 1 
      TCPU0 = P3MSG(I,5).AND.O"77 7777" 
      TCPU1 = SHIFT(P3MSG(I,5),42).AND.O"77 7777" 
      ENCODE (10,804,ICNT) TCPU0,TCPU1
      CALL LOAPR (1,P3MSG(I,2),P3MSG(I,3),P3MSG(I,4),IELEM,MODEL, 
     .              REG,IBIT,UNIT)
      PL(9) = PAGE
      PL(10) = ICNT 
      CALL PRT311 (1,10)
  700 CONTINUE
      IF (FLAG.EQ.1) PRINT 802
  900 CONTINUE
  
  801 FORMAT (2H3.,A5,3X) 
  802 FORMAT(/,39X,'* THE CONTENTS OF THE M3 REGISTERS IN THE',/, 
     .           41X,'MR MEMORY REPORT MAY PROVIDE ADDITIONAL',/, 
     .           41X,'MR DATA ON THIS ERROR CONDITION.')
  803 FORMAT(1H8,A1,8X) 
  804 FORMAT(1X,I4,1H/,I4,1X) 
      RETURN
      END 
      SUBROUTINE DL11P33
* 
**         DESCRIPTION
*          -----------
*     THIS ROUTINE DEVELOPS THE DETAIL REPORT FOR 855 PROCESSOR 
*     ERROR MESSAGES. 
* 
*     CALLED BY AN11P33 
* 
*CALL,HPACOM1 
*CALL,HPACOM2 
  
      COMMON / P3 / P3MSG ( 440, 5 )
  
      DIMENSION GROUP(4), M3TABLE (19)
  
      DIMENSION MSG (7,4) 
      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 (P3MSG (I,1), I = 1, 440) / 440 * 0 /
      DATA (P3MSG (I,5), I = 1, 440) / 440 * 0 /
* 
*     TABLE OF PFS BIT DEFINITIONS FOR UPPER P3S (MODELS 30 - 3B) 
* 
*     REGISTER 80 
      DATA (P3MSG(001,J),J=1,4) /10HICC 01    , 
     .10HUNCORRECTE, 10HD ERROR, M, 10HCR BIT 0  /
      DATA (P3MSG(002,J),J=1,4) /10HICC 01    , 
     .10HBEFORE PNR, 10HCORR ERROR, 10H+ MAC POM /
      DATA (P3MSG(003,J),J=1,4) /10HAC  15    , 
     .10HAC ADR FAN, 10H IN TO LM , 10HBYTE 2    /
      DATA (P3MSG(004,J),J=1,4) /10HAC  15    , 
     .10HAC ADR FAN, 10H IN TO LM , 10HBYTE 3    /
      DATA (P3MSG(005,J),J=1,4) /10HAC  15    , 
     .10HAC ADR FAN, 10H IN TO LM , 10HBYTE 4    /
      DATA (P3MSG(006,J),J=1,4) /10HAC  15    , 
     .10HAC ADR FAN, 10H IN TO LM , 10HBYTE 5    /
      DATA (P3MSG(007,J),J=1,4) /10HAC  15    , 
     .10HAC ADR FAN, 10H IN TO LM , 10HBYTE 6    /
      DATA (P3MSG(008,J),J=1,4) /10HAC  15    , 
     .10HAC ADR FAN, 10H IN TO LM , 10HBYTE 7    /
      DATA (P3MSG(009,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 0 /
      DATA (P3MSG(010,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 1 /
      DATA (P3MSG(011,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 2 /
      DATA (P3MSG(012,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 3 /
      DATA (P3MSG(013,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 4 /
      DATA (P3MSG(014,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 5 /
      DATA (P3MSG(015,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 6 /
      DATA (P3MSG(016,J),J=1,4) /10HAC  08    , 
     .10HA/C STRM A, 10HSSY RGTR P, 10HE, BYTE 7 /
      DATA (P3MSG(017,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 0/
      DATA (P3MSG(018,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 1/
      DATA (P3MSG(019,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 2/
      DATA (P3MSG(020,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 3/
      DATA (P3MSG(021,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 4/
      DATA (P3MSG(022,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 5/
      DATA (P3MSG(023,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 6/
      DATA (P3MSG(024,J),J=1,4) /10HAC  09    , 
     .10HAC BUFFER , 10HSTRM DATA , 10HPE, BYTE 7/
      DATA (P3MSG(025,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 0/
      DATA (P3MSG(026,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 1/
      DATA (P3MSG(027,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 2/
      DATA (P3MSG(028,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 3/
      DATA (P3MSG(029,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 4/
      DATA (P3MSG(030,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 5/
      DATA (P3MSG(031,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 6/
      DATA (P3MSG(032,J),J=1,4) /10HAC  12    , 
     .10HB1 BUFFER , 10HSTRM DATA , 10HPE, BYTE 7/
      DATA (P3MSG(033,J),J=1,4) /10HAC  15    , 
     .10HA/C STRM A, 10HSID RGTR P, 10HE, BYTE 0 /
      DATA (P3MSG(034,J),J=1,4) /10HAC  15    , 
     .10HA/C STRM A, 10HSID RGTR P, 10HE, BYTE 1 /
      DATA (P3MSG(035,J),J=1,4) /10HAC  15    , 
     .10HB STRM ASI, 10HD RGTR PE,, 10HBYTE 0    /
      DATA (P3MSG(036,J),J=1,4) /10HAC  15    , 
     .10HB STRM ASI, 10HD RGTR PE,, 10HBYTE 1    /
      DATA (P3MSG(037,J),J=1,4) /10HAC  13    , 
     .10HADDRESS OF, 10HFSET PE, B, 10HYTE 2     /
      DATA (P3MSG(038,J),J=1,4) /10HAC  13    , 
     .10HADDRESS OF, 10HFSET PE, B, 10HYTE 3     /
      DATA (P3MSG(039,J),J=1,4) /10HAC  00/18 , 
     .10HAC MICRAND, 10H PARITY ER, 10HROR BYTE 0/
      DATA (P3MSG(040,J),J=1,4) /10HAC  00/18 , 
     .10HAC MICRAND, 10H PARITY ER, 10HROR BYTE 1/
      DATA (P3MSG(041,J),J=1,4) /10HAC  15    , 
     .10HRECOVERY A, 10HDDR RGT PE, 10H, BYTE 0  /
      DATA (P3MSG(042,J),J=1,4) /10HAC  15    , 
     .10HRECOVERY A, 10HDDR RGT PE, 10H, BYTE 1  /
      DATA (P3MSG(043,J),J=1,4) /10HAC  15    , 
     .10HRECOVERY A, 10HDDR RGT PE, 10H, BYTE 2  /
      DATA (P3MSG(044,J),J=1,4) /10HAC  15    , 
     .10HRECOVERY A, 10HDDR RGT PE, 10H, BYTE 3  /
      DATA (P3MSG(045,J),J=1,4) /10HALN 01    , 
     .10HALN SOFT C, 10HONTROL DAT, 10HA-OUT PE  /
      DATA (P3MSG(046,J),J=1,4) /10HAC  02    , 
     .10HAC SOFT CO, 10HNTROL 2 DA, 10HTA-OUT PE /
      DATA (P3MSG(047,J),J=1,4) /10HAC  01    , 
     .10HAC SOFT CO, 10HNTROL 1 DA, 10HTA-OUT PE /
      DATA (P3MSG(048,J),J=1,4) /10HAC  14    , 
     .10HALN SHIFT , 10HCOUNT RGTR, 10H PE       /
      DATA (P3MSG(049,J),J=1,4) /10HAC  13/18 , 
     .10HA/C STRM L, 10HENGTH COUN, 10HTER PE    /
      DATA (P3MSG(050,J),J=1,4) /10HAC  13/18 , 
     .10HB STRM LEN, 10HGTH COUNTE, 10HR PE      /
      DATA (P3MSG(051,J),J=1,4) /10HAC  09    , 
     .10HA STRM DIS, 10HASSEMBLY M, 10HUX PE (AJ)/
      DATA (P3MSG(052,J),J=1,4) /10HAC  12    , 
     .10HB STRM DAT, 10HA BYTE TO , 10HBDP PE    /
      DATA (P3MSG(053,J),J=1,4) /10HAC  08    , 
     .10HSTORE BIT/, 10HALL OTHER , 10HOPS PE    /
      DATA (P3MSG(054,J),J=1,4) /10HALN 15/24 , 
     .10HCONV-TO-BI, 10HN DATA BYT, 10HE - BDP PE/
      DATA (P3MSG(055,J),J=1,4) /10HBDP 08/33 , 
     .10HB STRM STA, 10HGE 1 PE (A, 10HK)        /
      DATA (P3MSG(056,J),J=1,4) /10HBDP 05/33 , 
     .10HB STRM STA, 10HGE 1 PE (A, 10HJ)        /
      DATA (P3MSG(057,J),J=1,4) /10HBDP 15/33 , 
     .10HRF A STRM , 10HSTG 4 ADR , 10HCTR PE    /
      DATA (P3MSG(058,J),J=1,4) /10HBDP 15/33 , 
     .10HRF B STRM , 10HSTG 4 ADR , 10HCTR PE    /
      DATA (P3MSG(059,J),J=1,4) /10HBDP 16/33 , 
     .10HREGISTER  , 10HFILE A RAM, 10H PE       /
      DATA (P3MSG(060,J),J=1,4) /10HBDP 16/33 , 
     .10HREGISTER  , 10HFILE B RAM, 10H PE       /
      DATA (P3MSG(061,J),J=1,4) /10HBDP 25/33 , 
     .10HCONVERT DE, 10HCIMAL ADDE, 10HR PE      /
      DATA (P3MSG(062,J),J=1,4) /10HBDP 15/33 , 
     .10HTABLE LOAD, 10H LIMIT PE , 10H          /
      DATA (P3MSG(063,J),J=1,4) /10HBDP 13/33 , 
     .10HCOMMON STA, 10HGE 7 REGIS, 10HTER PE    /
      DATA (P3MSG(064,J),J=1,4) /10HMAC 11/09 , 
     .10HPFS BOARD , 10H0 INTERNAL, 10H PE       /
  
*     REGISTER 81 
      DATA (P3MSG(065,J),J=1,4) /10HBDP 14/33 , 
     .10HBUFFER RAM, 10H ADDRESS C, 10HOUNTER PE /
      DATA (P3MSG(066,J),J=1,4) /10HBDP 20/33 , 
     .10HC STRM STA, 10HGE 2 PE   , 10H          /
      DATA (P3MSG(067,J),J=1,4) /10HBDP 03/33 , 
     .10HSPEC OR X2, 10H56 RAM ADD, 10HRESS PE   /
      DATA (P3MSG(068,J),J=1,4) /10HBDP 03/33 , 
     .10HSPEC OR X2, 10H56 RAM DAT, 10HA PE      /
      DATA (P3MSG(069,J),J=1,4) /10HBDP 05/33 , 
     .10HA STRM STA, 10HGE 2 DATA , 10HPE        /
      DATA (P3MSG(070,J),J=1,4) /10HBDP 08/33 , 
     .10HB STRM STA, 10HGE 2 DATA , 10HPE        /
      DATA (P3MSG(071,J),J=1,4) /10HBDP 02/33 , 
     .10HAJ DESCRIP, 10HTOR PE    , 10H          /
      DATA (P3MSG(072,J),J=1,4) /10HBDP 02/33 , 
     .10HAK DESCRIP, 10HTOR PE    , 10H          /
      DATA (P3MSG(073,J),J=1,4) /10HBDP 22/33 , 
     .10HTRANSLATE , 10HRAM ADDRES, 10HS PE      /
      DATA (P3MSG(074,J),J=1,4) /10HBDP 22    , 
     .10HTRANSLATE , 10HRAM DATA P, 10HE         /
      DATA (P3MSG(075,J),J=1,4) /10HBDP 23/33 , 
     .10HBIN/DEC RA, 10HM ADDRESS , 10HPE        /
      DATA (P3MSG(076,J),J=1,4) /10HBDP 23    , 
     .10HBIN/DEC RA, 10HM DATA PE , 10H          /
      DATA (P3MSG(077,J),J=1,4) /10HBDP 01/33 , 
     .10HBDP MICRAN, 10HD BYTE 0 O, 10HR 1 PE    /
      DATA (P3MSG(078,J),J=1,4) /10HBDP 01/33 , 
     .10HBDP MICRAN, 10HD BYTE 2 O, 10HR 3 PE    /
      DATA (P3MSG(079,J),J=1,4) /10HBDP 01/33 , 
     .10HBDP MICRAN, 10HD BYTE 4 O, 10HR 5 PE    /
      DATA (P3MSG(080,J),J=1,4) /10HBDP 01/33 , 
     .10HBDP MICRAN, 10HD BYTE 6 O, 10HR 7 PE    /
  
      DATA (P3MSG(081,J),J=1,4) /10H          , 
     .10HAC CLK ARR, 10HAY PARITY , 10HERROR     /
      DATA (P3MSG(082,J),J=1,4) /10H          , 
     .10HCMCB CLK A, 10HRRAY PARIT, 10HY ERROR   /
      DATA (P3MSG(083,J),J=1,4) /10H          , 
     .10HCSU CLK AR, 10HRAY PARITY, 10H ERROR    /
  
*     REGISTER 82 
      DATA (P3MSG(089,J),J=1,4) /10HBDP 11/33 , 
     .10HIMMED BYTE, 10H PE       , 10H          /
      DATA (P3MSG(090,J),J=1,4) /10HBDP 29/33 , 
     .10HEDIT MASK , 10HBYTE RGTR , 10HPE        /
      DATA (P3MSG(091,J),J=1,4) /10HLM  05    , 
     .10HCACHE ADRS, 10H RGTR, BYT, 10HE 0 PE    /
      DATA (P3MSG(092,J),J=1,4) /10HLM  05    , 
     .10HCACHE ADRS, 10H RGTR, BYT, 10HE 1 PE    /
      DATA (P3MSG(093,J),J=1,4) /10HLM  05    , 
     .10HCACHE ADRS, 10H RGTR, BYT, 10HE 2 PE    /
      DATA (P3MSG(094,J),J=1,4) /10HLM  05    , 
     .10HCACHE ADRS, 10H RGTR, BYT, 10HE 3 PE    /
      DATA (P3MSG(095,J),J=1,4) /10HLM  05    , 
     .10HCACHE ADRS, 10H RGTR, BYT, 10HE 4 PE    /
      DATA (P3MSG(096,J),J=1,4) /10HLM  05    , 
     .10HCACHE ADRS, 10H RGTR, BYT, 10HE 5 PE    /
      DATA (P3MSG(097,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 0 PE   /
      DATA (P3MSG(098,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 1 PE   /
      DATA (P3MSG(099,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 2 PE   /
      DATA (P3MSG(100,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 3 PE   /
      DATA (P3MSG(101,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 4 PE   /
      DATA (P3MSG(102,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 5 PE   /
      DATA (P3MSG(103,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 6 PE   /
      DATA (P3MSG(104,J),J=1,4) /10HLM  21    , 
     .10HCACHE WRIT, 10HE DATA, BY, 10HTE 7 PE   /
      DATA (P3MSG(105,J),J=1,4) /10HLM  20    , 
     .10HCACHE MULT, 10HIPLE HIT  , 10H          /
      DATA (P3MSG(106,J),J=1,4) /10HLM  20    , 
     .10HCACHE MULT, 10HIPLE ALLOC, 10HATE       /
      DATA (P3MSG(107,J),J=1,4) /10HLM  14    , 
     .10HCACHE TAG , 10HFILE PE   , 10H          /
      DATA (P3MSG(108,J),J=1,4) /10HLM  14    , 
     .10HTAG FILE A, 10HDDRESS PE , 10H          /
      DATA (P3MSG(109,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE WIT, 10HH LM SELEC, 10HT = 3     /
      DATA (P3MSG(110,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE WIT, 10HH LM SELEC, 10HT = 2     /
      DATA (P3MSG(111,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE WIT, 10HH LM SELEC, 10HT = 1     /
      DATA (P3MSG(112,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE WIT, 10HH LM SELEC, 10HT = 0     /
      DATA (P3MSG(113,J),J=1,4) /10HLM  21    , 
     .10HCACHE CPU , 10HDATA PE   , 10H          /
      DATA (P3MSG(114,J),J=1,4) /10HLM  21    , 
     .10HCACHE PORT, 10H DATA PE  , 10H          /
      DATA (P3MSG(115,J),J=1,4) /10HLM  05/21 , 
     .10HCACHE ADRS, 10H RGTR PE 4, 10H          /
      DATA (P3MSG(116,J),J=1,4) /10HLM  21    , 
     .10HCACHE MARK, 10H DATA PE  , 10H          /
      DATA (P3MSG(117,J),J=1,4) /10HLM  21    , 
     .10HCAR PE WIT, 10HH MUX D SE, 10HLECT = 0  /
      DATA (P3MSG(118,J),J=1,4) /10HLM  21    , 
     .10HCAR PE WIT, 10HH MUX D SE, 10HLECT = 1  /
      DATA (P3MSG(119,J),J=1,4) /10HLM  21    , 
     .10HCAR PE WIT, 10HH MUX D SE, 10HLECT = 2  /
      DATA (P3MSG(120,J),J=1,4) /10HLM  21    , 
     .10HCAR PE WIT, 10HH MUX D SE, 10HLECT = 3  /
      DATA (P3MSG(121,J),J=1,4) /10HLM  03/21 , 
     .10HMODIFIED P, 10HURGE CODE , 10HPE        /
      DATA (P3MSG(122,J),J=1,4) /10HLM  02/21 , 
     .10HLM MICRAND, 10H BYTE 0 PE, 10H          /
      DATA (P3MSG(123,J),J=1,4) /10HLM  02/21 , 
     .10HLM MICRAND, 10H BYTE 1 PE, 10H          /
  
      DATA (P3MSG(125,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP S, 10HTATUS, SET, 10H 0 PE     /
      DATA (P3MSG(126,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP S, 10HTATUS, SET, 10H 1 PE     /
      DATA (P3MSG(127,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP S, 10HTATUS, SET, 10H 2 PE     /
      DATA (P3MSG(128,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP S, 10HTATUS, SET, 10H 3 PE     /
      DATA (P3MSG(129,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP, , 10HSET 0 PE  , 10H          /
      DATA (P3MSG(130,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP, , 10HSET 1 PE  , 10H          /
      DATA (P3MSG(131,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP, , 10HSET 2 PE  , 10H          /
      DATA (P3MSG(132,J),J=1,4) /10HLM  12    , 
     .10HPAGE MAP, , 10HSET 3 PE  , 10H          /
      DATA (P3MSG(133,J),J=1,4) /10HLM  12    , 
     .10HPAGE FRAME, 10H ADDRESS P, 10HE         /
  
      DATA (P3MSG(137,J),J=1,4) /10HLM  10    , 
     .10HPAGE TABLE, 10H LENGTH RG, 10HTR PE     /
      DATA (P3MSG(138,J),J=1,4) /10HLM  10    , 
     .10HPAGE TABLE, 10H ADRS RGTR, 10H PE       /
      DATA (P3MSG(139,J),J=1,4) /10HLM  10    , 
     .10HPAGE OFFSE, 10HT RGTR PE , 10H          /
      DATA (P3MSG(140,J),J=1,4) /10HLM  06    , 
     .10HPAGE SIZE , 10HMASK PE   , 10H          /
      DATA (P3MSG(141,J),J=1,4) /10HLM  07    , 
     .10HSTREAM MOD, 10HE TAG PE  , 10H          /
  
      DATA (P3MSG(145,J),J=1,4) /10HLM  08    , 
     .10HCMC ERROR , 10HRESPONSE C, 10HODE = 2   /
      DATA (P3MSG(146,J),J=1,4) /10HLM  08    , 
     .10HCMC ERROR , 10HRESPONSE C, 10HODE = 6   /
      DATA (P3MSG(147,J),J=1,4) /10HLM  08    , 
     .10HCMC ERROR , 10HRESPONSE C, 10HODE = 1   /
      DATA (P3MSG(148,J),J=1,4) /10HLM  08    , 
     .10HCMC ERROR , 10HRESPONSE C, 10HODE = 5   /
      DATA (P3MSG(149,J),J=1,4) /10HLM  08    , 
     .10HCMC ERROR , 10HRESPONSE C, 10HODE = 7   /
      DATA (P3MSG(150,J),J=1,4) /10HLM  08    , 
     .10HCMC RESPON, 10HSE CODE PE, 10H          /
      DATA (P3MSG(151,J),J=1,4) /10HLM  08    , 
     .10HRANK A CM , 10HTAG RGTR P, 10HE         /
      DATA (P3MSG(152,J),J=1,4) /10HMAC 11/09 , 
     .10HPFS BOARD , 10H1 BUS DATA, 10H PE       /
  
*     REGISTER 83 
      DATA (P3MSG(153,J),J=1,4) /10HLM  21    , 
     .10HSET 0 CACH, 10HE ADDRESS , 10HPE        /
      DATA (P3MSG(154,J),J=1,4) /10HLM  21    , 
     .10HSET 1 CACH, 10HE ADDRESS , 10HPE        /
      DATA (P3MSG(155,J),J=1,4) /10HLM  21    , 
     .10HSET 2 CACH, 10HE ADDRESS , 10HPE        /
      DATA (P3MSG(156,J),J=1,4) /10HLM  21    , 
     .10HSET 3 CACH, 10HE ADDRESS , 10HPE        /
      DATA (P3MSG(157,J),J=1,4) /10HLM  21    , 
     .10HSET 0 CACH, 10HE TAG RAM , 10HPE        /
      DATA (P3MSG(158,J),J=1,4) /10HLM  21    , 
     .10HSET 1 CACH, 10HE TAG RAM , 10HPE        /
      DATA (P3MSG(159,J),J=1,4) /10HLM  21    , 
     .10HSET 2 CACH, 10HE TAG RAM , 10HPE        /
      DATA (P3MSG(160,J),J=1,4) /10HLM  21    , 
     .10HSET 3 CACH, 10HE TAG RAM , 10HPE        /
      DATA (P3MSG(161,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, CA, 10HCHE SET 0 , 10HDATA      /
      DATA (P3MSG(162,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, CA, 10HCHE SET 1 , 10HDATA      /
      DATA (P3MSG(163,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, CA, 10HCHE SET 2 , 10HDATA      /
      DATA (P3MSG(164,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, CA, 10HCHE SET 3 , 10HDATA      /
      DATA (P3MSG(165,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, DA, 10HI MUX SELE, 10HCT = 3    /
      DATA (P3MSG(166,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, DA, 10HI MUX SELE, 10HCT = 2    /
      DATA (P3MSG(167,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, DA, 10HI MUX SELE, 10HCT = 1    /
      DATA (P3MSG(168,J),J=1,4) /10HOPI 19    , 
     .10HDAI PE, DA, 10HI MUX SELE, 10HCT = 0    /
  
      DATA (P3MSG(169,J),J=1,4) /10H          , 
     .10HLMS CLK AR, 10HRAY PARITY, 10H ERROR    /
      DATA (P3MSG(170,J),J=1,4) /10H          , 
     .10HLMB CLK AR, 10HRAY PARITY, 10H ERRORR   /
      DATA (P3MSG(171,J),J=1,4) /10H          , 
     .10HCMCA CLK A, 10HRRAY PARIT, 10HY ERROR   /
  
*     REGISTER 84 
      DATA (P3MSG(177,J),J=1,4) /10HSM  05    , 
     .10HSEG DESCR , 10HMUX PE, SE, 10HT 0 SEL   /
      DATA (P3MSG(178,J),J=1,4) /10HSM  05    , 
     .10HSEG DESCR , 10HMUX PE, SE, 10HT 1 SEL   /
      DATA (P3MSG(179,J),J=1,4) /10HSM  01.05 , 
     .10HSEG DESCR , 10HMUX, BYTE , 10H0 PE      /
      DATA (P3MSG(180,J),J=1,4) /10HSM  01/05 , 
     .10HSEG DESCR , 10HMUX, BYTE , 10H1 PE      /
      DATA (P3MSG(181,J),J=1,4) /10HSM  01/05 , 
     .10HSEG DESCR , 10HMUX, BYTE , 10H2 PE      /
      DATA (P3MSG(182,J),J=1,4) /10HSM  01/05 , 
     .10HSEG DESCR , 10HMUX, BYTE , 10H3 PE      /
      DATA (P3MSG(183,J),J=1,4) /10HSM  01/05 , 
     .10HSEG DESCR , 10HMUX, BYTE , 10H4 PE      /
      DATA (P3MSG(184,J),J=1,4) /10HSM  01/05 , 
     .10HSEG DESCR , 10HMUX, BYTE , 10H5 PE      /
      DATA (P3MSG(185,J),J=1,4) /10HSM  00/05 , 
     .10HSTL BYTE 0, 10H PE       , 10H          /
      DATA (P3MSG(186,J),J=1,4) /10HSM  00/05 , 
     .10HSTL BYTE 1, 10H PE       , 10H          /
      DATA (P3MSG(187,J),J=1,4) /10HSM  00/05 , 
     .10HSTA SAVE R, 10HGTR, BYTE , 10H0/3 PE    /
      DATA (P3MSG(188,J),J=1,4) /10HSM  00/05 , 
     .10HSTA SAVE R, 10HGTR, BYTE , 10H1/2 PE    /
      DATA (P3MSG(189,J),J=1,4) /10HSM  01/05 , 
     .10HNEW P RGTR, 10H, BYTE 0 P, 10HE         /
      DATA (P3MSG(190,J),J=1,4) /10HSM  01/05 , 
     .10HNEW P RGTR, 10H, BYTE 1 P, 10HE         /
      DATA (P3MSG(191,J),J=1,4) /10HSM  01/05 , 
     .10HNEW P RGTR, 10H, BYTE 2 P, 10HE         /
      DATA (P3MSG(192,J),J=1,4) /10HSM  01/05 , 
     .10HNEW P RGTR, 10H, BYTE 3 P, 10HE         /
      DATA (P3MSG(193,J),J=1,4) /10HSM  00/05 , 
     .10HPVA RGTR, , 10HVMID BITS , 10HPE        /
      DATA (P3MSG(194,J),J=1,4) /10HSM  00/05 , 
     .10HPVA RGTR, , 10HCBP R3 BIT, 10HS PE      /
      DATA (P3MSG(195,J),J=1,4) /10HSM  00/05 , 
     .10HPVA RGTR, , 10HBYTE 2 PE , 10H          /
      DATA (P3MSG(196,J),J=1,4) /10HSM  00/05 , 
     .10HPVA RGTR, , 10HBYTE 3 PE , 10H          /
      DATA (P3MSG(197,J),J=1,4) /10HSM  05    , 
     .10HSEG DESCR , 10HMUX PE, NO, 10H SET SEL  /
      DATA (P3MSG(198,J),J=1,4) /10HSM  03/05 , 
     .10HVALID STAT, 10HUS RAM ERR, 10HOR        /
      DATA (P3MSG(199,J),J=1,4) /10HSM  04/05 , 
     .10HSM MICRAMD, 10H, BYTE 0 P, 10HE         /
      DATA (P3MSG(200,J),J=1,4) /10HSM  04/05 , 
     .10HSM MICRAND, 10H, BYTE 1 P, 10HE         /
      DATA (P3MSG(201,J),J=1,4) /10HSM  04/05 , 
     .10HPURGE CODE, 10H PE       , 10H          /
      DATA (P3MSG(202,J),J=1,4) /10HICP 02    , 
     .10HRANK 32 DE, 10HSCR DATA P, 10HE         /
      DATA (P3MSG(203,J),J=1,4) /10HICP 01    , 
     .10HRANK 32 J,, 10HK RGTR PE , 10H          /
      DATA (P3MSG(204,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 UT, 10HP RGTR, BY, 10HTE 2 PE   /
      DATA (P3MSG(205,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 UT, 10HP RGTR, BY, 10HTE 4 PE   /
      DATA (P3MSG(206,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 UT, 10HP RGTR, BY, 10HTE 5 PE   /
      DATA (P3MSG(207,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 UT, 10HP RGTR, BY, 10HTE 6 PE   /
      DATA (P3MSG(208,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 UT, 10HP RGTR, BY, 10HTE 7 PE   /
      DATA (P3MSG(209,J),J=1,4) /10HICC 03    , 
     .10HICC WRITE , 10HDATA, BYTE, 10H 0 PE     /
      DATA (P3MSG(210,J),J=1,4) /10HICC 03    , 
     .10HICC WRITE , 10HDATA, BYTE, 10H 1 PE     /
      DATA (P3MSG(211,J),J=1,4) /10HICP 03    , 
     .10HRANK 41 GE, 10HNL MICR, B, 10HYTE 3 PE  /
      DATA (P3MSG(212,J),J=1,4) /10HICP 03    , 
     .10HRANK 41 GE, 10HNL MICR, B, 10HYTE 2 PE  /
      DATA (P3MSG(213,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 P , 10HRGTR, BYTE, 10H 4 PE     /
      DATA (P3MSG(214,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 P , 10HRGTR, BYTE, 10H 5 PE     /
      DATA (P3MSG(215,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 P , 10HRGTR, BYTE, 10H 6 PE     /
      DATA (P3MSG(216,J),J=1,4) /10HICP 00    , 
     .10HRANK 50 P , 10HRGTR, BYTE, 10H 7 PE     /
      DATA (P3MSG(217,J),J=1,4) /10HICP 03    , 
     .10HRANK 41 GE, 10HNL MICR, B, 10HYTE 4 PE  /
      DATA (P3MSG(218,J),J=1,4) /10HICC 09    , 
     .10HSOFT ERROR, 10H/SUCESSFUL, 10H RETRY    /
      DATA (P3MSG(219,J),J=1,4) /10HICP 06    , 
     .10HDEADMAN TI, 10HMEOUT     , 10H          /
      DATA (P3MSG(220,J),J=1,4) /10HICP 07    , 
     .10HDEBUG MASK, 10H PE       , 10H          /
      DATA (P3MSG(221,J),J=1,4) /10HICC 00    , 
     .10HMAC OPERAT, 10HION PDM   , 10H          /
      DATA (P3MSG(222,J),J=1,4) /10HICC 09    , 
     .10HRETRY COUN, 10HTER RGTR P, 10HE         /
      DATA (P3MSG(223,J),J=1,4) /10HICC 06    , 
     .10HPDM DURIGN, 10H EXCH INTR, 10HPT STATE  /
      DATA (P3MSG(224,J),J=1,4) /10HICC 07    , 
     .10HRANK 50 PD, 10HM BEFORE P, 10HONR       /
      DATA (P3MSG(225,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H0 PE      /
      DATA (P3MSG(226,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H1 PE      /
      DATA (P3MSG(227,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H2 PE      /
      DATA (P3MSG(228,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H3 PE      /
      DATA (P3MSG(229,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H4 PE      /
      DATA (P3MSG(230,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H5 PE      /
      DATA (P3MSG(231,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H6 PE      /
      DATA (P3MSG(232,J),J=1,4) /10HOPI 12    , 
     .10HDAI RGTR D, 10HATA, BYTE , 10H7 PE      /
      DATA (P3MSG(233,J),J=1,4) /10HOPI 01    , 
     .10HMINIPIPE R, 10HANK 50 RGT, 10HR PE      /
      DATA (P3MSG(234,J),J=1,4) /10HOPI 05    , 
     .10HRF READ DA, 10HTA, BYTES , 10H0-3 PE    /
      DATA (P3MSG(235,J),J=1,4) /10HOPI 05    , 
     .10HRF READ DA, 10HTA, BYTES , 10H4-7 PE    /
      DATA (P3MSG(236,J),J=1,4) /10HOPI 16/19 , 
     .10HCMC TAG PE, 10H          , 10H          /
  
      DATA (P3MSG(240,J),J=1,4) /10HMAC 11/09 , 
     .10HPFS BOARD , 10H2 BUS DATA, 10H PE       /
  
*     REGISTER 85 
      DATA (P3MSG(241,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 P , 10H, BYTE 4 P, 10HE         /
      DATA (P3MSG(242,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 P , 10H, BYTE 5 P, 10HE         /
      DATA (P3MSG(243,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 P , 10H, BYTE 6 P, 10HE         /
      DATA (P3MSG(244,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 P , 10H, BYTE 7 P, 10HE         /
      DATA (P3MSG(245,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 DE, 10HSCR DATA P, 10HE         /
      DATA (P3MSG(246,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 J,, 10HK DATA PE , 10H          /
      DATA (P3MSG(247,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 IM, 10HMED OP, BY, 10HTE 0 PE   /
      DATA (P3MSG(248,J),J=1,4) /10HOPI 06/19 , 
     .10HRANK 22 IM, 10HMED OP, BY, 10HTE 1 PE   /
      DATA (P3MSG(249,J),J=1,4) /10HOPI 00/19 , 
     .10HFU MICRAND, 10H, BYTE 6 P, 10HE         /
      DATA (P3MSG(250,J),J=1,4) /10HOPI 00/19 , 
     .10HFU MICRAND, 10H, BYTE 7 P, 10HE         /
      DATA (P3MSG(251,J),J=1,4) /10HOPI 16/19 , 
     .10HRANK 50 RG, 10HTR DATA, B, 10HYTE 0 PE  /
      DATA (P3MSG(252,J),J=1,4) /10HOPI 16/19 , 
     .10HRANK 50 RG, 10HTR DATA, B, 10HYTE 1 PE  /
      DATA (P3MSG(253,J),J=1,4) /10HOPI 16/19 , 
     .10HRANK 22 IN, 10HCR J,K BIT, 10HS PE      /
  
      DATA (P3MSG(255,J),J=1,4) /10HOPI 17    , 
     .10HMICROSECON, 10HD COUNTER , 10HPE        /
  
      DATA (P3MSG(257,J),J=1,4) /10H          , 
     .10HOPSM CLK A, 10HRRAY PARIT, 10HY ERROR   /
      DATA (P3MSG(258,J),J=1,4) /10H          , 
     .10HOPIB CLK A, 10HRRAY PARIT, 10HY ERROR   /
      DATA (P3MSG(259,J),J=1,4) /10H          , 
     .10HOPIA CLK A, 10HRRAY PARIT, 10HY ERROR   /
  
*     REGISTER 86 
  
      DATA (P3MSG(268,J),J=1,4) /10HCST 04    , 
     .10HMICRAND AD, 10HDRESS RGTR, 10H PE       /
      DATA (P3MSG(269,J),J=1,4) /10HCST 05    , 
     .10HCST WRITE , 10HPE 0 (EVEN, 10H)         /
      DATA (P3MSG(270,J),J=1,4) /10HCST 05    , 
     .10HCST WRITE , 10HPE 1 (ODD), 10H          /
      DATA (P3MSG(271,J),J=1,4) /10HCST 01/00 , 
     .10HMSC RGTR, , 10HBYTE 0 PE , 10H          /
      DATA (P3MSG(272,J),J=1,4) /10HCST 01/00 , 
     .10HMSC RGTR, , 10HBYTE 1 PE , 10H          /
      DATA (P3MSG(273,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 0 PE   /
      DATA (P3MSG(274,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 1 PE   /
      DATA (P3MSG(275,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 2 PE   /
      DATA (P3MSG(276,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 3 PE   /
      DATA (P3MSG(277,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 4 PE   /
      DATA (P3MSG(278,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 5 PE   /
      DATA (P3MSG(279,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 6 PE   /
      DATA (P3MSG(280,J),J=1,4) /10HCST 05    , 
     .10HFU MICR BF, 10HR RGTR, BY, 10HTE 7 PE   /
      DATA (P3MSG(281,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 0, 10H PE       /
      DATA (P3MSG(282,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 1, 10H PE       /
      DATA (P3MSG(283,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 2, 10H PE       /
      DATA (P3MSG(284,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 3, 10H PE       /
      DATA (P3MSG(285,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 4, 10H PE       /
      DATA (P3MSG(286,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 5, 10H PE       /
      DATA (P3MSG(287,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 6, 10H PE       /
      DATA (P3MSG(288,J),J=1,4) /10HCST 05    , 
     .10HFU MICR RG, 10HTR, BYTE 7, 10H PE       /
      DATA (P3MSG(289,J),J=1,4) /10HCST 05    , 
     .10HGENERAL MI, 10HCR RGTR, B, 10HYTE 2 PE  /
      DATA (P3MSG(290,J),J=1,4) /10HCST 05    , 
     .10HGENERAL MI, 10HCR RGTR, B, 10HYTE 3 PE  /
      DATA (P3MSG(291,J),J=1,4) /10HCST 05    , 
     .10HGENERAL MI, 10HCR RGTR, B, 10HYTE 4 PE  /
      DATA (P3MSG(292,J),J=1,4) /10HCST 05    , 
     .10HGENERAL MI, 10HCR RGTR, B, 10HYTE 5 PE  /
      DATA (P3MSG(293,J),J=1,4) /10HCST 05    , 
     .10HGENERAL MI, 10HCR RGTR, B, 10HYTE 6 PE  /
      DATA (P3MSG(294,J),J=1,4) /10HCST 05    , 
     .10HGENERAL MI, 10HCR RGTR, B, 10HYTE 7 PE  /
      DATA (P3MSG(295,J),J=1,4) /10HOPI 14    , 
     .10HA START, X, 10H START PE , 10H          /
      DATA (P3MSG(296,J),J=1,4) /10HOPI 14    , 
     .10HA TERMN, X, 10H TERMN PE , 10H          /
      DATA (P3MSG(297,J),J=1,4) /10HMAC 01/08 , 
     .10HMAINT CHAN, 10H DATA OUT , 10HPE        /
      DATA (P3MSG(298,J),J=1,4) /10HMAC 08    , 
     .10HMAINT CHAN, 10H WRITE OR , 10HFCTN PE   /
      DATA (P3MSG(299,J),J=1,4) /10HMAC 00/08 , 
     .10HMAINT CHAN, 10H INPUT PE , 10H1         /
      DATA (P3MSG(300,J),J=1,4) /10HMAC 00/08 , 
     .10HMAC DATA M, 10HUX 5 PE   , 10H          /
      DATA (P3MSG(301,J),J=1,4) /10HMAC 06/08 , 
     .10HREF ROM AD, 10HRS PE     , 10H          /
      DATA (P3MSG(302,J),J=1,4) /10HMAC 05/08 , 
     .10HMAC ADDRES, 10HS PE      , 10H          /
      DATA (P3MSG(303,J),J=1,4) /10HMAC 06/08 , 
     .10HREF ROM DA, 10HTA PE     , 10H          /
      DATA (P3MSG(304,J),J=1,4) /10HOPI 14    , 
     .10HN RGTR PE , 10H          , 10H          /
      DATA (P3MSG(305,J),J=1,4) /10HIF  01/04 , 
     .10HC170 ODD D, 10HECODE RAM , 10HA PE      /
      DATA (P3MSG(306,J),J=1,4) /10HIF  01/04 , 
     .10HC170 EVEN , 10HDECODE RAM, 10H A PE     /
      DATA (P3MSG(307,J),J=1,4) /10HIF  01/04 , 
     .10HC180 DECOD, 10HE RAM A PE, 10H          /
      DATA (P3MSG(308,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK0, B, 10HYTE 0 PE  /
      DATA (P3MSG(309,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK0, B, 10HYTE 1 PE  /
      DATA (P3MSG(310,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK0, B, 10HYTE 2 PE  /
      DATA (P3MSG(311,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK0, B, 10HYTE 3 PE  /
      DATA (P3MSG(312,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK0, B, 10HYTE 4 PE  /
      DATA (P3MSG(313,J),J=1,4) /10HIF  01/04 , 
     .10HC170 ODD D, 10HECODE RAM , 10HB PE      /
      DATA (P3MSG(314,J),J=1,4) /10HIF  01/04 , 
     .10HC170 EVEN , 10HDECODE RAM, 10H B PE     /
      DATA (P3MSG(315,J),J=1,4) /10HIF  01/04 , 
     .10HC180 DECOD, 10HE RAM B PE, 10H          /
      DATA (P3MSG(316,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK1, B, 10HYTE 0 PE  /
      DATA (P3MSG(317,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK1, B, 10HYTE 1 PE  /
      DATA (P3MSG(318,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK1, B, 10HYTE 2 PE  /
      DATA (P3MSG(319,J),J=1,4) /10HIF  03/04 , 
     .10HBFR RANK 1, 10H2, PAK1, B, 10HYTE 3 PE  /
  
      DATA (P3MSG(321,J),J=1,4) /10HIF  05    , 
     .10HBR ADRS A , 10HRGTR, BYTE, 10H 0 PE     /
      DATA (P3MSG(322,J),J=1,4) /10HIF  05    , 
     .10HBR ADRS A , 10HRGTR, BYTE, 10H 1 PE     /
      DATA (P3MSG(323,J),J=1,4) /10HIF  05    , 
     .10HBR ADRS A , 10HRGTR, BYTE, 10H 2 PE     /
      DATA (P3MSG(324,J),J=1,4) /10HIF  05    , 
     .10HBR ADRS A , 10HRGTR, BYTE, 10H 3 PE     /
      DATA (P3MSG(325,J),J=1,4) /10HIF  05    , 
     .10HBR ADRS B , 10HRGTR, BYTE, 10H 1 PE     /
      DATA (P3MSG(326,J),J=1,4) /10HIF  05    , 
     .10HBR ADRS B , 10HRGTR, BYTE, 10H 2 PE     /
      DATA (P3MSG(327,J),J=1,4) /10HIF  05    , 
     .10HBR ADRS B , 10HRGTR, BYTE, 10H 3 PE     /
      DATA (P3MSG(328,J),J=1,4) /10HMAC 11/09 , 
     .10HPFS BOARD , 10H3 BUS DATA, 10H PE       /
  
*     REGISTER 87 
      DATA (P3MSG(329,J),J=1,4) /10HIF  05/04 , 
     .10HBR ADRS AD, 10HDER INP, B, 10HYTE 0 PE  /
      DATA (P3MSG(330,J),J=1,4) /10HIF  05/04 , 
     .10HBR ADRS AD, 10HDER INP, B, 10HYTE 1 PE  /
      DATA (P3MSG(331,J),J=1,4) /10HIF  05/04 , 
     .10HBR ADRS AD, 10HDER INP, B, 10HYTE 2 PE  /
      DATA (P3MSG(332,J),J=1,4) /10HIF  05/04 , 
     .10HBR ADRS AD, 10HDER INP, B, 10HYTE 3 PE  /
      DATA (P3MSG(333,J),J=1,4) /10HIF  05    , 
     .10HBRANCH ADR, 10HS RGTR, BY, 10HTE 4 PE   /
      DATA (P3MSG(334,J),J=1,4) /10HIF  05    , 
     .10HBRANCH ADR, 10HS RGTR, BY, 10HTE 5 PE   /
      DATA (P3MSG(335,J),J=1,4) /10HIF  05    , 
     .10HBRANCH ADR, 10HS RGTR, BY, 10HTE 6 PE   /
      DATA (P3MSG(336,J),J=1,4) /10HIF  05    , 
     .10HBRANCH ADR, 10HS RGTR, BY, 10HTE 7 PE   /
      DATA (P3MSG(337,J),J=1,4) /10HIF  02    , 
     .10HINSTR BFR , 10HRANK 2, BY, 10HTE 0 PE   /
      DATA (P3MSG(338,J),J=1,4) /10HIF  02    , 
     .10HINSTR BFR , 10HRANK 2, BY, 10HTE 1 PE   /
      DATA (P3MSG(339,J),J=1,4) /10HIF  02    , 
     .10HINSTR BFR , 10HRANK 2, BY, 10HTE 2 PE   /
      DATA (P3MSG(340,J),J=1,4) /10HIF  02    , 
     .10HINSTR BFR , 10HRANK 2, BY, 10HTE 3 PE   /
      DATA (P3MSG(341,J),J=1,4) /10HIF  03    , 
     .10HINSTR BFR , 10HRANK 11, B, 10HYTE 0 PE  /
      DATA (P3MSG(342,J),J=1,4) /10HIF  03    , 
     .10HINSTR BFR , 10HRANK 11, B, 10HYTE 1 PE  /
      DATA (P3MSG(343,J),J=1,4) /10HIF  03    , 
     .10HINSTR BFR , 10HRANK 11, B, 10HYTE 2 PE  /
      DATA (P3MSG(344,J),J=1,4) /10HIF  03    , 
     .10HINSTR BFR , 10HRANK 11, B, 10HYTE 3 PE  /
  
      DATA (P3MSG(345,J),J=1,4) /10H          , 
     .10HIFIC CLK A, 10HRRAY PARIT, 10HY ERROR   /
      DATA (P3MSG(346,J),J=1,4) /10H          , 
     .10HCSMC CLK A, 10HRRAY PARIT, 10HY ERROR   /
      DATA (P3MSG(347,J),J=1,4) /10H          , 
     .10HBDP CLK AR, 10HRAY PARITY, 10H ERROR    /
      DATA (P3MSG(348,J),J=1,4) /10H          , 
     .10H1ST FAILUR, 10HE DETCTD I, 10HN REG80/81/
      DATA (P3MSG(349,J),J=1,4) /10H          , 
     .10H1ST FAILUR, 10HE DETCTD I, 10HN REG82/83/
      DATA (P3MSG(350,J),J=1,4) /10H          , 
     .10H1ST FAILUR, 10HE DETCTD I, 10HN REG84/85/
      DATA (P3MSG(351,J),J=1,4) /10H          , 
     .10H1ST FAILUR, 10HE DETCTD I, 10HN REG86/87/
      DATA (P3MSG(352,J),J=1,4) /10H          , 
     .10H1ST FAILUR, 10HE DETCTD I, 10HN REG88/89/
  
*     REGISTER 88 
      DATA (P3MSG(353,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 0 PE    /
      DATA (P3MSG(354,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 1 PE    /
      DATA (P3MSG(355,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 2 PE    /
      DATA (P3MSG(356,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 3 PE    /
      DATA (P3MSG(357,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 4 PE    /
      DATA (P3MSG(358,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 5 PE    /
      DATA (P3MSG(359,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 6 PE    /
      DATA (P3MSG(360,J),J=1,4) /10HIF  00/04 , 
     .10HINSTR ASSY, 10H RGTR, BYT, 10HE 7 PE    /
      DATA (P3MSG(361,J),J=1,4) /10HIF  00/04 , 
     .10HPARCEL 3 S, 10HAVE, BYTE , 10H0 PE      /
      DATA (P3MSG(362,J),J=1,4) /10HIF  00/04 , 
     .10HPARCEL 3 S, 10HAVE, BYTE , 10H1 PE      /
      DATA (P3MSG(363,J),J=1,4) /10HIF  04    , 
     .10HP MUX, BYT, 10HE 0 PE    , 10H          /
      DATA (P3MSG(364,J),J=1,4) /10HIF  04    , 
     .10HP MUX, BYT, 10HE 1 PE    , 10H          /
      DATA (P3MSG(365,J),J=1,4) /10HIF  04    , 
     .10HP MUX, BYT, 10HE 2 PE    , 10H          /
      DATA (P3MSG(366,J),J=1,4) /10HIF  04    , 
     .10HP MUX, BYT, 10HE 3 PE    , 10H          /
      DATA (P3MSG(367,J),J=1,4) /10HALN 02/24 , 
     .10HMULT/DIV C, 10HONT RGTR, , 10HSC PE 0   /
      DATA (P3MSG(368,J),J=1,4) /10HALN 02/24 , 
     .10HMULT/DIV C, 10HONT RGTR, , 10HSC PE 1   /
      DATA (P3MSG(369,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 0 PE   , 10H          /
      DATA (P3MSG(370,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 1 PE   , 10H          /
      DATA (P3MSG(371,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 2 PE   , 10H          /
      DATA (P3MSG(372,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 3 PE   , 10H          /
      DATA (P3MSG(373,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 4 PE   , 10H          /
      DATA (P3MSG(374,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 5 PE   , 10H          /
      DATA (P3MSG(375,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 6 PE   , 10H          /
      DATA (P3MSG(376,J),J=1,4) /10HALN 13/24 , 
     .10HC RGTR, BY, 10HTE 7 PE   , 10H          /
      DATA (P3MSG(377,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 0 PE   , 10H          /
      DATA (P3MSG(378,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 1 PE   , 10H          /
      DATA (P3MSG(379,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 2 PE   , 10H          /
      DATA (P3MSG(380,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 3 PE   , 10H          /
      DATA (P3MSG(381,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 4 PE   , 10H          /
      DATA (P3MSG(382,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 5 PE   , 10H          /
      DATA (P3MSG(383,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 6 PE   , 10H          /
      DATA (P3MSG(384,J),J=1,4) /10HALN 14/24 , 
     .10HB RGTR, BY, 10HTE 7 PE   , 10H          /
      DATA (P3MSG(385,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 0 PE    /
      DATA (P3MSG(386,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 1 PE    /
      DATA (P3MSG(387,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 2 PE    /
      DATA (P3MSG(388,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 3 PE    /
      DATA (P3MSG(389,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 4 PE    /
      DATA (P3MSG(390,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 5 PE    /
      DATA (P3MSG(391,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 6 PE    /
      DATA (P3MSG(392,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 7 PE    /
      DATA (P3MSG(393,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 8 PE    /
      DATA (P3MSG(394,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 9 PE    /
      DATA (P3MSG(395,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 10 PE   /
      DATA (P3MSG(396,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR INP, BYT, 10HE 11 PE   /
      DATA (P3MSG(397,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 0 CA, 10HRRY ERR   /
      DATA (P3MSG(398,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 1 CA, 10HRRY ERR   /
      DATA (P3MSG(399,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 2 CA, 10HRRY ERR   /
      DATA (P3MSG(400,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 3 CA, 10HRRY ERR   /
      DATA (P3MSG(401,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 4 CA, 10HRRY ERR   /
      DATA (P3MSG(402,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 5 CA, 10HRRY ERR   /
      DATA (P3MSG(403,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 6 CA, 10HRRY ERR   /
      DATA (P3MSG(404,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 7 CA, 10HRRY ERR   /
      DATA (P3MSG(405,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 8 CA, 10HRRY ERR   /
      DATA (P3MSG(406,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 9 CA, 10HRRY ERR   /
      DATA (P3MSG(407,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 10 C, 10HARRY ERR  /
      DATA (P3MSG(408,J),J=1,4) /10HALN 10    , 
     .10HLARGE ADDE, 10HR GRP 11 C, 10HARRY ERR  /
  
      DATA (P3MSG(411,J),J=1,4) /10HALN 04/24 , 
     .10HAC SHIFT C, 10HOUNT, BYTE, 10H 0 PE     /
      DATA (P3MSG(412,J),J=1,4) /10HALN 04/24 , 
     .10HAC SHIFT C, 10HOUNT, BYTE, 10H 1 PE     /
      DATA (P3MSG(413,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 0     /
      DATA (P3MSG(414,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 1     /
  
      DATA (P3MSG(416,J),J=1,4) /10HMAC 11/09 , 
     .10HPFS BOARD , 10H4 BUS DATA, 10H PE       /
  
*     REGISTER 89 
      DATA (P3MSG(417,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 2     /
      DATA (P3MSG(418,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 3     /
      DATA (P3MSG(419,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 4     /
      DATA (P3MSG(420,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 5     /
      DATA (P3MSG(421,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 6     /
      DATA (P3MSG(422,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 7     /
      DATA (P3MSG(423,J),J=1,4) /10HALN 16/24 , 
     .10HMULT CARRY, 10H ERROR, GR, 10HOUP 8     /
  
      DATA (P3MSG(425,J),J=1,4) /10HALN 00/24 , 
     .10HALN MICRAN, 10HD, BYTE 0 , 10HPE        /
      DATA (P3MSG(426,J),J=1,4) /10HALN 03/24 , 
     .10HALN MICRAN, 10HD, BYTE 1 , 10HPE        /
      DATA (P3MSG(427,J),J=1,4) /10HALN 03/24 , 
     .10HALN MICRAN, 10HD, BYTE 2 , 10HPE        /
      DATA (P3MSG(428,J),J=1,4) /10HALN 00/24 , 
     .10HALN MICRAN, 10HD, BYTE 3 , 10HPE        /
      DATA (P3MSG(429,J),J=1,4) /10HALN 00/24 , 
     .10HALN MICRAN, 10HD, BYTE 4 , 10HPE        /
      DATA (P3MSG(430,J),J=1,4) /10HALN 00/24 , 
     .10HALN MICRAN, 10HD, BYTE 5 , 10HPE        /
      DATA (P3MSG(431,J),J=1,4) /10HALN 00/24 , 
     .10HALN MICRAN, 10HD, BYTE 6 , 10HPE        /
      DATA (P3MSG(432,J),J=1,4) /10HALN 03/24 , 
     .10HALN MICRAN, 10HD, BYTE 7 , 10HPE        /
  
      DATA (P3MSG(433,J),J=1,4) /10           , 
     .10HALN CLK AR, 10HRAY PARITY, 10H ERROR    /
      DATA (P3MSG(434,J),J=1,4) /10           , 
     .10HMD CLK ARR, 10HAY PARITY , 10HERROR     /
      DATA (P3MSG(435,J),J=1,4) /10H          , 
     .10HMD CLK ARR, 10HAY PARITY , 10HERROR     /
  
  
      DATA FLAG /0/ 
      DATA (M3TABLE(I),I=1,19)/ 
     .08, 09, 10, 11, 12, 13, 14, 15, 20, 23, 
     .25, 52, 56, 57, 58, 59, 60, 61, 62/ 
  
      IF ((RCFD .EQ. 2HON) .AND. (IFLD(FJOB) .NE. R" CONTINU")) THEN
         CALL PLSEC(5)
         CALL UCHEK11 
      ENDIF 
  
      PREG = 0
      N=36
* 
*          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" 
         SUBHEAD = 3HOFF
         IPRINT = 3HOFF 
      ENDIF 
  
      IF ((NOREG.EQ.O"20").OR.(NOREG.EQ.O"22").OR.(NOREG.EQ.O"60")) 
     .           GO TO 800
      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 PRT311 (5,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 PRT311 (4,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 PRT311 (4,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 PRT311 (5, 7)
         ENDIF
      ENDIF 
* 
*         PRINT THE STATUS SUMMARY REGISTER (00)
      CALL LOAPR (1,NOREG,HX(21),HX(22),HX(23),HX(24),SP,SP,SP) 
      PL(6) = 10HSTATUS SUM 
      PL(7) = 10HMARY 
      CALL PRT311 (2,7) 
      GO TO 800 
* 
*         CHECK CONTENTS OF PFS REGISTERS 80 - 89 FOR ERRORS
  200 CONTINUE
      IF ((IFLD(N).LT.O"200").OR.(IFLD(N).GT.O"211")) GO TO 800 
      IF ((FLAG .EQ. 1) .AND. (RCFD .EQ. 2HON)) THEN
         PRINT 948
         LINE = LINE + 2
         FLAG = 0 
      ENDIF 
      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)
  
*     PRINT A SNAPSHOT OF THE PFS REGISTER
      CALL LOAPR (1,IFLD(N),GROUP(1),GROUP(2),GROUP(3),GROUP(4),SP,SP,
     .              SP) 
      PL(6) = 10HFAULT STAT 
      PL(7) = 10HUS 
      IF (RCFD .EQ. 2HON) CALL PRT311 (2, 7)
  
      IF ((GROUP(1) .EQ. 0) .AND. (GROUP(2) .EQ. 0) .AND. 
     .    (GROUP(3) .EQ. 0) .AND. (GROUP(4) .EQ. 0)) GO TO 800
  
*     MOVE 16 BIT GROUPS TO UPPER END OF 60 BIT WORD
      DO 300 I = 1,4
      GROUP(I) = SHIFT(GROUP(I),44) 
  300 CONTINUE
  
*         CHECK THE BITS OF EACH REGISTER 
      DO 700  J = 1,4 
      DO 700 I = 1,16 
*       ONLY FIRST 16 BITS OF REGISTERS 81,83,85,87,89 ARE USED 
      INDREG = IFLD(N).AND.O"17"
      R = MOD(INDREG,2) 
      IF (R .NE. 0) THEN
         IF  (J .GT. 2) GO TO 900 
         IF ((J .EQ. 2) .AND. (I .GT. 16)) GO TO 900
      ENDIF 
      IBIT = SHIFT(GROUP(J),I).AND.1
      IF (IBIT.EQ.0) GO TO 700
      NUMBIT = I + (J-1) * 16 - 1 
      ENCODE (10,949,PRBIT) NUMBIT
  
*         PFS BITS (REG82) WITH WHICH M3 REPORTS MAY BE USEFUL
      IF (IFLD(N).NE.O"202") GO TO 350
      DO 320 M = 1,19 
      IF (NUMBIT.NE.M3TABLE(M)) GO TO 320 
      ENCODE (10,950,PRBIT) NUMBIT
      FLAG = 1
      GO TO 350 
  320 CONTINUE
  
  350 CONTINUE
      PL(1) = IELEM 
      PL(2) = MODEL 
      PL(3) = IFLD(N) 
      PL(4) = PRBIT 
*         FIND INDEX TO P3MSG ARRAY 
      INDREG = IFLD(N).AND.O"17"
      IND = (INDREG+1)/2 * 64 + INDREG/2 * 24 + NUMBIT + 1
  
      IF ((P3MSG(IND,1).EQ.0).AND.(P3MSG(IND,5).EQ.0)) GO TO 400
      IF (P3MSG(IND,1).EQ.0) GO TO 500
      PL(9) = P3MSG(IND,1)
      PL(10) = SHIFT(P3MSG(IND,1),24) 
      IF (P3MSG(IND,1) .NE. 10H          ) THEN 
         ENCODE (10,956,PAGE) PL(10)
         PL(10) = PAGE
      ENDIF 
      IF ((HX(2) .EQ. Z"3A") .OR. (HX(3) .EQ. Z"3B"))PL(9) = PL(10) =1H 
      PL(11) = P3MSG(IND,2) 
      PL(12) = P3MSG(IND,3) 
      PL(13) = P3MSG(IND,4) 
      IF (P3MSG(IND,5).EQ.0) GO TO 400
      GO TO 600 
  400 CONTINUE
* 
*         SAVE ERROR DATA FOR ANALYSIS REPORT 
*         STORE REGISTER NUMBER AND BIT NUMBER, ADD COUNT 
      ENCODE (10,958,REG)  NOREG
      REG = SHIFT(REG,6)
      ENCODE (10,957,P3MSG(IND,5)) REG,PRBIT
      P3MSG(IND,5) = P3MSG(IND,5).AND.O"7777 7777 0000 0000 0000" 
      IF (P3MSG(IND,1).NE.0) GO TO 600
  
  500 CONTINUE
      PL(11) = P3MSG(IND,2) = 10HNOT USED 
      P3MSG(IND,1) = P3MSG(IND,3) = P3MSG(IND,4) = 10H
  
  600 CONTINUE
      IF (MTY.EQ.O"320") P3MSG(IND,5) = P3MSG(IND,5) + 1
      IF (MTY.EQ.O"317") P3MSG(IND,5) = P3MSG(IND,5) + O"100 0000"
  
*         PRINT A LINE
      IF (RCFD .NE. 2HON) GO TO 700 
      IF (SUBHEAD .EQ. 3HOFF) THEN
         SUBHEAD = 2HON 
         CALL PHD311 (4)
      ENDIF 
      CALL PRT311 (3,13)
      IPRINT = 2HON 
  700 CONTINUE
  800 CONTINUE
      PREG = NOREG
  900 CONTINUE
  
      IF ((IFLD(40) .EQ. Z"89") .AND. (IPRINT .EQ. 3HOFF) .AND. 
     .    (RCFD .EQ. 2HON)) PRINT 910 
  
  910 FORMAT (17X,'NO ERROR DETECTED IN PFS REGISTERS') 
  948 FORMAT (17X,'* THE CONTENTS OF THE M3 REGISTERS IN THE MR ',
     .              'MEMORY REPORT',/,19X,'MAY PROVIDE ADDITIONAL ',
     .              'DATA ON THIS ERROR CONDITION.',/)
  949 FORMAT(7X,1H ,I2) 
  950 FORMAT(7X,1H*,I2) 
  956 FORMAT (2H3.,A5,3X) 
  957 FORMAT (A1,R3,6X) 
  958 FORMAT(Z2,8X) 
      RETURN
      END 
      SUBROUTINE DL1196X
* 
**    DESCRIPTION 
*     ----------- 
*     THIS ROUTINE DEVELOPS THE DETAIL REPORT FOR 96X PROCESSOR 
*     ERROR MESSAGES. 
* 
*     CALLED BY AN11P33 
* 
*CALL HPACOM1 
*CALL HPACOM2 
  
      COMMON / P3 / P3MSG ( 440, 5 )
  
      DIMENSION GROUP(4), M3TABLE (19)
  
      DIMENSION MSG (47, 4) 
      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) / 
     .10HRETRY IN P,10HROGRESS   ,10H          ,10H          /
      DATA (MSG(6,J),J=1,4) / 
     .10HREPAIRED E,10HRROR      ,10H          ,10H          /
      DATA (MSG(7,J),J=1,4) / 
     .10HUNREPAIRED,10H ERROR    ,10H          ,10H          /
      DATA (MSG(8,J),J=1,4) / 
     .10HFATAL CPU ,10HHALT CLASS,10H 1        ,10H          /
      DATA (MSG(9,J),J=1,4) / 
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(10,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(11,J),J=1,4) /
     .10HFATAL CPU ,10HRECOVERY E,10HRROR      ,10H          /
      DATA (MSG(12,J),J=1,4) /
     .10HCORRECTED ,10HPROCESSOR ,10HERROR W CA,10HCHE RELOAD/
      DATA (MSG(13,J),J=1,4) /
     .10HFATAL CPU ,10HUNCORRECTE,10HD ERROR   ,10H          /
      DATA (MSG(14,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(15,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(16,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(17,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(18,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(19,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(20,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(21,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(22,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(23,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(24,J),J=1,4) /
     .10HFATAL CPU ,10HERROR COND,10HITION     ,10H          /
      DATA (MSG(25,J),J=1,4) /
     .10HFORCED UNC,10HORRECTED E,10HRROR      ,10H          /
      DATA (MSG(26,J),J=1,4) /
     .10HFATAL CPU ,10HHALT CLASS,10H 2        ,10H          /
      DATA (MSG(27,J),J=1,4) /
     .10HRETRY CONV,10HERTED TO U,10HNCORRECTED,10H          /
      DATA (MSG(28,J),J=1,4) /
     .10HRETRY EXHA,10HUSTED     ,10H          ,10H          /
      DATA (MSG(29,J),J=1,4) /
     .10HHOURLY RET,10HRY THRESHO,10HLD EXCEEDE,10HD         /
      DATA (MSG(30,J),J=1,4) /
     .10HPARTIAL WR,10HITE ADDRES,10HS PARITY E,10HRROR      /
      DATA (MSG(31,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(32,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(33,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(34,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(35,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(36,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(37,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(38,J),J=1,4) /
     .10H          ,10H          ,10H          ,10H          /
      DATA (MSG(39,J),J=1,4) /
     .10HUNCORR PRO,10HCESSOR ERR,10HOR (EXCHAN,10HGE VECTOR)/
      DATA (MSG(40,J),J=1,4) /
     .10HUNCORR PRO,10HCESSOR ERR,10HOR (TRAP V,10HECTOR)    /
      DATA (MSG(41,J),J=1,4) /
     .10HUNCORR PRO,10HCESSOR ERR,10HOR (HALT V,10HECTOR)    /
      DATA (MSG(42,J),J=1,4) /
     .10HCLOCK ERRO,10HR         ,10H          ,10H          /
      DATA (MSG(43,J),J=1,4) /
     .10HFATAL CONT,10HROL STORE ,10HERROR (JOB,10H MODE)    /
      DATA (MSG(44,J),J=1,4) /
     .10HFATAL CONT,10HROL STORE ,10HERROR (MON,10HITOR MODE)/
      DATA (MSG(45,J),J=1,4) /
     .10HCORRECTED ,10HPROC ERROR,10H (RETRY SU,10HCCESSFUL) /
      DATA (MSG(46,J),J=1,4) /
     .10HUNIDENTIFI,10HED DFT ERR,10HOR CODE   ,10H          /
      DATA (MSG(47,J),J=1,4) /
     .10HMULTIPLE E,10HRROR OCCUR,10HRENCE     ,10H          /
  
      DATA (M3TABLE(I),I=1,19)/ 
     .08, 09, 10, 11, 12, 13, 14, 15, 20, 23, 
     .25, 52, 56, 57, 58, 59, 60, 61, 62/ 
  
      N=36
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS THE NEXT 4 REGISTERS
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
      DO 900 INC = 1,4
      N = N + 2 
      NOREG = IFLD(N) 
* 
*     PROCESS THE EID REGISTER - SET FLAGS FOR BEGINNING OF ERROR 
* 
      IF (NOREG .EQ. Z"10") THEN
         IELEM = SHIFT (IFLD(23),-8) .AND. Z"FF"
         MODEL = IFLD(23) .AND. Z"FF" 
         IDFTCD = IFLD(45)
         SEQNO = IFLD(19) 
         SYMPTOM = IFLD(45) 
         SUBHEAD = 3HOFF
         IPRINT = 3HOFF 
         FLAG = 0 
      ENDIF 
  
      IF ((NOREG .EQ. Z"10") .OR. (NOREG .EQ. Z"00") .OR. 
     .    (NOREG .EQ. Z"11") .OR. (NOREG .EQ. Z"12") .OR. 
     .    (NOREG .EQ. Z"30")) GO TO 900 
      IF  (NOREG .EQ. Z"A0") GO TO 180
      IF  (NOREG .NE. Z"32") GO TO 200
      IF  (RCFD .EQ. 3HOFF)  GO TO 900
  
      CALL PLSEC(5) 
      CALL UCHEK11
* 
*     DEFINE THE DFT ERROR MESSAGE
* 
      J = 0 
      IF ((SYMPTOM .GE. O"1001") .AND. (SYMPTOM .LE. O"1055"))
     .     J = SYMPTOM .AND. O"77"
      IF ((SYMPTOM .GE. O"5001") .AND. (SYMPTOM .LE. O"5055"))
     .     J = SYMPTOM .AND. O"77"
  
      IF  (J .NE. 0) THEN 
         CALL LOAPR (1,IFLD(20),IDFTCD,MSG(J,1),MSG(J,2),MSG(J,3),
     .                 MSG(J,4),SEQNO,SP) 
         CALL PRT311 (5,7)
  
*        CHECK FOR MULTIPLE DFT ERRORS
         IF ((SYMPTOM .AND. O"4000") .NE. 0) THEN 
            CALL LOAPR (1,SP,MSG(47,1),MSG(47,2),MSG(47,3),SP,SP,SP,SP) 
            CALL PRT311 (4,4) 
         ENDIF
  
      ELSE
*        REPORT THE UNIDENTIFIED DFT ERROR CODE 
         IF (J .EQ. 0) THEN 
            CALL LOAPR (1,IFLD(20),IDFTCD,MSG(46,1),MSG(46,2),MSG(46,3),
     .                    SP,SEQNO,SP)
            CALL PRT311 (5, 7)
         ENDIF
      ENDIF 
* 
*     PRINT THE STATUS SUMMARY REGISTER (00)
* 
      CALL LOAPR (1,00,HX(21),HX(22),HX(23),HX(24),SP,SP,SP)
      PL(6) = 10HSTATUS SUM 
      PL(7) = 10HMARY 
      CALL PRT311 (2,7) 
      GO TO 900 
* 
*     PRINT CONTENTS OF PFS REGISTER A0 
* 
  180 IA0 = Z"A0" 
      CALL LOAPR (1,IA0,IFLD(21),IFLD(22),IFLD(23),SP,SP,SP,SP) 
      PL(5) = SHIFT(IFLD(24),4) .OR. IFLD(37) 
      PL(6) = 10HPROCESSOR
      PL(7) = 10HTEST MODE
      IF (RCFD .EQ. 2HON) CALL PRT311 (2, 7)
      GO TO 900 
* 
*     CHECK CONTENTS OF PFS REGISTERS 80 - 89 FOR ERRORS
* 
  200 IF ((IFLD(N) .LT. Z"80") .OR. (IFLD(N) .GT. Z"89")) GO TO 900 
      IF ((FLAG .EQ. 1) .AND. (RCFD .EQ. 2HON)) THEN
         PRINT 948
         LINE = LINE + 2
         FLAG = 0 
      ENDIF 
      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)
* 
*     PRINT A SNAPSHOT OF THE PFS REGISTER
* 
      CALL LOAPR (1,IFLD(N),GROUP(1),GROUP(2),GROUP(3),GROUP(4),SP,SP,
     .              SP) 
      PL(6) = 10HFAULT STAT 
      PL(7) = 10HUS 
      IF (RCFD .EQ. 2HON) CALL PRT311 (2, 7)
  
      IF ((GROUP(1) .EQ. 0) .AND. (GROUP(2) .EQ. 0) .AND. 
     .    (GROUP(3) .EQ. 0) .AND. (GROUP(4) .EQ. 0)) GO TO 900
  
*     MOVE 16 BIT GROUPS TO UPPER END OF 60 BIT WORD
      DO 300 I = 1, 4 
  300 GROUP(I) = SHIFT(GROUP(I),44) 
* 
*     CHECK THE BITS OF EACH REGISTER (4 16-BIT SEGMENTS PER REGISTER)
* 
      DO 700 J = 1, 4 
      DO 700 I = 1, 16
*     (ONLY FIRST 16 BITS OF REGISTERS 81,83,85,87,89 ARE USED) 
      INDREG = IFLD(N) .AND. Z"F" 
      R = MOD(INDREG,2) 
      IF (R .NE. 0) THEN
         IF  (J .GT. 2) GO TO 900 
         IF ((J .EQ. 2) .AND. (I .GT. 16)) GO TO 900
      ENDIF 
      IBIT = SHIFT(GROUP(J),I) .AND. 1
      IF (IBIT .EQ. 0) GO TO 700
      NUMBIT = I + (J-1) * 16 - 1 
      ENCODE (10,949,PRBIT) NUMBIT
  
*     (PFS BITS (REG82) WITH WHICH M3 REPORTS MAY BE USEFUL)
      IF (IFLD(N) .NE. Z"82") GO TO 350 
      DO 320 M = 1,19 
      IF (NUMBIT .NE. M3TABLE(M)) GO TO 320 
      ENCODE (10,950,PRBIT) NUMBIT
      FLAG = 1
      GO TO 350 
  320 CONTINUE
  
  350 PL(1) = IELEM 
      PL(2) = MODEL 
      PL(3) = IFLD(N) 
      PL(4) = PRBIT 
* 
*     FIND INDEX TO P3MSG ARRAY 
* 
      INDREG = IFLD(N) .AND. Z"F" 
      IND = (INDREG+1) / 2 * 64 + INDREG / 2 * 24 + NUMBIT + 1
      IF ((P3MSG(IND,1) .EQ. 0) .AND. (P3MSG(IND,5) .EQ. 0)) GO TO 400
      IF  (P3MSG(IND,1) .EQ. 0) GO TO 500 
      PL(11) = P3MSG(IND,2) 
      PL(12) = P3MSG(IND,3) 
      PL(13) = P3MSG(IND,4) 
      IF (P3MSG(IND,5) .EQ. 0) GO TO 400
      GO TO 600 
* 
*     SAVE ERROR DATA FOR ANALYSIS REPORT (STORE REG/BIT NUMBER + COUNT)
* 
  400 ENCODE (10,958,REG)  NOREG
      REG = SHIFT(REG,6)
      ENCODE (10,957,P3MSG(IND,5)) REG,PRBIT
      P3MSG(IND,5) = P3MSG(IND,5) .AND. O"7777 7777 0000 0000 0000" 
      IF (P3MSG(IND,1) .NE. 0) GO TO 600
  
  500 PL(11) = P3MSG(IND,2) = 10HNOT USED 
      P3MSG(IND,1) = P3MSG(IND,3) = P3MSG(IND,4) = 1H 
  
  600 IF (MTY .EQ. O"320") P3MSG(IND,5) = P3MSG(IND,5) + 1
      IF (MTY .EQ. O"317") P3MSG(IND,5) = P3MSG(IND,5) + O"100 0000"
* 
*     PRINT A LINE IN THE DETAIL REPORT 
* 
      IF (RCFD .NE. 2HON) GO TO 700 
      IF (SUBHEAD .EQ. 3HOFF) THEN
         SUBHEAD = 2HON 
         CALL PHD311 (4)
      ENDIF 
      CALL PRT311 (3,13)
      IPRINT = 2HON 
  700 CONTINUE
  
  900 CONTINUE
  
      IF ((IFLD(38) .EQ. Z"A0") .AND. (IPRINT .EQ. 3HOFF) .AND. 
     .    (RCFD .EQ. 2HON)) PRINT 910 
  
  910 FORMAT (17X,'NO ERROR DETECTED IN PFS REGISTERS') 
  948 FORMAT (17X,'* THE CONTENTS OF THE M3 REGISTERS IN THE MR ',
     .              'MEMORY REPORT',/,19X,'MAY PROVIDE ADDITIONAL ',
     .              'DATA ON THIS ERROR CONDITION.',/)
  949 FORMAT (7X,1H ,I2)
  950 FORMAT (7X,1H*,I2)
  956 FORMAT (2H3.,A5,3X) 
  957 FORMAT (A1,R3,6X) 
  958 FORMAT (Z2,8X)
  
      RETURN
      END 
      SUBROUTINE PHD311 (ST)
* 
**        DESCRIPTION 
*         ----------- 
*         SUBROUTINE PHD311 PRINTS HEADINGS FOR REPORTS DEVELOPED 
*         BY HPA311 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 
*         ------ -- 
*         PRT311  -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 IF (((HX(2) .EQ. Z"3A") .OR. (HX(2) .EQ. Z"3B")) .AND.
     .     (HX(4) .EQ. 3HOFF)) GO TO 14 
      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 
  
   14 PRINT 15,HX(1),HX(2),HX(3),MFID,
     .HX(09), HX(10), HX(11), HX(12), HX(13), HX(14), HX(15), HX(16), 
     .HX(05), HX(06), HX(07), HX(08), HX(17), HX(18), HX(19), HX(20)
   15 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)',/,
     .       17X,'PROCESSOR ID                  =',4(1X,Z4),' (11)',/,
     .       17X,'CONTROL STORE BREAKPOINT      =',4(1X,Z4),' (32)',/,
     .        1X,'DATE',/,3X,'TIME      (FSC) DESCRIPTION',/, 
     .        1X,7(10H----------),9H---------)
      LINE = LINE + 9 
      GO TO 6 
  
   20 GO TO 1000
* 
*         840/845/850/855/860 PROCESSOR ERROR SUMMARY HEADER
* 
   30 IF ((HX(2) .EQ. Z"3A") .OR. (HX(2) .EQ. Z"3B")) GO TO 34
      PRINT 31
   31 FORMAT (///,1X,'PROCESSOR FAULT STATUS MESSAGE ACCUMULATION',//,
     .45X,'LEVEL 3.0',/,
     .1X,'BIT DESCRIPTION',16X,'REG BIT ID   PAGE NUMBER   CPU0/CPU1',/,
     .1X,6(10H----------),7H-------)
      LINE = LINE + 8 
      GO TO 1000
   34 PRINT 35
   35 FORMAT (///,1X,'PROCESSOR FAULT STATUS MESSAGE ACCUMULATION',//,
     .1X,'BIT DESCRIPTION',16X,'REG BIT ID',17X,'CPU0/CPU1',/,
     .1X,6(10H----------),7H-------)
      LINE = LINE + 7 
      GO TO 1000
  
   40 GO TO 1000
* 
*         DATE
* 
   50 PRINT 51,SEBUF(23)
   51 FORMAT (1X,A8)
      GO TO 1000
* 
*         REG BIT ID SUBHEADER
* 
   60 IF ((HX(2) .EQ. Z"3A") .OR. (HX(2) .EQ. Z"3B")) GO TO 64
      PRINT 61
   61 FORMAT (/,10X,'               LEVEL 3.0', 
     .        /,10X,'REG BIT ID     PAGE NUMBER     ',
     .'BIT DESCRIPTION',/,
     .          10X,'-----------    -----------     ',
     .'------------------------------') 
      LINE = LINE + 3 
      GO TO 1000
  
   64 PRINT 65
   65 FORMAT (/,9X,'REG BIT ID',22X,'BIT DESCRIPTION',/,
     .          9X,'-----------',21X,'------------------------------')
      LINE = LINE + 2 
  
  
 1000 CONTINUE
      RETURN
      END 
      SUBROUTINE PRT311 (LT,NW) 
* 
**        DESCRIPTION 
*         ----------- 
*         SUBROUTINE PRT311 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,5), FMT (6)
* 
*         FORMAT FOR 855 PROCESSOR ERROR ACCUMULATION 
* 
      DATA(IFORM(I,1),I=1,5,1) /
     .10H(1X,3A10,2,10H(1X,Z2),1X,10H,A2,A3,2X,,10HA3,1X,A7,2,
     .10HX,A10)    /
* 
*          FORMAT FOR P3/P3CR SNAPSHOT OF REGISTERS 
* 
      DATA(IFORM(I,2),I=1,3,1) /
     .10H(17X,Z2,4X,10H,4(Z4),10X,10H,2A10)    /
* 
*          FORMAT FOR P3/P3CR DETAIL LINE: REG BIT ID, PAGE NO., DESCRIP
* 
      DATA(IFORM(I,3),I=1,4,1) /
     .10H(8X,3(1X,Z,10H2),R3,1X,4,10HR1,A3,1X,A,10H7,5X,3A10)/
* 
*         FORMAT FOR P3/P3CR DETAIL REPORT ERROR MESSAGE
* 
      DATA(IFORM(I,4),I=1,2,1) /
     .10H(3X,A8,2X,,10H4A10,10H) /
* 
*         FORMAT FOR P3/P3CR DETAIL REPORT ERROR MESSAGE - DFT
* 
      DATA(IFORM(I,5),I=1,6,1) /
     .10H(3X,A8,2X,,10H'(',Z3,') ,10H',4A10,1X,,10H'SEQUENCE ,
     .10HNUMBER = ',10HZ2,)      /
  
  
* 
*         * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
      IF (LINE .LT. PLF) GO TO 20 
      CALL HEADER 
      CALL PHD311 (1) 
   20 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 UCHEK11
**
*       UCHEK11 - BASIC ROUTINE USED BY DETAIL PROCESSORS, TO TEST FOR
*                 CHANGES IN MESSAGE THAT WILL AFFECT SUBHEADER PRINT.
*                 WHEN CHANGE OCCURS, MODIFY POINTERS AND CALL PHD311 
*                 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 PHD311 (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 PHD311 (2) 
      GO TO 500 
  
*     PRINT NEW PAGE HEADER AND SUBHEADERS
  400 PDATE = SEBUF(23) 
      CALL HEADER 
      CALL PHD311 (1) 
  
  500 RETURN
      END 
          IDENT  INTEM11
          LCC OVCAP.
          ENTRY  INTEM11
OVLNO     SET    11 
          USE    /LINK/ 
LINKET    BSS    1
LINKEM    BSS    1
          USE    *
  
INTEM11   BSS    1
          SX6    ET 
          SA6    LINKET 
          SX6    EC 
          SA6    LINKEM 
          JP     INTEM11
          EJECT 
*CALL COMHPAERT 
          END 
