vars

.PAGE 'VARS'

;
;  NON ZERO PAGE STORAGE
;

SAVSYM	*=*+30
XREF	*=*+1           ;CROSS REF FLAG,0 NONE
CHAN	*=*+1           ;CURRENT I/O CHANNEL
ISRC	*=*+16          ;ORIGINAL SOURCE FILE
ISRCLN	*=*+1           ;SOURCE NAME LENGTH
LCHAR	*=*+1           ;LAST CHARACTER GOT
XFNLEN	*=*+1
NOSYM	*=*+2           ;# SYMBOLS IN SYMTBL
LPGCT	*=*+2
JOPBAS	*=*+1           ;BASE OPCODE (PASS 1)
JOPTEM	*=*+1           ;OPCODE TEMPLATE
KNVAL	*=*+2           ;INTERMED VAL IN EVAL
KOP	*=*+1           ;NXT OPER FOR EVAL
KLEN	*=*+1           ;LENGTH OF STR TO PACK
RETURN	*=*+1           ;RTN CODE FROM EVAL
KBASE	*=*+1           ;BASE OF # TO EVAL
LTLLEN	*=*+1           ;TITLE LENGTH
J	*=*+1           ;GENERAL COUNTER
LERCT	*=*+2           ;TOTAL ERROR COUNT
JOPTYP	*=*+1           ;OPERAND TYPE (PASS 1)
JNOPV	*=*+1           ;FLAG FOR NO OPER VAL
LEROR	*=*+1           ;ERROR NUMBER (PASS 2)
JERCOL	*=*+1           ;ERROR COLUMN
ILSST	*=*+1           ;START OF A LABEL
LCDPT	*=*+1           ;MULTIPLE LINES FLAG

JLABL	*=*+1
JORG	*=*+1
JBYWOR	*=*+1           ;ASM DIRECTIVE WORD
PASS	*=*+1
ICRDNO	*=*+2           ;CURRENT CARD NUMBER
ICSB	*=*+1           ;CURRENT STRING BEGIN
ICSE	*=*+1           ;CURRENT STRING END
ICSL	*=*+1           ;CURRENT STRINT LENGTH
IEXP	*=*+2           ;VALUE OF EXPR EVAL
ICOLP	*=*+1           ;CURRENT COLUMN
LNCT	*=*+1
JOPLEN	*=*+1           ;OPERAND LENGTH
IERR	*=*+1           ;ERROR CODE
LBOTH	*=*+1           ;LIST TO SCR & PRNTER
NOPRIN	*=*+1           ;NO HARD COPY FLAG
IFLAGS	*=*+2           ;SET OF FLAGS


;   NOGEN 128 = DON'T GENERATE STRINGS
;   NOSYM 64  = DON'T GEN SYMBOL TABLEW
;   OPCNT 32  = DO AN OPCODE COUNT
;   NOERR 16  = ERROR ONLY LISTING
;   INTER 8   = CREATE INTERFACE FILE
;   LIST  4   = CREATE OUTPUT LISTING
;   EXP   2   = EXPAND MACROS


COLCNT	*=*+1           ;COLUMN COUNT
IMAXCL	*=*+1           ;MAX COLUMNS ON CARD
KLOW	*=*+1           ;< FLAG
KHIGH	*=*+1           ;> FLAG
CHAR	*=*+1
TEMP	*=*+2
TEMB	*=*+2           ;WORK AREA
SFILE	*=*+1

;
;  INPUT BUFFER AREA
;

ICRD	*=*+80          ;INPUT BUFFER (MOVE TO $0200 ??)

LTLBUF	*=*+50          ;TITLE BUFFER (E.C.)
LTAB	*=*+6
ISYM	*=*+16

;
;  OBJECT FILE BUILD AREA
;

OBJMAP	*=*+40          ;MEMORY MAP

CKSUML	*=*+1           ;RECORD CHECKSUM
CKSUMH	*=*+1
LADDL	*=*+1           ;LAST ADDRESS
LADDH	*=*+1
RECNTL	*=*+1           ;RECORD COUNT
RECNTH	*=*+1

MAXBYT	=24             ;MAXIMUM BYTES/RECORD
BYTCNT	=*              ;RECORD BYTE COUNT

OBJBUF	*=*+MAXBYT+3    ;OBJ OUT BUF
OBJFIL	*=*+18          ;OBJECT FILE NAME
OBJLEN	*=*+1           ;FILE NAME LENGTH

NOBJ	*=*+1           ;NO OBJ FILE FLAG
IFFLAG	*=*+1           ;FLAG FOR COND ASMB

MCTBPT	*=*+2           ;MACRO TABLE POINTER
MCSTPT	*=*+2           ;MACRO STACK POINTER
NEWMAC	*=*+2           ;POINTER TO START OF MACRO ENTRY
MAYBE	*=*+2           ;PTR TO POSSIBLE MACRO END
HOLDA	*=*+1           ;TEMPORARY CELL FOR HOLDING ACC
XTEMP	*=*+1           ;TEMPORARY CELL FOR X REG
TMPMAC	*=*+2           ;TEMP FOR MACRO TABLE POINTER
PRMCNT	*=*+1           ;PARAMET COUNTER FOR MACRO CALL
MACENT	*=*+2           ;MACRO TABLE ENTRY POINTER
STKFRM	*=*+2           ;FRAME POINTER FOR MACRO STACK
CURPNT	*=*+2           ;CURRENT TEXT PTR IN MACRO SCAN
MLABEL	*=*+4           ;GENERATED LABEL
PARMPT	*=*+2           ;POINTER FOR MACRO PARAM TEXT
LEVEL	*=*+1           ;MACRO GENERATION LEVEL

.END