Program Adı: Tarama yöntemi ile 0 – FF sayıcı programı (kontrolsüz) 

LIST P=16F84
INCLUDE “P16F84.INC”
SAYAC EQU 0x0C
SAYAC1 EQU 0x0D
SAYAC2 EQU 0x0E
TARA EQU 0x0F
BSF STATUS, 5
CLRF TRISA
CLRF TRISB
BCF STATUS, 5
CLRF SAYAC 

DONGU 
INCF SAYAC, F
MOVF SAYAC, W
ANDLW b’00001111’ ; birler basamağını ata
MOVWF SAYAC1
SWAPF SAYAC, W ; onlar basamağını ata
ANDLW b’00001111’
MOVWF SAYAC2
MOVLW d’50’ ; tarama sayısı
MOVWF TARA 

TARAMA 
MOVF SAYAC1, W
CALL SAYIBUL
MOVWF PORTB
MOVLW 0x08
MOVWF PORTA
CALL GECIKME
MOVF SAYAC2, W
CALL SAYIBUL
MOVWF PORTB
MOVLW 0x04
MOVWF PORTA
CALL GECIKME
DECFSZ TARA
GOTO TARAMA
GOTO DONGU 

SAYIBUL 
ADDWF PCL,F ; PCL ‹ W(SAYAC)
RETLW h’3F’ ; 0
RETLW h’06’ ; 1
RETLW h’5B’ ; 2
RETLW h’4F’ ; 3
RETLW h'66’ ; 4
RETLW h’6D’ ; 5
RETLW h’7D’ ; 6
RETLW h’07’ ; 7
RETLW h’7P’ ; 8
RETLW h’6P’ ; 9
RETLW h’77’ ; A
RETLW h’7C’ ; b
RETLW h'39' ; C
RETLW h'5E' ; d
RETLW h'79' ; E
RETLW h'71' ; F
RETURN 

GECIKME ;Gecikme alt programı
MOVLW h'FF'
MOVWF SAYAC1
DONGU1
MOVLW h'FF'
MOVWF SAYAC2
DONGU2
DECFSZ SAYAC2, F
GOTO DONGU2
DECFSZ SAYAC1, F
GOTO DONGU1
RETURN
END