.TITLE ROUT
	.IDENT 1111
	.EVEN
STUFF::	MOVB	@6(R5),R1
	BR	$10
CLEAR::	CLR	R1
	BR	$10
BLANK::	MOVB	#40,R1
$10:	MOV	@4(R5),R2
	MOV	#1,R4
	CMP	R4,R2
	BGT	30$
	MOV	R4,R0
	ADD	2(R5),R0
	DEC	R0
20$:	MOVB	R1,@R0
	INC	R4
	INC	R0
	CMP	R4,R2
	BLE	20$
30$:	RTS	PC
LOWER::	MOV	@4(R5),R2
	MOV	#1,R4
	CMP	R4,R2
	BGT	60$
	MOV	R4,R0
	ADD	2(R5),R0
	DEC	R0
40$:	CMPB	@R0,#101
	BLT	50$
	CMPB	@R0,#132
	BGT	50$
	MOVB	@R0,R1
	ADD	#40,R1
	MOVB	R1,@R0
50$:	INC	R4
	INC	R0
	CMP	R4,R2
	BLE	40$
60$:	RTS	PC
INDX::	CLR	R0
	CMPB	@2(R5),#101
	BLT	20$
	CMPB	@2(R5),#132
	BGT	10$
	MOVB	@2(R5),R0
	SUB	#101,R0
	INC	R0
	BR	20$
10$:	CMPB	@2(R5),#141
	BLT	20$
	CMPB	@2(R5),#172
	BGT	20$
	MOVB	@2(R5),R0
	SUB	#141,R0
	INC	R0
20$:	RTS	PC
	.END