.TITLE	AS3F
	.IDENT	/X01/
 
	.NLIST	BEX
	.ENABL	LC
 
;
; AS
; SYMBOL TABLES
;
; VERSION X01
;
; DAVID G. CONROY	24-MAY-78
; LAST UPDATED:		11-JUN-79
;
 
	.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	=	500.		;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
;

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	<mtps>,		ST.SOP, 106400
	SYM	<mfps>,		ST.SOP, 106700
	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
	SYM	<.flt2>,	ST.FL2, 000000
	SYM	<.flt4>,	ST.FL4, 000000
	SYM	<fadd>,		ST.RTS, 075000
	SYM	<fsub>,		ST.RTS, 075010
	SYM	<fmul>,		ST.RTS, 075020
	SYM	<fdiv>,		ST.RTS, 075030
	SYM	<setf>,		ST.INH,	170001
	SYM	<setd>,		ST.INH, 170011
	SYM	<seti>,		ST.INH, 170002
	SYM	<setl>,		ST.INH, 170012
	SYM	<cfcc>,		ST.INH, 170000
	SYM	<ldfps>,	ST.SOP, 170100
	SYM	<stfps>,	ST.SOP, 170200
	SYM	<stst>,		ST.SOP, 170300
	SYM	<clrf>,		ST.SOP, 170400
	SYM	<clrd>,		ST.SOP, 170400
	SYM	<tstf>,		ST.SOP, 170500
	SYM	<tstd>,		ST.SOP, 170500
	SYM	<absf>,		ST.SOP, 170600
	SYM	<absd>,		ST.SOP, 170600
	SYM	<negf>,		ST.SOP, 170700
	SYM	<negd>,		ST.SOP, 170700
	SYM	<mulf>,		ST.FLD, 171000
	SYM	<muld>,		ST.FLD, 171000
	SYM	<modf>,		ST.FLD, 171400
	SYM	<modd>,		ST.FLD, 171400
	SYM	<addf>,		ST.FLD, 172000
	SYM	<addd>,		ST.FLD, 172000
	SYM	<ldf>,		ST.FLD, 172400
	SYM	<ldd>,		ST.FLD, 172400
	SYM	<subf>,		ST.FLD, 173000
	SYM	<subd>,		ST.FLD,	173000
	SYM	<cmpf>,		ST.FST, 173400
	SYM	<cmpd>,		ST.FST, 173400
	SYM	<stf>,		ST.FST, 174000
	SYM	<std>,		ST.FST, 174000
	SYM	<divf>,		ST.FLD, 174400
	SYM	<divd>,		ST.FLD, 174400
	SYM	<stexp>,	ST.FST, 175000
	SYM	<stcfi>,	ST.FST, 175400
	SYM	<stcfl>,	ST.FST, 175400
	SYM	<stcdi>,	ST.FST, 175400
	SYM	<stcdl>,	ST.FST, 175400
	SYM	<stcfd>,	ST.FST, 176000
	SYM	<stcdf>,	ST.FST,	176000
	SYM	<ldexp>,	ST.FLD, 176400
	SYM	<ldcif>,	ST.FLD, 177000
	SYM	<ldcid>,	ST.FLD, 177000
	SYM	<ldclf>,	ST.FLD, 177000
	SYM	<ldcld>,	ST.FLD, 177000
	SYM	<ldcdf>,	ST.FLD, 177400
	SYM	<ldcfd>,	ST.FLD, 177400
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