PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
					.LIST OFF
					.OP	65C02
*---------------------------------------
SYM.ClearPrivate
					clc
					rts
*---------------------------------------
SYM.AddPrivate		
					clc
					rts
*---------------------------------------
SYM.LookupPrivate
					clc
					rts
*---------------------------------------
SYM.ClearLocal
					clc
					rts
*---------------------------------------
SYM.AddLocal		
					clc
					rts
*---------------------------------------
SYM.LookupLocal	
					clc
					rts
*---------------------------------------
SYM.AddGlobal		
					clc
					rts
*---------------------------------------
SYM.LookupGlobal	
					clc
					rts
*---------------------------------------
SYM.BLOCK.ALLOC		ldx #0
.1					lda SYM.BLOCKS,x
					beq .2
					inx
					cpx #SYM.BLOCK.MAX
					bne .1				
					lda #ERR.SYM.TOO.LONG
					sec 				Out of block error
					rts
					
.2					phx					Save next free block
					>LDYA SYM.BLOCK.SIZE
					>SYSCALL SYS.GetMem
					bcs .9
					txa
					plx
					sta SYM.BLOCKS,x
					clc
.9					rts		
*---------------------------------------
MAN
SAVE BIN/ASM.S.SYM
LOAD BIN/ASM.S
ASM