Upravu si nisam rekao da sam pisao u PicBasic Pro i sve rutine su pisane u PicBasic.
Evo i kompletan Kod:
Evo i kompletan Kod:
Code:
define OSC 4
OSCCON=%01101000
TRISB=%00000000 ' Port B je izlazni
ANSELB=%0000000 ' Port B je digitalni
ms var word
PortB.0=0
PortB.1=0
INTCON.5 = 0 'Onemoguci TMR0 prekide
ms=0
OPTION_REG = %1000010 '010 preskaler postavi u odnos 1:8
TMR0=6 'Postavi vrednost TMR0
INTCON.5=1 'Omoguci TMR0 prekide
INTCON.7=1 'Omoguci sve prekide
ON INTERRUPT goto Int_Sub
'------------Glavni program--------------------------
Pocetak:
Goto Pocetak
'------Podprogram obrade prekida-----------------------
disable
Int_Sub:
INTCON.7=0
if INTCON.2 AND INTCON.5 THEN
INTCON.2=0
ms = ms + 2
ENDIF
if ms = 6 then
PortB.0=0
ENDIF
if ms = 10 Then
PortB.1=1
endif
IF MS = 16 THEN
PortB.1=0
endif
if ms = 20 then
PortB.0=1
ms = 0
endif
INTCON.7=1 'Omoguci prekide
INTCON.5=1 'Omoguci prekide
resume 'Vrati se iz rutine prekida
End