Tape comparator

ent,	llr cmp
	slr sw
	load st, sto aa
	load fa, 17744
	tra inp

inr,	r3c
	call sw
inp,	r3c
	call sw
	com
	trn inr

fla,	r3c
	call sw
	trn go+1
	sto fa
	add (add
	trn go
	r3c
	call sw
	sto la

dat,	r3c
	call sw
	clad fa
	add (1
	sto fa
	add la
	trn dat
	r3c
	subr sw, fla

go,	add (-add
	xx+lro-opr
	load sw, tra cmp
	tra ent+2

sw,	xx
st,	xx
	ala

stt,	add st
	add (1
	sto st
	lac
swx,	xx

cmp,	slr swx
	ala
	add st
	add (add
	sto .+2
	cla
	xx
	lpd
	trn err
	amz
	trn stt

err,	lac
	llr fa
	hlt
	tra stt-1

fa,	0
la,	0
tem,	0
const

aa,

start ent