'HEAD' PRINT NAME LIST C EDIT DATE 14JAN79 08:57 C SOURCE FILE PNLAJH.FS C AUTHOR A. J.HOWARD C CLUSTER 9 'OUTFILE' PNLAJH.FR N OVERLAY OLPNA SUBROUTINE PNAMEL C EDIT DATE 14JAN79 08:57 C SOURCE FILE PNLAJH.FR C AUTHOR A. J.HOWARD 'INCLUDE' PNACOMAJH.IN, 'INCLUDE' LOGOSAJH.IN, 'INCLUDE' CPAREAJH.IN, 'INCLUDE' CTRLAJH.IN, 'INCLUDE' NLISTCFTM.IN, 'INCLUDE' NLNAMEFTM.IN, 'INCLUDE' LCFUNCAJH.IN, 'INCLUDE' PRTCOMFTM.IN, INTEGER HEAD1 (17), HEAD2 (2), HEAD3 (6), HEAD4 (6) INTEGER HEAD5 (12), HEAD6 (6), HEAD7 (16), HEAD8 (17) INTEGER TS INTEGER PNNAME, PNENT, PNEXT, PNLOOP, NLCOMP, CLOCN EXTERNAL PNNAME, PNENT, PNEXT, PNLOOP, NLCOMP N EXTERNAL OLPN2 DATA HEAD1 / ' .....NAME....... ..LOC.... .TYPE.' / DATA HEAD2 / ' : ' / DATA HEAD3 / 'ENTRY POINTS' / DATA HEAD4 / 'EXTERNALS ' / DATA HEAD5 / 'NAMES / TEXT ' / DATA HEAD6 / 'CC**""DDTTNN' / DATA HEAD7 / 'USE COUNTS: REGISTER , CRUTCH' / DATA HEAD8 / ' BRANCHES , IN RANGE' / 'EJECT' IF (PRINTF .EQ. 0) RETURN CN CALL OVLOD (OLPN2) CALL SGLPRT 'DOLOOP' I = 1, 81, 40 CALL EST (HEAD1, LBUF, I, I + 33) 'END' CALL SGLPRT CALL SGLPRT CT = 0 CALL NLSCAN (PNLOOP, NLX) 'DOLOOP' I = 1, CT LIST (I) = I 'END' 'DOLOOP' I = 1, 6 BITS (I, 2) = HEAD6 (I) 'END' BITS (1, 1) = CBIT BITS (2, 1) = EPBIT BITS (3, 1) = STRBIT BITS (4, 1) = DPBIT BITS (5, 1) = TPLBIT BITS (6, 1) = USEBIT IF (CT .NE. 0) CALL SORT (LIST, CT, NAMES, NLCOMP) CALL PSEL (PNNAME, 0) CALL PSEL (PNENT, HEAD3) CALL PSEL (PNEXT, HEAD4) CALL EST (HEAD5, LBUF, 1, 24) CALL ESP (NLENO, LBUF, 1, 12) CALL ESP (NLSIZE, LBUF, 1, 17) CALL ESP (NTSTRT, LBUF, 1, 29) CALL SGLPRT CALL EST (HEAD7, LBUF, 1, 32) CALL ESP (REGCNT, LBUF, 1, 24) CALL ESP (CRUCNT, LBUF, 1, 38) CALL SGLPRT CALL EST (HEAD8, LBUF, 1, 34) CALL ESP (BRCT, LBUF, 1, 24) CALL ESP (BROK, LBUF, 1, 38) CALL SGLPRT 'DOLOOP' I = 1, 14 TS = LCTAB (I) 'IF' (TS .NE. 0) CALL EHX (I, LBUF, 2, 3) CALL EST (HEAD2, LBUF, 4, 6) CALL EHX (TS, LBUF, 7, 10) 'IF' (I .GT. COMLOC .AND. I .LT. ZREL) TS = CLOCN (CBTAB (I)) CALL EST (NAME, LBUF, 13, 28) 'ENDIF' CALL SGLPRT 'ENDIF' 'END' RETURN END 'OUTFILE' PNLOOPAJH.FR SUBROUTINE PNLOOP C EDIT DATE 14JAN79 08:57 C SOURCE FILE PNLOOPAJH.FR C AUTHOR A. J. HOWARD 'INCLUDE' PNACOMAJH.IN, 'INCLUDE' NLISTCFTM.IN, 'INCLUDE' NLARAYFTM.IN, 'INCLUDE' LOGOSAJH.IN, 'INCLUDE' CTRLAJH.IN, INTEGER XPERID, TS, CLOCN INTEGER GETTX, GCHAR LOGICAL NLTEST, PNEQU DATA XPERID /46/ IF (NLX .EQ. NULLX) RETURN TX = GETTX (NLX) TS = GCHAR (NTEXT (TX), 1) IF (IAND (TS, LOCALB) .NE. 0) RETURN TS = GCHAR (NTEXT (TX), 2) 'IF' ((TS .LT. XA .AND. TS .NE. XPERID) ^ .OR. ^ (SNLPRT .NE. 0 ^ .AND. ^ .NOT. NLTEST (NLX, EPBIT + USEBIT) )) 'IF' (PNEQU (DUMMY)) CT = CT + 1 NAMES (CT) = NLX 'ENDIF' 'ELSE' CT = CT + 1 NAMES (CT) = NLX 'ENDIF' RETURN END 'OUTFILE' PSELAJH.FR SUBROUTINE PSEL (SELECT, HEADER) C EDIT DATE 14JAN79 08:57 C SOURCE FILE PSELAJH.FR C AUTHOR A. J. HOWARD 'INCLUDE' LOGOSAJH.IN, 'INCLUDE' PNACOMAJH.IN, 'INCLUDE' NLISTCFTM.IN, 'INCLUDE' PRTCOMFTM.IN, INTEGER HEADER (6), HEAD1 (2) DATA HEAD1 / 'NO ' / 'IF' (HEADER (1) .NE. 0) C THERE IS A HEADING CALL EST (HEADER, LBUF, 1, 12) CALL SGLPRT CALL EST (HEAD1, LBUF, 1, 3) CALL EST (HEADER, LBUF, 4, 15) 'ENDIF' K = 0 'IF' (CT .NE. 0) 'DOLOOP' J = 1, CT I = LIST (J) NLX = NAMES (I) CALL SELECT 'END' 'ENDIF' 'IF' (K .NE. 0) CALL SGLPRT 'ENDIF' CALL SGLPRT RETURN END 'OUTFILE' PNENTAJH.FR SUBROUTINE PNENT C EDIT DATE 14JAN79 08:57 C SOURCE FILE PNENTAJH.FR C AUTHOR A. J. HOWARD C ENTER ENTRY POINT DEFINITIONS 'INCLUDE' NLISTCFTM.IN, INTEGER DUMMY LOGICAL NLTEST, PNEQU IF (NLTEST (NLX, EPBIT) .OR. PNEQU (DUMMY)) ^ CALL PNNAME RETURN END 'OUTFILE' PNEXTAJH.FR SUBROUTINE PNEXT C EDIT DATE 14JAN79 08:57 C SOURCE FILE PNEXTAJH.FR C AUTHOR A. J. HOWARD C ENTER EXTERNAL NAMES 'INCLUDE' NLISTCFTM.IN, INTEGER DUMMY, NLOPS LOGICAL NLTEST, PNEQU IF (.NOT. NLTEST (NLX, CBIT) ^ .AND. ^ NLOPS (DFINED, NLX) .EQ. 0 ^ .AND. ^ .NOT. PNEQU (DUMMY)) ^ CALL PNNAME RETURN END 'OUTFILE' PNNAMEAJH.FR N OVERLAY OLPN2 SUBROUTINE PNNAME C EDIT DATE 14JAN79 08:57 C SOURCE FILE PNNAMEAJH.FR C AUTHOR A. J. HOWARD INTEGER ENBUF (20), XBLNKS, TS, NLTEMP, LTS INTEGER CLOCN, NLOPS LOGICAL NLTEST 'INCLUDE' LOGOSAJH.IN, 'INCLUDE' PNACOMAJH.IN, 'INCLUDE' NLISTCFTM.IN, 'INCLUDE' NLNAMEFTM.IN, 'INCLUDE' PRTCOMFTM.IN, 'INCLUDE' NLARAYFTM.IN, 'INCLUDE' XNAMEAJH.IN, INTEGER HEAD1 (5), HEAD2 (5), HEAD3, HEAD4 DATA HEAD1 / ' DISP EXT ' / DATA HEAD2 / ' NORM EXT ' / DATA HEAD3 / ',,' / DATA HEAD4 / ' :' / DATA XBLNKS / ' ' / 'EJECT' CALL SET (XBLNKS, ENBUF, 20) TS = CLOCN (NLX) CALL EST (NAME, ENBUF, 2, 17) LTS = L 'IF' (.NOT. NLTEST (NLX, CBIT) ^ .AND. NLOPS (DFINED, NLX) .EQ. 0) 'IF' (XNX .GT. 0) 'DOLOOP' L = 1, XNX, 2 'IF' (XNAME (L) .EQ. NLX) 'IF' (XNAME (L+1) .EQ. NLX) 'BREAK' 'ENDIF' GO TO 100 'ENDIF' 'IF' (XNAME (L+1) .EQ. NLX) NLX = XNAME (L) 'IF' (NLOPS (DFINED, NLX) .EQ. 0) 'BREAK' 'ENDIF' GO TO 100 'ENDIF' 'END' 'ENDIF' 'IF' (NLTEST (NLX, EXDBIT)) CALL EST (HEAD1, ENBUF, 18, 27) 'ELSE' CALL EST (HEAD2, ENBUF, 18, 27) 'ENDIF' 'ELSE' 'IF' (NLTEST (NLX, CBIT)) CALL EHX (NLOPS (CVALUE, NLOPS (NAMLOC, NLX)), ^ ENBUF, 19, 22) 'ELSE' CALL EHX (NLOPS (NAMLOC, NLX), ENBUF, 19, 22) CALL EST (HEAD3, ENBUF, 23, 23) CALL EHX (NLOPS (NLXLCI, NLX), ENBUF, 24, 25) 'ENDIF' 'ENDIF' 'EJECT' NLTEMP = IEOR (NLIST (NLX), USEBIT) I = 28 'DOLOOP' L = 1, 6 'IF' (IAND (NLTEMP, BITS (L,1)) .NE. 0) 'IF' (I .NE. 28) CALL EST (HEAD3, ENBUF, I, I) 'ENDIF' I = I + 1 CALL EST (BITS (L,2), ENBUF, I, I) I = I + 1 'ENDIF' 'END' 50 K = K + 1 CALL MOVE (ENBUF, LBUF (20*K-19), 20) 'IF' (K .GE. 3) CALL SGLPRT K = 0 'ENDIF' L = LTS RETURN 100 TS = CLOCN (NLX) CALL EST (HEAD4, ENBUF, 18, 19) CALL EST (NAME, ENBUF, 20, 35) GO TO 50 END 'OUTFILE' PNEQUAJH.FR LOGICAL FUNCTION PNEQU (DUMMY) C EDIT DATE 14JAN79 08:57 C SOURCE FILE PNEQUAJH.FR C AUTHOR A. J. HOWARD INTEGER DUMMY, L, I 'INCLUDE' NLISTCFTM.IN, 'INCLUDE' XNAMEAJH.IN, LOGICAL NLTEST 'IF' (XNX .GT. 0) 'DOLOOP' L = 1, XNX, 2 'IF' (XNAME (L+1) .EQ. NLX) PNEQU = NLTEST (XNAME (L), EPBIT) RETURN 'ENDIF' 'END' 'ENDIF' PNEQU = .FALSE. RETURN END 'OUTFILE' NLCOMPAJH.FR INTEGER FUNCTION NLCOMP (NAME1X, NAME2X) C EDIT DATE 14JAN79 08:57 C SOURCE FILE NLCOMPAJH.FR C AUTHOR A. J. HOWARD C MODULE 80.18 INTEGER GETTX, GCHAR INTEGER NAME1X, NAME2X INTEGER SCX, TS, L1, L2 'INCLUDE' NLISTCFTM.IN, 'INCLUDE' NLARAYFTM.IN, TS = GETTX (NAME1X) L1 = GCHAR (NTEXT (TS), 1) + 1 TX = GETTX (NAME2X) L2 = GCHAR (NTEXT (TX), 1) + 1 'DOLOOP' SCX = 2, L1 'IF' (SCX .GT. L2) NLCOMP = -1 'BREAK' 'ENDIF' NLCOMP = GCHAR (NTEXT (TS), SCX) - GCHAR (NTEXT (TX), SCX) 'IF' (NLCOMP .NE. 0) RETURN 'ENDIF' 'END' NLCOMP = -1 RETURN END