Ensamblador - MICRO-8031

El SIGUIENTE PROGRAMA MUESTRA UN CONTADOR
DE 0-99 LA CUESTION SIGUIENTE ES QUE AL AGREGAR
DOS DISPLAY ,MAS PARA CONTAR DE 0-9999
NO LO HE CONSEGUIDO el codigo es solo para 0-99

?????? SUGERENCIAS

org 00h
jmp inicio
org 013h
jmp int_1

inicio: mov sp,#64h
mov a,#00h
da a
setb ea
setb ex1
mov p1,a
loop: mov p1,a
jmp loop

retardo: mov r1,#0ffh
uno: djnz r1,dos
jmp fin
dos: mov r2,#0ffh
aqui: djnz r2,aqui
jmp uno
fin:
ret

int_1: inc a
DA a
mov p1,a
call retardo
reti
end

CON DISPLAY DOBLE DE 7 SEGMENTOS
#include<P16F877A.INC>
List p=16F877A
Dato1 equ 0x20
Dato2 equ 0x21
Dato3 equ 0x22
contador equ 0x23
unidades equ 0X24
decenas equ 0X25
conteos equ 0X26

Bsf STATUS,RP0
clrf TRISA
clrf TRISB
clrf TRISC
movlw .1
movwf TRISD
Bcf STATUS,RP0

clrf unidades
clrf decenas
clrf conteos

inicio: movlw .1
movwf PORTC
movfw unidades
call decoder
movwf PORTB
call retardo
movlw .2
movwf PORTC
movfw decenas
call decoder
movwf PORTB
call retardo
incf conteos
movfw conteos
xorlw .50
btfss STATUS,Z
goto inicio
clrf conteos
btfss PORTD,0
goto inicio
incf unidades
movfw unidades
xorlw .10
btfss STATUS,Z
goto inicio
clrf unidades
incf decenas
movfw decenas
xorlw .10
btfss STATUS,Z
goto inicio
clrf decenas
goto inicio

retardo: movlw .4
movwf Dato1
salto2: movlw .2000
movwf Dato2
salto1: decfsz Dato2
goto salto1
decfsz Dato1
goto salto2
return

decoder: andlw 0X0F
addwf PCL
retlw 0X40
retlw 0X79
retlw 0X24
retlw 0X30
retlw 0X19
retlw 0X12
retlw 0X02
retlw 0X78
retlw 0X00
retlw 0X10
retlw 0X08
retlw 0X03
retlw 0X46
retlw 0X21
retlw 0X06
retlw 0X0E
End