.MCALL SETUP
SETUP
DUMMY PASCAL,0,*,15000
.NLIST
NL=12
BLANK=40
NIL=-1
STRL1=3
STRL2=4
STRL3=5
IDNLNT=6
IDNLEN=8.
MAXLEV=15.
DSPLMT=31.
ASSIGN 0,<IDENT,INTCON,REALCO,STRCON,NOTSY,MULOP,ADDOP>
ASSIGN ,<RELOP,LPAREN,RPAREN,LBRACK,RBRACK,COMMA,SEMICO>
ASSIGN ,<PERIOD,ARROW,COLON,BECOME,LABELS,CONSTS,TYPESY,VARSY>
ASSIGN ,<JOINSY,PROGSY,PROCSY,SETSY,PACKSY,ARRAYS>
ASSIGN ,<RECRDS,FILESY,FORWDS,BEGINS,IFSY,CASESY,REPTSY>
ASSIGN ,<WHILSY,FORSY,WITHSY,LOOPSY,GOTOSY,EXITSY,ENDSY,ELSESY>
ASSIGN ,<UNTILS,OFSY,DOSY,TOSY,DOWNSY,THENSY,OTHERS>
ASSIGN 0,<MUL,ANDOP,DIV,IMOD,PLUS,MINUS,OROP>
ASSIGN ,<LTOP,LEOP,GEOP,GTOP,NEOP,EQOP,INOP>
ASSIGN ,<MAXOP,MINOP,CEILOP,FLOROP,NOOP>
ASSIGN 0,<TYPES,VARS,FIELD,KONST,PROC>
TYPSET=1
VARSET=2
FLDSET=4
KONSET=10
PROSET=20
ASSIGN 0,<SCALAR,SUBRANGE,POINTER,POWER,ARRAYT>
ASSIGN ,<RECORDT,FILET,TAGFIELD,VARIANT>
ASSIGN 0,<CST,VARBL,EXPR>
ASSIGN 0,<LIT,REEL,SETC,DATAREF>
ASSIGN 0,<BLCK,CREC,VREC>
;FOLLOWING MUST BE ON WORD BOUNDARY
; SYM: RECORD SY:0..255; OP:0..255 END
BYTE OP
BYTE SY
WORD SYM,0
WORD ID,38. ;15 BYTE IDENTIFIER + 1 BYTE LENGTH
		;ALSO STORE STRINGS HERE
WORD VAL,2 ;LAST CONSTANT VALUE
	FIELD V.C,0
	FIELD V.I,2
	FIELD V.P,2
	FIELD V.S,1
	FIELD V.A,2
WORD FWPTR
WORD VARLST
WORD LC		; LOCAL VARIABLE COUNTER
WORD AC		; PARM COUNTER
WORD DC		;DATA COUNTER
BYTE TC		; TAG COUNTER
BYTE PIN	; PROCEDURE INDEX COUNTER
BYTE MAXPIN
WORD LINENO	; LINE NUMBER
WORD ERRTOT
WORD ERRINX ;NO. ERRORS THIS LINE
WORD ERRLIST,32. ;ERROR TABLE
	ERR.P=0	;POSITION
	ERR.N=2	;NUMBER
.PAGE
BYTE CH
BYTE CHCNT
BYTE SWITCH,26.	;OPTION SWITCHES
	LIST=SWITCH+11.		;SWITCH['L']
	PRTABLS=SWITCH+19.	;SWITCH['T']
BYTE PRTERR
WORD INPUT,24.	;INPUT FILE BLOCK
WORD OUTPUT,24.	;OUTPUT FILE BLOCK
WORD SRC,84.	;SOURCE FILE BLOCK
WORD LST,84.	;LISTING FILE BLOCK
WORD INT,84.	;INTERMEDIATE FILE BLOCK
WORD DISPLAY,96.
	FIELD D.FN,0
	FIELD D.OC,2
	FIELD D.CL,3
	FIELD D.CD,4
	FIELD D.VD,4
WORD TOP
WORD LEVEL
WORD DISX
WORD INTPTR
WORD REALPTR
WORD CHARPTR
WORD BOOLPTR
WORD NILPTR
WORD TEXTPTR
WORD GATTR,4	;ATTRIBUTES OF CURRENT EXPRESSION
	FIELD A.T,0
	FIELD A.K,2
	FIELD A.C,4
	FIELD A.S,5
	FIELD A.V,6
	FIELD A.A,3
	FIELD A.L,4
	FIELD A.D,6
	FIELD A.ID,4
WORD UDPTRS,5 ;ARRAY OF POINTERS TO UNDECLARED IDENTIFIERS
.PAGE
; OFFSETS FOR STRUCTURE RECORD
FIELD	S.MK,0,4,1
FIELD	S.FM,0,0,4
FIELD	S.PK,0,6,1
FIELD	S.SZ,2
FIELD	S.SK,0,5,1
FIELD	S.FC,4
FIELD	S.RT,4
FIELD	S.M.V,6
FIELD	S.X.V,8.
FIELD	S.ET,4
FIELD	S.ES,4
FIELD	S.AT,4
FIELD	S.IT,6
FIELD	S.SF,8.
FIELD	S.FF,4
FIELD	S.RV,6
FIELD	S.FT,4
FIELD	S.TF,4
FIELD	S.FV,6
FIELD	S.NV,4
FIELD	S.SV,6
FIELD	S.V.V,8.
; OFFSETS FOR IDENTIFIER RECORDS.
FIELD	I.N,0
FIELD	I.L,2
FIELD	I.R,4
FIELD	I.T,6
FIELD	I.NX,8.
FIELD	I.K,10.,0,3
FIELD	I.C.C,12.
FIELD	I.C.I,14.
FIELD	I.C.P,14.
FIELD	I.C.S,13.
FIELD	I.C.A,14.
FIELD	I.VK,10.,3,1
FIELD	I.VL,10.,4,4
FIELD	I.VA,12.
FIELD	I.VS,14.
FIELD	I.F,12.
FIELD	I.FS,14.
FIELD	I.PF,10.,3,1
FIELD	I.KE,11.
FIELD	I.PL,10.,4,4
FIELD	I.FD,11.,0,1
FIELD	I.EX,11.,1,1
FIELD	I.PA,12.
.LIST