rendered paste body*Add Command.*
AddCmd
ldaa Num1
adda Num2
cmpa #$FF
bgt Error2
staa Num1
rts
Error2 jsr ErrorMsg
rts
*End of Add command.*
*Subtract command.*
SubCmd
ldaa Num1
suba Num2
cmpa #$00
blt Error3
staa Num1
rts
Error3 jsr ErrorMsg
rts
*End of Subtract command.*
*Multiply command.*
MultCmd
ldaa Num1
ldab Num2
mul
cmpb #$FF
bgt Error4
stab Num1
rts
Error4 jsr ErrorMsg
rts
*End of Multiply command.*
*Divide command.*
DivCmd
ldd Num1
ldx Num2
cpx #$00
beq Error5
idiv
xgdx
stab Num1
rts
Error5 jsr ErrorMsg
rts
*End of Divide command.*
*Sets up and transfers to math function.*
movb Num1,Num2
movb Num3,Num1
ldaa Math
cmpa #$2B
beq Add
cmpa #$2D
beq Sub
cmpa #$2A
beq Mul
cmpa #$2F
beq Div
rts
Add jsr AddCmd
jsr Print
rts
Sub jsr SubCmd
jsr Print
rts
Mul jsr MultCmd
jsr Print
rts
Div jsr DivCmd
jsr Print
rts
*End of Equales Ccmmand.*
*Prints answer to lcd*
Print
rts
*Finish Print command*