Directory of image this file is from
This file as a plain text file

[FLOS-1R PIECED
[ENTER MULTIPLY
#1M CLR
ADD 0
JMP 1X-2
LDA 1 [COMPUTE EXPONENT
ADA 2
JMP 1Q+3 [TEST OVERFLOW
STA 3 [STORE EXPONENT
LDA i2 [SET UP MULTIPLICAND
STC 1N-10
LDA i1 [OBTAIN MULTIPIER
MUL
4000+1N-10
AZE i [TEST FOR ZERO
JMP 1H+1 [ZERO RESULT
LZE [OBTAIN PRODUCT MAGNITUDE
COM
SCR 12 [TEST FOR PRODUCT LESS THAN 1|2
AZE
JMP p+4 [PRODUCT GREATER THAN OR EQUAL TO 1|2
ADD 1M+37 [-1
JMP 1Q+2 [DECREM EXPONENT
JMP p+2
SCR 1
ZTA [PICK UP PRODUCT
ZZZ [ROUNDOFF
ADD 1Q+1 [+1
OVF i
COM
LZE [CORRECT SIGN
COM
JMP 1R-1 [STORE MANTISSA AND EXIT
-1 [1M+37
[END MULS
[JAN 6|26