1	!

	!	C R O S S - R E F E R E N C E   G E N E R A T O R


2!		PROGRAM		: CREF
5!		VERSION		: 6B
6!		EDIT		: 06
7!		EDIT DATE	: 14-FEB-77
8!
9!		AUTHOR		: MARTIN MINOW

20	!


	!	M O D I F I C A T I O N    H I S T O R Y



21!	VER/ED		EDIT DATE	REASON
  !
100	!


	!	G E N E R A L    D E S C R I P T I O N 



110!	CREF GENERATES A CROSS-REFERENCE LISTING OF BASIC-PLUS I
	COMPILED PROGRAMS.  EACH USE OF A VARIABLE IS INDICATED
	IN ONE OF THREE USAGE TYPES:
		" "	REFERENCE
		"@"	DESTRUCTIVE REFERENCE
		"#"	DEFINITION IN A "DEF FN" OR "DIM" STATEMENT.
120!	WHEN RUN, CREF REQUESTS INPUT AND OUTPUT FILES, AND THE
	LINE-WIDTH OF THE OUTPUT FILE.  THE DEFAULT EXTENSIONS ARE:
		.BAC	INPUT FILE
		.CRF	OUTPUT FILE
130!	IT IS BEYOND THE SCOPE OF THIS DOCUMENT TO DESCRIBE THE
	INTERNAL FORMAT OF BASIC-PLUS.
300	!


	!	I / O    C H A N N E L S 



301!	CHANNEL #		USED FOR
   !
310!		1		FILE TO CREF
		2		FILE TO CREF
		3		OUTPUT FILE

800	!


	!	F U N C T I O N / S U B R O U T I N E    D E S C .



801!	FUNCTION/SUBROUTINE		USE
   !
810!		FNB0%(A%)		READ A BYTE AT ADDRESS A%
		FNB1%(A%)		READ A BYTE AT ADDRESS A%
		FNC%(A%,R%)		SEARCH FOR A FUNCTION REFERENCE
		FNF$(Q0$,Q1$,Q2$)	FILE NAME INPUT ROUTINE
		FNI%(A%)		READ WORD AT A% + PROGRAM COUNTER
		FNL%(I%)		INSERT A LINE NUMBER REFERENCE
		FNP%(Q%)		PRINT <CR><LF> AND COUNT LINES
		FNP$(Q%,L%)		PRINT-USING EMULATOR
		FNP1$(Q)		PRINT-USING EMULATOR
		FNR%(A%,R%)		ADD A VARIABLE-REFERENCE
		FNS%(A%)		SEARCH FOR A% IN THE HASH-TABLE
		FNT%(V$,A%)		ADD V$ TO THE HASH-TABLE, KEY A%
		FNW0%(A%)		READ A WORD AT ADDRESS A%
		FNW1%(A%)		READ A WORD AT ADDRESS A%
900	!


	!	D I M E N S I O N    S T A T E M E N T S



910	DIM V$(316), A%(316), H%(316), T%(316)
	\N%,N8%=316%+3%\ N6%=N8%/2%
		! VARIABLE TABLES (TABLE SIZE + 1 MUST BE PRIME)
		! N8%	TABLE SIZE + 3 (WILL BECOME SIZE + 1 AND PRIME)
		! N6%	TABLE SIZE / 2

920	DIM L%(2800), N%(2800)\ N9%=2800%
		! LINE NUMBER TABLE AND POINTER TO NEXT REFERENCE
		! N9%	TABLE SIZE (N9% < 4096%)

930	DIM S$(3), B%(255), T0(5), T1(5), S(2,3)
		! INTERNAL TABLES

940	DIM #1%, P0%(32767)\ DIM #2%, P1%(32767)
		! BASIC-PLUS COMPILED CODE
		! TWO ARRAYS ARE USED TO KEEP TWO BUFFERS IN CORE

950	! INTERNAL TABLES:
	!	V$	VARIABLE NAME
	!	A%	VARIABLE LOCATION -- SEARCH KEY IN HASH LOOKUP
	!	H%	HEAD OF REFERENCE CHAIN
	!	T%	TAIL OF REFERENCE CHAIN
	!	L%	VARIABLE REFERENCE LINE NUMBER
	!	N%	(NEXT REFERENCE)*4% + TYPE
	!	S$	MAPS REFERENCE TYPE
	!	B%	INSTRUCTION TYPE CODE
	!	T0	CLOCK (TOTAL) TIME
	!	T1	CPU TIME
	!	S%	PROGRAM SIZE VALUES

960	N8% = (N8% - 2%) OR 1%
	\GOTO 960 IF (N8%/Q%)*Q%=N8% FOR Q%=3% TO N8%/2% STEP 2%
	\PRINT "%Correct prime =";N8% IF N8%<>(N%-2%)
		!DOUBLE CHECK THAT HASH-TABLE SIZE IS CORRECT
999	!


	!	M A I N    C O D I N G    A R E A



1000	!

	!	G E T   P A R A M E T E R S   A N D   S E T U P


1010	ON ERROR GOTO 0\ PRINT IF POS(0%)
	\PRINT "CREF"; CHR$(9%); "V06B-06"; CHR$(9%);
		CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(0%)),3%),4%)
			!SIGN ON

1020	I$=FNF$(" In","??????","BAC")
	\OPEN I$ FOR INPUT AS FILE 1%, MODE 8192%
	\OPEN I$ FOR INPUT AS FILE 2%, MODE 8192%
	\O$=FNF$("Out",Q$,"CRF")\ OPEN O$ FOR OUTPUT AS FILE 3%
	\W8%,W9%,T5%,T6%,T7%,T8%,T9%,N7%,E9%=0%\ H0,H1=0.0
		!GET FILE NAME AND OPEN FILES.
		!NOTE THAT INPUT FILES ARE OPENED READ-ONLY
		!INITIALIZE ALL THE COUNTERS

1030	WHILE W9%<72% OR W9%>132%
	  \INPUT "Listing width <80>"; W9%\ W9%=80% UNLESS W9%
	\NEXT
		!LOOK MA, I'M STRUCTURED

1040	GOSUB 14100\ RESTORE\ R$=""
	\READ S$(Q%) FOR Q%=0% TO 3%\ READ B%(Q%) FOR Q%=0% TO 255%
	\A%(Q%),H%(Q%)=0% FOR Q%=0% TO N8%-1%
	\P$="Cross Reference Listing of "+I$+" on "
		+DATE$(0%)+" at "+TIME$(0%)
	\P%,P1%=60%\ P2%=P1%-3%\ P3%=0%\ P%=FNP%(P1%)
		!INITIALIZE HASH TABLE AND COUNTERS
		!THEN PRINT HEADING NICELY CENTERED

1060	READ A%, Q$
	\IF A% THEN R$=R$+Q$+","\ STOP UNLESS FNT%(Q$,A%)\ GOTO 1060
		!SETUP SPECIAL NAMES

1070	S%=FNW1%(514%)\ S0%=FNW0%(S%+28%)\ S1%,P0%=FNW0%(S%+30%)
	\M0%=FNB0%(S%+38%)\ M1%=4%+2%*M0%-2%\ V0%=S0%+1214%
		!GET	SP, SPDA, SPTA, SCTH, VARTAB
		!M0%	FLOATING POINT PRECISION
		!M1%	FLOATING POINT OFFSET
		!V0%	OFFSET TO VARIABLE TABLE START
3000	!

	!	B U I L D   S Y M B O L   T A B L E


3010	FOR U%=V0% TO V0%+50% STEP 2%
	  \Q%=FNW1%(U%)\ GOTO 3070 UNLESS Q%
	  \W%,W1%=U%+Q%
		!INITIALIZE FOR VARIABLE SEARCH

3014	  A0$=CHR$((U%-V0%)/2% + 65%)
		!GET INITIAL LETTER

3016	  W1%=W1%-1%\ Q%=FNB0%(W1%)
	  \IF (Q% AND 128%)=0% THEN A0$=A0$+CHR$(Q%) IF Q%\ GOTO 3016
		!A0$ := ENTIRE VARIABLE NAME

3020	  A$=A0$\ W1%=W1% AND -2%\ T%=FNB0%(W1%)
	  \IF		T% AND 8% THEN F9%=28%
	    ELSE IF	T% AND 4% THEN F9%=08%
	    ELSE IF	T% AND 2% THEN F9%=M1%
	    ELSE		       F9%=04%
		!T%	VARIABLE TYPE
		!F9%	OFFSET TO VARIABLE VALUE

3030	  A$="FN"+A$	IF T% AND 16%
	  \A$=A$+"%"	IF T% AND 1%
	  \A$=A$+"$"	IF T% AND 4%
	  \GOTO 3040	UNLESS T% AND 8%
		!FINISH OFF VARIABLE NAME, DEPENDING ON TYPE

3035	  A$=A$+"("+NUM1$(FNW0%(W1%-6%))
	  \A$=A$+","+NUM1$(FNW0%(W1%-4%)) IF FNW0%(W1%-4%)<>0%
	  \A$=A$+")"\ Q%=FNB0%(W1%-18%)
	  \IF Q% THEN
		A$=A$+"="+NUM1$(2%*FNW0%(W1%-8%)) IF T% AND 4%
		\A$=A$+", #"+NUM1$(Q%/2%)
			!GET DIMENSIONS, STRING LENGTH AND CHANNEL

3040	  GOTO 4000 UNLESS FNT%(A$,W1%-F9%-S0%)>=0%
		!NOW, STUFF THE CAREFULLY BUILT VARIABLE
		!USING IT'S ADDRESS AS THE KEY

3050	  Q%=FNW0%(W1%-2%)\ IF Q% THEN W1%=Q%+W1%-1%\ GOTO 3020
		!ANOTHER VARIABLE WITH THIS NAME AND DIFFERENT TYPE?

3060	  Q%=FNW0%(W%    )\ IF Q% THEN W%,W1%=Q%+W%\  GOTO 3014
		!ANOTHER VARIABLE WITH THIS FIRST LETTER?

3070	NEXT U%
	\GOSUB 14100
		!FINISH BUILDING THE VARIABLE TABLE
4000	!

	!	F I N D   A L L   V A R I A B L E   R E F E R E N C E S


4010	T%=FNW0%(P0%)\ GOTO 5000 IF T%=0% OR E9%\ P0%=P0%+T%
	\T%=FNB0%(P0%+9%)\ GOTO 4010 IF T%=4% OR T%=5%
	\L9%=FNW0%(P0%+10%)
	\L0%=FNW0%(P0%+04%)\ GOTO 4010 UNLESS L0%
	\P8%,P9%=FNW0%(P0%+02%)+P0%\ L1%=0%\ T7%=T7%+1%
		!NEW LINE SETUP - NOTHING TO DO IF DATA OR REMARK
		!
		!VARIABLE USAGE:
		!P0%	POINTER TO LINE HEADER
		!P8%	POINTER TO START OF CODE FOR THIS LINE
		!P9%	"PROGRAM COUNTER" WITHIN CODE
		!L0%	OFFSET TO END OF THIS LINE'S CODE
		!L2%	OFFSET TO NEXT CODE BYTE
		!
		!LINE HEADER FORMAT:
		! 0	OFFSET TO NEXT LINE
		! 2	OFFSET TO FIRST CODE BYTE
		! 4	OFFSET PAST END OF CODE FOR THIS LINE
		! 9	LINE TYPE FLAG
		!10	LINE NUMBER

4020	IF T%=1% THEN
	  L2%=FNR%(W%,3%) FOR W%=2% TO L0%-3% STEP 2%
	  \GOTO 4010
		!PROCESS A DIMENSION STATEMENT

4030	P9%=P8%+L1%\ T9%=T9%+1%\ ON B%(FNB1%(P9%)) GOSUB
	  10100,10200,10300,10400,10500,10600,10700,10800,10900,
	  11000,10600,11000,11000,11400,11500,11500,11700,11800,11900
		!JUMP ON STATEMENT TYPE

4040	L1%=L1%+L2%+1%\ IF L1%>=L0% THEN 4010 ELSE 4030
		!STEP POINTER TO NEXT PUSH-POP CODE, OR
		!GOTO NEXT STATEMENT
5000	!

	!	S O R T   S Y M B O L   T A B L E


5010	N7%=-1%\ GOSUB 14100
	\FOR Q%=0% TO N8%-1%
	  \IF H%(Q%)<>0%
	    THEN N7%=N7%+1%\ H%(N7%)=H%(Q%)\ V$(N7%)=V$(Q%)
		!COMPRESS OUT EMPTY SLOTS AND NON-REFERENCED VARIABLES

5020	NEXT Q%
	\A%=N7%+1%
		!DONE COMPRESSING, SETUP FOR SHELL SORT:
		!A%	NUMBER OF VARIABLES

5030	WHILE A%>1%
	  \A%=A%/2%\ B%=N7%-A%\ F%=-1%
				!OUTER LOOP SORT V$(0) TO V$(N7%):
				!A%	CURRENT GAP (INITIALLY HALF)
				!B%	HOW MANY TO EXAMINE
				!F%	"SWITCH" FLAG, INITIALLY SET

5040	  WHILE F%
	    \F%=0%
	    \FOR I%=0% TO B%
	      \J%=I%+A%
				!WITHIN THIS GAP, LOOP UNTIL NO
				!MORE EXCHANGES ARE NEEDED
				!J%	WHOM TO EXCHANGE WITH

5050	      IF V$(I%)>V$(J%) THEN F%=-1%
		\Q$=V$(I%)\ V$(I%)=V$(J%)\ V$(J%)=Q$
		\Q%=H%(I%)\ H%(I%)=H%(J%)\ H%(J%)=Q%
				!EXCHANGE NEEDED, SET FLAG, TOO

5060	    NEXT I%
				!END OF SCAN LOOP

5070	  NEXT
				!LOOP UNTIL NO MORE EXCHANGES

5080	NEXT
				!LOOP UNTIL THE GAP IS CLOSED
6000	!

	!	P R I N T   C R O S S - R E F E R E N C E S


6010	GOSUB 14100\ W8%=W8%+3%\ W0%=0%
		!PRINT THE HEADING

6020	FOR N%=0% TO N7%
	  \H%=H%(N%)\ P%=FNP%(P2%)\ PRINT #3%, V$(N%); TAB(W8%);
	  \R%,W%=0%\ R%,W%=1% IF ASCII(V$(N%)) = 35%
		!GET THE HEAD OF THE VARIABLE REFERENCE CHAIN.
		!THEN, FINISH OFF THE PREVIOUS LINE AND PRINT THE
		!VARIABLE NAME.  CLEAR R/W FLAGS, SET IF LINE NUMBER.

6030	  WHILE H%<>0%
	    \Q%=N%(H%) AND 3%
	    \R%=1% IF Q% = 0%\ W%=1% IF Q% = 1% OR Q% = 2%
	    \IF POS(3%)+7%>W9% THEN P%=FNP%(P1%)
	      \PRINT #3%, TAB(W8%);
		!NEW REFERENCE TO PRINT, SET READ/WRITE FLAGS
		!AND MAYBE GET A NEW LINE

6040	    PRINT #3%, FNP$(L%(H%),6%);S$(Q%);
	    \H%=N%(H%)/4%
	  \NEXT
		!PRINT ALL THE REFERENCES

6080	IF R%+W% = 2% THEN V$(N%)=""
	    ELSE IF INSTR(1%,R$,V$(N%)+",") <> 0% THEN V$(N%)=""
	    ELSE W0%=-1%
		!IF BOTH READ AND WRITTEN, WIPE IT OUT, ELSE
		!SET THE "WE MUST PRINT THE REFERENCES" FLAG
		!UNLESS IT IS A PRE-DEFINED VARIABLE


6090	NEXT N%
	\P%=FNP%(P2%-4%)+1%\ PRINT #3%\ GOTO 7000 UNLESS W0%
	\PRINT #3%, "The following variables may not ";
			"have been referenced properly:"
		!FINISH PRINTING THE VARIABLES AND CHECK FOR ONCE-ONLY

6100	FOR N%=0% TO N7%
	  \IF V$(N%) <> "" THEN
	    P%=FNP%(P1%) IF POS(3%)+W8% > W9%
	    \PRINT #3%, V$(N%); SPACE$(W8%-LEN(V$(N%)));
		!PRINT THE ONCE-ONLY STUFF

6110	NEXT N%
	\P%=FNP%(P2%)\ P%=FNP%(P2%)
		!PRINT ALL OF THEM
7000	!

	!	P R I N T   S T A T I S T I C S


7010	GOSUB 14100\ P%=FNP%(P2%-1%)
	\T0(5%)=T0(4%)+T0(4%)-T0(0%)\ T1(5%)=T1(4%)+T1(4%)-T1(0%)
	\PRINT #3%, FNP$(N7%,6%); " Variables";
	\PRINT #3%, FNP$(T8%,6%); " References";
	\PRINT #3%, FNP$(T7%,6%); " Statements";
	\PRINT #3%, FNP$(T9%,6%); " Code elements"
	\IF T6%>0% THEN
	  PRINT #3%, FNP$(T6%,22%); " Missed references" 
		!SOME STATISTICS

7020	Q%=0%\ Q0%=S0%\ GOSUB 13500\ Q%=1%\ Q0%=S1%\ GOSUB 13400
	\S(0%,0%)=S(0%,0%)+512%+FNW0%(S%+26%)-S%
	\S(0%,2%)=S(0%,2%)+FNW0%(S%+26%)
		!COLLECT SIZE DATA

7030	S(2%,Q%)=S(0%,Q%)+S(1%,Q%) FOR Q%=0% TO 3%
	\PRINT #3%\ PRINT #3%, "K-Words Reserved      Used      Free"
		!COLLECT DATA AND TEXT SIZES

7040	FOR Q%=0% TO 2%
	  \Q1=(S(Q%,0%)-S(Q%,1%))/2048.0
	  \Q2=(S(Q%,2%)-S(Q%,3%))/2048.0
	  \PRINT #3%, MID("  Data  Code Total",Q%*6%+1%,6%);
		FNP1$(Q2); FNP1$(Q1); FNP1$(Q2-Q1)
	\NEXT Q%
		!PRINT STUFF

7050 REM PRINT #3%
	\PRINT #3%, H0; "Hash table searches";
			FNP1$(H1/H0); " Probes/Search";
			FNP1$((N7%*100.0)/(N8%*1.0)); " Percent full"
		!PRINT HASH STATISTICS

7060 REM PRINT #3%\ PRINT #3% "       Cpu     Total time in seconds"
	\FOR Q%=1% TO 5%\ READ Q0$
	  \PRINT #3% FNP1$((T1(Q%)-T1(Q%-1%))/10.0);
			FNP1$(T0(Q%)-T0(Q%-1%)); "  "; Q0$
	\NEXT Q%
		!PRINT TIMINGS

7070	CLOSE 1%,2%,3%\ GOTO 32767
		!DONE FOR NOW
10000	!

	!	S U B R O U T I N E S


10010	!
	! SUBROUTINES TO PROCESS EACH BASIC-PLUS
	! OPERATION TYPE.  NOTE THAT THE TYPE CODES
	! STORED ARE THE "ACTUAL" TYPES + 2 TO QUICKEN
	! THE "ON ... GOSUB" STATEMENT
	! ACTUAL TYPES ARE DEFINED IN "PPCODE.MAT"
	!

10100	PRINT #3%, "Bad compiled code"; FNB1%(P9%); "At line";L9%
						!1	BAD CODE

10200	L2%=0%\ RETURN				!2	NO ARGS

10300	L2%=FNR%(1%,0%)\ RETURN			!3	1 NON-DES REF

10400	L2%=FNR%(1%,2%)\ RETURN			!4	1 DES REF

10500	L2%=FNL%(1%)\ RETURN			!5	LINE NUMBER

10600	L2%=2%\ RETURN				!6	CONSTANT IGNORED

10700	W1%=FNB1%(P9%+1%)\ L2%=FNL%(W%) FOR W%=W1% TO 2% STEP -2%
	\L2%=W1%+1%\ RETURN			!7	ON-GOTO LINES

10800	L2%=FNR%(1%,0%)+FNR%(3%,2%)\ RETURN	!8	2 REF'S

10900	L2%=FNR%(1%,0%)+FNR%(3%,0%)+FNR%(5%,2%)
	\RETURN					!9	3 REF'S

11000	PRINT #3%, "Illegial type or ";\ GOTO 10100
						!10,12,13	WEIRDO'S

11400	L2%=FNC%(1%,3%)\ W%=FNW1%(FNI%(1%)+S0%+2%)\ W1%=2%
		!SETUP TO GET FUNCTION FORMAL PARAMETERS

11410	IF W% AND 3% THEN W1%=W1%+2%\ W%=W%/4%\ GOTO 11410
		!STUPID LOOP TO COUNT ARGUMENTS

11420	L2%=FNR%(W%,1%) FOR W%=W1% TO 4% STEP -2%
	\L2%=W1%+1%\ RETURN			!14	FUNCTION DEF

11500	L2%=6%\ RETURN				!15,16	FOR, INT. MODIF.

11700	L2%=FNR%(1%,2%)+4%\ RETURN		!17	EXTERNAL NEXT

11800	L2%=3%\ RETURN				!18	SKIP TO FUN EXIT

11900	L2%=FNC%(1%,0%)\ RETURN			!19	FUN CALL
11999	!

	!	F U N C T I O N S


12000	!
	! HASH TABLE ROUTINES:
	!  FNC%(A%,R%)	USED INSTEAD OF FNR% TO REFERENCE FUNCTIONS.
	!  FNL%(I%)	INSERT A LINE NUMBER IN THE HASH TABLE
	!		AND A REFERENCE TO L9% IN THE REFERENCE TABLE.
	!  FNR%(A%,R%)	INSERT A REFERENCE (TYPE R%) TO L9% IN THE
	!		REFERENCE TABLE FOR THE VARIABLE AT FNI%(A%).
	!		NOTE: VARIABLE TYPE 3 (DIMENSION DEFINITION)
	!		WILL BE CHANGED TO TYPE 1 (FUNCTION DEFINITION)
	!		IF THE VARIABLE IS A VIRTUAL ARRAY.
	!  FNS%(A%)	SEARCH FOR A%, RETURN THE TABLE ADDRESS,
	!		OR ZERO IF THE TABLE IS FULL. THE VALUE
	!		IS ALSO RETURNED IN Q%.  Q0%=0% IF NOT FOUND.
	!  FNT%(V%,A%)	INSERT VARIABLE NAME V% INTO THE HASH TABLE
	!		USING SEARCH ARGUMENT A%.

12100	DEF FNC%(A%,R%)
	\A%=FNI%(A%)+4%\ STOP IF FNS%(A%) < 0%
	\GOSUB 12400\ FNC%=2%
		!SPECIAL REFERENCE FOR FUNCTION CALLS AND DEFINITIONS

12110	FNEND

12200	DEF FNL%(R%)
	\R%=FNI%(R%)\ R%=FNW0%(R%+S1%+10%) IF R%
	\R%=FNT%("#"+FNP$(R%,5%),R% OR (32767%+1%))\ R%=0%
	\GOSUB 12400\ FNL%=2%
		!MAKE A LINE NUMBER AND ADDRESS, STUFF IT
		!AND DO THE REFERENCE STUFF

12210	FNEND

12300	DEF FNR%(A%,R%)
	\A%=FNI%(A%)\ STOP IF FNS%(A%) < 0%
	\R%=1% IF R%=3% AND INSTR(1%,V$(Q%),"#") <> 0%
	\GOSUB 12400\ FNR%=2%
		!GET THE VARIABLE ADDRESS, FIND IT IN THE HASH TABLE,
		!AND DO THE REFERENCE STUFF.  (PROGRAM ERROR IF FULL)

12310	FNEND

12400	RETURN UNLESS Q0%\ T8%=T8%+1%
	\IF T8%>N9% THEN T6%=T6%+1%
	  \RETURN IF T8%>N9%+1%
	  \PRINT #3%, "More than";N9%;" References at line";L9%
	  \P%=P%+1%\ PRINT "%Reference table full"
	  \RETURN
		!STEP REFERENCE COUNTER, ERROR MESSAGE IF TROUBLE

12420	L%(T8%)=L9%\ N%(T8%)=R%
	\IF H%(Q%)=0%
	  THEN H%(Q%),T%(Q%)=T8%
	  ELSE N%(T%(Q%))=N%(T%(Q%))+(T8%*4%)\ T%(Q%)=T8%
		!STUFF THE REFERENCE (TYPE R%), SETUP THE CHAIN, TOO

12430	RETURN	!NORMAL EXIT FROM REFERENCE STUFFER
12500	DEF FNS%(A%)
	\H0=H0+1.0\ Q%=(A% XOR SWAP%(A%)) AND 32767%
	\Q%=Q%-(Q%/N8%)*N8%\ Q1%=N6%
		!QUADRATIC HASH SETUP

12510	Q0%=A%(Q%)\ H1=H1+1.0
	\IF Q0%=A% OR Q0%=0% THEN FNS%=Q%\ GOTO 12540
		!LOOK AT THIS LOCATION

12520	Q1%=Q1%-1%
	\IF Q1% THEN Q%=Q%+Q1%\ Q%=Q%-N8% IF Q%>=N8%\ GOTO 12510
		!NOT HERE, GET A NEW PROBE UNLESS WE'RE FULL UP.

12530	E9%=-1%\ Q%,FNS%=-1%
	\PRINT #3%, N8%; "Variable table is full after"; N7%; " Inserts"
	\P%=P%+1%\ PRINT "%Variable table full"
		!PRINT THE BAD NEWS

12540	FNEND

12700	DEF FNT%(V$,A%)
	\FNT%=FNS%(A%)
	\IF Q% >= 0% AND Q0%=0% THEN
	  Q0%,A%(Q%)=A%\ V$(Q%)=V$\ N7%=N7%+1%
	  \W8%=LEN(V$) IF LEN(V$)>W8%
		!STUFF THE VARIABLE IF NOT ALREADY PRESENT
		!MAINTAIN MAXIMUM VARIABLE LENGTH

12710	FNEND

12800	DEF FNP%(Q%)
		!PRINT <CR><LF>, AND COUNT LINES,
		!PRINT A HEADING IF WE ARE AT LINE Q%

12810	PRINT #3%\ P%=P%+1%
	\IF P% > Q% THEN P3%=P3%+1%
	  \PRINT #3%, CHR$(12%);
		TAB((W9%-LEN(P$)-8%)/2%);P$;TAB(W9%-7%);"Page";P3%
	  \PRINT #3%\ P%=2%
		!COUNT LINES, WHEN WE REACH THE BOTTOM, SKIP TO
		!THE TOP AND RESET THE COUNTER

12820	FNP%=P%
		!RETURN THE CORRECT COUNT

12830	FNEND

13000	!
	! FUNCTIONS TO ACCESS COMPILED BASIC-PLUS FILES
	!  FNW0%(A%)	READ THE WORD AT ADDRESS A% FROM VECTOR 0%
	!  FNW1%(A%)	READ THE WORD AT ADDRESS A% FROM VECTOR 1%
	!  FNB0%(A%)	READ THE BYTE AT ADDRESS A% FROM VECTOR 0%
	!  FNB1%(A%)	READ THE BYTE AT ADDRESS A% FROM VECTOR 1%
	!  FNI%(A%)	READ THE WORD LOCATED AT RELATIVE PC ADDRESS I%

13100	DEF FNW0%(A%)=P0%(A%/2% - 256%)

13110	DEF FNW1%(A%)=P1%(A%/2% - 256%)

13200	DEF FNB0%(A%)
	\F%=FNW0%(A%)
	\IF A% AND 1%	THEN FNB0% = SWAP%(F%) AND 255%
			ELSE FNB0% = F% AND 255%
		!GET THE CORRECT BYTE

13210	FNEND

13300	DEF FNB1%(A%)
	\F%=FNW1%(A%)
	\IF A% AND 1%	THEN FNB1% = SWAP%(F%) AND 255%
			ELSE FNB1% = F% AND 255%
		!GET THE CORRECT BYTE

13310	FNEND

13400	DEF FNI%(I%) = SWAP%(FNB1%(P9%+I%))
			+    FNB1%(P9%+I%+1%)
		!GET A WORD RELATIVE TO THE CURRENT PROGRAM COUNTER

13500	S(Q%,Q1%)=FNW0%(Q0%+Q1%+Q1%+6%) FOR Q1%=0% TO 3%
	\RETURN
		!GET SIZE VALUES FROM SPXA HEADER

14000	DEF FNF$(Q0$,Q1$,Q2$)
		! FNF$(PROMPT, FILE, EXTENSION)
		! PROMPT AND RETURN A FILE NAME
		! THE FILE NAME PART IS RETURNED IN Q$

14010	ON ERROR GOTO 14040
	\PRINT Q0$; "put file <"; Q1$; "."; Q2$; "> ";
	\INPUT LINE Q0$\ Q0$=CVT$$(Q0$,-1%)\ Q0$=Q1$ IF Q0$ = ""
	\Q0$=Q0$+"."+Q2$ UNLESS INSTR(1%,Q0$,".")
	\Q$=LEFT(Q0$,INSTR(1%,Q0$,".")-1%)
	\FNF$=Q0$

14020	ON ERROR GOTO 0

14030	FNEND

14040	IF ERR=11% THEN RESUME 32766 ELSE ON ERROR GOTO 0

14100	T0(T5%)=TIME(0)\ T1(T5%)=TIME(1)\ T5%=T5%+1%\ RETURN
		!SUBROUTINE TO COLLECT SOME STATISTICS
14200	DEF FNP$(Q%,L%)
		!RETURN Q% RIGHT-JUSTIFIED IN A L% FIELD

14210	Q$=NUM1$(Q%)\ FNP$=SPACE$(L%-LEN(Q$))+Q$
		!CONVERT THE VALUE

14220	FNEND

14300	DEF FNP1$(Q)
		!RETURN Q IN A 10-BYTE FIELD, WITH 2 DECIMAL PLACES

14310	Q$=NUM1$(INT(Q*100.0 + .5)/100.0 + .001)
	\FNP1$=SPACE$(11%-LEN(Q$))+LEFT(Q$,LEN(Q$)-1%)
		!CONVERT IT

14320	FNEND
20000	!

	!	D A T A   T A B L E S


20010	DATA	" ","#","@","#"

20099	!
	! PUSH-POP TYPE CODE TABLE.  NOTE THAT THE VALUES
	! ARE TWO GREATER THAN THE "ACTUAL" TYPES TO SIMPLIFY
	! THE ON "TYPE" GOSUB ... STATEMENT
	! ACTUAL TYPES ARE TAKEN FROM THE "PPCODE" PROGRAM
	!

21000	DATA	02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
21010	DATA	02,02,06,02,02,05,07,04,03,04,03,03,04,04,04,04
21020	DATA	08,08,04,04,08,09,09,09,02,02,02,02,02,02,02,02
21030	DATA	07,05,02,19,02,02,18,02,03,02,01,01,02,01,01,02
21040	DATA	02,02,02,02,01,01,01,01,01,01,01,01,03,02,02,04
21050	DATA	04,02,02,02,02,13,02,02,11,02,02,02,02,04,04,04
21060	DATA	04,04,04,04,04,04,02,02,02,02,02,02,02,02,02,02
21070	DATA	02,02,02,02,02,02,02,02,06,02,01,01,01,01,01,01
21080	DATA	02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
21090	DATA	02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
21100	DATA	02,02,02,03,03,03,04,04,04,04,04,04,03,03,04,04
21110	DATA	04,04,04,04,04,04,04,04,04,04,04,04,04,04,02,02
21120	DATA	02,02,02,02,02,02,02,02,02,02,02,02,02,02,02,02
21130	DATA	02,02,02,02,02,02,11,05,11,05,11,05,14,02,05,02
21140	DATA	02,02,02,02,02,02,02,02,02,02,02,15,15,15,15,15
21160	DATA	15,15,15,16,16,17,17,02,02,02,02,02,02,02,02,02
22000	!
	! RESERVED WORD TABLE. THE TABLE MUST END WITH THE ENTRY:
	!	DATA	0,""
	!
	! NOTE THAT THE TABLE MUST BE KEPT IN SORTED ORDER

22010	DATA	-24,DET,	-60,ERL,	-26,ERR,
		-58,LINE,	-30,NUM,	-34,NUM2,
		-16,PI,		-54,RECOUNT,	-62,STATUS,
		  0,""

23000	DATA "Variable table setup", "Variable reference collection",
		"Variable table sort", "Cross-reference printout",
		"Total processing"

32766	CLOSE Q% FOR Q%=1% TO 12%

32767	END

     Cross Reference Listing of DECCRF.BAC on 01-Mar-77 at 03:59 PM      Page 1 


#    0             1010  14020  14040 
#  960              960 
# 1060             1060 
# 3014             3060 
# 3016             3016 
# 3020             3050 
# 3040             3030 
# 3070             3010 
# 4000             3040 
# 4010             4010   4010   4020   4040 
# 4030             4040 
# 5000             4010 
# 7000             6090 
#10100             4030  11000 
#10200             4030 
#10300             4030 
#10400             4030 
#10500             4030 
#10600             4030   4030 
#10700             4030 
#10800             4030 
#10900             4030 
#11000             4030   4030   4030 
#11400             4030 
#11410            11410 
#11500             4030   4030 
#11700             4030 
#11800             4030 
#11900             4030 
#12400            12100  12200  12300 
#12510            12520 
#12540            12510 
#13400             7020 
#13500             7020 
#14040            14010 
#14100             1040   3070   5010   6010   7010 
#32766            14040 
#32767             7070 
A$                 3020@  3030   3030@  3030   3030@  3030   3030@  3035   3035@
                   3035   3035@  3035   3035@  3035   3035@  3035   3035@  3040 
A%                 1060@  1060   1060   5020@  5030   5030   5030@  5030   5040 
                  12100# 12100  12100@ 12100  12300# 12300  12300@ 12300  12500#
                  12500  12500  12510  12700# 12700  12700  13100# 13100  13110#
                  13110  13200# 13200  13200  13300# 13300  13300 
A%(316)             910#  1040@ 12510  12700@
A0$                3014@  3016   3016@  3020 
B%                 5030@  5040 
B%(255)             930#  1040@  4030 
E9%                1020@  4010  12530@
ERR               14040 
F%                 5030@  5040   5040@  5050@ 13200@ 13200  13200  13300@ 13300 
                  13300 
F9%                3020@  3020@  3020@  3020@  3040 
FNB0%              1070   3016   3020   3035   4010  13200# 13200@ 13200@
FNB1%              4030  10100  10700  13300# 13300@ 13300@ 13400  13400 
     Cross Reference Listing of DECCRF.BAC on 01-Mar-77 at 03:59 PM      Page 2 

FNC%              11400  11900  12100# 12100@
FNF$               1020   1020  14000# 14010@
FNI%              11400  12100  12200  12300  13400# 13400@
FNL%              10500  10700  12200# 12200@
FNP$               6040   7010   7010   7010   7010   7010  12200  14200# 14210@
FNP%               1040   6020   6030   6090   6100   6110   6110   7010  12800#
                  12820@
FNP1$              7040   7040   7040  14300# 14310@
FNR%               4020  10300  10400  10800  10800  10900  10900  10900  11420 
                  11700  12300# 12300@
FNS%              12100  12300  12500# 12510@ 12530@ 12700 
FNT%               1060   3040  12200  12700# 12700@
FNW0%              1070   1070   3035   3035   3035   3035   3050   3060   4010 
                   4010   4010   4010   7020   7020  12200  13100# 13100@ 13200 
                  13500 
FNW1%              1070   3010  11400  13110# 13110@ 13300 
H%                 6020@  6030   6030   6040   6040   6040@
H%(316)             910#  1040@  5010   5010   5010@  5050   5050   5050@  5050@
                   6020  12420  12420@
H0                 1020@ 12500  12500@
H1                 1020@ 12510  12510@
I$                 1020@  1020   1020   1040 
I%                 5040@  5040   5050   5050   5050   5050   5050   5060@ 13400#
                  13400  13400 
J%                 5040@  5050   5050   5050   5050   5050 
L%                14200# 14210 
L%(2800)            920#  6040  12420@
L0%                4010@  4010   4020   4040 
L1%                4010@  4030   4040   4040@  4040 
L2%                4020@  4040  10200@ 10300@ 10400@ 10500@ 10600@ 10700@ 10700@
                  10800@ 10900@ 11400@ 11420@ 11420@ 11500@ 11700@ 11800@ 11900@
L9%                4010@ 10100  12400  12420 
M0%                1070@  1070 
M1%                1070@  3020 
N%                  910@   960   6020@  6020   6020   6020   6080   6080   6080 
                   6090@  6100@  6100   6100   6100   6110@
N%(2800)            920#  6030   6040  12420@ 12420  12420@
N6%                 910@ 12500 
N7%                1020@  5010@  5010   5010@  5010   5010   5020   5030   6020 
                   6100   7010  12530  12700  12700@
N8%                 910@   910    960    960@   960    960    960    960    960 
                   1040   5010  12500  12500  12520  12520  12530 
N9%                 920@ 12400  12400  12400 
O$                 1020@  1020 
P$                 1040@ 12810  12810 
P%                 1040@  1040@  6020@  6030@  6090@  6100@  6110@  6110@  7010@
                  12400  12400@ 12530  12530@ 12810  12810@ 12810  12810@ 12820 
P0%                1070@  4010   4010   4010@  4010   4010   4010   4010   4010 
P0%(32767), #1      940# 13100 
P1%                1040@  1040   1040   6030   6100 
P1%(32767), #2      940# 13110 
P2%                1040@  6020   6090   6110   6110   7010 
P3%                1040@ 12810  12810@ 12810 
P8%                4010@  4030 
P9%                4010@  4030@  4030  10100  10700  13400  13400 
Q                 14300# 14310 
     Cross Reference Listing of DECCRF.BAC on 01-Mar-77 at 03:59 PM      Page 3 

Q$                 1020   1060@  1060   1060   5050@  5050  14010@ 14210@ 14210 
                  14210  14310@ 14310  14310  14310 
Q%                  960@   960    960   1040@  1040   1040@  1040   1040@  1040 
                   1040   3010@  3010   3010   3016@  3016   3016   3016   3035@
                   3035   3035   3050@  3050   3050   3060@  3060   3060   5010@
                   5010   5010   5010   5020@  5050@  5050   6030@  6030   6030 
                   6030   6040   7020@  7020@  7030@  7030   7030   7030   7040@
                   7040   7040   7040   7040   7040   7040@ 12300  12420  12420 
                  12420  12420  12420  12420  12500@ 12500  12500  12500@ 12510 
                  12510  12520  12520@ 12520  12520  12520@ 12530@ 12700  12700 
                  12700  12800# 12810  13500  14200# 14210  32766@ 32766 
Q0$               14000# 14010  14010@ 14010  14010@ 14010  14010@ 14010  14010 
                  14010@ 14010  14010  14010 
Q0%                7020@  7020@ 12400  12510@ 12510  12510  12700  12700@ 13500 
Q1                 7040@  7040   7040 
Q1$               14000# 14010  14010 
Q1%               12500@ 12520  12520@ 12520  12520  13500@ 13500  13500  13500 
Q2                 7040@  7040   7040 
Q2$               14000# 14010  14010 
R$                 1040@  1060   1060@  6080 
R%                 6020@  6020@  6030@  6080  12100# 12200# 12200  12200@ 12200 
                  12200  12200@ 12200  12200  12200@ 12200@ 12300# 12300  12300@
                  12420 
S$(3)               930#  1040@  6040 
S%                 1070@  1070   1070   1070   7020   7020   7020 
S(2,3)              930#  7020   7020@  7020   7020@  7030   7030   7030@  7040 
                   7040   7040   7040  13500@
S0%                1070@  1070   3040   7020  11400 
S1%                1070@  7020  12200 
T%                 3020@  3020   3020   3020   3030   3030   3030   3030   3035 
                   4010@  4010   4010   4010@  4010   4010   4020 
T%(316)             910# 12420@ 12420  12420  12420@
T0(5)               930#  7010   7010   7010   7010@ 14100@
T1(5)               930#  7010   7010   7010   7010@ 14100@
T5%                1020@ 14100  14100  14100  14100@
T6%                1020@  7010   7010  12400  12400@
T7%                1020@  4010   4010@  7010 
T8%                1020@  7010  12400  12400@ 12400  12400  12420  12420  12420 
                  12420  12420 
T9%                1020@  4030   4030@  7010 
U%                 3010@  3010   3010   3014   3070@
V$                12700# 12700  12700  12700 
V$(316)             910#  5010   5010@  5050   5050   5050   5050   5050@  5050@
                   6020   6020   6080@  6080   6080@  6100   6100   6100  12300 
                  12700@
V0%                1070@  3010   3010   3014 
W%                 3010@  3060   3060   3060@  4020@  4020   6020@  6020@  6030@
                   6080  10700@ 10700  11400@ 11410  11410  11410@ 11420@ 11420 
W0%                6010@  6080@  6090 
W1%                3010@  3016   3016@  3016   3020   3020@  3020   3035   3035 
                   3035   3035   3035   3040   3050   3050   3050@  3060@ 10700@
                  10700  10700  11400@ 11410  11410@ 11420  11420 
W8%                1020@  6010   6010@  6020   6030   6100   6100  12700  12700@
W9%                1020@  1030   1030   1030@  1030   1030@  6030   6100  12810 
                  12810 
     Cross Reference Listing of DECCRF.BAC on 01-Mar-77 at 03:59 PM      Page 4 



   128 Variables   798 References   171 Statements  2050 Code elements

K-Words Reserved      Used      Free
  Data      3.70      2.46      1.24
  Code      4.30      4.04       .26
 Total      8.00      6.50      1.50