	.SLIST	.XLIST
; MACROS:	
	.DEFINE	TOKEN[TINDX,TGOTO]=
[	.BYTE	TINDX+80H
	.WORD	TGOTO
]
	.DEFINE	TSTC[CAT,DOG]=
[	CALL	TSTCH#
	.BYTE	'CAT'
	.BYTE	DOG-.-1
]
	.DEFINE	TSTCC[CAT1,DOG1]=
[	CALL	TSTCH#
	.BYTE	CAT1
	.BYTE	DOG1-.-1
]
	.DEFINE	ITEM[STRANG,JUMPTO]=
[	.ASCIS	   'STRANG'
	.WORD	JUMPTO
]
BOTSCR	==	08C20H
TOPSCR	==	08FFFH
BOTRAM	==	08000H
BOTROM	==	06000H
;
TAPEIO	==	12H	; TAPE INTERFACE I-O PORT
STPBCT	==	0FCH	; -# OF STOP BIT WINDOWS FOR VALID DATA
KEYBSZ	==	40	; KEYBOARD BUFFER SIZE
;
CR	==	0DH
RUBOUT	==	1FH
COMMA	==	44
EDKEY	==	66H
NLLN	==	67H
; EQUATES FOR RESTART INSTRUCTIONS
.DEFINE RSTEXP=[
	CALL	EXPR#]
.DEFINE RSTOCH=[
	CALL	OUTCH#]
.DEFINE RSTIGN=[
	CALL	IGNBLK#]
.DEFINE RSTPAR=[
	CALL	PARN#]
.DEFINE RSTFIN=[
	JMP	FINISH#]
;RSTEXP	==	2	; EXPR
;RSTOCH	==	3	; OUTCH
;RSTIGN	==	4	; IGNBLK
;RSTPAR	==	5	; PARN
;RSTFIN	==	6	; FINISH
	.RLIST
                                                                                                                