Lab 1 - MIKS

list p=16f870
#include <p16f870.inc>
errorlevel -302

__CONFIG   _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON & _HS_OSC & _WRT_ENABLE_ON & _LVP_OFF & _CPD_OFF

CBLOCK 0x30
    BROJAC
ENDC

ORG 0x0000

ResetCode:
    clrf PCLATH
    goto Main

Main:
    bsf STATUS, RP0
    movlw 0x06
    movwf ADCON1
    movlw 0x3f
    movwf TRISA
    movlw 0xff
    movfw TRISB

    bcf STATUS, RP0
    movlw 0
    movwf BROJAC

TestBrojac:
    btfsc PORTB, 1
    goto Promena
    goto TestBrojac

Promena:
    comf BROJAC, 0
    movwf BROJAC
    btfsc BROJAC, 1
    goto Komplement
    goto Gasi

Komplement:
    bsf STATUS, RP0
    movlw 0x3f
    movwf TRISA

    bcf STATUS, RP0
    comf PORTA, 0

    bsf STATUS, RP0
    clrf TRISA
    bcf STATUS, RP0
    movwf PORTA

    goto TestBrojac

Gasi:
    bsf STATUS, RP0
    clrf TRISA
    bcf STATUS, RP0
    clrf PORTA

    goto TestBrojac

end