my program does not perform the desired operation correctly. For addition it performs subtraction and for the other operations it just performs addition.

$/$ Addition, Subtraction, Multiplication, and Division Calculator

$/$ Main Loop

MainLoop, CLEAR $/$ Clear the result

STORE Result $/$ Store zero in Result

INPUT $/$ Prompt user to enter the first integer

STORE X $/$ Store the input in variable X

INPUT $/$ Prompt user to enter the operator $($enter ASCII value in decimal$)$

STORE Operator $/$ Store the operator in variable Operator

INPUT $/$ Prompt user to enter the second integer

STORE Y $/$ Store the input in variable Y

$/$ Determine which operation to perform

LOAD Operator

SUBT PlusOp

SKIPCOND $400$

JUMP ADD

LOAD Operator

SUBT MinusOp

SKIPCOND $400$

JUMP SUBTRACT

LOAD Operator

SUBT MultOp

SKIPCOND $400$

JUMP MULTIPLY

LOAD Operator

SUBT DivOp

SKIPCOND $400$

JUMP DIVIDE

$/$ Invalid operator entered

JUMP InvalidOp

$/$ Addition Subroutine

ADD, LOAD X

ADD Y

STORE Result

JUMP DISPLAY

$/$ Subtraction Subroutine

SUBTRACT, LOAD X

SUBT Y

STORE Result

JUMP DISPLAY

$/$ Multiplication Subroutine

MULTIPLY, CLEAR

STORE Result

LOAD Y

STORE TempY

MULTIPLY$\_$LOOP, LOAD TempY

SKIPCOND $000$

JUMP MULTIPLY$\_$END

LOAD X

ADD Result

STORE Result

LOAD TempY

SUBT One

STORE TempY

JUMP MULTIPLY$\_$LOOP

MULTIPLY$\_$END, JUMP DISPLAY

$/$ Division Subroutine

DIVIDE, CLEAR

STORE Quotient

LOAD X

STORE Remainder

DIVIDE$\_$LOOP, LOAD Remainder

SUBT Y

SKIPCOND $800$

JUMP DIV$\_$EXIT

STORE Remainder

LOAD Quotient

ADD One

STORE Quotient

JUMP DIVIDE$\_$LOOP

DIV$\_$EXIT, LOAD Quotient

STORE Result

JUMP DISPLAY

$/$ Invalid operator handling

InvalidOp, CLEAR

STORE Result

JUMP DISPLAY

$/$ Display the result

DISPLAY, LOAD Result

OUTPUT

JUMP MainLoop $/$ Go back to main loop

$/$ Define variables

X$,$ DEC $0$

Y$,$ DEC $0$

Operator, DEC $0$

Result, DEC $0$

Quotient, DEC $0$

Remainder, DEC $0$

TempY, DEC $0$

PlusOp, DEC $43/$ ASCII code for $\text{'}+\text{'}$

MinusOp, DEC $45/$ ASCII code for $\text{'}-\text{'}$

MultOp, DEC $42/$ ASCII code for $\text{'}*\text{'}$

DivOp, DEC $47/$ ASCII code for $\text{'}/\text{'}$

One, DEC $1$