[求助]4*4键盘计算器汇编

;加法计算
JIA1: MOV A,37H
  ADD A,30H
  MOV B,#10;16 TO 10BCD
  DIV AB
  MOV 30H,B; 个位
  MOV 37H,A ; 商

  MOV A,38H
  ADD A,31H
  ADD A,37H
  MOV 37H,#00H
  MOV B,#10
  DIV AB
  MOV 31H,B;十位
  MOV 38H,A

  MOV A,39H
  ADD A,32H
  ADD A,38H
  MOV 38H,#00H
  MOV B,#10
  DIV AB
  MOV 32H,B
  MOV 39H,A

  MOV A,3AH
  ADD A,33H
  ADD A,39H
  MOV 39H,#00H
  MOV B,#10
  DIV AB
  MOV 33H,B
  MOV 3AH,A

  MOV A,3BH
  ADD A,34H
  ADD A,3AH
  MOV 3AH,#00H
  MOV B,#10
  DIV AB
  MOV 34H,B
  MOV 3BH,#00H
  AJMP DKA

JIAN1:  MOV A,37H
  SUBB A,30H
  MOV B,#10;16 TO 10BCD
  DIV AB
  MOV 30H,B; 个位
  MOV 37H,A ; 商

  MOV A,38H
  SUBB A,31H

  MOV 37H,#00H
  MOV B,#10
  DIV AB
  MOV 31H,B;十位
  MOV 38H,A

  MOV A,39H
  MOV R4,A
  MOV A,32H
  ACALL CMPT
  ADD A,R4
  ADD A,38H
  MOV 38H,#00H
  MOV B,#10
  DIV AB
  MOV 32H,B;百位
  MOV 39H,A

  MOV A,3AH
  MOV R4,A
  MOV A,33H
  ACALL CMPT
  ADD A,R4
  ADD A,39H
  MOV 39H,#00H
  MOV B,#10
  DIV AB
  MOV 33H,B;千位
  MOV 3AH,A

  MOV A,3BH
  MOV R4,A
  MOV A,34H
  ACALL CMPT
  ADD A,R4
  ADD A,3AH
  MOV 3AH,#00H
  MOV B,#10
  DIV AB
  MOV 34H,B;万位
  MOV 3BH,#00H
  AJMP DKA

CMPT: JNB ACC.7,RETURN;ACC.7=0,即(A)>0,不转换
  MOV C,ACC.7
  CPL A
  ADD A,#1
  MOV ACC.7,C
RETURN: RET

CHENG1: MOV R4,37H
  MOV A,38H
  MOV B,#10
  MUL AB
  ADD A,R4
                MOV R4,A
                MOV A,39H
                MOV B,#100
                MUL AB
                MOV DPH,B
                MOV DPL,A
                ADD A,R4
                MOV R4,A
  
                MOV R5,30H
                MOV A,31H
                MOV B,#10
                MUL AB
                ADD A,R5
                MOV R5,A

                MOV A,R4
                MOV B,R5
                MUL AB
                MOV B,#100
                DIV AB
                MOV 32H,A
                MOV A,B
                MOV B,#10
                DIV AB
                MOV 30H,B
                MOV 31H,A
  AJMP DKA
CHU1:   AJMP DKA