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

[DECMUL
[DECIMAL MULTIPLY
[USES DECBASE
[JMP 1M
[ADDR MULTIPLICAND
[ADDR MULTIPLIER
[ADDR PRODUCT
[#1B-ADDR BUFFER AREA
[1L=#DIGITS
[1L,1B SET IN DECBASE
[XR 1 TO 12
#1M CLR
ADD 0
JMP 1N
ROLi1
SCR 1
ADD 1N+104 [EXP1
STC 1N+104 [RESULT EXP
RORi1
BCO 2
BCLi
 3777
STC 1N+122
STAi7
STAi7
STAi7 [CLEAR RESULT
XSKi10
 JMP p-2
COM
STC p+32-2 [PRESET
SETi10
-1L
SETi7
1B
SETi5
-1L
 SET 11
 5
SET 6 [WAS SET 5 MJM 1-29-70
 3    [ARG2 PTR
SET 12 
 7    [RESULT PTR
LDHi2 [MULTIPLIER DIGIT
AZEi
 JMP p+13-3 [ZERO MULTIPLIER
STC p+3
LDH i6 [WAS LDH i5 MJM 1-29-70
MULi
  0
ADMi12
XSKi11
 JMP p-5
SROi
 0
 JMP p+27 [FOR GUARD DIGITS
XSK i5 [NS
XSKi7 [NS
XSKi10
 JMP p-26 [NEXT MULTIPLIER DIGIT
[ PROPAGATE CARRIES
[   AC=RIGHTMOST DIGIT
SETi7
1B+1L+2
SETi10
-1L-2 [#DIGITS+2 GUARD 
 SETi5
 0     [CLEAR CARRY BUFFER
[ HUNDREDS
ADAi
 -144
AZEi
 CLR
APO 
 JMP p+17-2
STC p-27
ADD 1N+150 [12
ADD 5
STC 5 [CARRY
ADD p-33
JMP p-15+2 [MORE HUNDREDS
[
[ FOR 2 GUARD DIGITS
 SROi
  3333
 JMP p-30+1
CLR
STC p-32-2
JMP p-33+1
[
ADAi
 144
[ TENS
 ADA i
 -12
AZEi
 CLR
APO
 JMP p+3
XSKi5 [+1
JMP p-7
[
 ADD 1N+150 [12
AZEi
 CLR
STA 7
LDAi
 -1
ADM
 7
LDA 7
ADD 5 [CARRY
XSKi10
 JMP p-51 [NEXT DIGIT TO LEFT
STA 7
JMP 1N+32 [EXIT
[END DECMUL
[JAN 8|15|69
[MODIFIED: MJM 1|29|70