(Fail) LMC - DIV and MOD script (too big for LMC) (>100 L-bytes)

INP -- Script size: 106 L-bytes ; 117 lines; 11 lines of blank space
STA varX1
BRP X1NotNeg

LDA zValue
ADD one
STA zValue
LDA X1Sign
ADD one
STA X1Sign

X1NotNeg INP
STA varX2
BRP X2NotNeg

LDA zValue
ADD one
STA zValue

X2NotNeg LDA X1Sign
BRZ X1Pos
BRP X1Neg

X1Pos LDA zValue
SUB one
BRZ BRANCH2
BRA BRANCH1

X1Neg LDA zValue
SUB one
BRZ BRANCH4
BRA BRANCH3

BRANCH1 BRA start1
looptop1 LDA total
ADD one
STA total
start1 LDA varX1
SUB varX2
STA varX1
BRP looptop1
LDA total
OUT
LDA varX1
ADD varX2
OUT
HLT

BRANCH2 LDA zero
SUB varX2
STA varX2
BRA start2
looptop2 LDA total
ADD one
STA total
start2 LDA varX1
SUB varX2
STA varX1
BRP looptop2
LDA zero
SUB total
OUT
LDA varX1
ADD varX2
OUT
HLT

BRANCH3 LDA zero
SUB varX1
STA varX1
LDA zero
SUB varX2
STA varX2
BRA start3
looptop3 LDA total
ADD one
STA total
start3 LDA varX1
SUB varX2
STA varX1
BRP looptop3
LDA total
OUT
LDA varX1
ADD varX2
STA varX1
LDA zero
SUB varX1
OUT
HLT

BRANCH4 LDA zero
SUB varX1
STA varX1
BRA start4
looptop4 LDA total
ADD one
STA total
start4 LDA varX1
SUB varX2
STA varX1
BRP looptop4
LDA zero
SUB total
OUT
LDA varX1
ADD varX2
OUT
HLT

varX1 DAT
varX2 DAT
zValue DAT
X1Sign DAT
zero DAT 0
one DAT 1
total DAT