.TITLE	CHAIN
	.MCALL	.CHAIN

; .CHAIN PIP to do a directory listing.

START:	MOV	#500,%0		; Load a pointer
	MOV	#^R$  ,(%0)+	; PIP is in LB:[1,54]
	MOV	#^RPIP,(%0)+
	CLR	(%0)+
	MOV	#^RTSK,(%0)+
	MOV	#PIPLI,%1	; Address message
10$:	MOVB	(%1)+,(%0)+
	BNE	10$		; Copy ASCIZ
	.CHAIN			; Chain to PIP and exit

PIPLI:	.ASCIZ	"PIP /LI"

	.END	START