.PAGE
	.SBTTL	NODEBLOCK CONTROL MACROS
;
.MACRO	NODEBLOCK	SIZE,MASK
;
	.IIF	B	SIZE	TABLEBLOCK
;
	.IF	NB	SIZE
	NODE	SIZE,MASK
	.ENDC
;
.ENDM	NODEBLOCK
;
.MACRO	TABLEBLOCK
;
	.IIF	EQ	LST$$	.LIST
NBLKADD ::	.WORD	0		;ADDRESS OF NODE BLOCK.
NFIRST  ::	.WORD 	0		;ADDRESS OF FIRST NODE.
NPRESENT::	.WORD 	0		;ADDRESS OF PRESENT NODE.
NNEXT   ::	.WORD 	0		;ADDRESS TO ACCESS NEXT NODE FROM.
NLASTADD::	.WORD	0		;ADDRESS OF LAST NODE.
NFREEB  ::	.WORD 	0		;NUMBER OF FREE BYTES IN NODE TABLE.
NUSEDB  ::	.WORD	0		;NUMBER OF USED BYTES IN NODE TABLE.
NLOST   ::	.WORD  	0		;NUMBER OF LOST BYTES IN NODE TABLE.
NNODE	::	.WORD	0		;NUMBER OF NODES IN NODE TABLE.
NMASK   ::	.WORD  	0		;SELECTION MASK (NOT USED)  RESERVED.
NRES1   ::	.WORD  	0		;RESERVED 1.
TFIRST	::	.WORD	0		;ADDRESS OF ENTRY IN SORT TABLE.
TLAST	::	.WORD	0		;ADDRESS OF LAST ENTRY IN SORT STRING.
TPRESENT::	.WORD	0		;ADDRESS OF PRESENT IN SORT STRING.
TADDRESS::	.WORD	0		;ADDRESS OF SORT STRING.
TMSTRNG ::	.WORD	4		;STRING LENGTH.
TMARKER ::	.WORD	0		;TABLE MARKERS WORD.
TMADDR	::	.WORD	0		;NODE STRING ADDRESS.
	.IIF	EQ	LST$$	.NLIST
;
.ENDM	TABLEBLOCK
;
.MACRO	NODE	SIZE,MASK,?C,?D
; 
	.NARG	NARG			;HOLD NUMBER OF ARGUMENTS
;
	.IF NE NARG			;HAVE PARAMETERS BEEN SPECIFIED
; 
	.IIF	EQ	LST$$	.LIST
		.WORD	C		;ADDRESS OF FIRST NODE
		.WORD	C		;ADDRESS OF PRESENT NODE
		.WORD   0		;ADDRESS TO ACCESS NEXT NODE FROM
		.WORD	C		;ADDRESS OF LAST ELEMENT
		.WORD	SIZE-6		;NUMBER OF FREE BYTES
		.WORD	0		;NUMBER OF USED BYTES
		.WORD	0		;NUMBER OF LOST BYTES
		.WORD	0		;NUMBER OF NODES
	.IIF	EQ	LST$$	.NLIST
	.IF B MASK
	.IFT
	.EMIT	<.WORD	-1		;ALLOW ALL BITS>
	.IFF
	.EMIT	<.WORD	MASK		;SEEK CONTROL MASK>
	.ENDC
	.IIF	EQ	LST$$	.LIST
		.WORD   0		;RESERVED 1
C:		.WORD	0,0,0		;LAST ELEMENT FORMAT
		.BLKB 	SIZE-6
	.EVEN
	.IIF	EQ	LST$$	.NLIST
	.ENDC
;
.ENDM	NODE
;
	.SBTTL	TABLEBLOCK CONTROL MACROS
;
.MACRO	TABLE	SIZE,MASK,?C,?D
; 
	.NARG	NARG			;HOLD NUMBER OF ARGUMENTS
;
	.IF NE NARG			;HAVE PARAMETERS BEEN SPECIFIED
; 
	.IIF	EQ	LST$$	.LIST
		.WORD	C		;ADDRESS OF FIRST NODE
		.WORD	C		;ADDRESS OF PRESENT NODE
		.WORD   0		;ADDRESS TO ACCESS NEXT NODE FROM
		.WORD	C		;ADDRESS OF LAST ELEMENT
		.WORD	SIZE-6		;NUMBER OF FREE BYTES
		.WORD	0		;NUMBER OF USED BYTES
		.WORD	0		;NUMBER OF LOST BYTES
		.WORD	0		;NUMBER OF NODES
	.IIF	EQ	LST$$	.NLIST
	.IF B MASK
	.IFT
	.EMIT	<.WORD	-1		;ALLOW ALL BITS>
	.IFF
	.EMIT	<.WORD	MASK		;SEEK CONTROL MASK>
	.ENDC
	.IIF	EQ	LST$$	.LIST
		.WORD   0		;RESERVED 1
		.WORD	0		;ADDRESS OF ENTRY IN SORT TABLE
		.WORD	0		;ADDRESS OF LAST ENTRY IN SORT STRING
		.WORD	0		;ADDRESS OF PRESENT IN SORT STRING
		.WORD	0		;ADDRESS OF SORT STRING
		.WORD	4		;STRING LENGTH
		.WORD	0		;TABLE MARKERS WORD
		.WORD	0		;NODE STRING ADDRESS
C:		.WORD	0,0,0		;LAST ELEMENT FORMAT
		.BLKB 	SIZE-6
	.IIF	EQ	LST$$	.NLIST
	.EVEN
	.ENDC
;
.ENDM	TABLE
;
;
	.END