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
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎