/ PDP8 Multiplikation

/ Programm bei 0020 (16)
* 20

/ Variablen
/ p = fac1 * fac2
f1,	013	/ 11
f2lo,	005	/ 5
f2hi, 0
plo,	0
phi,	0

/ fac1 & 1 == 1?
loop,	cla		/ AC=0
		tad f1	/ AC+=factor1
		cll		/ clear L
		rar		/ shift right into L
		dca f1	/ f1=AC; AC=0
		snl		/ skip if L==1
		jmp shft	/ jump (L was 0)

/ P += fac2
		cla cll	/ clear AC, L
		tad f2lo	/ p.low += f2.low + L
		tad plo
		dca plo
		tad f2hi	/ p.high += f2.high + L
		tad phi
		dca phi

/ fac1 == 0?
		cll		/ clear L
		tad f1	/ AC=factor1
		sna		/ skip if nonzero Ac
		hlt		/ we're done!

/ F2 << 1
shft,	cla cll	/ clear AC, L
		tad f2lo	/ f2.low <<= 1
		ral		/ schieben
		dca f2lo	/ speichern; AC=0
		tad f2hi	/ f2.high <<= 1; f2.high |= L
		ral		/ schieben
		dca f2hi	/ speichern; AC=0
		jmp loop

/ END
end,	7777
$