title life
a=1
b=2
c=3

chttyo==1
flag==1

start:
	;;Open output to TTY.
	.call [setz ? sixbit/open/
		[.uao,,chttyo] ? [sixbit/tty/] ((setz))]
	.lose %lsfil

	;; Write some bits to b.
	hrri a,<123456>
	hrli a,<070707>

	;; Init loop counter.
	movei c,<44>
	movei b,<400000>

	;; Find the bottommost bit in b.
loop:	trnn a,<0,,1>
	.iot chttyo,[" ]	;Output if 0.
	trne a,<0,,1>
outast:	.iot chttyo,["*]	;Output if 1.
	rot a,1
	subi c,<1>
	jumpg c,loop
	.iot chttyo,["
]

	;; Commit suicide.
	.value[asciz /:kill
/]

end start