;Brojac sa LED
 list p=16f1939
 #include <p16f1939.inc>
 __CONFIG _CONFIG1,_FOSC_HS&_WDTE_OFF&_PWRTE_OFF&_MCLRE_ON&_CP_OFF&_CPD_OFF&_BOREN_OFF&_CLKOUTEN_OFF&_IESO_OFF&_FCMEN_OFF
 __CONFIG _CONFIG2,_WRT_OFF&_VCAPEN_OFF&_PLLEN_OFF&_STVREN_OFF&_LVP_OFF


 ORG 0x00
 goto program
 ORG 0x04
 goto program

a1 equ 0x20
a2 equ 0x21
brojac equ 0x22
c equ 0x23

 banksel TRISB

 movlw 0xFF
 movwf TRISD
 movlw 0x00
 movwf TRISB

 banksel ANSELD
 clrf ANSELD

program
 banksel PORTD

 movlw 0x0F
 andwf PORTD, 0
 movwf a1

 movlw 0xF0
 andwf PORTD, 0
 movwf a2
 lsrf a2,1
 lsrf a2,1
 lsrf a2,1
 lsrf a2,1

 banksel PORTB
 movlw 0x00
 movwf c
 movlw 0x04
 movwf brojac

mnozenje
 btfss a2, 0
    movlw 0x00
 btfsc a2, 0
    movlw 0xFF

 andwf a1, 0
 addwf c, 1

 lsrf a2, 1
 lslf a1, 1

 decfsz brojac, 1
    goto mnozenje

banksel LATB
movf c, 0
movwf LATB

goto program
 end