/WPSSDF.PA

/	SEARCH AND PARSE DEFINITIONS

/MODIFICATIONS
/002	RCME	12-APR-85	/Move GPBUF to general Char Core
/001	DAO	26-JUN-81	/CHANGED TO MOVE LP TO FIELD 5

/	DEFINE AUTO-INDEX REGISTERS
/
	RCBPTR= 10 		/ RECORD BUFFER POINTER
	SYTPTR= 11 		/ SYMBOL TABLE POINTER
	GPPTR= 12 		/ GENERAL PURPOSE POINTER
	TAI1= 13 		/ TEMP AUTO-INDEX 1
	TAI2= 14 		/ TEMP A-I 2
	SPCPTR= 15 		/ SPECIFICATION POINTER
	CHRPTR= 16 		/ CHARACTER CORE PTR
/
/	DEFINE BUFFER SIZES
/
	GPBSIZ= 36 	/ GENERAL PURPOSE BUFFER AND ALSO SIZE OF THE
			/  LARGEST FIELD NAME AND NUMBER (30 DECIMAL).
			/ CAUTION - IF GPBSIZ EXCEEDS 32 DECIMAL THE
			/  ROUTINE LPFLD IN WPSELC.PA WILL NO LONGER
			/   WORK SINCE A BUFFER CALLED TOKVAL IS USED
			/    WHICH HAS A MAXIMUM LENGTH OF 32 DECIMAL
			/     AND GPBSIZ IS USED AS A COUNT FOR TOKVAL.

	RECBUF= 10 		/ STARTING LOC OF RECORD BUFFER (IN EDIT BUFFER FIELD)
	RECSIZ= -4704 		/ MINUS THE SIZE OF THE LARGEST RECORD (2500 CHARS.)
/
	SELINI= 2200 		/ STARTING ADDR OF SELECT		/M001

	MERGE= 202 		/ STARTING ADDR OF MERGE (EDITOR)
/
	SPLINE= 24 		/ MAX NUMBER OF SPEC LINES ALLOWED

	SPBFPG= 6 		/ NO. OF PAGES TO USE FOR SPEC TABLE, SYMBOL TABLE, AND CHAR CORE

	GPBEXT=230		/ The extent of the GPBUF.  This is	/a002
				/ different from the size, as the size	/a002
				/ is used for length tests.		/a002

	FRECOR= SPLINE^11+2+GPBEXT/ Increased by size of file name buffer/a002
	FRECOR= SPBFPG^200-FRECOR/ AMOUNT OF CHARACTER CORE LEFT
/
	RDBUF=SELINI+1200	/RDFIL BUFFERS				/M001
/
	SPECTB= RDBUF+400 	/ STARTING ADDR OF SPEC TABLE

	SPCTBS= SPLINE^7+1 	/ SIZE OF SPEC TABLE
	SYMTAB= SPECTB+SPCTBS 	/ STARTING ADDR OF SYMBOL TABLE
	SYTBSZ= SPLINE^2+1 	/ SIZE OF SYMBOL TABLE
	GPBUF=SYMTAB+SYTBSZ	/ Starting address of the file name buffer/a002
	CHRCOR= GPBUF+GPBEXT 	/ STARTING ADDR OF CHAR CORE		/m002
	CHRCSZ= FRECOR 		/ SIZE OF CHAR CORE
/
	RDFIL= SELINI+400 	/ STARTING ADDR OF RDFIL ROUTINES
/
/	DEFINE BUFFER FIELD LOCATIONS
/
	FORMNO= 0 		/ FILE NUMBER OF FORMS FILE
	OTFIL= 1 		/ OUTPUT FILE NUMBER (0 MEANS JUST PRINT)
	OTACT= 2 		/ ACTIONS FOR OUTPUT (-1 FOR OVERWRITE, +1 FOR ADD BOTTOM,
				/ OR 0 FOR ADD TOP)
	SPCADR= 3 		/ POINTER TO:
				/ SPEC FILE NUMBER
				/ FROM RECORD NUMBER
				/ TO RECORD NUMBER (0 FOR ALL RECORDS)
	LSTFIL= 4 		/ LIST FILE NUMBER
	RETADR= 5 		/ RETURN ADDR IN FIELD 3


