add5.asm

共有 45 个程序源码

ADRIN  EQU  36H
ADRIN0  EQU  50H
ADRIN1  EQU  58H
MOV  ADRIN, #ADRIN0

ARGADR  EQU  37H
ARGADR0  EQU  56H
ARGADR1  EQU  5DH
MOV  ARGADR, #ARGADR0


DATAPR:  PUSH  PSW
         MOV  PSW, #18H
   DSDA: MOV  R0, ADRIN
         MOV  R4, #5
         MOV  R2, #0
         MOV  R3, #0
 DLOOP0: MOV  A, R3
         ADD  A, @R0
         MOV  R3, A
         JNC  DLOOP1
         INC  R2
 DLOOP1: INC  R0
         DJNZ  R4, DLOOP0
 BDIV:   CJNE  R2, #00H, DN0
         CJNE  R3, #00H, DN0
         LCALL  ERROR
         SJMP  DEND
    DN0: MOV  R5, #5
         MOV  B, #8
   DIV1: CLR  C
         MOV  A, R3
         RLC  A
         MOV  R3, A
         MOV  A, R2
         RLC  A
         MOV  R2, A
         MOV  7FH,C
         CLR  C
         SUBB  A, R5
         JB  7FH, DIV2
         JC  DIV3
   DIV2: MOV  R2, A
         INC  R3
   DIV3: DJNZ  B, DIV1
         CJNE  R2, #02H, DN1
         SJMP  DN2
    DN1: JC  DN2
         INC  R3
    DN2: MOV  A, R3
         MOV  R1, ARGADR
         MOV  @R1, A
   DEND: POP  PSW
         RET
ERROR:   CLR  P1.1
         RET