LMC - Multiplication function

INP
STA base
INP
SUB one
STA mValue
BRP posiMLoop

LDA mValue
ADD one
BRZ zeroMulti

LDA mValue
SUB mValue
SUB mValue
SUB two
STA mValue
BRA negiMLoop

posiMLoop LDA total
ADD base
STA total
LDA mValue
SUB one
STA mValue
BRP posiMLoop

LDA total
OUT
HLT

zeroMulti LDA zero
OUT
HLT

negiMLoop LDA total
ADD base
STA total
LDA mValue
SUB one
STA mValue
BRP negiMLoop

LDA total
SUB total
SUB total
OUT
HLT

base DAT
mValue DAT
total DAT
zero DAT 0
one DAT 1
two DAT 2