in_buf:	equ	18b0
R_C204:	aorg	c204
	data	17e0			;workspace for this routine
	MOV	R8,R8			;waste a little time
	LI	R10,C2A0		;instructions to be Xecuted
	LI	R4,1860			;load exec input buffer loc
	CI	R14,1400		;called by RAT?
	JLT	clear			;jump if not
	LI	R4,IN_BUF		;get RAT buffer instead
	C	*R10+,*R10+		;inc r10 by 4, point to c2a4
clear:	CLR	*R4+			;clear input buffer
	CLR	*R4+
	CLR	*R4+
	CLR	*R4
	AI	R4,FFFC			;point back to buffer top
	LI	R5,C2CA			;"ENTER PASS WORD:"
	X	*R10+			;prompt...
	X	*R10			;and input
	DECT	R10			;point to XOPs again
	LI	R5,C2E2			;and send screen controls
	X	*R10
	DECT	R4			;point to word before buffer
	BL	@0FB8			;C23A	06A0 0FB8
	INCT	R4			;C23E	05C4
	STWP	@06A0(R5)		;C240	02A5 06A0
	MOV	*R14+,R9		;C244	C27E
	JMP	C25C			;C246	100A
	ANDI	R15,EFFF		;C248	024F EFFF
	SZC	*R5,*R13		;C24C	4755
	JEQ	C25A			;C24E	1305
	ORI	R15,1000		;C250	026F 1000
	LI	R5,C2E9			;C254	0205 C2E9
	X	*R10			;C258	049A
	RTWP				;C25A	0380
	XOP	@C2A8,2			;C25C	2CA0 C2A8
	JOC	C250			;C260	18F7
	XOP	@C2B6,2			;C262	2CA0 C2B6
	JOC	C278			;C266	1808
	LI	R5,C2C2			;C268	0205 C2C2
	BL	@C27E			;C26C	06A0 C27E
	JMP	C262			;C270	10F8
	XOP	@C2BE,2			;C272	2CA0 C2BE
	JMP	C248			;C276	10E8
	MOV	@C2BE,R10		;C278	C2A0 C2BE
	JMP	C250			;C27C	10E9
	AI	R4,FFFA			;C27E	0224 FFFA
	LI	R6,0003			;C282	0206 0003
	STWP	@04C8(R7)		;C286	02A7 04C8
	MOV	*R5+,*R7		;C28A	C5F5
	C	*R7+,*R4+		;C28C	8D37
	JEQ	C292			;C28E	1301
	SETO	R8			;C290	0708
	DEC	R6			;C292	0606
	JNE	C28A			;C294	16FA
	MOV	*R5,*R7			;C296	C5D5
	MOV	R8,R8			;C298	C208
	JNE	C29E			;C29A	1601
	INCT	R11			;C29C	05CB
	RT				;C29E	045B
	XOP	*R5,3			;C2A0	2CD5
	XOP	*R4,4			;C2A2	2D14
	XOP	*R5,5			;C2A4	2D55
	XOP	*R4,6			;C2A6	2D94
	DATA	0000			;C2A8	0000
	DATA	0005			;C2AA	0005
	DATA	0000			;C2AC	0000