ibmpc	.set	0
dac	.set	0ah
op	.set	0
num1	.set	1
num2	.set	2
ans	.set	3

	.text
	cnfd
	ldpk	8
	larp	0
	ssxm
getop	bioz	next1
	b	getop
next1	in	op,ibmpc
wait1	bioz	wait1
getn1	bioz	next2
	b	getn1
next2	in	num1,ibmpc
wait2	bioz	wait2
getn2	bioz	next3
	b	getn2
next3	in	num2,ibmpc
wait3	bioz	wait3
	lar	ar0,op
	lac	num1
	banz	subit
	add	num2
	b	done
subit	sub	num2
done	sacl	ans
	out	ans,ibmpc
	b	getop
	.end