*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*