C C E R R P R T C C PRINT ERROR TABLE C C THIS ROUTINE IS CALLED AT THE END OF PASS 2 OF THE ASSEMBLY C TO PRINT THE CONTENTS OF THE ERROR TABLE. THE CALLING C SEQUENCE IS: C C CALL ERRPRT C C THERE ARE NO ARGUMENTS. THE ERROR TABLE IS PRINTED AS THE C NEXT TO LAST PAGE OF THE ASSEMBLY LISTING. THE SUBTITLE IS C SET TO "ERROR CROSS REFERENCE TABLE". C SUBROUTINE ERRPRT INCLUDE 'IODEVS.CMN' INCLUDE 'LSTHDG.CMN' INCLUDE 'PRGDAT.CMN' INTEGER SYMSBT(60),HPRGSZ(2),OUT,BLANKS,PAGE C DATA SYMSBT/'E', 'R', 'R', 'O', 'R', ' ', 'C', 'R', 'O', 'S', $ 'S', ' ', 'R', 'E', 'F', 'E', 'R', 'E', 'N', 'C', $ 'E', ' ', 'T', 'A', 'B', 'L', 'E', 33*' '/ DATA BLANKS / ' ' /,OUT /4/ C IF (LSTUNT.LE.0) RETURN !NO LISTING REQUIRED? IF (ERRCNT.EQ.0) RETURN !NO USER SYMBOLS? DO 10 I=1,60 SUBTTL(I) = SYMSBT(I) !SUBTITLE OF 10 CONTINUE !"ERROR CROSS REFERENCE TABLE" CALL HEADNG !PAGE AND OUTPUT HEADING C C WRITE OUT A HEADER, THEN UP TO THE 50 MAX NUMBER OF ERRORS C WRITE (LSTUNT,15) 15 FORMAT (T5,'LINE NO.',T30,'ERROR',/) NOLINS = MIN(50,ERRCNT) DO 20 I=1,NOLINS WRITE (LSTUNT,16) ERRTAB(1,I),(ERRNAM(J,ERRTAB(2,I)),J=1,8) 16 FORMAT (T5,I6,T20,8A4) 20 CONTINUE RETURN END