*DECK,HPA313
      OVCAP.
      SUBROUTINE HPA313 
* 
*      CONTROL PROGRAM FOR ROUTINES IN OVERLAY(3,13)
*         HPA313 PROCESSES 990 PROCESSOR ERRORS.
*         RECORD TYPE: 103B, READ RECORDS 1 AT A TIME.
*         ERROR CODE: 4301B - 990 PROCESSOR 0 ERROR 
*         ERROR CODE: 4302B - 990 PROCESSOR 1 ERROR 
* 
*CALL,HPACOM1 
      IF (FROG(6).NE.L"T") GO TO 10 
      CALL SECOND(CP) 
      PRINT 9,CP
    9 FORMAT( ' ENTER HPA313, SECOND = ',F10.3) 
   10 CONTINUE
      IF ((RTY.EQ.O"103").AND.(IFLD(FDT).EQ.R"MR")) GO TO 300 
* 
*      MESSAGE NOT PROCESSED, GET NEXT RECORD 
      CALL GNR3 
      CALL SETEM3(1)
      GO TO 1000
  300 CALL AN990P 
 1000 CONTINUE
      END 
      SUBROUTINE AN990P 
* 
**    DESCRIPTION 
*     ----------- 
*     SUBROUTINE AN990P PROCESSES SEF INPUT RECORDS FOR THETA (990) 
*     PROCESSOR MESSAGES. 
* 
*     ENTER CONDITION 
*     --------------- 
*     ENTERED WHEN SEF FILE IS POSITIONED AT THE FIRST RECORD OF
*     THETA PROCESSOR ERRORS/MESSAGES.
* 
*     EXIT CONDITION
*     --------------
*     EXIT WHEN SEF INPUT RECORDS FOR THETA PROCESSOR ERRORS/MESSAGES 
*     ARE EXHAUSTED.
* 
*     CALLED BY 
*     --------- 
*     PROGRAM HPA313
* 
*     CALLS 
*     ----- 
*     ERDIST3, INISET3, STOJN3
*CALL,HPACOM1 
*CALL,HPACOM2 
*CALL,HPACOM3 
      COMMON /THETAP/ P990MSG(1024,4) 
      DIMENSION MSGCNT(1024)
      EQUIVALENCE (MSGCNT(1),STOR(1,1)) 
  
      DIMENSION MDB ( 720, 2 ), MDBPRT ( 4, 23 ), MDBPRTX ( 4, 14 ),
     .          MDBY ( 37 ), MDBZ ( 37 ), MEX ( 9, 52 ), MDBFLG ( 7 ),
     .          MDBTXT ( 4, 7 ), MDBLGTH ( 7 )
  
      DATA MDBLGTH / 4, 513, 65, 53, 15, 24, 3 /
      DATA (MDBTXT (I,1),I=1,4) / 
     .10HSOFT CONTR,10HOL MEMORY ,10HPARITY DAT,10HA         /
      DATA (MDBTXT (I,2),I=1,4) / 
     .10HCAPTURE BU,10HFFER      ,10H          ,10H          /
      DATA (MDBTXT (I,3),I=1,4) / 
     .10HHISTORY FI,10HLE        ,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) / 
     .10HEXECUTING ,10HWORDS OF S,10HOFT CONTRO,10HL MEMORIES/
      DATA (MDBTXT (I,7),I=1,4) / 
     .10HRETRY INFO,10HRMATION   ,10H          ,10H          /
  
      CALL INISET3
      CALL DREPT3 
  
   10 CONTINUE
      IF (MTY.EQ.O"4301") IHDR = 29 
      IF (MTY.EQ.O"4302") IHDR = 30 
*       SET DETAIL HEADER 
      MPR(1,1) = O"4302"
      MPR(1,2) = 2
  
      IF (IFLD(38).NE.Z"10") GO TO 500
      IF (RCFA.EQ.2HON) CALL STOJN3 
* 
*       REGISTER 10 (ELEMENT ID)
* 
      IELEM = SHIFT(IFLD(23),-8) .AND. Z"FF"
      IF (IELEM .NE. HX(1)) LINE = PLF + 1
      MODEL = IFLD(23) .AND. Z"FF"
      IF (MODEL .NE. HX(2)) LINE = PLF + 1
      HX(1) = IELEM 
      HX(2) = MODEL 
      SERIAL = SHIFT (IFLD(24),4).OR.IFLD(37) 
      IF (SERIAL .NE. HX(3)) LINE = LINE + 1
      HX(3) = SERIAL
* 
*     REGISTER 12 (OPTIONS INSTALLED) 
* 
      IFLD(32) = SHIFT(IFLD(32),4) .OR. IFLD(41)
      IF ((HX(4) .NE. IFLD(29)) .OR. (HX(5) .NE. IFLD(30)) .OR. 
     .    (HX(6) .NE. IFLD(31)) .OR. (HX(7) .NE. IFLD(32))) 
     .    LINE = PLF + 1
* 
      HX(4) = IFLD(29)
      HX(5) = IFLD(30)
      HX(6) = IFLD(31)
      HX(7) = IFLD(32)
      IF ((IFLD(32) .AND. 1) .EQ. 1) THEN 
         HX(8) = 10H     (PMF 
         HX(9) = 10HINSTALLED)
      ENDIF 
* 
*       MFID
* 
      IF (MFID.NE.HMFID) LINE = PLF + 1 
      HMFID = MFID
* 
*     GENERATE DETAIL REPORT
* 
  500 IF ((RCFD.EQ.2HON).OR.(RCFA.EQ.2HON)) CALL DL990P 
* 
*       GET NEXT RECORD 
* 
  510 CALL GNR3 
      CALL SETEM3 (1) 
      IF (TWIC .LT. 6) 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 1000 
* 
*     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 10
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS SUPPORTIVE STATUS BUFFER INFORMATION FROM DFT 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 1000 IF (RCFD .NE. 2HON) GO TO 510 
      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 1002,(PL(I),I=1,18) 
 1002 FORMAT(  12X,'DFT REVISION ',I2,' FAULT SYMPTOM CODE = ',R10,R2,
     .       /,12X,'CPU REGISTER 31 BEFORE HALT = ',3(Z4,1X),Z3,Z1, 
     .       /,12X,'CPU REGISTER 31 AFTER  HALT = ',3(Z4,1X),Z3,Z1, 
     .       /,12X,'CPU REGISTER 00 AFTER  HALT = ',3(Z4,1X),Z3,Z1) 
      DO 1004 I = 1, 17 
 1004 PL(I) = 1H
  
*     REPORT WHEN DFT SUPPORTIVE STATUS BUFFER DATE/TIME IS INVALID 
      IF ((IFLD(19) .AND. O"4000") .NE. 0) THEN 
         PRINT 1006 
 1006    FORMAT (12X,'DFT-REPORTED WALL CLOCK TIME INTEGRITY HAS ', 
     .               'BEEN LOST') 
         LINE = LINE + 1
      ENDIF 
  
      PRINT 1008
 1008 FORMAT (1X,7(10H----------),9H---------,/)
      LINE = LINE + 7 
      GO TO 510 
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     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, 7
 2001 MDBFLG(I) = 3HOFF 
 2002 IF (RCFD .NE. 2HON) GO TO  2008 
      MDBREC = MDBREC + 1 
      IF (MDBREC .GT. 192) THEN 
         PRINT 2003 
 2003    FORMAT (' MODEL DEPENDENT BUFFER DATA CONTAINS MORE THAN 720', 
     .           ' 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
      IF (RCFD .NE. 2HON) THEN
         IF (TWIC .GE. 6) GO TO 10
         GO TO 600
      ENDIF 
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*    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, 7
      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 1008
      LINE = PLF
      IF (TWIC .GE. 6) GO TO 10 
      GO TO 600 
  
 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. 7)) 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,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
      IF (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) ID 
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 1 - SCM (SOFT CONTROL MEMORY) PE DATA - 3 WDS
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2100 IF ((LINE+4) .GT. PLF) CALL HEADER
      LINE = LINE + 5 
      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 2136 J = 1, 3
      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)
  
      PRINT 2140,MDBPRT(1,1),MDBPRT(4,1),(MDBPRT(I,2),I=1,4,1), 
     .           MDBPRT(2,1),MDBPRT(3,1),(MDBPRT(I,3),I=1,4,1)
 2140 FORMAT (' MEMORY TO RELOAD  = ',Z4,'  ADDRESS   = ',Z4, 
     .        '  BEFORE RELOAD = ',4(Z4,1X),/,
     .        ' SUCCESSFUL RELOAD = ',Z4,'  TYPE CODE = ',Z4, 
     .        '  AFTER RELOAD  = ',4(Z4,1X),/)
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 2 - CPU CAPTURE BUFFER                - 512 WDS
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2200 IF ((LINE+9) .GT. PLF) CALL HEADER
      LINE = LINE + 9 
      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 
      PRINT 2212
 2212 FORMAT (24X,'ABRTOC      ALLCLR',/, 
     .        24X,'VECVLD      LSUENA',/, 
     .'       ISSUED       REQ VECACT RESP LSUENX',/, 
     .'       CIRVLD        A  SEGTRD   A  RPLENA        LSULPT ACUVLD',
     .'      ISSDPD',/, 
     .'       CWDVLD        B  PAGTRD   B  RPLENX RPLVLD LSUVLD       ',
     .'ENTCTR     PRTISS',/,
     .' ADR   CWAVLD CSADR  C  CACHIT   C  FCTNGO RPLTAG LSUTAG ACUTAG',
     .'      EPSTRT',/, 
     .' --- -- ----   ---  --- ------  --- ------   ---   ----    --- ',
     .'   -    --    --',)
      IREPEAT = 0 
  
      DO 2250 II = 1, LENGTH - 1
      NXT = NXT + 1 
      MDBX = MDB(NXT,1) 
      MDBZ( 1) = II - 1 
      MDBZ( 2) = MDBZ(3) = R" " 
      IF ((SHIFT(MDBX,1) .AND. 1) .NE. 0) MDBZ(2) = R"T"
      IF ((SHIFT(MDBX,2) .AND. 1) .NE. 0) MDBZ(3) = R"E"
      MDBZ( 4) = SHIFT(MDBX,16) .AND. 1 
      MDBZ( 5) = SHIFT(MDB(NXT,2),-1) .AND. 1 
      MDBZ( 6) = SHIFT(MDBX, 3) .AND. 1 
      MDBZ( 7) = SHIFT(MDBX, 4) .AND. 1 
      MDBZ( 8) = SHIFT(MDBX,15) .AND. Z"7FF"
      MDBZ( 8) = MDBZ( 8) .AND. .NOT. Z"700"
      MDBZ( 9) = SHIFT(MDBX,32) .AND. 1 
      MDBZ(10) = SHIFT(MDBX,33) .AND. 1 
      MDBZ(11) = SHIFT(MDBX,34) .AND. 1 
      MDBZ(12) = SHIFT(MDBX,37) .AND. 1 
      MDBZ(13) = SHIFT(MDBX,28) .AND. 1 
      MDBZ(14) = SHIFT(MDBX,38) .AND. 1 
      MDBZ(15) = SHIFT(MDBX,36) .AND. 1 
      MDBZ(16) = SHIFT(MDBX,35) .AND. 1 
      MDBZ(17) = SHIFT(MDBX,29) .AND. 1 
      MDBZ(18) = SHIFT(MDBX,26) .AND. 1 
      MDBZ(19) = SHIFT(MDBX,27) .AND. 1 
      MDBZ(20) = SHIFT(MDBX,40) .AND. 1 
      MDBZ(21) = SHIFT(MDBX,59) .AND. 1 
      MDBZ(22) = SHIFT(MDBX,17) .AND. 1 
      MDBZ(22) = MDBZ(22) .AND. .NOT. MDBZ(22)
      MDBZ(23) = SHIFT(MDBX,18) .AND. 1 
      MDBZ(23) = MDBZ(23) .AND. .NOT. MDBZ(23)
      MDBZ(24) = SHIFT(MDBX,31) .AND. 1 
      MDBZ(25) = SHIFT(MDBX,30) .AND. 1 
      MDBZ(26) = SHIFT(MDBX,39) .AND. 1 
      MDBZ(27) = SHIFT(MDBX,53) .AND. 1 
      MDBZ(28) = SHIFT(MDBX,48) .AND. Z"F"
      MDBZ(29) = SHIFT(MDBX,54) .AND. 1 
      MDBZ(30) = SHIFT(MDB(NXT,2),-3) .AND. 1 
      MDBZ(31) = SHIFT(MDBX,52) .AND. Z"F"
      MDBZ(32) = SHIFT(MDB(NXT,2),-2) .AND. 1 
      MDBZ(33) = MDBX .AND. Z"F"
      MDBZ(34) = SHIFT(MDBX,44) .AND. Z"F"
      MDBZ(35) = SHIFT(MDBX,56) .AND. 1 
      MDBZ(36) = MDB(NXT,2) .AND. 1 
      MDBZ(37) = SHIFT(MDBX,25) .AND. Z"FF" 
  
*     COMPARE ENTRIES 
      DO 2220 J = 2, 37 
      IF (MDBY(J) .NE. MDBZ(J)) GO TO 2224
 2220 CONTINUE
      IREPEAT = IREPEAT + 1 
      IF (NXT .LT. (LENGTH-1)) GO TO 2250 
  
 2224 DO 2226 J = 1, 37 
 2226 MDBY(J) = MDBZ(J) 
  
      IF (IREPEAT .NE. 0) THEN
         PRINT 2228,IREPEAT 
 2228    FORMAT ('  THE ABOVE LINE IS REPEATED ',I3,' TIMES.')
         IREPEAT = 0
         LINE = LINE + 1
      ENDIF 
  
      IF ((LINE+1) .GT. PLF) CALL HEADER
      LINE = LINE + 1 
      PRINT 2240,(MDBZ(I),I=1,37,1) 
 2240 FORMAT (1X,I3.3,1X,2(R1),1X,4(O1),3X,Z3,2X,3(O1),1X,6(O1),2X, 
     .        3(O1),1X,6(O1),3X,O1,1H-,Z1,3X,2(O1),1H-,Z1,4X,O1,1H-,Z1, 
     .        4X,Z1,4X,2(O1),4X,Z2.2) 
 2250 CONTINUE
  
      CALL PLSEC(5) 
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     PROCESS ID 3 - HISTORY FILE                      - 64 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2300 IF ((LINE+2) .GT. PLF) CALL HEADER
      LINE = LINE + 2 
*     CHECK VMID: IF SET, PRINT 170 INTERPRETATION; 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 
  
      MDBZ(1) = -1
  
      DO 2350 I = 1, 64, 4
      NXT = NXT + 4 
      MDBZ(1) = MDBZ(1) + 1 
      REGNO = SHIFT(MDB(NXT-1,1),20) .AND. Z"F" 
  
*     REGISTER X - HEX
      MDBZ(2) = REGNO 
      MDBZ(3) = R" NV"
      IF ((SHIFT(MDB(NXT-1,1),21) .AND. 1) .EQ. 1) MDBZ(3) = R"  V" 
      DO 2314 J = 1, 3
      SHFCNT = 16 * J 
 2314 MDBZ(3+J) = SHIFT(MDB(NXT-3,1),SHFCNT) .AND. Z"FFFF"
      MDBZ(7) = SHIFT(MDB(NXT-3,1), 4) .AND. Z"FFF0" .OR. MDB(NXT-3,2)
  
*     REGISTER A - HEX
      MDBZ(8) = REGNO 
      MDBZ(9) = R" NV"
      IF ((SHIFT(MDB(NXT-1,1),22) .AND. 1) .EQ. 1) MDBZ(9) = R"  V" 
      MDBZ(10) = SHIFT(MDB(NXT-2,1), 4) .AND. Z"F"
      MDBZ(11) = SHIFT(MDB(NXT-2,1),16) .AND. Z"FFF"
      MDBZ(12) = SHIFT(MDB(NXT-2,1),48) .AND. Z"FFFF FFFF"
  
*     P RIGHT - HEX 
      MDBZ(13) = SHIFT(MDB(NXT-2,1),4) .AND. Z"FFF0" .OR. MDB(NXT-2,2)
      MDBZ(14) = SHIFT(MDB(NXT-1,1),16) .AND. Z"FFFF" 
      IF (VMID .EQ. 5HNO170) GO TO 2340 
  
*     REGISTER X - OCTAL
      DO 2326 J = 1, 4
      SHFCNT = 12 * J + 4 
 2326 MDBZ(14+J) = SHIFT(MDB(NXT-3,1),SHFCNT) .AND. O"7777" 
      MDBZ(19) = SHIFT(MDB(NXT-3,1), 4) .AND. O"7760" .OR. MDB(NXT-3,2) 
  
*     REGISTER A - OCTAL
      MDBZ(20) = SHIFT(MDB(NXT-2,1),48) .AND. O"77 7777"
  
*     P RIGHT - OCTAL 
      MDBZ(21) = SHIFT(MDB(NXT-2,1),-4) .AND. O"377"
      MDBZ(22) = SHIFT(MDB(NXT-2,1), 8) .AND. O"7400" .OR.
     .           SHIFT(MDB(NXT-2,2), 4) .AND. O"0360" .OR.
     .           SHIFT(MDB(NXT-1,1), 4) .AND. O"0017" 
      MDBZ(23) = SHIFT(MDB(NXT-1,1),16) .AND. O"7777" 
  
      IF ((LINE+2) .GT. PLF) CALL HEADER
      LINE = LINE + 2 
      PRINT 2330,(MDBZ(J),J=1,23,1) 
 2330 FORMAT (1X,Z2,1X,'X',Z1,R3,6X,4(Z4,1X),'- A',Z1,R3,1X,Z1,1X,Z3,1X,
     .Z8,' - P RIGHT',2(1X,Z4),/,9X,5(1X,O4.4),'(8)',14X,O6.6,'(8)',4X, 
     .O3.3,2(1X,O4),'(8)')
      GO TO 2350
  
 2340 IF ((LINE+1) .GT. PLF) CALL HEADER
      LINE = LINE + 1 
      PRINT 2342,(MDBZ(J), J = 1, 14, 1)
 2342 FORMAT (1X,Z2,1X,'X',Z1,R3,6X,4(Z4,1X),'- A',Z1,R3,1X,Z1,1X,Z3,1X,
     .Z8,' - P RIGHT',2(1X,Z4)) 
  
 2350 CONTINUE
  
      CALL PLSEC(5) 
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     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            - 23 WDS 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  
 2600 IF ((LINE+20) .GT. PLF) CALL HEADER 
      LINE = LINE + 20
      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 2616 J = 1, 23 
      NXT = NXT + 1 
      DO 2614 I = 1, 3
      SHFCNT = 16 * I 
 2614 MDBPRT(I,J) = SHIFT(MDB(NXT,1),SHFCNT) .AND. Z"FFFF"
 2616 MDBPRT(I,J) = SHIFT(MDB(NXT,1), 4) .AND. Z"FFF0" .OR. MDB(NXT,2)
  
*     MODIFY IBS FIELD - REPORT LEFT-MOST 15 BITS OF EACH HEX SEGMENT.
      DO 2618 I = 1, 4
 2618 MDBPRT(I,23) = SHIFT(MDBPRT(I,23),-1) .AND. O"7 7777" 
  
      PRINT 2620,((MDBPRT(I,J),I=1,4,1),J=1,23,1) 
 2620 FORMAT (' CURR INSTR REG =   ',4(Z4,1X),/,3(20X,4(Z4,1X),/),
     .        ' ACU M2 =           ',4(Z4,1X),/,
     .        ' ACU M3 =           ',4(Z4,1X),/,
     .        ' ACU M4 =           ',4(Z4,1X),/,
     .        ' BDP    =           ',4(Z4,1X),4X,4(Z4,1X),/,
     .        ' EPN    =           ',4(Z4,1X),/,
     .        ' EPN ERR INFO TBL = ',4(Z4,1X),/,
     .        ' CONTROL STORE  =   ',2(4(Z4,1X),4X),/,
     .        '                    ',2(4(Z4,1X),4X),/,
     .        ' CONTROL WORD   =   ',2(4(Z4,1X),4X),/,
     .        '                    ',2(4(Z4,1X),4X),/,
     .        ' INSTRUCTION MAP =  ',4(Z4,1X),/,
     .        ' IBS    =           ',4(O5,1X),'(8)',/,
     .        ' LSU    =           ',4(Z4,1X),/,
     .        ' SVZ.BN =           ',4(Z4,1X),/)
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     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(2,2),MDBPRT(4,2),(MDBPRT(I,1),I=1,4,1)
 2720 FORMAT (' HOURLY P COUNT = ',I7,13X,'CONSECUTIVE P COUNT = ',I7,/,
     .        ' PROGRAM ADDRESS REGISTER = ',4(Z4,1X),/)
  
      NEXT = NEXT + LENGTH - 1
      GO TO 2010
  
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*     GENERATE ANALYSIS REPORT
* 
  600 IF (RCFA .EQ. 3HOFF) GO TO 900
      PL(63) = IELEM
      PL(64) = MODEL
      CALL XOVCAP('ERDIST3',0,0)
      CALL UOVCAP('ERDIST3')
      DO 610 K = 1, 1024
      TCPU0 = SHIFT(MSGCNT(K),30).AND.O"77 7777 7777" 
  610 IF (TCPU0 .NE. 0) GO TO 620 
      GO TO 720 
  620 HCF(3) = 4
      HX(8) = 0 
      CALL XOVCAP('PHD313',3,0) 
      CALL UOVCAP('PHD313') 
*       PRINT THE SUMMARY OF THETA PROCESSOR 0 MESSAGES 
      IELEM = 0 
      DO 700 I = K,1024 
      TCPU0 = SHIFT(MSGCNT(I),30).AND.O"77 7777 7777" 
      IF (TCPU0.EQ.0) GO TO 700 
      REG = (I-1)/64 + 128
      IBIT = MOD((I-1),64)
      TUNC0 = TCPU0.AND.O"77777"
      TCOR0 = SHIFT(TCPU0,-15).AND.O"77777" 
      CALL LOAPR(1,MFID,P990MSG(I,2),P990MSG(I,3),P990MSG(I,4), 
     .           IELEM,MODEL,REG,IBIT)
      CALL LOAPR (9,P990MSG(I,1),TCOR0,TUNC0,SP,SP,SP,SP,SP)
      CALL PRT313 (1,11)
  700 CONTINUE
  720 DO 740 K = 1,1024 
      TCPU1 = MSGCNT(K).AND.O"77 7777 7777" 
  740 IF (TCPU1.NE.0) GO TO 760 
      GO TO 900 
  760 HCF(3) = 4
      HX(8) = 1 
      IF ((LINE+8).GE.PLF) CALL HEADER
      CALL XOVCAP('PHD313',3,0) 
      CALL UOVCAP('PHD313') 
*       PRINT THE SUMMARY OF THETA PROCESSOR 1 MESSAGES 
      IELEM = Z"10" 
      DO 800 I = K,1024 
      TCPU1 = MSGCNT(I).AND.O"77 7777 7777" 
      IF (TCPU1.EQ.0) GO TO 800 
      REG = (I-1)/64 + 128
      IBIT = MOD((I-1),64)
      TUNC1 = MSGCNT(I).AND.O"77777"
      TCOR1 = SHIFT(MSGCNT(I),-15).AND.O"77777" 
      CALL LOAPR(1,MFID,P990MSG(I,2),P990MSG(I,3),P990MSG(I,4), 
     .           IELEM,MODEL,REG,IBIT)
      CALL LOAPR (9,P990MSG(I,1),TCOR1,TUNC1,SP,SP,SP,SP,SP)
      CALL PRT313 (1,11)
  800 CONTINUE
  900 PL(63) = PL(64) = 1H
      RETURN
      END 
      SUBROUTINE DL990P 
* 
**    DESCRIPTION 
*     ----------- 
*     THIS ROUTINE DEVELOPS THE DETAIL REPORT FOR THETA PROCESSOR 
*     ERRORS/MESSAGES. IT ALSO ACCUMULATES DATA FOR THE ANALYSIS
*     REPORT. 
* 
*     CALLED BY AN990P
* 
*     DATA AREAS
*     IFLD DEFINITIONS (N=0,3)
*     IFLD(21) = REGISTER 1+N*4, BIT 0 THRU 15
*     IFLD(22) = REGISTER 1+N*4, BIT 16 THRU 31 
*     IFLD(23) = REGISTER 1+N*4, BIT 32 THRU 47 
*     IFLD(24) = REGISTER 1+N*4, BIT 48 THRU 59 
*     IFLD(25) = REGISTER 2+N*4, BIT 0 THRU 15
*     IFLD(26) = REGISTER 2+N*4, BIT 16 THRU 31 
*     IFLD(27) = REGISTER 2+N*4, BIT 32 THRU 47 
*     IFLD(28) = REGISTER 2+N*4, BIT 48 THRU 59 
*     IFLD(29) = REGISTER 3+N*4, BIT 0 THRU 15
*     IFLD(30) = REGISTER 3+N*4, BIT 16 THRU 31 
*     IFLD(31) = REGISTER 3+N*4, BIT 32 THRU 47 
*     IFLD(32) = REGISTER 3+N*4, BIT 48 THRU 59 
*     IFLD(33) = REGISTER 4+N*4, BIT 0 THRU 15
*     IFLD(34) = REGISTER 4+N*4, BIT 16 THRU 31 
*     IFLD(35) = REGISTER 4+N*4, BIT 32 THRU 47 
*     IFLD(36) = REGISTER 4+N*4, BIT 48 THRU 59 
*     IFLD(37) = REGISTER 1+N*4, BIT 60 THRU 63 
*     IFLD(38) = REGISTER 1+N*4 ID
*     IFLD(39) = REGISTER 2+N*4, BIT 60 THRU 63 
*     IFLD(40) = REGISTER 2+N*4 ID
*     IFLD(41) = REGISTER 3+N*4, BIT 60 THRU 63 
*     IFLD(42) = REGISTER 3+N*4 ID
*     IFLD(43) = REGISTER 4+N*4, BIT 60 THRU 63 
*     IFLD(44) = REGISTER 4+N*4 ID
*     IFLD(45) = SYMPTOM CODE (1ST RECORD)
*CALL,HPACOM1 
*CALL,HPACOM2 
*CALL,HPACOM3 
      COMMON /THETAP/ P990MSG(1024,4) 
      DIMENSION MSGCNT(1024)
      EQUIVALENCE (MSGCNT(1),STOR(1,1)) 
      DIMENSION GROUP(4)
  
      DIMENSION MSG (32, 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) /
     .10HUNIDENTIFI,10HED DFT ERR,10HOR CODE   ,10H          /
      DATA (MSG(32,J),J=1,4) /
     .10HMULTIPLE E,10HRROR OCCUR,10HRENCE     ,10H          /
  
      DATA REPFLG / 0 / 
      DATA SUBHEAD /0/
      DATA I8FFLG / 0 / 
* 
*        TABLE OF THETA PROCESSOR ERROR/MESSAGES
* 
      DATA (P990MSG(0001,J),J=1,4) /10HPSR 3.11F ,
     .10HDETECTED U,10HNCORRECTED,10H ERROR    /
      DATA (P990MSG(0002,J),J=1,4) /10HPSR 3.11F ,
     .10HCORRECTED ,10HERROR     ,10H          /
      DATA (P990MSG(0003,J),J=1,4) /10HMAC 3.0A  ,
     .10HIOU DATA P,10HARITY ERRO,10HR         /
      DATA (P990MSG(0004,J),J=1,4) /10HMAC 3.8B  ,
     .10HREAD MUX P,10HARITY ERRO,10HR         /
      DATA (P990MSG(0005,J),J=1,4) /10HMAC 3.6B  ,
     .10HINIT CNTRL,10H STR ADRS ,10HREG BYTE 0/
      DATA (P990MSG(0006,J),J=1,4) /10HMAC 3.6B  ,
     .10HINIT CNTRL,10H STR ADRS ,10HREE BYTE 1/
      DATA (P990MSG(0007,J),J=1,4) /10HMAC 3.6B  ,
     .10HCNTRL STR ,10HBREAKPNT R,10HGTR BYTE 0/
      DATA (P990MSG(0008,J),J=1,4) /10HMAC 3.6B  ,
     .10HCNTRL STR ,10HBREAKPNT R,10HGTR BYTE 1/
      DATA (P990MSG(0009,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 0 /
      DATA (P990MSG(0010,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 1 /
      DATA (P990MSG(0011,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 2 /
      DATA (P990MSG(0012,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 3 /
      DATA (P990MSG(0013,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 4 /
      DATA (P990MSG(0014,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 5 /
      DATA (P990MSG(0015,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 6 /
      DATA (P990MSG(0016,J),J=1,4) /10HMAC 3.7A  ,
     .10HMAC COPY D,10HATA OUT RG,10HTR BYTE 7 /
      DATA (P990MSG(0017,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 0   /
      DATA (P990MSG(0018,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 1   /
      DATA (P990MSG(0019,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 2   /
      DATA (P990MSG(0020,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 3   /
      DATA (P990MSG(0021,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 4   /
      DATA (P990MSG(0022,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 5   /
      DATA (P990MSG(0023,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 6   /
      DATA (P990MSG(0024,J),J=1,4) /10HMAC 3.7B  ,
     .10HMAC DISASS,10HEMBLY RGTR,10H BYTE 7   /
      DATA (P990MSG(0025,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 0      /
      DATA (P990MSG(0026,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 1      /
      DATA (P990MSG(0027,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 2      /
      DATA (P990MSG(0028,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 3      /
      DATA (P990MSG(0029,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 4      /
      DATA (P990MSG(0030,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 5      /
      DATA (P990MSG(0031,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 6      /
      DATA (P990MSG(0032,J),J=1,4) /10HMAC 3.4B  ,
     .10HCOPY DATA ,10HIN RGTR BY,10HTE 7      /
      DATA (P990MSG(0033,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 0      /
      DATA (P990MSG(0034,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 1      /
      DATA (P990MSG(0035,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 2      /
      DATA (P990MSG(0036,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 3      /
      DATA (P990MSG(0037,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 4      /
      DATA (P990MSG(0038,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 5      /
      DATA (P990MSG(0039,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 6      /
      DATA (P990MSG(0040,J),J=1,4) /10HMAC 3.4A  ,
     .10HMAC ASSEMB,10HLY RGTR BY,10HTE 7      /
      DATA (P990MSG(0041,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE0/
      DATA (P990MSG(0042,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE1/
      DATA (P990MSG(0043,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE2/
      DATA (P990MSG(0044,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE3/
      DATA (P990MSG(0045,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE4/
      DATA (P990MSG(0046,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE5/
      DATA (P990MSG(0047,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE6/
      DATA (P990MSG(0048,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HX OUT DATA,10H REG BYTE7/
      DATA (P990MSG(0049,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HA OUT DATA,10H REG BYTE2/
      DATA (P990MSG(0050,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HA OUT DATA,10H REG BYTE3/
      DATA (P990MSG(0051,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HA OUT DATA,10H REG BYTE4/
      DATA (P990MSG(0052,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HA OUT DATA,10H REG BYTE5/
      DATA (P990MSG(0053,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HA OUT DATA,10H REG BYTE6/
      DATA (P990MSG(0054,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HA OUT DATA,10H REG BYTE7/
      DATA (P990MSG(0055,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HMEM P-RIGH,10HT BYTE 0  /
      DATA (P990MSG(0056,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HMEM P-RIGH,10HT BYTE 1  /
      DATA (P990MSG(0057,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HMEM P-RIGH,10HT BYTE 2  /
      DATA (P990MSG(0058,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HMEM P-RIGH,10HT BYTE 3  /
      DATA (P990MSG(0059,J),J=1,4) /10HRGU 3.8B  ,
     .10HHIST FILE ,10HMEM MAC/ID,10HU ENTR SEL/
      DATA (P990MSG(0060,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0061,J),J=1,4) /10HIDU 3.21A ,
     .10HPFS-CSA BR,10HEAKPOINT C,10HOMPARE    /
      DATA (P990MSG(0062,J),J=1,4) /10HIDU 3.21A ,
     .10HCSA BREAKP,10HOINT HALT ,10H          /
      DATA (P990MSG(0063,J),J=1,4) /10HIDU 3.21A ,
     .10HCSA SEQUEN,10HCING ERROR,10H          /
      DATA (P990MSG(0064,J),J=1,4) /10HIDU 3.17P ,
     .10HCS/CW MEM ,10HACC'S ERR ,10HVALIDATION/
  
      DATA (P990MSG(0065,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 0 PE/
      DATA (P990MSG(0066,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 1 PE/
      DATA (P990MSG(0067,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 2 PE/
      DATA (P990MSG(0068,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 3 PE/
      DATA (P990MSG(0069,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 4 PE/
      DATA (P990MSG(0070,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 5 PE/
      DATA (P990MSG(0071,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 6 PE/
      DATA (P990MSG(0072,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 7 PE/
      DATA (P990MSG(0073,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 8 PE/
      DATA (P990MSG(0074,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE 9 PE/
      DATA (P990MSG(0075,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE10 PE/
      DATA (P990MSG(0076,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE11 PE/
      DATA (P990MSG(0077,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE12 PE/
      DATA (P990MSG(0078,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE13 PE/
      DATA (P990MSG(0079,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE14 PE/
      DATA (P990MSG(0080,J),J=1,4) /10HIDU 3.20C ,
     .10HMAC WR DAT,10HA ASSY REG,10H BYTE15 PE/
      DATA (P990MSG(0081,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE8/S.,10HM MEM CHK0/
      DATA (P990MSG(0082,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE9/S.,10HM MEM CHK1/
      DATA (P990MSG(0083,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE10/S,10HM MEM CHK2/
      DATA (P990MSG(0084,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE11/S,10HM MEM CHK3/
      DATA (P990MSG(0085,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE12/S,10HM MEM CHK4/
      DATA (P990MSG(0086,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE13/S,10HM MEM CHK5/
      DATA (P990MSG(0087,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE14/S,10HM MEM CHK6/
      DATA (P990MSG(0088,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE15/S,10HM MEM CHK7/
      DATA (P990MSG(0089,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 0 O,10HR 16      /
      DATA (P990MSG(0090,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 1 O,10HR 17      /
      DATA (P990MSG(0091,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 2 O,10HR 18      /
      DATA (P990MSG(0092,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 3 O,10HR 19      /
      DATA (P990MSG(0093,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 4 O,10HR 20      /
      DATA (P990MSG(0094,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 5 O,10HR 21      /
      DATA (P990MSG(0095,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 6 O,10HR 22      /
      DATA (P990MSG(0096,J),J=1,4) /10HIDU 3.8A  ,
     .10HCST DATA P,10HE BYTE 7 O,10HR 23      /
      DATA (P990MSG(0097,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 0 PE    /
      DATA (P990MSG(0098,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 3 PE    /
      DATA (P990MSG(0099,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 6 PE    /
      DATA (P990MSG(0100,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 9 PE    /
      DATA (P990MSG(0101,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 12 PE   /
      DATA (P990MSG(0102,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 15 PE   /
      DATA (P990MSG(0103,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 18 PE   /
      DATA (P990MSG(0104,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 21 PE   /
      DATA (P990MSG(0105,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 1 PE    /
      DATA (P990MSG(0106,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 4 PE    /
      DATA (P990MSG(0107,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 7 PE    /
      DATA (P990MSG(0108,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 10 PE   /
      DATA (P990MSG(0109,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 13 PE   /
      DATA (P990MSG(0110,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 16 PE   /
      DATA (P990MSG(0111,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 19 PE   /
      DATA (P990MSG(0112,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 22 PE   /
      DATA (P990MSG(0113,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 2 PE    /
      DATA (P990MSG(0114,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 5 PE    /
      DATA (P990MSG(0115,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 8 PE    /
      DATA (P990MSG(0116,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 11 PE   /
      DATA (P990MSG(0117,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 14 PE   /
      DATA (P990MSG(0118,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 17 PE   /
      DATA (P990MSG(0119,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 20 PE   /
      DATA (P990MSG(0120,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR CONTRO,10HL WORD BYT,10HE 23 PE   /
      DATA (P990MSG(0121,J),J=1,4) /10HIDU 3.14B ,
     .10HCWD BDP DE,10HSCRIPTOR B,10HYTE 0 PE  /
      DATA (P990MSG(0122,J),J=1,4) /10HIDU 3.14B ,
     .10HCWD BDP DE,10HSCRIPTOR B,10HYTE 1 PE  /
      DATA (P990MSG(0123,J),J=1,4) /10HIDU 3.14B ,
     .10HCWD BDP DE,10HSCRIPTOR B,10HYTE 2 PE  /
      DATA (P990MSG(0124,J),J=1,4) /10HIDU 3.14B ,
     .10HCWD BDP DE,10HSCRIPTOR B,10HYTE 3 PE  /
      DATA (P990MSG(0125,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR BDP DE,10HSCRIPTOR B,10HYTE 0 PE  /
      DATA (P990MSG(0126,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR BDP DE,10HSCRIPTOR B,10HYTE 1 PE  /
      DATA (P990MSG(0127,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR BDP DE,10HSCRIPTOR B,10HYTE 2 PE  /
      DATA (P990MSG(0128,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR BDP DE,10HSCRIPTOR B,10HYTE 3 PE  /
  
      DATA (P990MSG(0129,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA P-RGTR,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0130,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA P-RGTR,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0131,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA P-RGTR,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0132,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA P-RGTR,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0133,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD P-RGTR,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0134,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD P-RGTR,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0135,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD P-RGTR,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0136,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD P-RGTR,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0137,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA P-RGTR,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0138,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA P-RGTR,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0139,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA P-RGTR,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0140,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA P-RGTR,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0141,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR P-RGTR,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0142,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR P-RGTR,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0143,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR P-RGTR,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0144,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR P-RGTR,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0145,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA UTP RG,10HTR BYTE 0 ,10HPE        /
      DATA (P990MSG(0146,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA UTP RG,10HTR BYTE 1 ,10HPE        /
      DATA (P990MSG(0147,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA UTP RG,10HTR BYTE 2 ,10HPE        /
      DATA (P990MSG(0148,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA UTP RG,10HTR BYTE 3 ,10HPE        /
      DATA (P990MSG(0149,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA UTP RG,10HTR BYTE 0 ,10HPE        /
      DATA (P990MSG(0150,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA UTP RG,10HTR BYTE 1 ,10HPE        /
      DATA (P990MSG(0151,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA UTP RG,10HTR BYTE 2 ,10HPE        /
      DATA (P990MSG(0152,J),J=1,4) /10HIDU 3.11E ,
     .10HCWA UTP RG,10HTR BYTE 3 ,10HPE        /
      DATA (P990MSG(0153,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR UTP RG,10HTR BYTE 0 ,10HPE        /
      DATA (P990MSG(0154,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR UTP RG,10HTR BYTE 1 ,10HPE        /
      DATA (P990MSG(0155,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR UTP RG,10HTR BYTE 2 ,10HPE        /
      DATA (P990MSG(0156,J),J=1,4) /10HIDU 3.8A  ,
     .10HCIR UTP RG,10HTR BYTE 3 ,10HPE        /
      DATA (P990MSG(0157,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA INSTRU,10HCTION RGTR,10H BYTE 0 PE/
      DATA (P990MSG(0158,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA INSTRU,10HCTION RGTR,10H BYTE 1 PE/
      DATA (P990MSG(0159,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA INSTRU,10HCTION RGTR,10H BYTE 2 PE/
      DATA (P990MSG(0160,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA INSTRU,10HCTION RGTR,10H BYTE 3 PE/
      DATA (P990MSG(0161,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD INSTRU,10HCTION RGTR,10H BYTE 0 PE/
      DATA (P990MSG(0162,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD INSTRU,10HCTION RGTR,10H BYTE 1 PE/
      DATA (P990MSG(0163,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD INSTRU,10HCTION RGTR,10H BYTE 2 PE/
      DATA (P990MSG(0164,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD INSTRU,10HCTION RGTR,10H BYTE 3 PE/
      DATA (P990MSG(0165,J),J=1,4) /10HIDU 3.11D ,
     .10HCWA INSTRU,10HCTION RGTR,10H BYTE 0 PE/
      DATA (P990MSG(0166,J),J=1,4) /10HIDU 3.11D ,
     .10HCWA INSTRU,10HCTION RGTR,10H BYTE 1 PE/
      DATA (P990MSG(0167,J),J=1,4) /10HIDU 3.11D ,
     .10HCWA INSTRU,10HCTION RGTR,10H BYTE 2 PE/
      DATA (P990MSG(0168,J),J=1,4) /10HIDU 3.11D ,
     .10HCWA INSTRU,10HCTION RGTR,10H BYTE 3 PE/
      DATA (P990MSG(0169,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA 1ST BD,10HP DESCRPTR,10H BYTE 0 PE/
      DATA (P990MSG(0170,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA 1ST BD,10HP DESCRPTR,10H BYTE 1 PE/
      DATA (P990MSG(0171,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA 1ST BD,10HP DESCRPTR,10H BYTE 2 PE/
      DATA (P990MSG(0172,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA 1ST BD,10HP DESCRPTR,10H BYTE 3 PE/
      DATA (P990MSG(0173,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD 1ST BD,10HP DESCRPTR,10H BYTE 0 PE/
      DATA (P990MSG(0174,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD 1ST BD,10HP DESCRPTR,10H BYTE 1 PE/
      DATA (P990MSG(0175,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD 1ST BD,10HP DESCRPTR,10H BYTE 2 PE/
      DATA (P990MSG(0176,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD 1ST BD,10HP DESCRPTR,10H BYTE 3 PE/
      DATA (P990MSG(0177,J),J=1,4) /10HIDU 3.11B ,
     .10HCWA 1ST BD,10HP DESCRPTR,10H BYTE 0 PE/
      DATA (P990MSG(0178,J),J=1,4) /10HIDU 3.11B ,
     .10HCWA 1ST BD,10HP DESCRPTR,10H BYTE 1 PE/
      DATA (P990MSG(0179,J),J=1,4) /10HIDU 3.11B ,
     .10HCWA 1ST BD,10HP DESCRPTR,10H BYTE 2 PE/
      DATA (P990MSG(0180,J),J=1,4) /10HIDU 3.11B ,
     .10HCWA 1ST BD,10HP DESCRPTR,10H BYTE 3 PE/
      DATA (P990MSG(0181,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA LAST B,10HNDP DSCRPT,10HR BYTE0 PE/
      DATA (P990MSG(0182,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA LAST B,10HNDP DSCRPT,10HR BYTE1 PE/
      DATA (P990MSG(0183,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA LAST B,10HNDP DSCRPT,10HR BYTE2 PE/
      DATA (P990MSG(0184,J),J=1,4) /10HIDU 3.7A  ,
     .10HCSA LAST B,10HNDP DSCRPT,10HR BYTE3 PE/
      DATA (P990MSG(0185,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD LAST B,10HNDP DSCRPT,10HR BYTE0 PE/
      DATA (P990MSG(0186,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD LAST B,10HNDP DSCRPT,10HR BYTE1 PE/
      DATA (P990MSG(0187,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD LAST B,10HNDP DSCRPT,10HR BYTE2 PE/
      DATA (P990MSG(0188,J),J=1,4) /10HIDU 3.7C  ,
     .10HCSD LAST B,10HNDP DSCRPT,10HR BYTE3 PE/
      DATA (P990MSG(0189,J),J=1,4) /10HIDU 3.11C ,
     .10HCWA LAST B,10HNDP DSCRPT,10HR BYTE0 PE/
      DATA (P990MSG(0190,J),J=1,4) /10HIDU 3.11C ,
     .10HCWA LAST B,10HNDP DSCRPT,10HR BYTE1 PE/
      DATA (P990MSG(0191,J),J=1,4) /10HIDU 3.11C ,
     .10HCWA LAST B,10HNDP DSCRPT,10HR BYTE2 PE/
      DATA (P990MSG(0192,J),J=1,4) /10HIDU 3.11C ,
     .10HCWA LAST B,10HNDP DSCRPT,10HR BYTE3 PE/
  
      DATA (P990MSG(0193,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0194,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0195,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0196,J),J=1,4) /10HBDP 3.3A  ,
     .10HSC RIGHT I,10HNVALID OPE,10HRAND      /
      DATA (P990MSG(0197,J),J=1,4) /10HBDP 3.3A  ,
     .10HSC LEFT IN,10HVALID OPER,10HAND       /
      DATA (P990MSG(0198,J),J=1,4) /10HBDP 3.1B  ,
     .10HLSU MARK L,10HINE PE    ,10H          /
      DATA (P990MSG(0199,J),J=1,4) /10HBDP 3.4A  ,
     .10HSVA-BYTE N,10HUMBER RGTR,10H PE       /
      DATA (P990MSG(0200,J),J=1,4) /10HBDP 3.1B  ,
     .10HMARK LINES,10H RGTR PE  ,10H          /
      DATA (P990MSG(0201,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 0       /
      DATA (P990MSG(0202,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 1       /
      DATA (P990MSG(0203,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 2       /
      DATA (P990MSG(0204,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 3       /
      DATA (P990MSG(0205,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 4       /
      DATA (P990MSG(0206,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 5       /
      DATA (P990MSG(0207,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 6       /
      DATA (P990MSG(0208,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR B R,10HGTR PE BYT,10HE 7       /
      DATA (P990MSG(0209,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 0       /
      DATA (P990MSG(0210,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 1       /
      DATA (P990MSG(0211,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 2       /
      DATA (P990MSG(0212,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 3       /
      DATA (P990MSG(0213,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 4       /
      DATA (P990MSG(0214,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 5       /
      DATA (P990MSG(0215,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 6       /
      DATA (P990MSG(0216,J),J=1,4) /10HBDP 3.5A  ,
     .10HAJ BFR A R,10HGTR PE BYT,10HE 7       /
      DATA (P990MSG(0217,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR BYT,10HE/SCALE CN,10HT RGTR PE /
      DATA (P990MSG(0218,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR B R,10HGTR PE BYT,10HE 1       /
      DATA (P990MSG(0219,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR B R,10HGTR PE BYT,10HE 2       /
      DATA (P990MSG(0220,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR B R,10HGTR PE BYT,10HE 3       /
      DATA (P990MSG(0221,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR B R,10HGTR PE BYT,10HE 4       /
      DATA (P990MSG(0222,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR B R,10HGTR PE BYT,10HE 5       /
      DATA (P990MSG(0223,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR B R,10HGTR PE BYT,10HE 6       /
      DATA (P990MSG(0224,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR B R,10HGTR PE BYT,10HE 7       /
      DATA (P990MSG(0225,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 0       /
      DATA (P990MSG(0226,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 1       /
      DATA (P990MSG(0227,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 2       /
      DATA (P990MSG(0228,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 3       /
      DATA (P990MSG(0229,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 4       /
      DATA (P990MSG(0230,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 5       /
      DATA (P990MSG(0231,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 6       /
      DATA (P990MSG(0232,J),J=1,4) /10HBDP 3.7A  ,
     .10HAK BFR A R,10HGTR PE BYT,10HE 7       /
      DATA (P990MSG(0233,J),J=1,4) /10HBDP 3.9A  ,
     .10HAJ DESCRIP,10HTOR RGTR P,10HE         /
      DATA (P990MSG(0234,J),J=1,4) /10HBDP 3.9A  ,
     .10HAK DESCRIP,10HTOR RGTR P,10HE         /
      DATA (P990MSG(0235,J),J=1,4) /10HBDP 3.10B ,
     .10HAJ SUBTRAH,10HEND PE    ,10H          /
      DATA (P990MSG(0236,J),J=1,4) /10HBDP 3.10C ,
     .10HAK SUBTRAH,10HEND PE    ,10H          /
      DATA (P990MSG(0237,J),J=1,4) /10HBDP 3.11A ,
     .10HAJ LENGTH ,10HCOUNT PE  ,10H          /
      DATA (P990MSG(0238,J),J=1,4) /10HBDP 3.11B ,
     .10HAJ LENGTH ,10HDECREMENTE,10HR PE      /
      DATA (P990MSG(0239,J),J=1,4) /10HBDP 3.12A ,
     .10HAK LENGTH ,10HCOUNT PE  ,10H          /
      DATA (P990MSG(0240,J),J=1,4) /10HBDP 3.12B ,
     .10HAK LENGTH ,10HDECREMENTO,10HR PE      /
      DATA (P990MSG(0241,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE0/
      DATA (P990MSG(0242,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE1/
      DATA (P990MSG(0243,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE2/
      DATA (P990MSG(0244,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE3/
      DATA (P990MSG(0245,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE4/
      DATA (P990MSG(0246,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE5/
      DATA (P990MSG(0247,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE6/
      DATA (P990MSG(0248,J),J=1,4) /10HBDP 3.13B ,
     .10HBDP DATA R,10HSLT MUX RE,10HG PE BYTE7/
      DATA (P990MSG(0249,J),J=1,4) /10HBDP 3.16E ,
     .10HSOFT CONTR,10HOL B1 DATA,10H PE       /
      DATA (P990MSG(0250,J),J=1,4) /10HBDP 3.16E ,
     .10HSOFT CONTR,10HOL B2 DATA,10H PE       /
      DATA (P990MSG(0251,J),J=1,4) /10HBDP 3.14B ,
     .10HCONVRT BYT,10HE OVFL BYT,10HE REG A PE/
      DATA (P990MSG(0252,J),J=1,4) /10HBDP 3.14B ,
     .10HCONVRT BYT,10HE OVFL BYT,10HE REG B PE/
      DATA (P990MSG(0253,J),J=1,4) /10HBDP 3.15A ,
     .10HBDP MICRAN,10HD RGTR BIT,10HS 0-2 PE  /
      DATA (P990MSG(0254,J),J=1,4) /10HBDP 3.15A ,
     .10HBDP MICRAN,10HD RGTR BIT,10HS 3-9 PE  /
      DATA (P990MSG(0255,J),J=1,4) /10HBDP 3.16B ,
     .10HSOFT CNTRL,10H MEM ADRS ,10HPE BOARD 1/
      DATA (P990MSG(0256,J),J=1,4) /10HBDP 3.16B ,
     .10HSOFT CNTRL,10H MEM ADRS ,10HPE BOARD 2/
  
      DATA (P990MSG(0257,J),J=1,4) /10HSCX 3.0E  ,
     .10HIMU/FPU CO,10HMPARE ERRO,10HR         /
      DATA (P990MSG(0258,J),J=1,4) /10HDIV 3.19B ,
     .10HDIVIDE NET,10HWORK COMPA,10HRE ERROR  /
      DATA (P990MSG(0259,J),J=1,4) /10HIMU 3.3B  ,
     .10HPE ON BYTE,10H FROM BDP ,10H          /
      DATA (P990MSG(0260,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0261,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0262,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0263,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0264,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0265,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0266,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0267,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0268,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0269,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0270,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0271,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0272,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0273,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0274,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0275,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0276,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0277,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0278,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0279,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0280,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0281,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0282,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0283,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0284,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0285,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0286,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0287,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0288,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0289,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0290,J),J=1,4) /10HAC2 3.4C  ,
     .10HSTORE WAIT,10H DUE      ,10H          /
      DATA (P990MSG(0291,J),J=1,4) /10HAC2 3.27A ,
     .10HRANK 6 & B,10HKUP ERR CO,10HNDITION PE/
      DATA (P990MSG(0292,J),J=1,4) /10HAC2 3.2E  ,
     .10HINVALID SC,10HM4 READ   ,10H          /
      DATA (P990MSG(0293,J),J=1,4) /10HAC2 3.19C ,
     .10HPORT A TAG,10H PE       ,10H          /
      DATA (P990MSG(0294,J),J=1,4) /10HAC2 3.5A  ,
     .10HSCM4 FUNCT,10HION PE    ,10H          /
      DATA (P990MSG(0295,J),J=1,4) /10HAC2 3.27B ,
     .10HPAGE MAP M,10HULTIPLE HI,10HT         /
      DATA (P990MSG(0296,J),J=1,4) /10HAC2 3.2B  ,
     .10HSCM4 PE   ,10H          ,10H          /
      DATA (P990MSG(0297,J),J=1,4) /10HAC2 3.18C ,
     .10HPORT A RMA,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0298,J),J=1,4) /10HAC2 3.18C ,
     .10HPORT A RMA,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0299,J),J=1,4) /10HAC2 3.18C ,
     .10HPORT A RMA,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0300,J),J=1,4) /10HAC2 3.18C ,
     .10HPORT A RMA,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0301,J),J=1,4) /10HAC2 3.17B ,
     .10HPORT B RMA,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0302,J),J=1,4) /10HAC2 3.17B ,
     .10HPORT B RMA,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0303,J),J=1,4) /10HAC2 3.17B ,
     .10HPORT B RMA,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0304,J),J=1,4) /10HAC2 3.17B ,
     .10HPORT B RMA,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0305,J),J=1,4) /10HAC2 3.23B ,
     .10HPORT C RMA,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0306,J),J=1,4) /10HAC2 3.23B ,
     .10HPORT C RMA,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0307,J),J=1,4) /10HAC2 3.23B ,
     .10HPORT C RMA,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0308,J),J=1,4) /10HAC2 3.23B ,
     .10HPORT C RMA,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0309,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H COUNTER B,10HYTE 4 PE  /
      DATA (P990MSG(0310,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H COUNTER B,10HYTE 5 PE  /
      DATA (P990MSG(0311,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H COUNTER B,10HYTE 6 PE  /
      DATA (P990MSG(0312,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H COUNTER B,10HYTE 7 PE  /
      DATA (P990MSG(0313,J),J=1,4) /10HAC2 3.19D ,
     .10HPORT A LEN,10HGTH COUNTR,10H BYTE 0 PE/
      DATA (P990MSG(0314,J),J=1,4) /10HAC2 3.19D ,
     .10HPORT A LEN,10HGTH COUNTR,10H BYTE 1 PE/
      DATA (P990MSG(0315,J),J=1,4) /10HAC2 3.22D ,
     .10HPORT C LEN,10HGTH COUNTR,10H BYTE 0 PE/
      DATA (P990MSG(0316,J),J=1,4) /10HAC2 3.22D ,
     .10HPORT C LEN,10HGTH COUNTR,10H BYTE 1 PE/
      DATA (P990MSG(0317,J),J=1,4) /10HAC2 3.22B ,
     .10HSTORE TAG ,10HPE        ,10H          /
      DATA (P990MSG(0318,J),J=1,4) /10HAC2 3.16B ,
     .10HRANK 6 PFA,10H BITS 31-3,10H8 PE      /
      DATA (P990MSG(0319,J),J=1,4) /10HAC2 3.16B ,
     .10HRANK 6 PFA,10H BITS 39-4,10H6 PE      /
      DATA (P990MSG(0320,J),J=1,4) /10HAC2 3.16B ,
     .10HRANK 6 PFA,10H BITS 47-5,10H4 PE      /
  
      DATA (P990MSG(0321,J),J=1,4) /10HAC2 3.13B ,
     .10HPAGE TABLE,10H ADRS BITS,10H 40-47 PE /
      DATA (P990MSG(0322,J),J=1,4) /10HAC2 3.13B ,
     .10HPAGE TABLE,10H ADRS BITS,10H 48-51 PE /
      DATA (P990MSG(0323,J),J=1,4) /10HAC2 3.14A ,
     .10HRANK 5 SVA,10H BYTE 2 PE,10H          /
      DATA (P990MSG(0324,J),J=1,4) /10HAC2 3.14A ,
     .10HRANK 5 SVA,10H BYTE 3 PE,10H          /
      DATA (P990MSG(0325,J),J=1,4) /10HAC2 3.14A ,
     .10HRANK 4 SVA,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0326,J),J=1,4) /10HAC2 3.14A ,
     .10HRANK 4 SVA,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0327,J),J=1,4) /10HAC2 3.14A ,
     .10HRANK 4 SVA,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0328,J),J=1,4) /10HAC2 3.14A ,
     .10HRANK 4 SVA,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0329,J),J=1,4) /10HAC2 3.13B ,
     .10HPAGE TABLE,10H LENGTH PE,10H          /
      DATA (P990MSG(0330,J),J=1,4) /10HAC2 3.14D ,
     .10HRANK 6 SVA,10H BYTE 0 PE,10H          /
      DATA (P990MSG(0331,J),J=1,4) /10HAC2 3.14D ,
     .10HRANK 6 SVA,10H BYTE 2 PE,10H          /
      DATA (P990MSG(0332,J),J=1,4) /10HAC2 3.14D ,
     .10HRANK 6 SVA,10H BYTE 3 PE,10H          /
      DATA (P990MSG(0333,J),J=1,4) /10HAC2 3.14D ,
     .10HRANK 6 SVA,10H BYTE 4 PE,10H          /
      DATA (P990MSG(0334,J),J=1,4) /10HAC2 3.14D ,
     .10HRANK 6 SVA,10H BYTE 5 PE,10H          /
      DATA (P990MSG(0335,J),J=1,4) /10HAC2 3.14D ,
     .10HRANK 6 SVA,10H BYTE 6 PE,10H          /
      DATA (P990MSG(0336,J),J=1,4) /10HAC2 3.14D ,
     .10HRANK 6 SVA,10H BYTE 7 PE,10H          /
      DATA (P990MSG(0337,J),J=1,4) /10HAC2 3.29A ,
     .10HRANK 5 RIN,10HG & SEG NU,10HMBER BYTE2/
      DATA (P990MSG(0338,J),J=1,4) /10HAC2 3.29A ,
     .10HRANK 5 RIN,10HG & SEG NU,10HMBER BYTE3/
      DATA (P990MSG(0339,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H PE BYTE 2,10H          /
      DATA (P990MSG(0340,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H PE BYTE 3,10H          /
      DATA (P990MSG(0341,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H PE BYTE 4,10H          /
      DATA (P990MSG(0342,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H PE BYTE 5,10H          /
      DATA (P990MSG(0343,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H PE BYTE 6,10H          /
      DATA (P990MSG(0344,J),J=1,4) /10HAC2 3.15A ,
     .10HPORT C SVA,10H PE BYTE 7,10H          /
      DATA (P990MSG(0345,J),J=1,4) /10HAC2 3.29B ,
     .10HRANK 6 RNG,10H & SEG NUM,10H BYTE 2 PE/
      DATA (P990MSG(0346,J),J=1,4) /10HAC2 3.29B ,
     .10HRANK 6 RNG,10H & SEG NUM,10H BYTE 3 PE/
      DATA (P990MSG(0347,J),J=1,4) /10HAC2 3.5A  ,
     .10HLSU MICRAN,10HD LENGTH B,10HITS 0-7,48/
      DATA (P990MSG(0348,J),J=1,4) /10HAC2 3.5A  ,
     .10HLSU MICRAN,10HD LNGTH BI,10HTS 8-15,49/
      DATA (P990MSG(0349,J),J=1,4) /10HAC2 3.5A  ,
     .10HLSU MICRND,10H LNGTH BIT,10HS 16-23,50/
      DATA (P990MSG(0350,J),J=1,4) /10HAC2 3.5A  ,
     .10HLSU MICRND,10H LNGTH BIT,10HS 24-31,51/
      DATA (P990MSG(0351,J),J=1,4) /10HAC2 3.5A  ,
     .10HLSU MICRND,10H LGTH 32-3,10H7,56-57,66/
      DATA (P990MSG(0352,J),J=1,4) /10HAC2 3.5A  ,
     .10HLSU MICRND,10H LNGTH BIT,10HS 58-65,67/
      DATA (P990MSG(0353,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 0 PE/
      DATA (P990MSG(0354,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 1 PE/
      DATA (P990MSG(0355,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 2 PE/
      DATA (P990MSG(0356,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 3 PE/
      DATA (P990MSG(0357,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 4 PE/
      DATA (P990MSG(0358,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 5 PE/
      DATA (P990MSG(0359,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 6 PE/
      DATA (P990MSG(0360,J),J=1,4) /10HAC2 3.30B ,
     .10HMAC WRITE/,10HTABLE READ,10H BYTE 7 PE/
      DATA (P990MSG(0361,J),J=1,4) /10HAC2 3.30B ,
     .10HALTERNATE ,10HPTE BYTE 5,10H PE       /
      DATA (P990MSG(0362,J),J=1,4) /10HAC2 3.30B ,
     .10HALTERNATE ,10HPTE BYTE 6,10H PE       /
      DATA (P990MSG(0363,J),J=1,4) /10HAC2 3.30B ,
     .10HALTERNATE ,10HPTE BYTE 7,10H PE       /
      DATA (P990MSG(0364,J),J=1,4) /10HAC2 3.13A ,
     .10HSEGMENT PA,10HGE ID BYTE,10H 2 PE     /
      DATA (P990MSG(0365,J),J=1,4) /10HAC2 3.13A ,
     .10HSEGMENT PA,10HGE ID BYTE,10H 3 PE     /
      DATA (P990MSG(0366,J),J=1,4) /10HAC2 3.13A ,
     .10HSEGMENT PA,10HGE ID BYTE,10H 4 PE     /
      DATA (P990MSG(0367,J),J=1,4) /10HAC2 3.13A ,
     .10HSEGMENT PA,10HGE ID BYTE,10H 5 PE     /
      DATA (P990MSG(0368,J),J=1,4) /10HAC2 3.13A ,
     .10HPAGE ID BY,10HTE 6 PE   ,10H          /
      DATA (P990MSG(0369,J),J=1,4) /10HAC2 3.29F ,
     .10HDEBUG MASK,10H REGISTER ,10HPE        /
      DATA (P990MSG(0370,J),J=1,4) /10HAC2 3.6A  ,
     .10HPAGE SIZE ,10HMASK PE   ,10H          /
      DATA (P990MSG(0371,J),J=1,4) /10HAC2 3.29C ,
     .10HDATA RSLTS,10H RNG & SEG,10H NUM BYTE2/
      DATA (P990MSG(0372,J),J=1,4) /10HAC2 3.29C ,
     .10HDATA RSLTS,10H RNG & SEG,10H NUM BYTE3/
      DATA (P990MSG(0373,J),J=1,4) /10HAC2 3.29C ,
     .10HDATA RESUL,10HTS SELECT ,10HBYTE 4 PE /
      DATA (P990MSG(0374,J),J=1,4) /10HAC2 3.29C ,
     .10HDATA RESUL,10HTS SELECT ,10HBYTE 5 PE /
      DATA (P990MSG(0375,J),J=1,4) /10HAC2 3.29C ,
     .10HDATA RESUL,10HTS SELECT ,10HBYTE 6 PE /
      DATA (P990MSG(0376,J),J=1,4) /10HAC2 3.29C ,
     .10HDATA RESUL,10HTS SELECT ,10HBYTE 7 PE /
      DATA (P990MSG(0377,J),J=1,4) /10HAC2 3.21A ,
     .10HPORT B MIS,10HS TAG BYTE,10H 0 PE     /
      DATA (P990MSG(0378,J),J=1,4) /10HAC2 3.21A ,
     .10HPORT B MIS,10HS TAG BYTE,10H 1 PE     /
      DATA (P990MSG(0379,J),J=1,4) /10HAC2 3.21A ,
     .10HPORT B MIS,10HS TAG BYTE,10H 3 PE     /
      DATA (P990MSG(0380,J),J=1,4) /10HAC2 3.21A ,
     .10HPORT B MIS,10HS TAG BYTE,10H 4 PE     /
      DATA (P990MSG(0381,J),J=1,4) /10HAC2 3.10B ,
     .10HPE PAGE MA,10HP PAGE 0  ,10H          /
      DATA (P990MSG(0382,J),J=1,4) /10HAC2 3.10B ,
     .10HPE PAGE MA,10HP PAGE 1  ,10H          /
      DATA (P990MSG(0383,J),J=1,4) /10HAC2 3.10B ,
     .10HPE PAGE MA,10HP PAGE 2  ,10H          /
      DATA (P990MSG(0384,J),J=1,4) /10HAC2 3.10B ,
     .10HPE PAGE MA,10HP PAGE 3  ,10H          /
  
      DATA (P990MSG(0385,J),J=1,4) /10HBP3 3.1A  ,
     .10HBP3 MICRAN,10HD RGTR BYT,10HE 0/1 PE  /
      DATA (P990MSG(0386,J),J=1,4) /10HBP3 3.1A  ,
     .10HBP3 MICRAN,10HD RGTR BYT,10HE 2/3 PE  /
      DATA (P990MSG(0387,J),J=1,4) /10HBP3 3.1A  ,
     .10HBP3 MICRAN,10HD RGTR BYT,10HE 4/5 PE  /
      DATA (P990MSG(0388,J),J=1,4) /10HBP3 3.1A  ,
     .10HBP3 MICRAN,10HD RGTR BYT,10HE 6/7 PE  /
      DATA (P990MSG(0389,J),J=1,4) /10HBP3 3.11A ,
     .10HIMMEDIATE ,10HBYTE PE   ,10H          /
      DATA (P990MSG(0390,J),J=1,4) /10HBP3 3.14B ,
     .10HBFR ADDRES,10HS PE      ,10H          /
      DATA (P990MSG(0391,J),J=1,4) /10HBP3 3.15B ,
     .10HREGISTER F,10HILE A ADDR,10HESS PE    /
      DATA (P990MSG(0392,J),J=1,4) /10HBP3 3.15F ,
     .10HREGISTER F,10HILE B ADDR,10HESS PE    /
      DATA (P990MSG(0393,J),J=1,4) /10HBP3 3.16C ,
     .10HREGISTER F,10HILE A PE  ,10H          /
      DATA (P990MSG(0394,J),J=1,4) /10HBP3 3.29E ,
     .10HEDIT MASK ,10HPE        ,10H          /
      DATA (P990MSG(0395,J),J=1,4) /10HBP3 3.25B ,
     .10HCONVERT TO,10H DECIMAL P,10HE         /
      DATA (P990MSG(0396,J),J=1,4) /10HBP3 3.20A ,
     .10HC STREAM S,10HTAGE 2 DAT,10HA PE      /
      DATA (P990MSG(0397,J),J=1,4) /10HBP3 3.2A  ,
     .10HAJ DESCRIP,10HTOR PE    ,10H          /
      DATA (P990MSG(0398,J),J=1,4) /10HBP3 3.2D  ,
     .10HAK DESCRIP,10HTOR PE    ,10H          /
      DATA (P990MSG(0399,J),J=1,4) /10HBP3 3.5C  ,
     .10HA STREAM S,10HTAGE 2 DAT,10HA PE      /
      DATA (P990MSG(0400,J),J=1,4) /10HBP3 3.8C  ,
     .10HB STREAM S,10HTAGE 2 DAT,10HA PE      /
      DATA (P990MSG(0401,J),J=1,4) /10HBP3 3.13B ,
     .10HCOMMON STA,10HGE 7 DATA ,10HPE        /
      DATA (P990MSG(0402,J),J=1,4) /10HBP3 3.15A ,
     .10HTABLE LOAD,10H LIMIT RGT,10HR PE      /
      DATA (P990MSG(0403,J),J=1,4) /10HBP3 3.16D ,
     .10HREGISTER F,10HILE B PE  ,10H          /
      DATA (P990MSG(0404,J),J=1,4) /10HBP3 3.23C ,
     .10HBINARY/DEC,10HIMAL RAM A,10HDDRESS PE /
      DATA (P990MSG(0405,J),J=1,4) /10HBP3 3.22C ,
     .10HTRANSLATE ,10HRAM ADDRES,10HS PE      /
      DATA (P990MSG(0406,J),J=1,4) /10HBP3 3.3B  ,
     .10HSPEC ERR/M,10HULT BY 256,10H ADRS PE  /
      DATA (P990MSG(0407,J),J=1,4) /10HBP3 3.3B  ,
     .10HSPEC ERR/M,10HULT 256 RA,10HM OUT PE  /
      DATA (P990MSG(0408,J),J=1,4) /10HBP3 3.5C  ,
     .10HA STREAM S,10HTAGE 1 DAT,10HA PE      /
      DATA (P990MSG(0409,J),J=1,4) /10HBP3 3.22C ,
     .10HTRANSLATE ,10HRAM DATA P,10HE         /
      DATA (P990MSG(0410,J),J=1,4) /10HBP3 3.23E ,
     .10HBINARY/DEC,10HIMAL RAM D,10HATA PE    /
      DATA (P990MSG(0411,J),J=1,4) /10HBP3 3.8C  ,
     .10HB STREAM S,10HTAGE 1 DAT,10HA PE      /
      DATA (P990MSG(0412,J),J=1,4) /10HCMC 3.32A ,
     .10HPW ADDRESS,10H PE       ,10H          /
      DATA (P990MSG(0413,J),J=1,4) /10HCMC 3.27F ,
     .10HMAINTENANC,10HE RGTR WRI,10HTE DATA PE/
      DATA (P990MSG(0414,J),J=1,4) /10HAC1 3.36B ,
     .10HSCM 2 PE  ,10H          ,10H          /
      DATA (P990MSG(0415,J),J=1,4) /10HAC1 3.37C ,
     .10HSCM 3 PE  ,10H          ,10H          /
      DATA (P990MSG(0416,J),J=1,4) /10HAC1 3.37B ,
     .10HRANK 4 SOF,10HT CONTROL ,10HRGTR PE   /
      DATA (P990MSG(0417,J),J=1,4) /10HAC1 3.15B ,
     .10HTRANSFER C,10HOUNT PE   ,10H          /
      DATA (P990MSG(0418,J),J=1,4) /10HAC1 3.17A ,
     .10HINSTRUCT D,10HESCRPTR RE,10HG BYTE0 PE/
      DATA (P990MSG(0419,J),J=1,4) /10HAC1 3.17A ,
     .10HINSTRUCT D,10HESCRPTR RE,10HG BYTE1 PE/
      DATA (P990MSG(0420,J),J=1,4) /10HAC1 3.17A ,
     .10HINSTRUCT D,10HESCRPTR RE,10HG BYTE2 PE/
      DATA (P990MSG(0421,J),J=1,4) /10HAC1 3.15C ,
     .10HBDP DESCRI,10HPTOR BYTES,10H 0 AND 1  /
      DATA (P990MSG(0422,J),J=1,4) /10HAC1 3.15C ,
     .10HBDP DESCRI,10HPTOR BYTES,10H 2 AND 3  /
      DATA (P990MSG(0423,J),J=1,4) /10HAC1 3.15C ,
     .10HBDP DESCRI,10HPTOR BYTES,10H 4 AND 5  /
      DATA (P990MSG(0424,J),J=1,4) /10HAC1 3.15C ,
     .10HBDP DESCRI,10HPTOR BYTES,10H 6 AND 7  /
      DATA (P990MSG(0425,J),J=1,4) /10HAC1 3.0D  ,
     .10HM1 MICRAND,10H RGTR BYTE,10H 1 PE     /
      DATA (P990MSG(0426,J),J=1,4) /10HAC1 3.0D  ,
     .10HM1 MICRAND,10H RGTR BYTE,10H 2 PE     /
      DATA (P990MSG(0427,J),J=1,4) /10HAC1 3.0D  ,
     .10HM1 MICRAND,10H RGTR BYTE,10H 3 PE     /
      DATA (P990MSG(0428,J),J=1,4) /10HAC1 3.0D  ,
     .10HM1 MICRAND,10H RGTR BYTE,10H 4 PE     /
      DATA (P990MSG(0429,J),J=1,4) /10HAC1 3.16A ,
     .10HP RIGHT RG,10HTR BYTE 4 ,10HPE        /
      DATA (P990MSG(0430,J),J=1,4) /10HAC1 3.16A ,
     .10HP RIGHT RG,10HTR BYTE 5 ,10HPE        /
      DATA (P990MSG(0431,J),J=1,4) /10HAC1 3.16A ,
     .10HP RIGHT RG,10HTR BYTE 6 ,10HPE        /
      DATA (P990MSG(0432,J),J=1,4) /10HAC1 3.16A ,
     .10HP RIGHT RG,10HTR BYTE 7 ,10HPE        /
      DATA (P990MSG(0433,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM MUX/REG,10H BYTE 4 PE/
      DATA (P990MSG(0434,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM MUX/REG,10H BYTE 5 PE/
      DATA (P990MSG(0435,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM MUX/REG,10H BYTE 6 PE/
      DATA (P990MSG(0436,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM MUX/REG,10H BYTE 7 PE/
      DATA (P990MSG(0437,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM BUF REG,10H BYTE 4 PE/
      DATA (P990MSG(0438,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM BUF REG,10H BYTE 5 PE/
      DATA (P990MSG(0439,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM BUF REG,10H BYTE 6 PE/
      DATA (P990MSG(0440,J),J=1,4) /10HAC1 3.18D ,
     .10HSVA BYTE N,10HUM BUF REG,10H BYTE 7 PE/
      DATA (P990MSG(0441,J),J=1,4) /10HAC1 3.18A ,
     .10HBYTE NUM H,10HOLDING REG,10H BYTE 4 PE/
      DATA (P990MSG(0442,J),J=1,4) /10HAC1 3.18A ,
     .10HBYTE NUM H,10HOLDING REG,10H BYTE 5 PE/
      DATA (P990MSG(0443,J),J=1,4) /10HAC1 3.18A ,
     .10HBYTE NUM H,10HOLDING REG,10H BYTE 6 PE/
      DATA (P990MSG(0444,J),J=1,4) /10HAC1 3.18A ,
     .10HBYTE NUM H,10HOLDING REG,10H BYTE 7 PE/
      DATA (P990MSG(0445,J),J=1,4) /10HAC1 3.19C ,
     .10HINCR ADDER,10H OP B REG ,10HBYTE 4 PE /
      DATA (P990MSG(0446,J),J=1,4) /10HAC1 3.19C ,
     .10HINCR ADDER,10H OP B REG ,10HBYTE 5 PE /
      DATA (P990MSG(0447,J),J=1,4) /10HAC1 3.19C ,
     .10HINCR ADDER,10H OP B REG ,10HBYTE 6 PE /
      DATA (P990MSG(0448,J),J=1,4) /10HAC1 3.19C ,
     .10HINCR ADDER,10H OP B REG ,10HBYTE 7 PE /
  
      DATA (P990MSG(0449,J),J=1,4) /10HAC1 3.37A ,
     .10HSEG DSCRPT,10HR RMA ADDE,10HR BYTE4 PE/
      DATA (P990MSG(0450,J),J=1,4) /10HAC1 3.37A ,
     .10HSEG DSCRPT,10HR RMA ADDE,10HR BYTE5 PE/
      DATA (P990MSG(0451,J),J=1,4) /10HAC1 3.37A ,
     .10HSEG DSCRPT,10HR RMA ADDE,10HR BYTE6 PE/
      DATA (P990MSG(0452,J),J=1,4) /10HAC1 3.37A ,
     .10HSEG DSCRPT,10HR RMA ADDE,10HR BYTE7 PE/
      DATA (P990MSG(0453,J),J=1,4) /10HAC1 3.37A ,
     .10HSEG DSCRPT,10HR RMA CARY,10H ERR BYTE5/
      DATA (P990MSG(0454,J),J=1,4) /10HAC1 3.37A ,
     .10HSEG DSCRPT,10HR RMA CARY,10H ERR BYTE6/
      DATA (P990MSG(0455,J),J=1,4) /10HAC1 3.37A ,
     .10HSEG DSCRPT,10HR RMA CARY,10H ERR BYTE7/
      DATA (P990MSG(0456,J),J=1,4) /10HAC1 3.22A ,
     .10HLENGTH RGT,10HR PE      ,10H          /
      DATA (P990MSG(0457,J),J=1,4) /10HAC1 3.37B ,
     .10HRNK 4 SEG ,10HDSCRPTR RE,10HG BYTE4 PE/
      DATA (P990MSG(0458,J),J=1,4) /10HAC1 3.37B ,
     .10HRNK 4 SEG ,10HDSCRPTR RE,10HG BYTE5 PE/
      DATA (P990MSG(0459,J),J=1,4) /10HAC1 3.34E ,
     .10HRNK 4 SEG ,10HDSCRPTR RE,10HG BYTE7 PE/
      DATA (P990MSG(0460,J),J=1,4) /10HAC1 3.17A ,
     .10HINST DSCRP,10HTR REG BYT,10HE0 PE CPY2/
      DATA (P990MSG(0461,J),J=1,4) /10HAC1 3.23G ,
     .10HSEG TBL LN,10HGTH RGTR B,10HYTE 4 PE  /
      DATA (P990MSG(0462,J),J=1,4) /10HAC1 3.23G ,
     .10HSTL REG/CO,10HMPARATOR B,10HITS4-11 PE/
      DATA (P990MSG(0463,J),J=1,4) /10HAC1 3.37C ,
     .10HRNK3 FUN C,10HODE REG/BU,10HF BYTE0 PE/
      DATA (P990MSG(0464,J),J=1,4) /10HAC1 3.37B ,
     .10HSCM 4 FUNC,10H CODE RGTR,10H BYTE 0 PE/
      DATA (P990MSG(0465,J),J=1,4) /10HAC1 3.3A  ,
     .10HLSU TAG RA,10HNK 3 REG/B,10HUF 5-12 PE/
      DATA (P990MSG(0466,J),J=1,4) /10HAC1 3.4A  ,
     .10HRANK 5 LSU,10H TAG RGTR ,10HBYTE 0 PE /
      DATA (P990MSG(0467,J),J=1,4) /10HAC1 3.4A  ,
     .10HRANK 5 LSU,10H TAG RGTR ,10HBYTE 1 PE /
      DATA (P990MSG(0468,J),J=1,4) /10HAC1 3.4A  ,
     .10HRANK 5 LSU,10H TAG RGTR ,10HBYTE 3 PE /
      DATA (P990MSG(0469,J),J=1,4) /10HAC1 3.37B ,
     .10HVCTR LGTH ,10HRNK4 REG B,10HIT58-65 PE/
      DATA (P990MSG(0470,J),J=1,4) /10HAC1 3.4A  ,
     .10HRANK 5 LSU,10H TAG RGTR ,10HBYTE 0 PE /
      DATA (P990MSG(0471,J),J=1,4) /10HAC1 3.4A  ,
     .10HRANK 5 LSU,10H TAG RGTR ,10HBYTE 1 PE /
      DATA (P990MSG(0472,J),J=1,4) /10HAC1 3.4A  ,
     .10HRANK 5 LSU,10H TAG RGTR ,10HBYTE 3 PE /
      DATA (P990MSG(0473,J),J=1,4) /10HAC1 3.7A  ,
     .10HSCM 2 INVA,10HLID FUNCTI,10HON CODE   /
      DATA (P990MSG(0474,J),J=1,4) /10HAC1 3.10A ,
     .10HSCM 3 INVA,10HLID FUNCTI,10HON CODE   /
      DATA (P990MSG(0475,J),J=1,4) /10HAC1 3.36B ,
     .10HP LEFT REG,10H RNG & SEG,10H BYTE 2 PE/
      DATA (P990MSG(0476,J),J=1,4) /10HAC1 3.36B ,
     .10HP LEFT REG,10H RNG & SEG,10H BYTE 3 PE/
      DATA (P990MSG(0477,J),J=1,4) /10HAC1 3.37B ,
     .10HRING/SEG R,10HGTR RANK 4,10H BYTE 2 PE/
      DATA (P990MSG(0478,J),J=1,4) /10HAC1 3.37B ,
     .10HRING/SEG R,10HGTR RANK 4,10H BYTE 3 PE/
      DATA (P990MSG(0479,J),J=1,4) /10HAC1 3.24C ,
     .10HRANK 3 RNG,10H & SEG REG,10H BYTE 2 PE/
      DATA (P990MSG(0480,J),J=1,4) /10HAC1 3.24C ,
     .10HRANK 3 RNG,10H & SEG REG,10H BYTE 3 PE/
      DATA (P990MSG(0481,J),J=1,4) /10HAC1 3.24A ,
     .10HRING/SEG H,10HOLD RGTR B,10HYTE 2 PE  /
      DATA (P990MSG(0482,J),J=1,4) /10HAC1 3.24A ,
     .10HRING/SEG H,10HOLD RGTR B,10HYTE 3 PE  /
      DATA (P990MSG(0483,J),J=1,4) /10HAC1 3.4B  ,
     .10HRANK 5 LNG,10HTH REG BIT,10HS 50-57 PE/
      DATA (P990MSG(0484,J),J=1,4) /10HAC1 3.4B  ,
     .10HRANK 5 LNG,10HTH REG BIT,10HS 58-65 PE/
      DATA (P990MSG(0485,J),J=1,4) /10HAC1 3.32A ,
     .10HP LEFT RGT,10HR KEYS BYT,10HE 0 PE    /
      DATA (P990MSG(0486,J),J=1,4) /10HAC1 3.32A ,
     .10HP LEFT RGT,10HR KEYS BYT,10HE 1 PE    /
      DATA (P990MSG(0487,J),J=1,4) /10HAC1 3.32A ,
     .10HP LEFT RGT,10HR/ SEGMENT,10H BYTE 2 PE/
      DATA (P990MSG(0488,J),J=1,4) /10HAC1 3.32A ,
     .10HP LEFT RGT,10HR/ SEGMENT,10H BYTE 3 PE/
      DATA (P990MSG(0489,J),J=1,4) /10HAC1 3.34E ,
     .10HSEG NUMBER,10H HOLD RGTR,10H BYTE 2 PE/
      DATA (P990MSG(0490,J),J=1,4) /10HAC1 3.34E ,
     .10HSEG NUMBER,10H HOLD RGTR,10H BYTE 3 PE/
      DATA (P990MSG(0491,J),J=1,4) /10HAC1 3.34E ,
     .10HRING NUMBE,10HR HOLD REG,10H BYTE 2 PE/
      DATA (P990MSG(0492,J),J=1,4) /10HAC1 3.37C ,
     .10HPORT B LNG,10HTH CNTR BI,10HTS 0-7 PE /
      DATA (P990MSG(0493,J),J=1,4) /10HAC1 3.26A ,
     .10HASID HOLDI,10HNG RGTR BY,10HTE 2 PE   /
      DATA (P990MSG(0494,J),J=1,4) /10HAC1 3.26A ,
     .10HASID HOLDI,10HNG RGTR BY,10HTE 3 PE   /
      DATA (P990MSG(0495,J),J=1,4) /10HAC1 3.37B ,
     .10HASID RGTR ,10HRANK 4 BYT,10HE 2 PE    /
      DATA (P990MSG(0496,J),J=1,4) /10HAC1 3.37B ,
     .10HASID RGTR ,10HRANK 4 BYT,10HE 3 PE    /
      DATA (P990MSG(0497,J),J=1,4) /10HAC1 3.34E ,
     .10HGLOBAL KEY,10H HOLD RGTR,10H BYTE 0 PE/
      DATA (P990MSG(0498,J),J=1,4) /10HAC1 3.37C ,
     .10HRAC & FLC ,10HREG & COMP,10H BYTE 5 PE/
      DATA (P990MSG(0499,J),J=1,4) /10HAC1 3.37C ,
     .10HRAC & FLC ,10HREG & COMP,10H BYTE 6 PE/
      DATA (P990MSG(0500,J),J=1,4) /10HAC1 3.37C ,
     .10HRAC & FLC ,10HREG & COMP,10HT 56-60 PE/
      DATA (P990MSG(0501,J),J=1,4) /10HAC1 3.34C ,
     .10HLOCAL KEY ,10HHOLD RGTR ,10HBYTE 7 PE /
      DATA (P990MSG(0502,J),J=1,4) /10HAC1 3.37C ,
     .10HRAC & FLC ,10HREG & COMP,10H BYTE 5 PE/
      DATA (P990MSG(0503,J),J=1,4) /10HAC1 3.37C ,
     .10HRAE & FLE ,10HREG & COMP,10H BYTE 6 PE/
      DATA (P990MSG(0504,J),J=1,4) /10HAC1 3.37C ,
     .10HRAE & FLE ,10HREG & COMP,10HT 56-60 PE/
      DATA (P990MSG(0505,J),J=1,4) /10HAC1 3.31E ,
     .10HSEGMENT MA,10HP 1 PE    ,10H          /
      DATA (P990MSG(0506,J),J=1,4) /10HAC1 3.31D ,
     .10HSEGMENT MA,10HP 0 PE    ,10H          /
      DATA (P990MSG(0507,J),J=1,4) /10HAC1 3.37C ,
     .10HMULTIPLE S,10HEGMENT MAP,10H HITS     /
      DATA (P990MSG(0508,J),J=1,4) /10HAC1 3.37C ,
     .10HPORT B LNG,10HTH CNTR BI,10HTS 8-15 PE/
      DATA (P990MSG(0509,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0510,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0511,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0512,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
  
      DATA (P990MSG(0513,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0514,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0515,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0516,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0517,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0518,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0519,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0520,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0521,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 0 PE   /
      DATA (P990MSG(0522,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 1 PE   /
      DATA (P990MSG(0523,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 2 PE   /
      DATA (P990MSG(0524,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 3 PE   /
      DATA (P990MSG(0525,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 4 PE   /
      DATA (P990MSG(0526,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 5 PE   /
      DATA (P990MSG(0527,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 6 PE   /
      DATA (P990MSG(0528,J),J=1,4) /10HLSU 3.22C ,
     .10HLOAD BDP M,10HUX/RGTR BY,10HTE 7 PE   /
      DATA (P990MSG(0529,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 0 PE /
      DATA (P990MSG(0530,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 1 PE /
      DATA (P990MSG(0531,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 2 PE /
      DATA (P990MSG(0532,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 3 PE /
      DATA (P990MSG(0533,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 4 PE /
      DATA (P990MSG(0534,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 5 PE /
      DATA (P990MSG(0535,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 6 PE /
      DATA (P990MSG(0536,J),J=1,4) /10HLSU 3.22A ,
     .10HLOAD STATE,10H MUX/RGTR ,10HBYTE 7 PE /
      DATA (P990MSG(0537,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 0 PE /
      DATA (P990MSG(0538,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 1 PE /
      DATA (P990MSG(0539,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 2 PE /
      DATA (P990MSG(0540,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 3 PE /
      DATA (P990MSG(0541,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 4 PE /
      DATA (P990MSG(0542,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 5  PE / 
      DATA (P990MSG(0543,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 6 PE /
      DATA (P990MSG(0544,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUT RGTR ,10HBYTE 7 PE /
      DATA (P990MSG(0545,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 0/
      DATA (P990MSG(0546,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 1/
      DATA (P990MSG(0547,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 2/
      DATA (P990MSG(0548,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 3/
      DATA (P990MSG(0549,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 4/
      DATA (P990MSG(0550,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 5/
      DATA (P990MSG(0551,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 6/
      DATA (P990MSG(0552,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 1 BYTE 7/
      DATA (P990MSG(0553,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 0/
      DATA (P990MSG(0554,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 1/
      DATA (P990MSG(0555,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 2/
      DATA (P990MSG(0556,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 3/
      DATA (P990MSG(0557,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 4/
      DATA (P990MSG(0558,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 5/
      DATA (P990MSG(0559,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 6/
      DATA (P990MSG(0560,J),J=1,4) /10HLSU 3.30B ,
     .10HA DATA BUF,10H OUTPUT RE,10HG 2 BYTE 7/
      DATA (P990MSG(0561,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 0 /
      DATA (P990MSG(0562,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 1 /
      DATA (P990MSG(0563,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 2 /
      DATA (P990MSG(0564,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 3 /
      DATA (P990MSG(0565,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 4 /
      DATA (P990MSG(0566,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 5 /
      DATA (P990MSG(0567,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 6 /
      DATA (P990MSG(0568,J),J=1,4) /10HLSU 3.20A ,
     .10HB DATA BUF,10H OUTPUT RG,10HTR BYTE 7 /
      DATA (P990MSG(0569,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 0      /
      DATA (P990MSG(0570,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 1      /
      DATA (P990MSG(0571,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 2      /
      DATA (P990MSG(0572,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 3      /
      DATA (P990MSG(0573,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 4      /
      DATA (P990MSG(0574,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 5      /
      DATA (P990MSG(0575,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 6      /
      DATA (P990MSG(0576,J),J=1,4) /10HLSU 3.20C ,
     .10HB INPUT DA,10HTA RGTR BY,10HTE 7      /
  
      DATA (P990MSG(0577,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H0         /
      DATA (P990MSG(0578,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H1         /
      DATA (P990MSG(0579,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H2         /
      DATA (P990MSG(0580,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H3         /
      DATA (P990MSG(0581,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H4         /
      DATA (P990MSG(0582,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H5         /
      DATA (P990MSG(0583,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H6         /
      DATA (P990MSG(0584,J),J=1,4) /10HLSU 3.20F ,
     .10HLOAD X RGT,10HR PE BYTE ,10H7         /
      DATA (P990MSG(0585,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 0/
      DATA (P990MSG(0586,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 1/
      DATA (P990MSG(0587,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 2/
      DATA (P990MSG(0588,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 3/
      DATA (P990MSG(0589,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 4/
      DATA (P990MSG(0590,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 5/
      DATA (P990MSG(0591,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 6/
      DATA (P990MSG(0592,J),J=1,4) /10HLSU 3.43B ,
     .10HSTORE DATA,10H INP MUX/R,10HGTR BYTE 7/
      DATA (P990MSG(0593,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 0   /
      DATA (P990MSG(0594,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 1   /
      DATA (P990MSG(0595,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 2   /
      DATA (P990MSG(0596,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 3   /
      DATA (P990MSG(0597,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 4   /
      DATA (P990MSG(0598,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 5   /
      DATA (P990MSG(0599,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 6   /
      DATA (P990MSG(0600,J),J=1,4) /10HLSU 3.54B ,
     .10HSTORE DATA,10H OUTPUT PE,10H BYTE 7   /
      DATA (P990MSG(0601,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 0/
      DATA (P990MSG(0602,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 1/
      DATA (P990MSG(0603,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 2/
      DATA (P990MSG(0604,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 3/
      DATA (P990MSG(0605,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 4/
      DATA (P990MSG(0606,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 5/
      DATA (P990MSG(0607,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 6/
      DATA (P990MSG(0608,J),J=1,4) /10HLSU 3.50B ,
     .10HSTORE DATA,10H MUX/REG 3,10H PE BYTE 7/
      DATA (P990MSG(0609,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 0/
      DATA (P990MSG(0610,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 1/
      DATA (P990MSG(0611,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 2/
      DATA (P990MSG(0612,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 3/
      DATA (P990MSG(0613,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 4/
      DATA (P990MSG(0614,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 5/
      DATA (P990MSG(0615,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 6/
      DATA (P990MSG(0616,J),J=1,4) /10HLSU 3.23G ,
     .10HLOAD A INP,10H DATA RGTR,10H PE BYTE 7/
      DATA (P990MSG(0617,J),J=1,4) /10HLSU 3.24A ,
     .10H170 RAC RG,10HTR PE BYTE,10H 0        /
      DATA (P990MSG(0618,J),J=1,4) /10HLSU 3.24A ,
     .10H170 RAC RG,10HTR PE BYTE,10H 1        /
      DATA (P990MSG(0619,J),J=1,4) /10HLSU 3.24A ,
     .10H170 RAC RG,10HTR PE BYTE,10H 2        /
      DATA (P990MSG(0620,J),J=1,4) /10HLSU 3.24A ,
     .10H170 RAC RG,10HTR PE BYTE,10H 3        /
      DATA (P990MSG(0621,J),J=1,4) /10HLSU 3.24C ,
     .10H170 TEMPOR,10HARY RGTR P,10HE BYTE 0  /
      DATA (P990MSG(0622,J),J=1,4) /10HLSU 3.24C ,
     .10H170 TEMPOR,10HARY RGTR P,10HE BYTE 1  /
      DATA (P990MSG(0623,J),J=1,4) /10HLSU 3.24C ,
     .10H170 TEMPOR,10HARY RGTR P,10HE BYTE 2  /
      DATA (P990MSG(0624,J),J=1,4) /10HLSU 3.24C ,
     .10H170 TEMPOR,10HARY RGTR P,10HE BYTE 3  /
      DATA (P990MSG(0625,J),J=1,4) /10HLSU 3.54B ,
     .10HMARK OUTPU,10HT PE      ,10H          /
      DATA (P990MSG(0626,J),J=1,4) /10HLSU 3.51C ,
     .10HBDP MARK L,10HINES RGTR ,10HPE        /
      DATA (P990MSG(0627,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUFFER,10H INPUT REG,10H PE BYTE 6/
      DATA (P990MSG(0628,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUFFER,10H INPUT REG,10H PE BYTE 7/
      DATA (P990MSG(0629,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUFFER,10H INPUT REG,10H PE BYTE 8/
      DATA (P990MSG(0630,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUFFER,10H INPUT REG,10H PE BYTE 9/
      DATA (P990MSG(0631,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUFFER,10H INP RGTR ,10HPE BYTE 10/
      DATA (P990MSG(0632,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUFFER,10H INP RGTR ,10HPE BYTE 11/
      DATA (P990MSG(0633,J),J=1,4) /10HLSU 3.39C ,
     .10HBDP STORE ,10HCONTROL RG,10HTR PE     /
      DATA (P990MSG(0634,J),J=1,4) /10HLSU 3.4B  ,
     .10HBDP LOAD C,10HONTROL INP,10HUT RGTR PE/
      DATA (P990MSG(0635,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUF OU,10HTPUT RGTR ,10HPE BYTE 6 /
      DATA (P990MSG(0636,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUF OU,10HTPUT RGTR ,10HPE BYTE 7 /
      DATA (P990MSG(0637,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUF OU,10HTPUT RGTR ,10HPE BYTE 8 /
      DATA (P990MSG(0638,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUF OU,10HTPUT RGTR ,10HPE BYTE 9 /
      DATA (P990MSG(0639,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUF OU,10HTPUT RGTR ,10HPE BYTE 10/
      DATA (P990MSG(0640,J),J=1,4) /10HLSU 3.5A  ,
     .10HHIT BUF OU,10HTPUT RGTR ,10HPE BYTE 11/
  
      DATA (P990MSG(0641,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 0      /
      DATA (P990MSG(0642,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 1      /
      DATA (P990MSG(0643,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 2      /
      DATA (P990MSG(0644,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 3      /
      DATA (P990MSG(0645,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 4      /
      DATA (P990MSG(0646,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 5      /
      DATA (P990MSG(0647,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 6      /
      DATA (P990MSG(0648,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 7      /
      DATA (P990MSG(0649,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 8      /
      DATA (P990MSG(0650,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 9      /
      DATA (P990MSG(0651,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 10     /
      DATA (P990MSG(0652,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 11     /
      DATA (P990MSG(0653,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 12     /
      DATA (P990MSG(0654,J),J=1,4) /10HLSU 3.8A  ,
     .10HLOAD CONTR,10HOL 1 PE BY,10HTE 13     /
      DATA (P990MSG(0655,J),J=1,4) /10HLSU 3.36B ,
     .10HVECTOR CON,10HTROL INPUT,10H RGTR PE  /
      DATA (P990MSG(0656,J),J=1,4) /10HLSU 3.2D  ,
     .10HILLEGAL SO,10HFT CONTROL,10H ADDRESS  /
      DATA (P990MSG(0657,J),J=1,4) /10HLSU 3.8A  ,
     .10HIDU CONTRO,10HL RGTR PE ,10HBYTE 0    /
      DATA (P990MSG(0658,J),J=1,4) /10HLSU 3.8A  ,
     .10HIDU CONTRO,10HL RGTR PE ,10HBYTE 1    /
      DATA (P990MSG(0659,J),J=1,4) /10HLSU 3.8A  ,
     .10HIDU CONTRO,10HL RGTR PE ,10HBYTE 2    /
      DATA (P990MSG(0660,J),J=1,4) /10HLSU 3.8A  ,
     .10HIDU CONTRO,10HL RGTR PE ,10HBYTE 3    /
      DATA (P990MSG(0661,J),J=1,4) /10HLSU 3.8A  ,
     .10HIDU CONTRO,10HL RGTR PE ,10HBYTE 12   /
      DATA (P990MSG(0662,J),J=1,4) /10HLSU 3.8A  ,
     .10HACU LOAD C,10HONTROL REG,10H PE BYTE 6/
      DATA (P990MSG(0663,J),J=1,4) /10HLSU 3.8A  ,
     .10HACU LOAD C,10HONTROL REG,10H PE BYTE 7/
      DATA (P990MSG(0664,J),J=1,4) /10HLSU 3.8A  ,
     .10HACU LOAD C,10HONTROL REG,10H PE BYTE 8/
      DATA (P990MSG(0665,J),J=1,4) /10HLSU 3.32A ,
     .10HACU LOAD C,10HONTROL REG,10H PE BYTE 0/
      DATA (P990MSG(0666,J),J=1,4) /10HLSU 3.32A ,
     .10HACU LOAD C,10HONTROL REG,10H PE BYTE 1/
      DATA (P990MSG(0667,J),J=1,4) /10HLSU 3.0A  ,
     .10HIDU LOAD C,10HNTRL IN RE,10HG PE BYTE0/
      DATA (P990MSG(0668,J),J=1,4) /10HLSU 3.0A  ,
     .10HIDU LOAD C,10HNTR IN REG,10H PE BYTE12/
      DATA (P990MSG(0669,J),J=1,4) /10HLSU 3.0A  ,
     .10HIDU LOAD C,10HNTR IN REG,10H PE BYTE13/
      DATA (P990MSG(0670,J),J=1,4) /10HLSU 3.0A  ,
     .10HIDU LOAD C,10HNTR IN REG,10H PE BYTE14/
      DATA (P990MSG(0671,J),J=1,4) /10HLSU 3.0A  ,
     .10HIDU LOAD C,10HNTR IN REG,10H PE BYTE15/
      DATA (P990MSG(0672,J),J=1,4) /10HLSU 3.0A  ,
     .10HIDU LOAD C,10HNTR IN REG,10H PE BYTE16/
      DATA (P990MSG(0673,J),J=1,4) /10HLSU 3.33A ,
     .10HVECTOR TAG,10H OUT RGTR ,10HPE BYTE 0 /
      DATA (P990MSG(0674,J),J=1,4) /10HLSU 3.33A ,
     .10HVECTOR TAG,10H OUT RGTR ,10HPE BYTE 1 /
      DATA (P990MSG(0675,J),J=1,4) /10HLSU 3.1C  ,
     .10HACU B LOAD,10H CONTROL B,10HUF 0 ERR 4/
      DATA (P990MSG(0676,J),J=1,4) /10HLSU 3.1C  ,
     .10HACU B LOAD,10H CONTROL B,10HUF 0 ERR 5/
      DATA (P990MSG(0677,J),J=1,4) /10HLSU 3.1C  ,
     .10HACU B LOAD,10H CONTROL B,10HUF 0 ERR 6/
      DATA (P990MSG(0678,J),J=1,4) /10HLSU 3.1C  ,
     .10HACU B LOAD,10H CONTROL B,10HUF 1 ERR 4/
      DATA (P990MSG(0679,J),J=1,4) /10HLSU 3.1C  ,
     .10HACU B LOAD,10H CONTROL B,10HUF 1 ERR 5/
      DATA (P990MSG(0680,J),J=1,4) /10HLSU 3.1C  ,
     .10HACU B LOAD,10H CONTROL B,10HUF 1 ERR 6/
      DATA (P990MSG(0681,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 0 IN ,10HRGTR ERR 0/
      DATA (P990MSG(0682,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 0 IN ,10HRGTR ERR 1/
      DATA (P990MSG(0683,J),J=1,4) /10HLSU 3.1C  ,
     .10HIDU CNTRL ,10HBUF OUT RG,10HTR BYTE 12/
      DATA (P990MSG(0684,J),J=1,4) /10HLSU 3.1C  ,
     .10HIDU CNTRL ,10HBUF OUT RG,10HTR BYTE 13/
      DATA (P990MSG(0685,J),J=1,4) /10HLSU 3.1C  ,
     .10HIDU CNTRL ,10HBUF OUT RG,10HTR BYTE 14/
      DATA (P990MSG(0686,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 0 OUT,10H REG ERR 0/
      DATA (P990MSG(0687,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 0 OUT,10H REG ERR 1/
      DATA (P990MSG(0688,J),J=1,4) /10HLSU 3.1C  ,
     .10HIDU CNTRL ,10HBUF OUT RG,10HTR BYTE 15/
      DATA (P990MSG(0689,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 1 INP,10H REG ERR 0/
      DATA (P990MSG(0690,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 1 INP,10H REG ERR 1/
      DATA (P990MSG(0691,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 1 OUT,10H REG ERR 0/
      DATA (P990MSG(0692,J),J=1,4) /10HLSU 3.1C  ,
     .10HSOFT CNTRL,10H MEM 1 OUT,10H REG ERR 1/
      DATA (P990MSG(0693,J),J=1,4) /10HLSU 3.11A ,
     .10HLOAD CONTR,10HOL RGTR 2 ,10HBYTE 0    /
      DATA (P990MSG(0694,J),J=1,4) /10HLSU 3.11A ,
     .10HLOAD CONTR,10HOL RGTR 2 ,10HBYTE 1    /
      DATA (P990MSG(0695,J),J=1,4) /10HLSU 3.11A ,
     .10HLOAD CONTR,10HOL RGTR 2 ,10HBYTE 2    /
      DATA (P990MSG(0696,J),J=1,4) /10HLSU 3.11A ,
     .10HLOAD CONTR,10HOL RGTR 2 ,10HBYTE 8    /
      DATA (P990MSG(0697,J),J=1,4) /10HLSU 3.11A ,
     .10HLOAD CONTR,10HOL RGTR 3 ,10HBYTE 0    /
      DATA (P990MSG(0698,J),J=1,4) /10HLSU 3.4C  ,
     .10HINPUT MAC ,10HLOAD CONTR,10HOL RGTR   /
      DATA (P990MSG(0699,J),J=1,4) /10HLSU 3.25A ,
     .10HA OUTPUT M,10HUX/RGTR 1 ,10H          /
      DATA (P990MSG(0700,J),J=1,4) /10HLSU 3.25B ,
     .10HA OUTPUT M,10HUX/RGTR 2 ,10HBYTE 3    /
      DATA (P990MSG(0701,J),J=1,4) /10HLSU 3.25B ,
     .10HA OUTPUT M,10HUX/RGTR 2 ,10HBYTE 4    /
      DATA (P990MSG(0702,J),J=1,4) /10HLSU 3.25D ,
     .10HA OUTPUT M,10HUX/RGTR 3 ,10HBYTE 5    /
      DATA (P990MSG(0703,J),J=1,4) /10HLSU 3.25D ,
     .10HA OUTPUT M,10HUX/RGTR 3 ,10HBYTE 6    /
      DATA (P990MSG(0704,J),J=1,4) /10HLSU 3.25D ,
     .10HA OUTPUT M,10HUX/RGTR 3 ,10HBYTE 7    /
  
      DATA (P990MSG(0705,J),J=1,4) /10HLSU 3.39A ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 1 BYTE 0/
      DATA (P990MSG(0706,J),J=1,4) /10HLSU 3.39A ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 1 BYTE 1/
      DATA (P990MSG(0707,J),J=1,4) /10HLSU 3.39A ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 1 BYTE 2/
      DATA (P990MSG(0708,J),J=1,4) /10HLSU 3.39A ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 1 BYTE 4/
      DATA (P990MSG(0709,J),J=1,4) /10HLSU 3.39B ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 2 BYTE 0/
      DATA (P990MSG(0710,J),J=1,4) /10HLSU 3.39B ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 2 BYTE 1/
      DATA (P990MSG(0711,J),J=1,4) /10HLSU 3.39B ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 2 BYTE 2/
      DATA (P990MSG(0712,J),J=1,4) /10HLSU 3.39B ,
     .10HSTR PATH C,10HNTRL IN RE,10HG 2 BYTE 4/
      DATA (P990MSG(0713,J),J=1,4) /10HLSU 3.41A ,
     .10HSTORE CONT,10HROL SEL/BU,10HF 1 BYTE 0/
      DATA (P990MSG(0714,J),J=1,4) /10HLSU 3.41A ,
     .10HSTORE CONT,10HROL SEL/BU,10HF 1 BYTE 1/
      DATA (P990MSG(0715,J),J=1,4) /10HLSU 3.41A ,
     .10HSTORE CONT,10HROL SEL/BU,10HF 1 BYTE 2/
      DATA (P990MSG(0716,J),J=1,4) /10HLSU 3.41A ,
     .10HSTORE CONT,10HROL SEL/BU,10HF 1 BYTE 3/
      DATA (P990MSG(0717,J),J=1,4) /10HLSU 3.42A ,
     .10HSTORE CONT,10HROL REG 2/,10HBUF BYTE 0/
      DATA (P990MSG(0718,J),J=1,4) /10HLSU 3.42A ,
     .10HSTORE CONT,10HROL REG 2/,10HBUF BYTE 1/
      DATA (P990MSG(0719,J),J=1,4) /10HLSU 3.43A ,
     .10HSTORE CONT,10HROL RGTR 3,10HA BYTE 3  /
      DATA (P990MSG(0720,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0721,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0722,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0723,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0724,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0725,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0726,J),J=1,4) /10HINU 3.19A ,
     .10HISSUE TIME,10HOUT       ,10H          /
      DATA (P990MSG(0727,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H12 BYTE 0 ,10HPE        /
      DATA (P990MSG(0728,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H12 BYTE 1 ,10HPE        /
      DATA (P990MSG(0729,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H12 BYTE 2 ,10HPE        /
      DATA (P990MSG(0730,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H11 BYTE 0 ,10HPE        /
      DATA (P990MSG(0731,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H11 BYTE 1 ,10HPE        /
      DATA (P990MSG(0732,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H11 BYTE 2 ,10HPE        /
      DATA (P990MSG(0733,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H10 BYTE 0 ,10HPE        /
      DATA (P990MSG(0734,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H10 BYTE 1 ,10HPE        /
      DATA (P990MSG(0735,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H10 BYTE 2 ,10HPE        /
      DATA (P990MSG(0736,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H9 BYTE 0 P,10HE         /
      DATA (P990MSG(0737,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H9 BYTE 1 P,10HE         /
      DATA (P990MSG(0738,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H9 BYTE 2 P,10HE         /
      DATA (P990MSG(0739,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H8 BYTE 0 P,10HE         /
      DATA (P990MSG(0740,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H8 BYTE 1 P,10HE         /
      DATA (P990MSG(0741,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H8 BYTE 2 P,10HE         /
      DATA (P990MSG(0742,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H7 BYTE 0 P,10HE         /
      DATA (P990MSG(0743,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H7 BYTE 1 P,10HE         /
      DATA (P990MSG(0744,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H7 BYTE 2 P,10HE         /
      DATA (P990MSG(0745,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H6 BYTE 0 P,10HE         /
      DATA (P990MSG(0746,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H6 BYTE 1 P,10HE         /
      DATA (P990MSG(0747,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H6 BYTE 2 P,10HE         /
      DATA (P990MSG(0748,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H5 BYTE 0 P,10HE         /
      DATA (P990MSG(0749,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H5 BYTE 1 P,10HE         /
      DATA (P990MSG(0750,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H5 BYTE 2 P,10HE         /
      DATA (P990MSG(0751,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H4 BYTE 0 P,10HE         /
      DATA (P990MSG(0752,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H4 BYTE 1 P,10HE         /
      DATA (P990MSG(0753,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H4 BYTE 2 P,10HE         /
      DATA (P990MSG(0754,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H3 BYTE 0 P,10HE         /
      DATA (P990MSG(0755,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H3 BYTE 1 P,10HE         /
      DATA (P990MSG(0756,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H3 BYTE 2 P,10HE         /
      DATA (P990MSG(0757,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H2 BYTE 0 P,10HE         /
      DATA (P990MSG(0758,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H2 BYTE 1 P,10HE         /
      DATA (P990MSG(0759,J),J=1,4) /10HINU 3.23B ,
     .10HRPL STAGE ,10H2 BYTE 2 P,10HE         /
      DATA (P990MSG(0760,J),J=1,4) /10HINU 3.23B ,
     .10HRESULT ERR,10HOR TAG PE ,10H          /
      DATA (P990MSG(0761,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 1A TIM,10HEOUT      /
      DATA (P990MSG(0762,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 1B TIM,10HEOUT      /
      DATA (P990MSG(0763,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 2A TIM,10HEOUT      /
      DATA (P990MSG(0764,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 2B TIM,10HEOUT      /
      DATA (P990MSG(0765,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 3A TIM,10HEOUT      /
      DATA (P990MSG(0766,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 3B TIM,10HEOUT      /
      DATA (P990MSG(0767,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 4A TIM,10HEOUT      /
      DATA (P990MSG(0768,J),J=1,4) /10HINU 3.19A ,
     .10HPARTIAL IS,10HSUE 4B TIM,10HEOUT      /
  
      DATA (P990MSG(0769,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H INPUT REG,10H BYTE 0 PE/
      DATA (P990MSG(0770,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H INPUT REG,10H BYTE 1 PE/
      DATA (P990MSG(0771,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H INPUT REG,10H BYTE 2 PE/
      DATA (P990MSG(0772,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H INPUT REG,10H BYTE 3 PE/
      DATA (P990MSG(0773,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H MUX BYTE ,10H4 PE      /
      DATA (P990MSG(0774,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H MUX BYTE ,10H5 PE      /
      DATA (P990MSG(0775,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H MUX BYTE ,10H6 PE      /
      DATA (P990MSG(0776,J),J=1,4) /10HPSR 3.0B  ,
     .10HSTATE LOAD,10H MUX BYTE ,10H7 PE      /
      DATA (P990MSG(0777,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 0/
      DATA (P990MSG(0778,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 1/
      DATA (P990MSG(0779,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 2/
      DATA (P990MSG(0780,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 3/
      DATA (P990MSG(0781,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 4/
      DATA (P990MSG(0782,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 5/
      DATA (P990MSG(0783,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 6/
      DATA (P990MSG(0784,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H DATA RGTR,10H PE BYTE 7/
      DATA (P990MSG(0785,J),J=1,4) /10HPSR 3.26C ,
     .10HSTORE REGI,10HSTER PE BY,10HTE 0      /
      DATA (P990MSG(0786,J),J=1,4) /10HPSR 3.26C ,
     .10HSTORE REGI,10HSTER PE BY,10HTE 1      /
      DATA (P990MSG(0787,J),J=1,4) /10HPSR 3.26A ,
     .10HSTR TAG CM,10HPLETION RE,10HG PE BYTE0/
      DATA (P990MSG(0788,J),J=1,4) /10HPSR 3.26A ,
     .10HSTR TAG CM,10HPLETION RE,10HG PE BYTE1/
      DATA (P990MSG(0789,J),J=1,4) /10HPSR 3.27A ,
     .10HLOAD PATH ,10HTAG MUX 1 ,10HPE BYTE 0 /
      DATA (P990MSG(0790,J),J=1,4) /10HPSR 3.27A ,
     .10HLOAD PATH ,10HTAG RGTR 1,10H PE BYTE 1/
      DATA (P990MSG(0791,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H RGTR PE B,10HYTE 6     /
      DATA (P990MSG(0792,J),J=1,4) /10HPSR 3.0C  ,
     .10HSTATE LOAD,10H RGTR PE B,10HYTE 7     /
      DATA (P990MSG(0793,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 0    /
      DATA (P990MSG(0794,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 1    /
      DATA (P990MSG(0795,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 2    /
      DATA (P990MSG(0796,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 3    /
      DATA (P990MSG(0797,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 4    /
      DATA (P990MSG(0798,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 5    /
      DATA (P990MSG(0799,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 6    /
      DATA (P990MSG(0800,J),J=1,4) /10HPSR 3.23A ,
     .10HSTATE COPY,10H MUXES PE ,10HBYTE 7    /
      DATA (P990MSG(0801,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHG CALL,10H TRAP MUX ,10HPE BYTE 0 /
      DATA (P990MSG(0802,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHG CALL,10H TRAP MUX ,10HPE BYTE 1 /
      DATA (P990MSG(0803,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHANGE R,10HGTR PE BYT,10HE 2       /
      DATA (P990MSG(0804,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHANGE R,10HGTR PE BYT,10HE 3       /
      DATA (P990MSG(0805,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHANGE R,10HGTR PE BYT,10HE 4       /
      DATA (P990MSG(0806,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHANGE R,10HGTR PE BYT,10HE 5       /
      DATA (P990MSG(0807,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHANGE R,10HGTR PE BYT,10HE 6       /
      DATA (P990MSG(0808,J),J=1,4) /10HPSR 3.22B ,
     .10HEXCHANGE R,10HGTR PE BYT,10HE 7       /
      DATA (P990MSG(0809,J),J=1,4) /10HPSR 3.27B ,
     .10HLOAD PATH ,10HHISTORY TA,10HG REG 3 PE/
      DATA (P990MSG(0810,J),J=1,4) /10HPSR 3.27B ,
     .10HVIRTUAL MA,10HCHINE HIST,10HORY TAG PE/
      DATA (P990MSG(0811,J),J=1,4) /10HPSR 3.27B ,
     .10HLOAD PATH ,10HHISTORY TA,10HG MUX 2 PE/
      DATA (P990MSG(0812,J),J=1,4) /10HPSR 3.29B ,
     .10HHISTORY TA,10HG PE      ,10H          /
      DATA (P990MSG(0813,J),J=1,4) /10HPSR 3.28A ,
     .10HPSR TAG SE,10HLECT MUX P,10HE         /
      DATA (P990MSG(0814,J),J=1,4) /10HPSR 3.28A ,
     .10HPSR HISTOR,10HY TAG RGTR,10H 1 PE     /
      DATA (P990MSG(0815,J),J=1,4) /10HPSR 3.28A ,
     .10HPSR HISTOR,10HY TAG RGTR,10H 3 PE     /
      DATA (P990MSG(0816,J),J=1,4) /10HPSR 3.28A ,
     .10HPSR TAG RG,10HTR PE     ,10H          /
      DATA (P990MSG(0817,J),J=1,4) /10HPSR 3.24F ,
     .10HMAC DATA R,10HGTR PE    ,10H          /
      DATA (P990MSG(0818,J),J=1,4) /10HPSR 3.25B ,
     .10HDISASSEMBL,10HY RGTR PE ,10H          /
      DATA (P990MSG(0819,J),J=1,4) /10HPSR 3.2C  ,
     .10HUTP BUFFER,10H RGTR PE B,10HYTE 2     /
      DATA (P990MSG(0820,J),J=1,4) /10HPSR 3.2C  ,
     .10HUTP BUFFER,10H RGTR PE B,10HYTE 3     /
      DATA (P990MSG(0821,J),J=1,4) /10HPSR 3.2C  ,
     .10HUTP BUFFER,10H RGTR PE B,10HYTE 4     /
      DATA (P990MSG(0822,J),J=1,4) /10HPSR 3.2C  ,
     .10HUTP BUFFER,10H RGTR PE B,10HYTE 5     /
      DATA (P990MSG(0823,J),J=1,4) /10HPSR 3.2C  ,
     .10HUTP BUFFER,10H RGTR PE B,10HYTE 6     /
      DATA (P990MSG(0824,J),J=1,4) /10HPSR 3.2C  ,
     .10HUTP BUFFER,10H RGTR PE B,10HYTE 7     /
      DATA (P990MSG(0825,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H0 RGTR PE /
      DATA (P990MSG(0826,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H1 RGTR PE /
      DATA (P990MSG(0827,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H2 RGTR PE /
      DATA (P990MSG(0828,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H3 RGTR PE /
      DATA (P990MSG(0829,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H4 RGTR PE /
      DATA (P990MSG(0830,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H5 RGTR PE /
      DATA (P990MSG(0831,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H6 RGTR PE /
      DATA (P990MSG(0832,J),J=1,4) /10HPSR 3.25A ,
     .10HDATA ASSEM,10HBLER BYTE ,10H7 RGTR PE /
  
      DATA (P990MSG(0833,J),J=1,4) /10HPSR 3.19B ,
     .10HLOAD & VCT,10HR RESP COD,10HE PE BYTE0/
      DATA (P990MSG(0834,J),J=1,4) /10HPSR 3.19B ,
     .10HLOAD & VCT,10HR RESP COD,10HE PE BYTE1/
      DATA (P990MSG(0835,J),J=1,4) /10HPSR 3.19D ,
     .10HSTORE RESP,10HONSE CODE ,10HPE BYTE 0 /
      DATA (P990MSG(0836,J),J=1,4) /10HPSR 3.7B  ,
     .10HJPS POINTE,10HR PE BYTE ,10H4, 5      /
      DATA (P990MSG(0837,J),J=1,4) /10HPSR 3.7B  ,
     .10HJPS POINTE,10HR PE BYTE ,10H6, 7      /
      DATA (P990MSG(0838,J),J=1,4) /10HPSR 3.7B  ,
     .10HMM BYTES 6,10H, 7 OR UM ,10HBYTE 7 PE /
      DATA (P990MSG(0839,J),J=1,4) /10HPSR 3.2A  ,
     .10HMODEL DEPE,10HNDENT WORD,10H PE BYTE 0/
      DATA (P990MSG(0840,J),J=1,4) /10HPSR 3.2A  ,
     .10HMODEL DEPE,10HNDENT WORD,10H PE BYTE 1/
      DATA (P990MSG(0841,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0842,J),J=1,4) /10HPSR 3.7B  ,
     .10HPTL OR STL,10H OR KM PE ,10HBYTES 6, 7/
      DATA (P990MSG(0843,J),J=1,4) /10HPSR 3.3B  ,
     .10HBYTES 2 & ,10H3 BOARD A ,10HOUT MUX PE/
      DATA (P990MSG(0844,J),J=1,4) /10HPSR 3.3B  ,
     .10HBYTES 4 & ,10H5 BOARD A ,10HOUT MUX PE/
      DATA (P990MSG(0845,J),J=1,4) /10HPSR 3.3B  ,
     .10HBYTES 6 & ,10H7 BOARD A ,10HOUT MUX PE/
      DATA (P990MSG(0846,J),J=1,4) /10HPSR 3.5D  ,
     .10HBYTES 4 & ,10H5 BOARD B ,10HOUT MUX PE/
      DATA (P990MSG(0847,J),J=1,4) /10HPSR 3.5D  ,
     .10HBYTES 6 & ,10H7 BOARD B ,10HOUT MUX PE/
      DATA (P990MSG(0848,J),J=1,4) /10HPSR 3.7D  ,
     .10HBYTES 6 & ,10H7 BOARD C ,10HOUT MUX PE/
      DATA (P990MSG(0849,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0850,J),J=1,4) /10HPSR 3.0D  ,
     .10HDATA RESUL,10HT RGTR PE ,10HBYTE 0    /
      DATA (P990MSG(0851,J),J=1,4) /10HPSR 3.0D  ,
     .10HDATA RESUL,10HT RGTR PE ,10HBYTE 2    /
      DATA (P990MSG(0852,J),J=1,4) /10HPSR 3.0D  ,
     .10HDATA RESUL,10HT RGTR PE ,10HBYTE 3    /
      DATA (P990MSG(0853,J),J=1,4) /10HPSR 3.0D  ,
     .10HDATA RESUL,10HT RGTR PE ,10HBYTE 4    /
      DATA (P990MSG(0854,J),J=1,4) /10HPSR 3.0D  ,
     .10HDATA RESUL,10HT RGTR PE ,10HBYTE 5    /
      DATA (P990MSG(0855,J),J=1,4) /10HPSR 3.0D  ,
     .10HDATA RESUL,10HT RGTR PE ,10HBYTE 6    /
      DATA (P990MSG(0856,J),J=1,4) /10HPSR 3.0D  ,
     .10HDATA RESUL,10HT RGTR PE ,10HBYTE 7    /
      DATA (P990MSG(0857,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0858,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0859,J),J=1,4) /10HPSR 3.29B ,
     .10HPORT A RES,10HPONSE CODE,10H BIT 1    /
      DATA (P990MSG(0860,J),J=1,4) /10HPSR 3.29B ,
     .10HPORT A RES,10HPONSE CODE,10H BIT 2    /
      DATA (P990MSG(0861,J),J=1,4) /10HPSR 3.29B ,
     .10HPORT B RES,10HPONSE CODE,10H BIT 1    /
      DATA (P990MSG(0862,J),J=1,4) /10HPSR 3.29B ,
     .10HPORT B RES,10HPONSE CODE,10H BIT 2    /
      DATA (P990MSG(0863,J),J=1,4) /10HPSR 3.29B ,
     .10HPORT C RES,10HPONSE CODE,10H BIT 1    /
      DATA (P990MSG(0864,J),J=1,4) /10HPSR 3.29B ,
     .10HPORT C RES,10HPONSE CODE,10H BIT 2    /
      DATA (P990MSG(0865,J),J=1,4) /10HPSR 3.4F  ,
     .10HPTA PARITY,10H ERROR    ,10H          /
      DATA (P990MSG(0866,J),J=1,4) /10HPSR 3.30A ,
     .10HTEST RETRY,10H          ,10H          /
      DATA (P990MSG(0867,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0868,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0869,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0870,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0871,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0872,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0873,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0874,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0875,J),J=1,4) /10HPMF 3.2B  ,
     .10HRGTR 22 BY,10HTE 3 PE BI,10HTS 0-7    /
      DATA (P990MSG(0876,J),J=1,4) /10HPMF 3.2C  ,
     .10HRGTR 22 BY,10HTE 2 PE BI,10HTS 0-7    /
      DATA (P990MSG(0877,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 8 PE BI,10HTS 0-7    /
      DATA (P990MSG(0878,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 9 PE BI,10HTS 0-7    /
      DATA (P990MSG(0879,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 10 PE B,10HITS 0-7   /
      DATA (P990MSG(0880,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 11 PE B,10HITS 0-7   /
      DATA (P990MSG(0881,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 12 PE B,10HITS 0-7   /
      DATA (P990MSG(0882,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 13 PE B,10HITS 0-7   /
      DATA (P990MSG(0883,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 14 PE B,10HITS 0-7   /
      DATA (P990MSG(0884,J),J=1,4) /10HPMF 3.2A  ,
     .10HRGTR 22 BY,10HTE 15 PE B,10HITS 0-7   /
      DATA (P990MSG(0885,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0886,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0887,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0888,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0889,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0890,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0891,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0892,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0893,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0894,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0895,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0896,J),J=1,4) /10HPMF 3.7D  ,
     .10HLAST STAGE,10H OF PMF RE,10HAD MUX PE /
  
      DATA (P990MSG(0897,J),J=1,4) /10HINU 3.10B ,
     .10H180 INSTR ,10HMAP BYTE 0,10H PE       /
      DATA (P990MSG(0898,J),J=1,4) /10HINU 3.10B ,
     .10H180 INSTR ,10HMAP BYTE 1,10H PE       /
      DATA (P990MSG(0899,J),J=1,4) /10HINU 3.10B ,
     .10H180 INSTR ,10HMAP BYTE 2,10H PE       /
      DATA (P990MSG(0900,J),J=1,4) /10HINU 3.10B ,
     .10H180 INSTR ,10HMAP BYTE 3,10H PE       /
      DATA (P990MSG(0901,J),J=1,4) /10HINU 3.10B ,
     .10H180 INSTR ,10HMAP BYTE 4,10H PE       /
      DATA (P990MSG(0902,J),J=1,4) /10HINU 3.10B ,
     .10H180 INSTR ,10HMAP BYTE 5,10H PE       /
      DATA (P990MSG(0903,J),J=1,4) /10HINU 3.10B ,
     .10H170 INSTR ,10HMAP BYTE 0,10H PE       /
      DATA (P990MSG(0904,J),J=1,4) /10HINU 3.10B ,
     .10H170 INSTR ,10HMAP BYTE 1,10H PE       /
      DATA (P990MSG(0905,J),J=1,4) /10HINU 3.8C  ,
     .10HINSTRUCTIO,10HN OUT RGTR,10H BYTE 0 PE/
      DATA (P990MSG(0906,J),J=1,4) /10HINU 3.8C  ,
     .10HINSTRUCTIO,10HN OUT RGTR,10H BYTE 1 PE/
      DATA (P990MSG(0907,J),J=1,4) /10HINU 3.8C  ,
     .10HINSTRUCTIO,10HN OUT RGTR,10H BYTE 2 PE/
      DATA (P990MSG(0908,J),J=1,4) /10HINU 3.8C  ,
     .10HINSTRUCTIO,10HN OUT RGTR,10H BYTE 3 PE/
      DATA (P990MSG(0909,J),J=1,4) /10HINU 3.11B ,
     .10HINSTRUCT A,10HDRS OUT RE,10HG BYTE0 PE/
      DATA (P990MSG(0910,J),J=1,4) /10HINU 3.11B ,
     .10HINSTRUCT A,10HDRS OUT RE,10HG BYTE1 PE/
      DATA (P990MSG(0911,J),J=1,4) /10HINU 3.11B ,
     .10HINSTRUCT A,10HDRS OUT RE,10HG BYTE2 PE/
      DATA (P990MSG(0912,J),J=1,4) /10HINU 3.11B ,
     .10HINSTRUCT A,10HDRS OUT RE,10HG BYTE3 PE/
      DATA (P990MSG(0913,J),J=1,4) /10HINU 3.1C  ,
     .10HIBA RANK 1,10H RGTR BYTE,10H 4 PE     /
      DATA (P990MSG(0914,J),J=1,4) /10HINU 3.1C  ,
     .10HIBA RANK 1,10H RGTR BYTE,10H 5 PE     /
      DATA (P990MSG(0915,J),J=1,4) /10HINU 3.1C  ,
     .10HIBA RANK 1,10H RGTR BYTE,10H 6 PE     /
      DATA (P990MSG(0916,J),J=1,4) /10HINU 3.1C  ,
     .10HIBA RANK 1,10H RGTR BYTE,10H 7 PE     /
      DATA (P990MSG(0917,J),J=1,4) /10HINU 3.0F  ,
     .10HSVA RGTR B,10HYTE 4 PE  ,10H          /
      DATA (P990MSG(0918,J),J=1,4) /10HINU 3.0F  ,
     .10HSVA RGTR B,10HYTE 5 PE  ,10H          /
      DATA (P990MSG(0919,J),J=1,4) /10HINU 3.0F  ,
     .10HSVA RGTR B,10HYTE 6 PE  ,10H          /
      DATA (P990MSG(0920,J),J=1,4) /10HINU 3.0F  ,
     .10HSVA RGTR B,10HYTE 7 PE  ,10H          /
      DATA (P990MSG(0921,J),J=1,4) /10HINU 3.0C  ,
     .10HREAL MEMOR,10HY ADRS REG,10H BYTE 4 PE/
      DATA (P990MSG(0922,J),J=1,4) /10HINU 3.0C  ,
     .10HREAL MEMOR,10HY ADRS REG,10H BYTE 5 PE/
      DATA (P990MSG(0923,J),J=1,4) /10HINU 3.6B  ,
     .10HERROR REGI,10HSTER BYTE ,10H0 PE      /
      DATA (P990MSG(0924,J),J=1,4) /10HINU 3.6B  ,
     .10HERROR REGI,10HSTER BYTE ,10H1 PE      /
      DATA (P990MSG(0925,J),J=1,4) /10HINU 3.3A  ,
     .10HOUTSTAND'G,10H REQ CNTR ,10HA RESP ERR/
      DATA (P990MSG(0926,J),J=1,4) /10HINU 3.3A  ,
     .10HOUTSTAND'G,10H REQ CNTR ,10HB RESP ERR/
      DATA (P990MSG(0927,J),J=1,4) /10HINU 3.3A  ,
     .10HOUTSTAND'G,10H REQ CNTR ,10HC RESP ERR/
      DATA (P990MSG(0928,J),J=1,4) /10HINU 3.3A  ,
     .10HOUTSTAND'G,10H REQ CNTR ,10HD RESP ERR/
      DATA (P990MSG(0929,J),J=1,4) /10HINU 3.6C  ,
     .10HRESPONSE C,10HODE BYTE 0,10H PE       /
      DATA (P990MSG(0930,J),J=1,4) /10HINU 3.0B  ,
     .10HPAGE FRAME,10H ADRS RGTR,10H BYTE 4 PE/
      DATA (P990MSG(0931,J),J=1,4) /10HINU 3.0B  ,
     .10HPAGE FRAME,10H ADRS RGTR,10H BYTE 5 PE/
      DATA (P990MSG(0932,J),J=1,4) /10HINU 3.0B  ,
     .10HPAGE FRAME,10H ADRS RGTR,10H BYTE 6 PE/
      DATA (P990MSG(0933,J),J=1,4) /10HINU 3.8C  ,
     .10HIBS SET 0 ,10HPE        ,10H          /
      DATA (P990MSG(0934,J),J=1,4) /10HINU 3.8C  ,
     .10HIBS SET 1 ,10HPE        ,10H          /
      DATA (P990MSG(0935,J),J=1,4) /10HINU 3.8C  ,
     .10HIBS SET 2 ,10HPE        ,10H          /
      DATA (P990MSG(0936,J),J=1,4) /10HINU 3.8C  ,
     .10HIBS SET 3 ,10HPE        ,10H          /
      DATA (P990MSG(0937,J),J=1,4) /10HINU 3.5C  ,
     .10HMULTIPLE L,10HOOKAHEAD H,10HITS       /
      DATA (P990MSG(0938,J),J=1,4) /10HINU 3.5C  ,
     .10HMULTIPLE R,10HEAD HITS  ,10H          /
      DATA (P990MSG(0939,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0940,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0941,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0942,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0943,J),J=1,4) /10HEPN 3.    ,
     .10HLSU FATAL ,10HX TAG ERRO,10HR         /
      DATA (P990MSG(0944,J),J=1,4) /10HEPN 3.    ,
     .10HRPL FATAL ,10HX TAG ERRO,10HR         /
      DATA (P990MSG(0945,J),J=1,4) /10HEPN 3.    ,
     .10HSOFT CONTR,10HOL ERROR H,10HALT       /
      DATA (P990MSG(0946,J),J=1,4) /10HEPN 3.    ,
     .10HFETCH ERRO,10HR MISSED  ,10H          /
      DATA (P990MSG(0947,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0948,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0949,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0950,J),J=1,4) /10HEPN 3.1A  ,
     .10HEPN MICRAN,10HD BYTE 0 P,10HE         /
      DATA (P990MSG(0951,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0952,J),J=1,4) /10HEPN 3.7F  ,
     .10HDELAYED EN,10HTRY COUNT ,10HRGTR PE   /
      DATA (P990MSG(0953,J),J=1,4) /10HEPN 3.4D  ,
     .10HINSTRUCTIO,10HN COMPLETI,10HON RGTR PE/
      DATA (P990MSG(0954,J),J=1,4) /10HEPN 3.2E  ,
     .10HRPL TAG PE,10H          ,10H          /
      DATA (P990MSG(0955,J),J=1,4) /10HEPN 3.2E  ,
     .10HLSU TAG PE,10H          ,10H          /
      DATA (P990MSG(0956,J),J=1,4) /10HEPN 3.0B  ,
     .10HACU TAG PE,10H          ,10H          /
      DATA (P990MSG(0957,J),J=1,4) /10HEPN 3.6F  ,
     .10HSCM DATA R,10HGTR BYTE 0,10H PE       /
      DATA (P990MSG(0958,J),J=1,4) /10HEPN 3.6F  ,
     .10HSCM DATA R,10HGTR BYTE 1,10H PE       /
      DATA (P990MSG(0959,J),J=1,4) /10HEPN 3.6F  ,
     .10HSCM DATA R,10HGTR BYTE 2,10H PE       /
      DATA (P990MSG(0960,J),J=1,4) /10HEPN 3.6F  ,
     .10HUNUSED SOF,10HT CONTROL ,10HENTRY     /
  
      DATA (P990MSG(0961,J),J=1,4) /10HOCA 3.5K  ,
     .10HDATA SET 0,10H PE       ,10H          /
      DATA (P990MSG(0962,J),J=1,4) /10HOCA 3.5K  ,
     .10HDATA SET 1,10H PE       ,10H          /
      DATA (P990MSG(0963,J),J=1,4) /10HOCA 3.5K  ,
     .10HDATA SET 2,10H PE       ,10H          /
      DATA (P990MSG(0964,J),J=1,4) /10HOCA 3.5K  ,
     .10HDATA SET 3,10H PE       ,10H          /
      DATA (P990MSG(0965,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG DATA S,10HET 0 PE   ,10H          /
      DATA (P990MSG(0966,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG DATA S,10HET 1 PE   ,10H          /
      DATA (P990MSG(0967,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG DATA S,10HET 2 PE   ,10H          /
      DATA (P990MSG(0968,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG DATA S,10HET 3 PE   ,10H          /
      DATA (P990MSG(0969,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG SET 0 ,10HADDRESS PE,10H          /
      DATA (P990MSG(0970,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG SET 1 ,10HADDRESS PE,10H          /
      DATA (P990MSG(0971,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG SET 2 ,10HADDRESS PE,10H          /
      DATA (P990MSG(0972,J),J=1,4) /10HOCA 3.3L  ,
     .10HTAG SET 3 ,10HADDRESS PE,10H          /
      DATA (P990MSG(0973,J),J=1,4) /10HOCA 3.4H  ,
     .10HSET 0 STAL,10HE DATA    ,10H          /
      DATA (P990MSG(0974,J),J=1,4) /10HOCA 3.4H  ,
     .10HSET 1 STAL,10HE DATA    ,10H          /
      DATA (P990MSG(0975,J),J=1,4) /10HOCA 3.4H  ,
     .10HSET 2 STAL,10HE DATA    ,10H          /
      DATA (P990MSG(0976,J),J=1,4) /10HOCA 3.4H  ,
     .10HSET 3 STAL,10HE DATA    ,10H          /
      DATA (P990MSG(0977,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H0 PE      ,10H          /
      DATA (P990MSG(0978,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H1 PE      ,10H          /
      DATA (P990MSG(0979,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H2 PE      ,10H          /
      DATA (P990MSG(0980,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H3 PE      ,10H          /
      DATA (P990MSG(0981,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H4 PE      ,10H          /
      DATA (P990MSG(0982,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H5 PE      ,10H          /
      DATA (P990MSG(0983,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H6 PE      ,10H          /
      DATA (P990MSG(0984,J),J=1,4) /10HOCA 3.5C  ,
     .10HDATA BYTE ,10H7 PE      ,10H          /
      DATA (P990MSG(0985,J),J=1,4) /10HOCA 3.0A  ,
     .10HUPPER ADRS,10H MUX/RGTR ,10HBYTE 7 PE /
      DATA (P990MSG(0986,J),J=1,4) /10HOCA 3.4B  ,
     .10HMULTIPLE S,10HET TAG COM,10HPARE      /
      DATA (P990MSG(0987,J),J=1,4) /10HOCA 3.2E  ,
     .10HSET ALLOCA,10HTION ERROR,10H          /
      DATA (P990MSG(0988,J),J=1,4) /10H          ,
     .10HNOT USED  ,10H          ,10H          /
      DATA (P990MSG(0989,J),J=1,4) /10HOCA 3.0E  ,
     .10HLOWER ADDR,10HESS MUX/RG,10HTR PE     /
      DATA (P990MSG(0990,J),J=1,4) /10HOCA 3.0A  ,
     .10HUPPER ADRS,10H MUX/RGTR ,10HBYTE 2 PE /
      DATA (P990MSG(0991,J),J=1,4) /10HOCA 3.0A  ,
     .10HUPPER ADRS,10H MUX/RGTR ,10HBYTE 3 PE /
      DATA (P990MSG(0992,J),J=1,4) /10HOCA 3.0A  ,
     .10HUPPER ADRS,10H MUX/RGTR ,10HBYTE 4 PE /
      DATA (P990MSG(0993,J),J=1,4) /10HOCA 3.0A  ,
     .10HUPPER ADRS,10H MUX/RGTR ,10HBYTE 5 PE /
      DATA (P990MSG(0994,J),J=1,4) /10HOCA 3.0A  ,
     .10HUPPER ADRS,10H MUX/RGTR ,10HBYTE 6 PE /
      DATA (P990MSG(0995,J),J=1,4) /10HOCA 3.0B  ,
     .10HADDRESS MU,10HX/RGTR 1 B,10HYTE 2 PE  /
      DATA (P990MSG(0996,J),J=1,4) /10HOCA 3.0B  ,
     .10HADDRESS MU,10HX/RGTR 1 B,10HYTE 3 PE  /
      DATA (P990MSG(0997,J),J=1,4) /10HOCA 3.0B  ,
     .10HADDRESS MU,10HX/RGTR 1 B,10HYTE 4 PE  /
      DATA (P990MSG(0998,J),J=1,4) /10HOCA 3.0B  ,
     .10HADDRESS MU,10HX/RGTR 1 B,10HYTE 5 PE  /
      DATA (P990MSG(0999,J),J=1,4) /10HOCA 3.0B  ,
     .10HADDRESS MU,10HX/RGTR 1 B,10HYTE 6 PE  /
      DATA (P990MSG(1000,J),J=1,4) /10HOCA 3.0B  ,
     .10HADDRESS MU,10HX/RGTR 1 B,10HYTE 7 PE  /
      DATA (P990MSG(1001,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 2,10H BYTE 2 PE,10H          /
      DATA (P990MSG(1002,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 2,10H BYTE 3 PE,10H          /
      DATA (P990MSG(1003,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 2,10H BYTE 4 PE,10H          /
      DATA (P990MSG(1004,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 2,10H BYTE 5 PE,10H          /
      DATA (P990MSG(1005,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 2,10H BYTE 6 PE,10H          /
      DATA (P990MSG(1006,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 2,10H BYTE 7 PE,10H          /
      DATA (P990MSG(1007,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 3,10H BYTE 2 PE,10H          /
      DATA (P990MSG(1008,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 3,10H BYTE 3 PE,10H          /
      DATA (P990MSG(1009,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 3,10H BYTE 4 PE,10H          /
      DATA (P990MSG(1010,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 3,10H BYTE 5 PE,10H          /
      DATA (P990MSG(1011,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 3,10H BYTE 6 PE,10H          /
      DATA (P990MSG(1012,J),J=1,4) /10HOCA 3.0D  ,
     .10HSVA RGTR 3,10H BYTE 7 PE,10H          /
      DATA (P990MSG(1013,J),J=1,4) /10HOCA 3.10E ,
     .10HPREFETCH R,10HGTR 4 BYTE,10H 2 PE     /
      DATA (P990MSG(1014,J),J=1,4) /10HOCA 3.10E ,
     .10HPREFETCH R,10HGTR 4 BYTE,10H 3 PE     /
      DATA (P990MSG(1015,J),J=1,4) /10HOCA 3.10E ,
     .10HPREFETCH R,10HGTR 4 BYTE,10H 4 PE     /
      DATA (P990MSG(1016,J),J=1,4) /10HOCA 3.10E ,
     .10HPREFETCH R,10HGTR 4 BYTE,10H 5 PE     /
      DATA (P990MSG(1017,J),J=1,4) /10HOCA 3.10E ,
     .10HPREFETCH R,10HGTR 4 BYTE,10H 6 PE     /
      DATA (P990MSG(1018,J),J=1,4) /10HOCA 3.2B  ,
     .10HCACHE LOAD,10H RGTR 2 PE,10H          /
      DATA (P990MSG(1019,J),J=1,4) /10HOCA 3.2B  ,
     .10HCACHE LOAD,10H RGTR 1 BY,10HTE 2 PE   /
      DATA (P990MSG(1020,J),J=1,4) /10HOCA 3.2B  ,
     .10HCACHE LOAD,10H RGTR 1 BY,10HTE 3 PE   /
      DATA (P990MSG(1021,J),J=1,4) /10HOCA 3.2B  ,
     .10HCACHE LOAD,10H RGTR 1 BY,10HTE 4 PE   /
      DATA (P990MSG(1022,J),J=1,4) /10HOCA 3.2B  ,
     .10HCACHE LOAD,10H RGTR 1 BY,10HTE 5 PE   /
      DATA (P990MSG(1023,J),J=1,4) /10HOCA 3.2B  ,
     .10HCACHE LOAD,10H RGTR 1 BY,10HTE 6 PE   /
      DATA (P990MSG(1024,J),J=1,4) /10HOCA 3.2B  ,
     .10HCACHE LOAD,10H RGTR 1 BY,10HTE 7 PE   /
* 
      IF (RCFD.EQ.3HOFF) GO TO 100
      CALL UCHK313
  100 CONTINUE
  
      IF (IFLD(FJOB) .NE. R" CONTINU") SYMCDE = IFLD(45)
  
*     CHECK FOR ERRORS CONTAINING A 6TH BUFFER OF DATA TO BE REPORTED 
      IF ((REPFLG .NE. 0) .AND. (IFLD(FJOB) .NE. R" CONTINU"))
     .     REPFLG = 0 
      IF ((REPFLG .EQ. 1) .AND. (RCFD .NE. 3HOFF)) GO TO 910
      IF ((REPFLG .EQ. 2) .AND. (RCFD .NE. 3HOFF)) GO TO 920
      N = 36
      DO 900 INC = 1,4
      N= N + 2
*        GET REGISTER NUMBER FROM IFLD
      NUMREG = IFLD(N)
      IF ((NUMREG.EQ.Z"10").OR.(NUMREG.EQ.Z"12").OR.
     .   (NUMREG.EQ.Z"30")) GO TO 900 
*        IF START OF NEW ERROR SEQUENCE, PRINT A BLANK LINE 
      IF (IFLD(N).NE.0) GO TO 200 
      IF (IFLD(N-2) .NE. Z"10") GO TO 900 
  
*     DETERMINE CORRECTED/UNCORRECTED STATUS FROM SS REGISTER 
      ICOR = 0
      IF ((SHIFT(IFLD(39),-1) .AND. 1) .EQ. 1) ICOR = 1 
      IF ((SHIFT(IFLD(39),-2) .AND. 1) .EQ. 1) ICOR = 0 
  
      IF (RCFD .EQ. 3HOFF) GO TO 900
      IF (I8FFLG .NE. 0) CALL PLSEC (5) 
      J = SYMCDE .AND. O"77"
      IF ((J .LE. 0) .OR. (J .GT. 30)) J = 31 
      IDFTCD = SYMCDE 
      SEQNO = IFLD(19)
      CALL LOAPR (1, IFLD(20),IDFTCD,MSG(J,1),MSG(J,2),MSG(J,3),
     .               MSG(J,4),SEQNO,SP) 
      CALL PRT313 (6,7) 
      IF ((SYMCDE .AND. O"4000") .NE. 0) THEN 
         CALL LOAPR (1, MSG(32,1),MSG(32,2),MSG(32,3),SP,SP,SP,SP,SP) 
         CALL PRT313 (8,3)
      ENDIF 
      PL(1) = 10H SS REGIST 
      PL(2) = 10HER = 
      PL(3) = IFLD(25)
      PL(4) = IFLD(26)
      PL(5) = IFLD(27)
      PL(6) = SHIFT(IFLD(28),4).OR.IFLD(39) 
      CALL PRT313(2,6)
      PL(1) = 10HDEC REGIST 
      PL(2) = 10HER = 
      PL(3) = IFLD(33)
      PL(4) = IFLD(34)
      PL(5) = IFLD(35)
      PL(6) = SHIFT(IFLD(36),4).OR.IFLD(43) 
      CALL PRT313(2,6)
      SUBHEAD = 0 
      I8FFLG = 1
      GO TO 900 
  200 IF ((IFLD(N).LT.Z"80").OR.(IFLD(N).GT.Z"8F")) GO TO 900 
      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
      IF (RCFD .NE. 3HOFF) THEN 
      CALL LOAPR (1,IFLD(N),SP,GROUP(1),GROUP(2),GROUP(3),GROUP(4), 
     .              SP,SP)
      PL(2) = 10HREGISTER = 
      CALL PRT313 (10,6)
      ENDIF 
  
      IF ((GROUP(1).EQ.0).AND.(GROUP(2).EQ.0).AND.(GROUP(3).EQ.0) 
     .    .AND.(GROUP(4).EQ.0)) GO TO 900 
*       TEST BITS TO SEE IF SET 
      DO 300 I = 1,4
  300 GROUP(I) = SHIFT(GROUP(I),44) 
      DO 700 J = 1,4
      DO 700 I = 1,16 
      IBIT = SHIFT(GROUP(J),I).AND.1
      IF (IBIT.EQ.0) GO TO 700
      NUMBIT = I + (J-1)*16 - 1 
      IF (RCFD .EQ. 3HOFF) GO TO 400
      IF (SUBHEAD.EQ.1) GO TO 400 
      IF ((LINE+4) .GT. PLF) THEN 
         CALL HEADER
         CALL FLIP3 
         HCF(4) = 3 
         CALL XOVCAP ('PHD313',3,0) 
         CALL UOVCAP ('PHD313') 
      ENDIF 
      PL(1) = PL(2) = PL(3) = PL(5) = 10H 
      PL(4) = 10HLEVEL 3.0
      CALL PRT313(3,5)
      PL(1) = 10HREG BIT ID 
      PL(2) = 10H  BIT DESC 
      PL(3) = 10HRIPTION
      PL(4) = 10HPAGE NUMBE 
      PL(5) = 10HR
      CALL PRT313(3,5)
      PRINT 330 
  330 FORMAT(12X,'-----------',5X,6(5H-----),2X,'-----------')
      LINE = LINE+1 
      SUBHEAD = 1 
  400 PL(1) = HX(1) 
      PL(2) = HX(2) 
      PL(3) = NUMREG
      PL(4) = NUMBIT
*       FIND INDEX TO P3MSG ARRAY 
      INDREG = IFLD(N).AND.O"17"
      IND = INDREG*64 + NUMBIT + 1
*       ADD ERROR COUNT 
      IF ((MTY.EQ.O"4301").AND.(ICOR.NE.0)) 
     .    MSGCNT(IND) = MSGCNT(IND) + O"1000 0000 0000 0000"
      IF ((MTY.EQ.O"4301").AND.(ICOR.EQ.0)) 
     .    MSGCNT(IND) = MSGCNT(IND) + O"100 0000 0000"
      IF ((MTY.EQ.O"4302").AND.(ICOR.NE.0)) 
     .    MSGCNT(IND) = MSGCNT(IND) + O"10 0000"
      IF ((MTY.EQ.O"4302").AND.(ICOR.EQ.0)) 
     .    MSGCNT(IND) = MSGCNT(IND) + 1 
      IF (RCFD .EQ. 3HOFF) GO TO 700
*       PRINT A LINE
      PL(5) = P990MSG(IND,2)
      PL(6) = P990MSG(IND,3)
      PL(7) = P990MSG(IND,4)
      PL(8) = P990MSG(IND,1)
      CALL PRT313(4,8)
  700 CONTINUE
  900 CONTINUE
      IF (NUMREG.NE.Z"8F") GO TO 1100 
      I8FFLG = 0
  
*     ALL PFS REGISTERS PROCESSED - CHECK FOR ERRORS WITH A 6TH BUFFER
      IF ((SYMCDE .EQ. O"1005") .OR. (SYMCDE .EQ. O"5005") .OR. 
     .    (SYMCDE .EQ. O"1006") .OR. (SYMCDE .EQ. O"5006") .OR. 
     .    (SYMCDE .EQ. O"1007") .OR. (SYMCDE .EQ. O"5007") .OR. 
     .    (SYMCDE .EQ. O"1033") .OR. (SYMCDE .EQ. O"5033") .OR. 
     .    (SYMCDE .EQ. O"1034") .OR. (SYMCDE .EQ. O"5034") .OR. 
     .    (SYMCDE .EQ. O"1035") .OR. (SYMCDE .EQ. O"5035")) REPFLG = 1
      IF (RCFD .EQ. 3HOFF) GO TO 1100 
      GO TO 930 
  
*     REPORT DATA FOR ERRORS CONTAINING A 6TH BUFFER
  910 REPFLG = 2
      IF ((SEFREC(4) .EQ. 0) .AND. (SEFREC(5) .EQ. 0) .AND. 
     .    (IFLD(37)  .EQ. 0) .AND. (IFLD(39)  .EQ. 0)) GO TO 912
      IF ((IDFTCD .NE. O"1006") .AND. (IDFTCD .NE. O"5006") .AND. 
     .    (IDFTCD .NE. O"1007") .AND. (IDFTCD .NE. O"5007")) GO TO 912
      PL(1) = 10HCONTENTS O 
      PL(2) = 10HF FAILING
      PL(3) = 10HADDRESS =
      CALL LOAPR (4,IFLD(21),IFLD(22),IFLD(23),IFLD(24),IFLD(37), 
     .              IFLD(25),IFLD(26),IFLD(27)) 
      PL(12) = IFLD(28) 
      PL(13) = IFLD(39) 
      PL(14) = 10H(AFTER REL
      PL(15) = 4HOAD) 
      CALL PRT313 (5, 15) 
  
  912 IF ((SEFREC(6) .EQ. 0) .AND. (SEFREC(7) .EQ. 0) .AND. 
     .    (IFLD(41)  .EQ. 0) .AND. (IFLD(43)  .EQ. 0)) GO TO 1100 
      IF ((IDFTCD .NE. O"1005") .AND. (IDFTCD .NE. O"5005") .AND. 
     .    (IDFTCD .NE. O"1033") .AND. (IDFTCD .NE. O"5033") .AND. 
     .    (IDFTCD .NE. O"1034") .AND. (IDFTCD .NE. O"5034") .AND. 
     .    (IDFTCD .NE. O"1035") .AND. (IDFTCD .NE. O"5035")) GO TO 1100 
      PL(1) = 10HPROGRAM AD 
      PL(2) = 10HDRESS REGI 
      PL(3) = 10HSTER = 
      CALL LOAPR (4,IFLD(29),IFLD(30),IFLD(31),IFLD(32),IFLD(41), 
     .              SP,SP,SP) 
      PL( 9) = 10H HOURLY P 
      PL(10) = 10HCOUNTER = 
      PL(11) = SHIFT(IFLD(33),16) .AND. Z"FFFF 0000" .OR. IFLD(34)
      PL(12) = 10H  P COUNTE
      PL(13) = 10HR  =
      PL(14) = SHIFT(IFLD(35),16) .AND. Z"FFFF 0000" .OR. 
     .         SHIFT(IFLD(36), 4) .AND. Z"0000 FFF0" .OR. IFLD(43)
      CALL PRT313 (9, 14) 
      GO TO 1100
  
  920 REPFLG = 0
      IF (SEFREC(4) .EQ. 0) GO TO 940 
      IF ((IDFTCD .NE. O"1006") .AND. (IDFTCD .NE. O"5006") .AND. 
     .    (IDFTCD .NE. O"1007") .AND. (IDFTCD .NE. O"5007")) GO TO 940
      PL(1) = 10HCM BIT MSK 
      PL(2) = SHIFT(SEFREC(4),12) .AND. O"7777" 
      PL(3) = 10H2AP RESPON 
      PL(4) = SHIFT(SEFREC(4),28) .AND. O"17 7777"
      PL(5) = 10HCM TYP CDE 
      PL(6) = SHIFT(SEFREC(4),44) .AND. O"17 7777"
      PL(7) = 10HFAILING AD 
      PL(8) = SEFREC(4) .AND. O"17 7777"
      CALL PRT313 (7,8) 
      GO TO 940 
  
  930 CONTINUE
      IF (SUBHEAD.EQ.0) THEN
      PRINT 1005
      LINE = LINE + 1 
      ENDIF 
  940 CALL PLSEC (5)
  
 1005 FORMAT (12X,'NO ERROR DETECTED IN PFS REGISTERS') 
 1100 RETURN
      END 
      SUBROUTINE PRT313(LT,NW)
* 
**        DESCRIPTION 
*         ----------- 
*         SUBROUTINE PRT313 PRINTS A LINE OF DATA IN VARIOUS 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
*         ---- -----
*         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 (7,10), FMT(7)
* 
*     FORMAT FOR 990 PROCESSOR ERROR ACCUMULATION 
* 
      DATA (IFORM(I,1),I=1,5,1)/
     .10H(1X,R1,2X,,10H3A10,2X,3(,10HZ2,1X),I2,,10H4X,A10,2(2,
     .10HX,I4))    /
* 
*     FORMAT FOR SS AND DEC REGISTER
* 
      DATA(IFORM(I,2),I=1,3,1)/ 
     .10H(20X,A10,A,10H5,4(Z4,1X),10H)         /
* 
*     FORMAT FOR SUB-SUB HEADER 
* 
      DATA(IFORM(I,3),I=1,3,1)/ 
     .10H(12X,A10,4,10HX,2A10,14X,10H,2A10)    /
* 
*     FORMAT FOR PFS BIT REPORT 
* 
      DATA(IFORM(I,4),I=1,4,1)/ 
     .10H(12X,3(Z2,,10H1X),I2,5X,,10H3A10,2X,A1,10H0)           / 
* 
*     FORMAT FOR REPAIRED/UNREPAIRED FAILING ADDRESS
* 
      DATA(IFORM(I,5),I=1,6,1)/ 
     .10H(12X,3A10,,10H3(Z4,1X),Z,10H3,Z1,/,40X,10H,2H= ,3(Z4,
     .10H,1X),Z3,Z1,10H,1X,2A10) /
  
* 
*     FORMAT FOR SYMPTOM/RECOVER MESSAGE
* 
      DATA(IFORM(I,6),I= 1,6,1)/
     .10H(2X,A8,2X,,10H'(',Z3,') ,10H',4A10,1X,,10H'SEQUENCE ,
     .10HNUMBER = ',10H,Z2)      /
* 
*     FORMAT FOR REPAIRED/UNREPAIRED BIT MASKS, ETC.
* 
      DATA(IFORM(I,7),I=1,6,1)/ 
     .10H(17X,A10,4,10HH =  ,Z3,8,10HX,A10,3H =,10H ,Z4,/,17X,
     .10H,2(A10,3H ,10H= ,Z4,8X))/
* 
*     FORMAT FOR MULTIPLE ERROR OCCURRENCE MESSAGE
* 
      DATA(IFORM(I,8),I= 1,2,1)/
     .10H(12X,3A10),10H          /
* 
*     FORMAT FOR DFT RETRY DATA FROM THE 6TH BUFFER 
* 
      DATA(IFORM(I,9),I=1,6,1)/ 
     .10H(12X,2A10,,10HA7,3(Z4,1X,10H),Z3,Z1,//,10H,11X,2A10,,
     .10HI6,1X,A10,,10HA5,I6)    /
* 
*     FORMAT FOR SNAPSHOT OF PFS REGISTERS
* 
      DATA(IFORM(I,10),I=1,4,1)/
     .10H(17X,4HPFS,10H ,Z2,1X,A1,10H0,4(1X,Z4),10H)         /
  
*     FORCE NEW PAGE FOR START OF NEW ERROR IF NEAR PAGE LIMIT
      IF ((LT .EQ. 6) .AND. ((LINE+5) .GE. PLF)) GO TO 15 
  
      IF (LINE.LT.PLF) GO TO 20 
  
*     PRINT NEW PAGE HEADER 
   15 CONTINUE
      CALL HEADER 
      CALL XOVCAP('PHD313',3,0) 
      CALL UOVCAP('PHD313') 
   20 LINE = LINE + 1 
      IF ((LT .EQ. 5) .OR. (LT .EQ. 7) .OR. (LT .EQ. 9)) LINE = LINE + 1
  
      DO 22 J = 1, 7
   22 FMT(J) = IFORM(J,LT)
      PRINT FMT,(PL(J),J=1,NW)
      DO 60  K = 1,NW 
   60 PL(K) = 1H
      RETURN
      END 
      SUBROUTINE UCHK313
**
*        UCHK313 - BASIC ROUTINE USED BY DETAIL PROCESSORS, TO
*                   TEST FOR CHANGES IN MESSAGE THAT WILL AFFECT
*                   SUBHEADER PRINT.  WHEN CHANGE OCCURS, MODIFY
*                   POINTERS AND CALL PHD313 FOR NEW HEADING
*                   OF DEVICE AND MESSAGE TYPE. 
* 
*        ENTRY CONDITIONS 
*       ------------------- 
*       CURRENT MESSAGE IN PROCESS IS IN (IFLD) 
*     - FOR START OF REPORT, (SVEST) FLAG HAS BEEN PRESET,
*       BY ANALYZER ROUTINES, TO ( -1) TO INDICATE
*       ORIGINAL ENTRY. 
* 
*       EXIT CONDITIONS 
*       ----------------
*       CURRENT APPLICABLE SUB-HEADERS ARE PRINTED , AND FLAGS
*       FOR TEST CHANGES IN NEXT MESSAGE ARE SAVED. 
* 
*       DATA AREAS
*        -----------
*        SVMTY - SAVE MESSAGE TYPE IN PROCESS 
* 
* 
*CALL,HPACOM1 
*CALL,HPACOM2 
  
*      JUMP IF NOT INITIAL ENTRY FOR THIS UNIT
      IF (FLAGS(12).NE.7HNEW-EST) GO TO 200 
      FLAGS(12) = 1H
      SVMTY = IFLD(FMTY)
      PDATE = SEBUF(21) 
      CALL HEADER 
      CALL FLIP3
      HCF(4) = 3
      CALL XOVCAP ('PHD313',3,0)
      CALL UOVCAP ('PHD313')
      GO TO 500 
*      TEST CHANGE IN MESSAGE TYPE
  200 IF (SVMTY.NE.MTY) GO TO 300 
*      TEST CHANGE OF DATE
      IF (PDATE.NE.SEBUF(23)) GO TO 250 
      HDATA(3) = 1H 
      GO TO 500 
*      PUT DATE BACK INTO DETAIL LINE 
  250 PDATE = SEBUF(23) 
      HDATA(3) = PDATE
      IF ((LINE+4).GE.PLF) GO TO 400
      CALL FLIP3
      HCF(4) = 3
      CALL XOVCAP('PHD313',4,0) 
      CALL UOVCAP('PHD313') 
      GO TO 500 
*      SET UP FOR NEW MESSAGE TYPE
  300 PDATE = SEBUF(23) 
      HDATA(3) = PDATE
      SVMTY = MTY 
  400 CALL HEADER 
      CALL FLIP3
      HCF(4) = 3
      CALL XOVCAP('PHD313',3,0) 
      CALL UOVCAP('PHD313') 
  500 RETURN
      END 
          IDENT  INTEM13
          LCC OVCAP.
          ENTRY  INTEM13
OVLNO     SET    13 
          USE    /LINK/ 
LINKET    BSS    1
LINKEM    BSS    1
          USE    *
  
INTEM13   BSS    1
          SX6    ET 
          SA6    LINKET 
          SX6    EC 
          SA6    LINKEM 
          JP     INTEM13
          EJECT 
*CALL COMHPAERT 
          END 
      OVCAP.
      SUBROUTINE PHD313 (ST)
* 
**        DESCRIPTION 
*         ----------- 
*         SUBROUTINE PHD313 PRINTS HEADINGS FOR REPORTS DEVELOPED 
*         BY OVERLAY 3,13 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 
*         TYPM     -CURRENT MESSAGE CODE
*         TYPR     -CURRENT RECORD TYPE 
*         TYPEST   -CURRENT EST 
*         TYPEDT   -CURRENT DEVICE TYPE 
*         TYPEID   -CURRENT DEVICE NOMENCLATURE (DISK,TAPE,ETC.)
* 
*         CALLED BY 
*         ------ -- 
*         PRT313  -AUTOMATICALLY WHEN A NEW PAGE IS INITIATED.
*         OVERLAY 3,13 ROUTINES THAT REQUIRE A SUBHEADER PRINTED
* 
*CALL,HPACOM1 
*CALL,HPACOM2 
*         * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
      P = ST
    5 LINE = LINE + 1 
    6 IF (P.GT.5) GO TO 1000
      PTR = HCF(P)
      IF ((PTR.LE.0).OR.(PTR.GT.4)) GO TO 1000
      P = P +1
* 
*         JUMP TO PRINT FORMAT AS CALLED BY POINTER (PTR) 
* 
      GO TO (10,20,30,40) PTR 
* 
   10 CONTINUE
      GO TO 6 
* 
*         SUBHEADER FOR 990 PROCESSOR MESSAGES
* 
   20 PRINT 21, HX(1),HX(3),HX(2),HX(4),HX(5),HX(6),HX(7),MFID, 
     .          HX(8),HX(9) 
   21 FORMAT (' DT  - ** MR **     ELEMENT = ',Z2,'    SERIAL NUMBER =',
     .    1X,Z4,/,20X,'MODEL   = ',Z2,'    OI REGISTER   = ',4(Z4,1X),/,
     .        20X,'MFID    =  ',R1,19X,2A10)
      PRINT 22
   22 FORMAT (' DATE',/,2X,'TIME      (FSC) DESCRIPTION',/,1X,
     .        6(13H-------------))
      LINE = LINE + 6 
      GO TO 6 
* 
*         DATE
* 
   30 PRINT 31, SEBUF(23) 
   31 FORMAT (1X,A8)
      GO TO 5 
* 
*         FORMAT FOR MESSAGE ACCUMULATION 
* 
   40 PRINT 41,HX(8)
   41 FORMAT (///,1X,'PROCESSOR FAULT STATUS MESSAGE ACCUMULATION ',
     .       'FOR CPU ',I1,//,51X,'3.0 DIAG.',/,1X,'MF',48X,'REFERENCE',
     .       /,1X,'ID BIT DESCRIPTION',17X,'REG BIT ID     PAGE NUMBER',
     .       '    COR/UNC',/,1X,6(12H------------)) 
      LINE = LINE + 8 
 1000 RETURN
      END 
