fc TAPE 1313 m100 p110 CONVERT BCD TO SPECIAL CODE HOLST
OCTAL
t=x8
x1,	tax7
	ca2x7
	tdx3
	ca3x7
	tdx5
	ca4x7
	tdx6
x2,	cs0
	tst
	cs1x7
	ts1t
x3,	ca21i1+
	ad6x7
	tdx4
x4,	cat1+
	cpx7
x5,	tsi2+
	mdt
	tst
	aox3
	aox5
	ao1t
	cpx3
	cat
x6,	tsi6+
	aox6
	su5x7
	cpx2
x7,	sp0
	5
	21i1
	i2
	i6
	ts3i6
	t1
x8,	0
	0
START AT 0
{01}3