MULTI.ASM

ORG 0000H
;使用10H位寄存器R0,R1,R3,将20H,10H开始的数码相乘,结果存入10H
MULTI:
      MOV RS1,#1B
      MOV RS0,#0B
      MOV R0,#20H
      MOV R1,#10H
      MOV R3,#08H

      MOV RS1,#0B
      MOV RS0,#1B
      MOV R0,#10H
      MOV R1,#40H
      LCALL MEMMOVE
      MOV R0,#20H
      MOV R1,#10H
      LCALL MEMMOVE
      MOV R0,#30H
      LCALL CLEAR
      MOV 30H,#1

      MOV RS1,#1B
      MOV RS0,#0B

      MOV R0,#40H
      MOV R1,#30H
      MOV R3,#08H        ;字节长度初始化
      LCALL MINUSFUN

MULTILOOP:
      MOV RS1,#1B
      MOV RS0,#0B

      MOV R0,#40H
      MOV R1,#30H
      MOV R3,#08H        ;字节长度初始化
      LCALL MINUSFUN

      MOV R0,#20H
      MOV R1,#10H
      MOV R3,#08H 
      LCALL PLUSFUN


      MOV RS1,#0B
      MOV RS0,#1B
      MOV R0,#40H
      LCALL ISZERO
      MOV A,R4
      JZ MULTILOOP
      MOV RS1,#0B
      MOV RS0,#1B
      MOV R0,#20H
      MOV R1,#10H
      LCALL MEMMOVE
      SJMP $

;使用10H位寄存器R0,R1,R3,将20H,10H开始的数码相加,结果存入10H
;PLUS:
;      MOV RS1,#1B
 ;     MOV RS0,#0B
 ;     MOV R0,#20H       ;十进制数存放地址初始化
 ;     MOV R1,#10H
     ; LCALL PLUSFUN
 ;     MOV RS1,#0B
  ;    MOV RS0,#1B
    ;  MOV R0,#20H
   ;  MOV R1,#10H
  ;    LCALL MEMMOVE
   ;   LJMP BEGIN

;加法计算子程序，注意，使用前需要初始化10H位寄存器R0,R1,R3, R0存被加数,R1存加数, 结果存R0开始的单元
PLUSFUN:
      CLR C
PLUSLOOP:                 ;从40H开始循环遍历十进制数的各个数位
     MOV A,@R0
     ADDC A,@R1
     DA A               ;十进制数数位相加，进行二-十进制调整
     MOV @R0,A          ;暂存十进制数数位相加结果
     CLR C              ;清空CY，为接下来的判断做准备
     SUBB A, #10H
     JNC PLUSFIX        ;判断数位相加是否大于等于10，若条件满足则进位，否则清空CY标志位
     CLR C
     LJMP PLUSFIN
PLUSFIX:
     MOV @R0,A          ;CY置位，为进位做准备
     SETB C
PLUSFIN:
     INC R0             ;循环遍历
     INC R1
     DJNZ R3,PLUSLOOP
     RET


;减法计算子程序，注意，使用前需要初始化10H位寄存器R0,R1,R3, R0存被减数, R1存减数, R3存数码个数
MINUSFUN:
     CLR C
MINUSLOOP:                 ;从40H开始循环遍历十进制数的各个数位
     MOV A,@R0
MINUSCON:
     SUBB A,@R1
     JC MINUSFIX
     MOV @R0,A          ;暂存十进制数数位相加结果
     LJMP MINUSFIN
MINUSFIX:
     ADD A,#10
     MOV @R0,A
     LJMP MINUSFIN
MINUSFIN:
     INC R0             ;循环遍历
     INC R1
     DJNZ R3,MINUSLOOP
     RET

;MEMMOVE 将R0开头的数据移动到R1开始的存储单元，数据共8位
MEMMOVE:
        MOV R2,#09H
  MEMLOOP:
          MOV A,@R0
          MOV @R1,A
          INC R0
          INC R1
          DJNZ R2,MEMLOOP
          RET
;R0为清空的开始位，CLEAR子程序将从R0开始的8位数码清空
CLEAR:
      MOV A,R0
      MOV R1,A
      MOV R2,#09H
  CLOOP:MOV @R1,#00H
        INC R1
        DJNZ R2,CLOOP
        RET

ISZERO:
      MOV A,R0
      MOV R1,A
      MOV R2,#08H
  ZEROLOOP:MOV A,@R1
           DEC R2
           INC R1
           CJNE R2,#00H,ZERO2
           MOV R4,#01H
           RET
	ZERO2:
           JZ ZEROLOOP
           MOV R4,#00H
           RET