.MCALL	.EXIT
.ENABL	GBL
;
JSW 	= 44				; RT-11 JSW
 J.CMD	= 4000				; 1 -> command in memory
;
START:	CALL	CON.ST			; initialize TTY interface
	CALL	CON.ES			; clear screen
;
	MOV	#512,R0			; R0 -> destination
	MOV	#CMD,R1			; R1 -> command string
1000$:	MOVB	(R1)+,(R0)+		;	copy command into ...
	BPL	1000$			;	... low memory
	SUB	#512,R0			; R0 =	number command bytes
	MOV	R0,@#510		;	setup count
	BIS	#J.CMD,@#JSW		;	indicate command in memory
	CLR	R0			; R0 =	0 --> hard exit
	.EXIT				;	exit time
;
CMD:	.ASCIZ	/BYE/			;	command #1
	.BYTE	200			; 	end of commands
.END	START