.TITLE	EXIT
	.MCALL	.EXIT,.PEEK,.POKE
	.NLIST	BEX
	.ENABL	LC
JSW=44				; (Simulated) job status word address

; .EXIT with DIRECTORY command.

START:	MOV	#510,%0		; Load a pointer
	MOV	#CMDLEN,(%0)+	; Store command length
	MOV	#DIRCMD,%1	; Address message
10$:	MOVB	(%1)+,(%0)+
	BNE	10$		; Copy ASCIZ
	.PEEK	#AREA		; Get JSW
	BIS	#4000,%0	; Set chain bit
	MOV	%0,NEWJSW
	.POKE	#AREA		; Put JSW back
	CLR	%0		; and clear %0
	.EXIT			; to exit with command

DIRCMD:	.ASCIZ	"DIRECTORY/BRIEF *.*;*"
CMDLEN=.-DIRCMD
	.EVEN

AREA:	.BLKW	1
	.WORD	JSW
NEWJSW:	.BLKW	1

	.END	START