list p=16f877a #include p16f877a.inc ; Set configuration bits using definitions from the include file, p16f877a.inc __config _HS_OSC & _PWRTE_OFF & _WDT_OFF & _CP_OFF & _LVP_OFF ORG 0x00 ;reset vektor goto Main ;posle reseta skoci na ovu lokaciju ORG 0x04 ;interapt vektor goto Main ;nema interapt rutine Main ;pocetak programa banksel ADCON1 movlw 0x06 ;Port A i E treba konfigurisati kao digitalne, movwf ADCON1 ;jer su nakon reseta automatski konfigurisani ;na svoje analogne funkcije (A/D konverzija) banksel TRISD ;selektuj banku u kojoj je TRISD clrf TRISD ;port D je izlazni banksel PORTD ;selektuj banku u kojoj je PORTD movlw 0XFF ;Postavi sve 1 na PORTD movwf PORTD banksel TRISB clrf TRISB banksel PORTB movlw 0xFF movwf PORTB banksel TRISC ;selektuj banku u kojoj je TRISC clrf TRISC ;port C je izlazni banksel PORTC ;selektuj banku u kojoj je PORTC movlw 0XFF ;Postavi sve 1 na PORTC movwf PORTC banksel TRISA ;selektuj banku u kojoj je TRISA clrf TRISA ;port A je izlazni banksel PORTA ;selektuj banku u kojoj je PORTA movlw 0XFF ;Postavi sve 1 na PORTA movwf PORTA banksel TRISE ;selektuj banku u kojoj je TRISE clrf TRISE ;port E je izlazni banksel PORTE ;selektuj banku u kojoj je PORTE movlw 0XFF ;W=FF movwf PORTE ;Postavi sve jedinice na PORTE nop Loop goto Loop ;Skoci na labelu Loop End