FTN4,L
C 
C  CPU PSEUDO ON LINE VERIFICATION PROGRAM
C 
      PROGRAM TXPM0(3,89),91711-16001  REV 1926  790401 
      DIMENSION IPARM(5)
C 
C  PICK UP CONSOLE LU, PASS COUNT & OUTPUT TITLE MSG
C 
      CALL RMPAR(IPARM) 
      LU=IPARM(1) 
      IF(LU.EQ.0) LU=1
      IPSCT=IPARM(2)
      WRITE(LU,10)
C 
C  CLEAR ERROR FLAG, ERROR COUNT & CALL TEST SUBROUTINE 
C 
      IERCT=0 
100   IERFG=0 
      CALL RODFK(IERFG,IERCT) 
C 
C  ERROR REPORTING AFTER EACH PASS
C 
      IF(IAND(IERFG,1B).NE.0) WRITE(LU,20)
      IF(IAND(IERFG,2B).NE.0) WRITE(LU,30)
      IF(IAND(IERFG,4B).NE.0) WRITE(LU,40)
      IF(IAND(IERFG,10B).NE.0) WRITE(LU,50) 
      IF(IAND(IERFG,20B).NE.0) WRITE(LU,60) 
C 
C  PASS COUNT CHECKING & EXIT MESG
C 
      IF(IPSCT.LT.2B) 90,80 
80    IPSCT=IPSCT-1 
      GO TO 100 
90    WRITE(LU,70)IERCT 
C 
C 
10    FORMAT(/"  TXPM0 - PROCESSOR TEST RUNNING") 
20    FORMAT(/"  TXPM0 - MEMORY REF. INST. GROUP FAILURE")
30    FORMAT(/"  TXPM0 - ALTER/SKIP INST. GROUP FAILURE") 
40    FORMAT(/"  TXPM0 - SHIFT/ROTATE INST. GROUP FAILURE") 
50    FORMAT(/"  TXPM0 - I/O INST. GROUP FAILURE")
60    FORMAT(/"  TXPM0 - EAU INST. GROUP FAILURE")
70    FORMAT(/"  TXPM0 - PROCESSOR TEST FINISHED   ",I5," ERRORS"/) 
      END 
      END$
                                                                                                                                                                                                                                                