4 Rakamı Basamaklarına Ayırma Acill Yardım ?????

LIST P=16F84 
  STATUS EQU H'03' 
  PORTA EQU H'05' 
  TRISA EQU H'85' 
  PORTB EQU H'06' 
  TRISB EQU H'86' 
  BB EQU H'0E'  ;BİRLER BASAMAĞI 
  OB EQU H'0C'  ; ONLAR BASAMAĞI 
  YB EQU H'0F'  ;YÜZLER BASAMAĞI 
  BINB EQU H'1C';BİNLER BASMAAĞI 
  SAYAC1 EQU H'0D' 
  SAYAC2 EQU H'1F' 
  SAYAC3 EQU H'1D' 
  		 
  	BSF STATUS,5 
  	CLRF TRISB 
  	MOVLW H'FF' 
  	MOVWF TRISA 
  	BCF STATUS,5 
   
  ANA	 
  ;ORNEĞİN 529 SAYISINI 7 SEGMENTDE 5 - 2 - 9 OLARAK YAZICAZ.... 
  	MOVLW D'05'  
  	MOVWF BB 
  	MOVLW D'02' 
  	MOVWF OB 
  	MOVLW D'09' 
  	MOVWF YB 
  	MOVLW D'07' 
  	MOVWF BINB 
   
  SAYI 
   
  	MOVF BB,0 
  	MOVWF PORTB 
  	MOVLW D'01' 
  	MOVWF PORTA 
  	CALL ZAMAN 
  	 
  	MOVF OB,0 
  	MOVWF PORTB 
  	MOVLW D'02' 
  	MOVWF PORTA 
  	CALL ZAMAN 
  	 
  	MOVF YB,0 
  	MOVWF PORTB 
  	MOVLW D'03' 
  	MOVWF PORTA 
  	CALL ZAMAN 
  	 
  	MOVF BINB,0 
  	MOVWF PORTB 
  	MOVLW D'04' 
  	MOVWF PORTA 
  	CALL ZAMAN 
   
  GOTO ANA 
   
  ZAMAN	MOVLW	D'75' 
  		MOVWF	SAYAC1 
  TIMER1	MOVLW	D'60' 
  		MOVWF	SAYAC2 
  TIMER2 
  		MOVLW	D'20' 
  		MOVWF	SAYAC3 
  TIMER3 
  	DECFSZ	SAYAC3,F 
  		GOTO	TIMER3		 
  		DECFSZ	SAYAC2,F 
  		GOTO	TIMER2 
  		DECFSZ	SAYAC1,F 
  		GOTO	TIMER1 
  		RETURN		 
  	END