div88.asm

AD9851子程序 愿程序 驱动程序和实现步进控制的子程序 方便程序的扩张

NAME chufa
?PR?_div8_8?ASMTEST SEGMENT CODE
?DT?_div8_8?ASMTEST SEGMENT DATA OVERLAYABLE 

PUBLIC _div8_8


RSEG ?DT?_div8_8?ASMTEST 
PUBLIC?_div8_8?BYTE:
       
       
		 buff0:ds 1
		 buff1:ds 1
		 buff2:ds 1
		 buff3:ds 1
		 buff4:ds 1
		 buff5:ds 1
		 buff6:ds 1
		 buff7:ds 1
		 buff8:ds 1
		 buff9:ds 1
		 buff10:ds 1
		 buff11:ds 1
		 buff12:ds 1
		 buff13:ds 1
		 buff14:ds 1
		 buff15:ds 1
		 buff16:ds 1
		 buff17:ds 1
		 buff18:ds 1
		 buff19:ds 1
		 buff20:ds 1
		 buff21:ds 1
		 buff22:ds 1
		 buff23:ds 1
		 buff24:ds 1


RSEG ?PR?_div8_8?ASMTEST
   _div8_8:

;*******************************************************

;=================================
;入口：BUFF17~BUFF24为8字节被除数，由低到高排列
;入口：BUFF8~BUFF15为8字节除数，由低到高排列
;入口：BUFF17~BUFF24为8字节商，由低到高排列
;出口：BUFF0~BUFF7为8字节余数，由低到高排列
;----------------------------
                
                MOV     BUFF16,#64      ;设置移位次数，8字节共64次
                MOV     BUFF0,#0        ;余数清零
                MOV     BUFF1,#0
                MOV     BUFF2,#0
                MOV     BUFF3,#0
                MOV     BUFF4,#0
                MOV     BUFF5,#0
                MOV     BUFF6,#0
                MOV     BUFF7,#0

					 MOV     BUFF8,#00
					 MOV     BUFF9,#95H
					 MOV     BUFF10,#0BAH
					 MOV     BUFF11,#0AH
					 MOV     BUFF12,#0
					 MOV     BUFF13,#0
					 MOV     BUFF14,#0
					 MOV     BUFF15,#0
					 
					 MOV     BUFF17,#0
					 MOV     BUFF18,#0
					 MOV     BUFF19,#0
					 MOV     BUFF20,#0
					 MOV     BUFF21,R7
					 MOV     BUFF22,R6
					 MOV     BUFF23,R5
					 MOV     BUFF24,R4



;------------------------------
LOOPDIV:        CLR     C
                MOV     A,BUFF17
                RLC     A
                MOV     BUFF17,A
                ;--------------
                MOV     A,BUFF18
                RLC     A
                MOV     BUFF18,A
                ;--------------
                MOV     A,BUFF19
                RLC     A
                MOV     BUFF19,A
                ;--------------
                MOV     A,BUFF20
                RLC     A
                MOV     BUFF20,A
                ;--------------
                MOV     A,BUFF21
                RLC     A
                MOV     BUFF21,A
                ;--------------
                MOV     A,BUFF22
                RLC     A
                MOV     BUFF22,A
                ;--------------
                MOV     A,BUFF23
                RLC     A
                MOV     BUFF23,A
                ;--------------
                MOV     A,BUFF24
                RLC     A
                MOV     BUFF24,A
                ;--------------
                ;--------------

                MOV     A,BUFF0
                RLC     A
                MOV     BUFF0,A
                ;--------------
                MOV     A,BUFF1
                RLC     A
                MOV     BUFF1,A
                ;--------------
                MOV     A,BUFF2
                RLC     A
                MOV     BUFF2,A
                ;--------------
                MOV     A,BUFF3
                RLC     A
                MOV     BUFF3,A
                ;--------------
                MOV     A,BUFF4
                RLC     A
                MOV     BUFF4,A
                ;--------------
                MOV     A,BUFF5
                RLC     A
                MOV     BUFF5,A
                ;--------------
                MOV     A,BUFF6
                RLC     A
                MOV     BUFF6,A
                ;--------------
                MOV     A,BUFF7
                RLC     A
                MOV     BUFF7,A
;------------------------------
YUJIAN:
                ;--------------
                CLR    C
                MOV    A,BUFF0
                SUBB   A,BUFF8
                ;-------------
                MOV    A,BUFF1
                SUBB   A,BUFF9
                ;-------------
                MOV    A,BUFF2
                SUBB   A,BUFF10
                ;-------------
                MOV    A,BUFF3
                SUBB   A,BUFF11
                ;-------------
                MOV    A,BUFF4
                SUBB   A,BUFF12
                ;-------------
                MOV    A,BUFF5
                SUBB   A,BUFF13
                ;-------------
                MOV    A,BUFF6
                SUBB   A,BUFF14
                ;-------------
                MOV    A,BUFF7
                SUBB   A,BUFF15
                ;-------------
                JC     LOOP22
                INC    BUFF17
                AJMP   ZHENGSHIJIAN
LOOP22:         LJMP   LOOP222
ZHENGSHIJIAN:
                ;--------------
                CLR    C
                MOV    A,BUFF0
                SUBB   A,BUFF8
                MOV    BUFF0,A
                ;-------------
                MOV    A,BUFF1
                SUBB   A,BUFF9
                MOV    BUFF1,A
                ;-------------
                MOV    A,BUFF2
                SUBB   A,BUFF10
                MOV    BUFF2,A
                ;-------------
                MOV    A,BUFF3
                SUBB   A,BUFF11
                MOV    BUFF3,A
                ;-------------
                MOV    A,BUFF4
                SUBB   A,BUFF12
                MOV    BUFF4,A
                ;-------------
                MOV    A,BUFF5
                SUBB   A,BUFF13
                MOV    BUFF5,A
                ;-------------
                MOV    A,BUFF6
                SUBB   A,BUFF14
                MOV    BUFF6,A
                ;-------------
                MOV    A,BUFF7
                SUBB   A,BUFF15
                MOV    BUFF7,A
                ;-------------
LOOP222:
                DJNZ   BUFF16,LOOP11
					 MOV    R4,BUFF20
					 MOV    R5,BUFF19
					 MOV    R6,BUFF18
					 MOV    R7,BUFF17
                RET
LOOP11:         LJMP    LOOPDIV
;------------------------------------------------


;================================================
   end