$(1) PREQ . GENDP1 IS A SUBROUTINE OF SCAR THAT IS CALLED 117100 . AT THE END OF EACH FUNCTION ARGUMENT TQ TEST IF 117200 . A DEFINITION POINT SHOULD BE OUTPUT. IF SO, GENDP1 117300 . CALLS GENDP2 TO OUTPUT THE DEFINITION POINT ITEM(S). 117400 . 117500 GDP1R L,S3 A0,SCARW,B6 . SIMULATE L,T2(JW) A0,SCARW,B6 LSSL A0,6 A,S4 A0,SCARW,B6 JZ A12,GENDP1 IF T1=0 EXIT 117800 TNZ,JY SCARY+1,A0 IS Y(W(J)) SET 117900 J GENDP1 -NO, EXIT 118000 JZ A7,GENDP1 IF S2 RESET,EXIT 118100 JNZ A8,GENDP1 IF STAFUN SET,EXIT 118200 LMJ B11,GENDP2 OUTPUT DEF, POINT(S) 118300 J GENDP1 EXIT 118400 . GENDP2 IS A PHASE I SUBROUTINE THAT WILL OUTPUT 118600 . DEFINITION POINT ITEMS TO TABLE DPBUF INDEXED 118700 . BY B9 WITH INCREMENT 1. 118800 . USES A0,A1,A4,A5 118900 GENDP2* L A1,A12 SYM(V) 119000 S A4,GP7 ANA A12,CRISYM RELATIVE SYM LOCATION 119100 L,H1 A4,2,A1 MODE WORD FROM SYMBOL TABLE TEP,M A4,7 MAKE TEST FOR C=0,50,3 J $+5 SKIP FOR C=1,2,4,7 TEP,M A4,0100 TEST ABNORMAL J $+3 TP,XH2 2,A1 IS THIS AN INDUCTION VARIABLE J 0,B11 -YES, FORGET IT L A0,3,A1 . SIMULATE LM,XH1 A0,3,A1 SSA A0,18 LM A0,A0 L A4,2,A1 AND A4,(07200000) . GET I5 AND CLASS BITS L,H1 A4,2,A1 SSL A5,16 . RIGHT JUSTIFY I5 TNE,M A5,1 TEST FOR I5=1 C=0 J GENDP4 . YES-OUTPUT DEF. POINT FOR LINKED AND,M A4,04307 TNE,M A5,04001 . TEST FOR STMT FUNC WITH DEF POINTS CSC24 J GENDP4 . OUTPUT DEFINITION POINTS FOR ALL LINKED NAMES S,H2 B11,GENP2X LMJ B11,$+3 L A4,GP7 J *GENP2X GENDP5 A A0,(02100000) TN,XH2 IFDEF A A0,IFDEF2 MARK AS IF DEF POINT SSC A0,21 119500 A A0,A12 119600 TZ,H2 CRCRFT . TEST FOR CROSS REFERENCE INFO SLJ GDPCR S A0,DPBUF,*B9 119700 TZ,H1 3,A1 DEFINED BEFORE J GENP30 YES TNZ ENTF1 J GENP30 NO L,M A0,0,B1 MARK DP AS ENTER SN,H1 A0,3,A1 J GENP30+1 GENP30 RES 0 S,H1 B1,3,A1 SEQUENCE COUNT TO DP1 119800 AND,M A4,0307 TNE,M A5,1 J 0,B11 IGNORE COMMON AND EQUIVALENT FOR DEFINES AND,M A4,02000 IS VARIABLE COMMON OCT25 JZ A5,GENDP3 NO AND,M A4,04000 YES - IS VARIABLE EQUIVALENT OCT25 JZ A5,0,B11 NO - EXIT OCT25 L,M A0,0,B1 TNE,H1 A0,CREDP J 0,B11 L,H1 A0,CREDP YES - OUTPUT EQ. D.P. ITEM OCT25 A A0,(02300000) OCT25 SSC A0,21 OCT25 S A0,DPBUF,*B9 OCT25 S,H1 B1,CREDP OCT25 J 0,B11 EXIT OCT25 GENDP3 AND,M A4,04000 IS VARIABLE EQUIVALENT JZ A5,0,B11 NO - EXIT OCT25 L,M A0,0,B1 TNE,H1 A0,CREDP J GENP3A L,H1 A0,CREDP YES - OUTPUT EQ. D.P. ITEM OCT25 A A0,(02300000) OCT25 SSC A0,21 OCT25 S A0,DPBUF,*B9 OCT25 S,H1 B1,CREDP OCT25 GENP3A TNZ FEQ ANY EQUIV. VARIABLE COMMON OCT25 J 0,B11 NO - EXIT OCT25 L,M A0,0,B1 ONLY ONE DP AT A GIVEN SEQUENCE NUMBER TNE,H1 A0,CRCDP J 0,B11 L,H1 A0,CRCDP YES - OUTPUT CM. D.P. ITEM OCT25 A A0,(02200000) OCT25 SSC A0,21 OCT25 S A0,DPBUF,*B9 OCT25 S,H1 B1,CRCDP OCT25 J 0,B11 EXIT OCT25 GENDP4 S A2,GP2 . SAVE REGISTERS S A3,GP3 L,H2 A2,2,A1 AND,M A2,077777 LINK TO POLISH FOR THIS VARIABLE S A1,GP1 L A1,SYM,A3 . LINK TO PRIME VARIABLE JZ A1,GENP13 THERE WAA A DUMMY FOR MAIN VARIABLE OF S. F. L,H1 A2,SYM-1,A3 . FIELD DEFINITIONS SSC A2,9 S,H2 A2,GP4 . FIRST BIT OF DEFINED FUNCTION SSL A2,27 A A2,GP4 . FIRST BIT OF DEFINED FUNCTION S,H2 A2,GP6 . LAST BIT OF DEFINED FUNCTION L A0,3,A1 . SIMULATE LM,XH1 A0,3,A1 SSA A0,18 LM A0,A0 L,H1 A4,2,A1 S,H2 B11,GEXIT L,M A12,0,A1 AN,H2 A12,CRISYM COMPUTE RELATIVE SYM LOCATION LMJ B11,GENDP5 . OUTPUT PRIME,EQUIVALENT AND COMMON DPS L,H2 A2,2,A1 . LINK TO FIELDS L A1,GP1 SLJ GENDP8 . OUT DP FOR FIRST STATEMETN FUNCTION GENP10 AND,M A2,077777 NOP L,H2 A1,SYM-2,A3 SYM TABLE LOC OF NAME OF FUNCTION TNE A1,GP1 . DO NOT OUTPUT TWICE J GENP11 L,M A4,01000 AND,H1 A4,2,A1 NO DEF POINTS JZ A5,GENP11 FOR UNREFERENCED DEFINES L A4,SYM-1,A3 . FIELD DEFNS CSC24 TNE A4,(0757575757575) . NO OPTIMIZATION POSSIBLE J GENP12 L,H1 A4,SYM-1,A3 CSC24 DSL A4,9 CSC24 SSL A5,27 CSC24 A A5,A4 TE A5,GP4 LAST BIT EQ GP4(FIRST BIT) CSC24 TLE A5,GP4 J GENP11 . NO OVERLAY TLE A4,GP6 J GENP12 . OVERLAY OUTPUT DEF PT GENP11 L,H1 A2,SYM,A3 LINK TO NEXT FUNCTION CSC24 JZ A2,GEXI J GENP10 GENP12 SLJ GENDP8 J GENP11 GENP13 SN,H2 A1,IFDEF PUT OUT DEF POINTS FOR ALL VARIABLES TO EQUAL S,H2 B11,GEXIT J GEXI G8R L A0,3,A1 . SIMULATE L,XH1 A0,3,A1 SSA A0,18 TP A0 LN A0,A0 A A0,(02100000) SSC A0,21 L,M A4,0,A1 AN A4,CRISYM A A0,A4 L,H1 A4,2,A1 TZ,H2 CRCRFT SLJ GDPCR S A0,DPBUF,*B9 S,H1 B1,3,A1 . SEQUENCE COUNT J *GENDP8 GEXI L A2,GP2 L A1,GP1 L A4,GP7 L A3,GP3 J *GEXIT GDPCRR SLJ CRSVE . SAVE REGISTERS AND,M A0,077777 A,H2 A1,CRISYM S,H1 A1,SLCRX L A0,SEQNO S,H2 A0,SLCRX L A0,ST S,H1 A0,SLCRX+1 L,M A0,1 S,S1 A0,SLCRX+1 . FLAG FOR DEFINITION LMJ B11,TRCF . PUT ENTRY INTO CROSS REF FILE SLJ CRRSV . RESTORE REGISTERS J *GDPCR $(2) GDPCR J $-$ J GDPCRR GENDP1* J $-$ J GDP1R GENP2X J $-$ GEXIT J $-$ GENDP8 J $-$ J G8R GP1 +0 . THESE GP2 +0 . CONSTANTS GP3 +0 . USED GP4 +0 . IN GP5 +0 . DEFINITION GP6 +0 . POINTS GP7 +0 . FOR FIELDS END