/NORMALIZED INTEGER MULTIPLY FUNCTION
/EXECUTION TIME: 50 (PRODUCT +) OR 52
/                (PRODUCT -) MICROSECONDS
/CALLING SEQUENCE:  MULT(MPCAND,MPYER)
/   MPCAND:NORMALIZED INTEGER MULTIPLICAND
/   MPYER: NORMALIZED INTEGER MULTIPLIER
/EXIT:  AC=NORMALIZED INTEGER PRODUCT
	.TITLE MULT
	.GLOBL MULT
MULT	0
	ISZ MULT
	LAC* MULT
	DAC TEMP
	SPA
	LAC* TEMP   /INDIRECT
	DAC TEMP
	LAC* TEMP
	GSM
	DAC MPCAND	/MULTIPLICAND
	ISZ MULT
	LAC* MULT
	DAC TEMP
	SPA
	LAC* TEMP   /INDIRECT
	DAC TEMP
	LAC* TEMP	/MULTIPLIER
	MULS	/MULTIPLY, SIGNED
MPCAND	XX
	LLS+1	/SHIFT LEFT 1 BIT
	ISZ MULT	/BUMP TO EXIT
	JMP* MULT
TEMP
	.END