;
; stracc.sh
;
; String accululator management
;
; © 1995 Straylight
;

;----- Overview -------------------------------------------------------------
;
; Functions provided:
;
;  stracc_ensure
;  stracc_added
;  stracc_free

		[	:LNOT::DEF:stracc__dfn
		GBLL	stracc__dfn

; --- stracc_ensure ---
;
; On entry:	--
;
; On exit:	R0 == address of string to use
;		R1 == offset of string from stracc, in upper 24 bits
;
; Use:		Ensures tha there are at least 256 bytes available in stracc,
;		and then returns a pointer to them.

		IMPORT	stracc_ensure

; --- stracc_added ---
;
; On entry:	R0 == rvalue of string added
;
; On exit:	--
;
; Use:		Informs stracc that a new string has been added.

		IMPORT	stracc_added

; --- stracc_free ---
;
; On entry:	R0 == rvalue of string no longer needed
;
; On exit:	--
;
; Use:		Tells stracc that a string is no longer needed.

		IMPORT	stracc_free

		]

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

		END