;       STACK.LIT - pass commands to self thru type-ahead buffer
;
;       Copyright [c] Noel Alaska Systems Technology, 1983.
 
VMAJOR  =       1.
VMINOR  =       0.
VSUB    =       0.
VEDIT   =       4.
VWHO    =       0.

        SEARCH  SYS
        SEARCH  SYSSYM
	SEARCH	TRM
 
PSEUDO	=	174		; vertical bar '|'

BEGIN:  PHDR    -1,-1,PH$REE!PH$REU
 
	JOBIDX	A5
	MOV	JOBTRM(A5),A5
;	ORW	#T$ECS,@A5
1$:	MOVB	(A2)+,D1
	BEQ	3$
	CMPB	D1,#12
	BEQ	1$
	CMPB	D1,#PSEUDO
	BNE	2$
	MOVB	#15,D1
2$:	TRMICP
	CMPB	D1,#15
	BNE	1$
	CALL	4$
	BR	1$
3$:	CALL	4$
	EXIT

4$:	SLEEP	#100.
	MOV	#T$OIP,D7
	ANDW	@A5,D7
	BNE	4$
	TST	T.OQX(A5)
	BNE	4$
	RTN

        EVEN
        END