title hello
a=1
b=2
p=17

chttyo==1
chttyi==2

pdllen==100
pdl:	block pdllen

buflen==30
buffer:	block buflen
start:	move p,[-pdllen,,pdl-1]

	.call [setz ? sixbit/open/
		[.uai,,chttyio] ? [sixbit/tty/] ((setz))]
	.lose %lsfil
	.call [setz ? sixbit/open/
		[.uao,,chttyo] ? [sixbit/tty/] ((setz))]
	.lose %lsfil

	pushj p,getlin
irpc x,,[Hello, ]
	.iot chttyo,["x]
termin
	movei a,buffer
	pushj p,outstr
	.iot chttyo,["
]
	.value[asciz \:kill
\]

getlin:	.iot chttyo,["$]
	move b,[440700,,buffer]
getli1:	.iot chttyi,a
	cain a,^M
	 jrst getli2
	idpb a,b
	jrst getli1
getli2:	setz a,
	idpb a,b
	popj p,

outstr:	hrli a,440700
outst1:	ildb b,a
	jumpe b,outst2
	.iot chttyo,b
	jrst outst1
outst2:	popj p,

end start