(修改后)4字节除以2字节.asm

关于ADUC841(51内核)的各种实验程序,有串口,ADC,DAC,PWM,的应用及基于ADUC841设计的万用表源程序

         $MOD841
         MOV   R7, #5CH
         MOV   R6, #64H
         MOV   R5, #81H
         MOV   R4, #79H
         MOV   R3, #0FFH
         MOV   R2, #0FFH
         LCALL DIVD
         LJMP  $
DIVD:    MOV   46H,#00H
         MOV   45H,#00H
         MOV   44H,#00H
         MOV   43H,#00H
         MOV   42H,#00H
         MOV   41H,#00H
         MOV   40H,#00H
         MOV   50H,#08
         MOV   51H,#08
         MOV   R1,#00H
         MOV   R0,#00H
;-------------------------
         LCALL JISUAN
         MOV   43H,44H
         MOV   44H,#00H
         LCALL JISUAN
         MOV   42H,44H
         MOV   44H,#00H
         LCALL JISUAN
         MOV   41H,44H
         MOV   44H,#00H
         LCALL JISUAN
         MOV   40H,44H
;--------------------------
         MOV   R7,43H
         MOV   R6,42H
         MOV   R5,41H
         MOV   R4,40H
         RET
;----------------------------
JISUAN:  LCALL FF
         LCALL FUZHI
         DJNZ  50H,JISUAN
         MOV   50H,#8
         RET
;--------------------------
FF:      CLR   C
         MOV   A,R4
         RLC   A
         MOV   R4,A
         MOV   A,R5
         RLC   A
         MOV   R5,A
         MOV   A,R6
         RLC   A
         MOV   R6,A
         MOV   A,R7
         RLC   A
         MOV   R7,A
         MOV   A,R0
         RLC   A
         MOV   R0,A
         MOV   A,R1
         RLC   A
         MOV   R1,A
         MOV   A,46H
         RLC   A
         MOV   46H,A
;------------------------
         CLR   C
         MOV   A,R0
         SUBB  A,R2
         MOV 20H,A
         MOV   A,R1
         SUBB  A,R3
         MOV   21H,A
         MOV   A,46H
         SUBB  A,45H
         MOV   22H,A
         RET
;----------------------------
FUZHI:   JC    OVER1
         MOV   R0,20H
         MOV   R1,21H
         MOV   46H,22H
         DEC   51H
         MOV   A, 51H
         CJNE  A,#07,S1
         LCALL FUNCTION1
         LJMP  OVER
S1:      CJNE  A,#06,S2
         LCALL FUNCTION2
         LJMP  OVER
S2:      CJNE  A,#05,S3
         LCALL FUNCTION3
         LJMP  OVER
S3:      CJNE  A,#04,S4
         LCALL FUNCTION4
         LJMP  OVER
S4:      CJNE  A,#03,S5
         LCALL FUNCTION5
         LJMP  OVER
S5:      CJNE  A,#02,S6
         LCALL FUNCTION6
         LJMP  OVER
S6:      CJNE  A,#01,S7
         LCALL FUNCTION7
         LJMP  OVER
S7:      CJNE  A,#00,OVER
         LCALL FUNCTION8
         MOV   51H,#08
         LJMP  OVER
;----------------------------
OVER1:   DEC   51H
         MOV   A,51H
         CJNE  A, #00,OVER
         MOV   51H,#08
OVER:    RET
;-------------------------
FUNCTION1:MOV   A,44H
          SETB  ACC.7
          MOV   44H,A
          RET
;------------------------
FUNCTION2:MOV   A,44H
          SETB  ACC.6
          MOV   44H,A
          RET
;------------------------
FUNCTION3:MOV   A,44H
          SETB  ACC.5
          MOV   44H,A
          RET
;------------------------
FUNCTION4:MOV   A,44H
          SETB  ACC.4
          MOV   44H,A
          RET
;------------------------
FUNCTION5:MOV   A,44H
          SETB  ACC.3
          MOV   44H,A
          RET
;------------------------
FUNCTION6:MOV   A,44H
          SETB  ACC.2
          MOV   44H,A
          RET
;------------------------
FUNCTION7:MOV   A,44H
          SETB  ACC.1
          MOV   44H,A
          RET
;------------------------
FUNCTION8:MOV   A,44H
          SETB  ACC.0
          MOV   44H,A
          RET
;------------------------
          END