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$