	.TITLE	MULT
/
/  8 MAR 72 - MOD BY P. HENDERSON
/
/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
/
	INTACC
/
	.GLOBL MULT
/
MULT	XX
	.ARG	MULT
	DAC TEMP
	LAC* TEMP
	GSM
	DAC MPCAND	/MULTIPLICAND
	.ARG
	DAC TEMP
	LAC* TEMP	/MULTIPLIER
	MULS	/MULTIPLY, SIGNED
MPCAND	XX
	LLS	1	/SHIFT LEFT 1 BIT
	DZM*	MOSTI
	DAC*	LEASTI
	DZM*	.MODEA	/INDICATE INTEGER MODE
	JMP* MULT
TEMP
	.END
