list	off
; -----------------------------------------------------------------------------
; queue structure

		struct	0
q_ct:		ds	1	; character count
q_getp:		ds	2	; get-pointer
q_putp:		ds	2	; put-pointer
QUEUELEN:	ds	0
		mend	queue
	list	on