;
; anchor.sh
;
; Layout of anchor blocks
;
; © 1995 Straylight
;

		[	:LNOT::DEF:anchor__dfn
		GBLL	anchor__dfn

		; --- Anchor block contents ---

		^	0,R12

sail_R13	#	4			;Saved R13 (stack pointer)
sail_tokAnchor	#	4			;Ptr to tokenised file anchor
sail_currAnchor	#	4			;Current anchor for input
sail_oldAnchor	#	4			;Previous anchor for input
sail_flags	#	4			;A nice flags word
sail_timeOff	#	4			;OS_ReadMonotonicTime-TIME
sail_line	#	4			;Current line number
sail_timeSoFar	#	4			;Time execution started
sail_rndSeed	#	8			;Random number seed
sail_rmaList	#	4			;List of blocks from RMA
sail_env	#	4			;Handle of environment
sail_global	#	4			;Ptr to global vars anchor
sail_preempt	#	4			;Time allowed before return
sail_files	#	32			;Files-open flags

		; --- DATA information ---

sail_dataPtr	#	4			;Current DATA pointer
sail_dataLine	#	4			;Current data line

		; --- Resizing blocks ---

sail_rszBlocks	#	0

sail_varTree	#	4			;The variable stack anchor
sail_varPtr	#	4			;Where to create the next var
sail_varSize	#	4			;Current size if the stack

sail_execStack	#	4			;Anchor of execution stack
sail_execStkPtr	#	4			;Pointer into stack
sail_execStkSize #	4			;Size of the stack

sail_opStack	#	4			;Anchor of execution stack
sail_opStkPtr	#	4			;Pointer into stack
sail_opStkSize	#	4			;Size of the stack

sail_calcStack	#	4			;Anchor of execution stack
sail_calcStkPtr	#	4			;Pointer into stack
sail_calcStkSize #	4			;Size of the stack

sail_stracc	#	4			;Anchor of execution stack
sail_straccPtr	#	4			;Pointer into stack
sail_straccSize	#	4			;Size of the stack

sail_bucket	#	4			;String bucket anchor
sail_bktPtr	#	4			;Free pointer for bucket
sail_bktSize	#	4			;Current size of bucket block

sail_erszBlocks	#	0

sail_misc	#	256			;A big buffer for things

sail_blkSize	EQU	2048			;Enough space for a stack

		[	{VAR}-sail_R13+1024>tsc_blkSize
		!	1,"sail_blkSize is too small"
		]

tscFlag_nl	EQU	(1<<0)			;We have just read a newline

		]

;----- That's all, folks ----------------------------------------------------

		END