.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