stati = 177560
datai = 177562
veci = 60
stato = 177564
datao = 177566
veco = 64
psw = 0177776
. = 2000
inchr:	.space	1
. = 1000
stacktop:
start:
	mov	#stacktop,sp
	mov	#ki_int,@#veci
	clr	@#veci+2
	clrb	inchr
	mov	#100,@#stati
spc:	mov	#' ,r0
ol:	jsr	pc,putc
	tstb	inchr
	bne	gotin
din:	inc	r0
	cmp	r0,#'~
	bgt	spc
	br	ol
gotin:	mov	r0,-(sp)
	movb	inchr,r1
	bic	#0xff00,r1
	jsr	pc,crlf
	mov	r1,r0
	jsr	pc,putc
	mov	#' ,r0
	jsr	pc,putc
	mov	r1,r0
	ash	#-6,r0
	add	#'0,r0
	jsr	pc,putc
	mov	r1,r0
	ash	#-3,r0
	bic	#~7,r0
	add	#'0,r0
	jsr	pc,putc
	mov	r1,r0
	bic	#~7,r0
	add	#'0,r0
	jsr	pc,putc
	jsr	pc,crlf
	clrb	inchr
	mov	(sp)+,r0
	br	din

ki_int:
	movb	@#datai,inchr
	rti

crlf:
	mov	r0,-(sp)
	mov	#13.,r0
	jsr	pc,putc
	mov	#10.,r0
	jsr	pc,putc
	mov	(sp)+,r0
	rts	pc

putc:
	tstb	@#stato
	bpl	putc
	movb	r0,@#datao
	rts	pc