Division de 8 bits

result_1 equ 0x22
resto_1 equ 0x23
aux1 equ 0x24

org 0x00
goto inicio

org 0x06
inicio call div_10
nop
nop
goto fin
;*****************************************
;SUBRUTINA PARA DIVIDIR ENTRE 10
div_10 movf dato_A,w
xorlw 0x00
sigue1 movwf aux1
movlw .10
subwf aux1,w
btfsc STATUS,Z
goto igual_1
btfsc STATUS,C
goto mayor_1

menor_1 movf aux1,w
movwf resto_1
goto stop

mayor_1 movwf aux1
incf result_1
goto sigue1

igual_1 incf result_1
goto stop

stop return

fin nop
end