stati = 0177560
datai = 0177562
stato = 0177564
datao = 0177566
. = 1000
start:
loop:
iloop:	tstb	@#stati
	bpl	iloop
	movb	@#datai,r0
	cmpb	r0,#27.
	beq	done
	cmpb	r0,#'A
	blt	notltr
	cmpb	r0,#'Z
	ble	ucltr
	cmpb	r0,#'a
	blt	notltr
	cmpb	r0,#'z
	ble	lcltr
	br	notltr
ucltr:	add	#'a-'A,r0
	br	printit
lcltr:	sub	#'a-'A,r0
	br	printit
notltr:
printit:
oloop:	tstb	@#stato
	bpl	oloop
	movb	r0,@#datao
	br	loop
done:	halt
	.end	start