.TITLE	AS3F
	.IDENT	/X01/
 
	.NLIST	BEX
	.ENABL	LC
 
;
; AS
; SYMBOL TABLES
;
; VERSION X01
;
; DAVID G. CONROY	24-MAY-78
;
 
	.GLOBL	DOT
	.GLOBL	PST
	.GLOBL	UST
	.GLOBL	USTORG
	.GLOBL	USTMAX
	.GLOBL	PSECT
	.GLOBL	PSECTO
	.GLOBL	PSECTM
	.GLOBL	FB
	.GLOBL	FBF
	.GLOBL	FBB
	.GLOBL	FBORG
	.GLOBL	FBMAX
 
;
; TABLE SIZES
; CHANGABLE WITH IMPUNITY
;
 
USIZE	=	300.		;USER TABLE
PSIZE	=	10.		;PSECT TABLE
FSIZE	=	300.		;FB TABLE
 
;
; MACRO TO BUILD PST
; NAME MUST BE IN CORRECT CASE
;
 
	.MACRO	SYM	NAME, TYPE, VALUE
	.WORD	VALUE
	.WORD	TYPE
	.WORD	0
	.ASCII	"NAME"
	.NCHR	N,NAME
	.IF	GT,8.-N
	.REPT	8.-N
	.BYTE	0
	.ENDR
	.ENDC
	.ENDM
 
;
; PST
; EIS BOX INSTRUCTIONS ARE COMMENTED OUT
;

PST:	.WORD	10$
	SYM	<CLR>,		ST.SOP,	005000
	SYM	<CLRB>,		ST.SOP,	105000
	SYM	<COM>,		ST.SOP,	005100
	SYM	<COMB>,		ST.SOP,	105100
	SYM	<INC>,		ST.SOP,	005200
	SYM	<INCB>,		ST.SOP,	105200
	SYM	<DEC>,		ST.SOP,	005300
	SYM	<DECB>,		ST.SOP,	105300
	SYM	<NEG>,		ST.SOP,	005400
	SYM	<NEGB>,		ST.SOP,	105400
	SYM	<TST>,		ST.SOP,	005700
	SYM	<TSTB>,		ST.SOP,	105700
	SYM	<ASR>,		ST.SOP,	006200
	SYM	<ASRB>,		ST.SOP,	106200
	SYM	<ASL>,		ST.SOP,	006300
	SYM	<ASLB>,		ST.SOP,	106300
	SYM	<ROR>,		ST.SOP,	006000
	SYM	<RORB>,		ST.SOP,	106000
	SYM	<ROL>,		ST.SOP,	006100
	SYM	<ROLB>,		ST.SOP,	106100
	SYM	<SWAB>,		ST.SOP,	000300
	SYM	<ADC>,		ST.SOP,	005500
	SYM	<ADCB>,		ST.SOP,	105500
	SYM	<SBC>,		ST.SOP,	005600
	SYM	<SBCB>,		ST.SOP,	105600
;	SYM	<SXT>,		ST.SOP,	006700
	SYM	<MFPI>,		ST.SOP,	006500
	SYM	<MTPI>,		ST.SOP,	006600
	SYM	<MFPD>,		ST.SOP,	106500
	SYM	<MTPD>,		ST.SOP,	106600
	SYM	<MOV>,		ST.DOP,	010000
	SYM	<MOVB>,		ST.DOP,	110000
	SYM	<CMP>,		ST.DOP,	020000
	SYM	<CMPB>,		ST.DOP,	120000
	SYM	<ADD>,		ST.DOP,	060000
	SYM	<SUB>,		ST.DOP,	160000
	SYM	<BIT>,		ST.DOP,	030000
	SYM	<BITB>,		ST.DOP,	130000
	SYM	<BIC>,		ST.DOP,	040000
	SYM	<BICB>,		ST.DOP,	140000
	SYM	<BIS>,		ST.DOP,	050000
	SYM	<BISB>,		ST.DOP,	150000
;	SYM	<XOR>,		ST.JSR,	074000
	SYM	<BR>,		ST.BR,	000400
	SYM	<BNE>,		ST.BR,	001000
	SYM	<BEQ>,		ST.BR,	001400
	SYM	<BPL>,		ST.BR,	100000
	SYM	<BMI>,		ST.BR,	100400
	SYM	<BVC>,		ST.BR,	102000
	SYM	<BVS>,		ST.BR,	102400
	SYM	<BCC>,		ST.BR,	103000
	SYM	<BCS>,		ST.BR,	103400
	SYM	<BEC>,		ST.BR,	103000
	SYM	<BES>,		ST.BR,	103400
	SYM	<BGE>,		ST.BR,	002000
	SYM	<BLT>,		ST.BR,	002400
	SYM	<BGT>,		ST.BR,	003000
	SYM	<BLE>,		ST.BR,	003400
	SYM	<BHI>,		ST.BR,	101000
	SYM	<BLOS>,		ST.BR,	101400
	SYM	<BHIS>,		ST.BR,	103000
	SYM	<BLO>,		ST.BR,	103400
	SYM	<JMP>,		ST.SOP,	000100
	SYM	<CALLR>,	ST.SOP, 000100
	SYM	<JSR>,		ST.JSR,	004000
	SYM	<CALL>,		ST.SOP,	004700
	SYM	<RTS>,		ST.RTS,	000200
	SYM	<RETURN>,	ST.INH,	000207
	SYM	<MARK>,		ST.MRK,	006400
;	SYM	<SOB>,		ST.SOB,	077000
	SYM	<EMT>,		ST.EMT,	104000
	SYM	<SYS>,		ST.EMT,	104000
	SYM	<TRAP>,		ST.EMT, 104400
	SYM	<BPT>,		ST.INH, 000003
	SYM	<IOT>,		ST.INH,	000004
	SYM	<RTI>,		ST.INH,	000002
	SYM	<RTT>,		ST.INH, 000006
	SYM	<HALT>,		ST.INH,	000000
	SYM	<WAIT>,		ST.INH,	000001
	SYM	<RESET>,	ST.INH, 000005
	SYM	<SEC>,		ST.INH, 000261
	SYM	<SEV>,		ST.INH,	000262
	SYM	<SEZ>,		ST.INH, 000264
	SYM	<SEN>,		ST.INH, 000270
	SYM	<CLC>,		ST.INH,	000241
	SYM	<CLV>,		ST.INH,	000242
	SYM	<CLZ>,		ST.INH,	000244
	SYM	<CLN>,		ST.INH, 000250
	SYM	<NOP>,		ST.INH,	000240
	SYM	<SEE>,		ST.INH,	000261
	SYM	<CLE>,		ST.INH,	000241
;	SYM	<MUL>,		ST.MUL,	070000
;	SYM	<DIV>,		ST.MUL,	071000
;	SYM	<ASH>,		ST.MUL, 072000
;	SYM	<ASHC>,		ST.MUL, 073000
	SYM	<.ASCII>,	ST.ASC,	000000
	SYM	<.ASCIZ>,	ST.ASZ,	000000
	SYM	<.WORD>,	ST.WRD, 000000
	SYM	<.BYTE>,	ST.BYT, 000000
	SYM	<.EVEN>,	ST.EVN, 000000
	SYM	<.ODD>,		ST.ODD, 000000
	SYM	<.BLKB>,	ST.BKB, 000000
	SYM	<.BLKW>,	ST.BKW, 000000
	SYM	<.GLOBL>,	ST.GBL, 000000
	SYM	<.ENTRY>,	ST.ENT, 000000
	SYM	<.PSECT>,	ST.PST,	000000
	SYM	<.LIMIT>,	ST.LIM,	000000
10$:
 
;
; UST
; INITIALLY "." AND THE REGISTERS
;

UST:	.WORD	USTORG
DOT:	SYM	<.>,		ST.REL, 000000
	SYM	<R0>,		ST.REG, 000000
	SYM	<R1>,		ST.REG,	000001
	SYM	<R2>,		ST.REG,	000002
	SYM	<R3>,		ST.REG,	000003
	SYM	<R4>,		ST.REG, 000004
	SYM	<R5>,		ST.REG, 000005
	SYM	<SP>,		ST.REG,	000006
	SYM	<PC>,		ST.REG,	000007
USTORG:	.BLKB	USIZE*14.
USTMAX:
 
;
; PROGRAMME SECTION TABLE
; INITIALLY ".PROG." ONLY
;

PSECT:	.WORD	PSECTO
	SYM	<.PROG.>,	PF.REL,	000000
PSECTO:	.BLKB	PSIZE*14.
PSECTM:
 
;
; FBT
; INITIALISED AT RUNTIME
;

FB:	.WORD	FBORG
FBORG:	.BLKB	FSIZE*4.
FBMAX:
 
FBF:	.BLKW	10.		;'F' LABEL POINTERS
FBB:	.BLKW	10.		;'B' LABEL POINTERS
 
	.END