;***** Deklaracija i konfigurisanje mikrokontrolera *****

        PROCESSOR 16f84
        #include "p16f84.inc"
	
	__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC 

;***** Deklaracija promenjivih *****

	Cblock  0x0C   ; Pocetak RAM-a
	HIcnt		  ; Pripada makrou "pausems"
	LOcnt
	LOOPcnt

	LCDbuf		  ; Pripada funkcijama "LCDxxx"
	LCDtemp
	
	Digtemp	  ; Pripada makrou "digbyte"
	Dig1
	Dig2
	Dig3
	
	temp
	endc



	ORG     0x00		; Reset vector
  	goto    Main

	ORG     0x04		; Interapt vector

	goto	  Main		; nema interapt rutine


	include  "mikroel84.inc"
	include  "lcd.inc"
	
 	
	
	LCDdsport equ PORTB	;LCD je na portu B(4 data linije na RB4-RB7)
 	RS equ  1		;RS linija RB1
	RW equ  2		;RW linija RB2
 	EN equ  3		;EN linija RB3
	
		

Main  
		lcdinit 		 	   ; Incijalizacija LCD-a 
Estado		clrw			;Refrescar el W
		movlw	b'00000001'
		subwf	PORTA,W
		btfsc	STATUS,Z
		goto	RUN
		
		movlw	b'00000000'
		subwf	PORTA,W
		btfsc	STATUS,Z
		goto	Loop
		
		goto 	Estado					   ;promnjljivu, koju treba prikazati na LCD 

		

Loop
	;lcdcmd 0x01			   ;Komanda za brisanje LCD-a
	lcdtext 1,"Julian Bermudez"  ;Ispisi tekst od pocetka prvog reda
	lcdtext 2,"Control Motor"		   ;Ispisi tekst od pocetka drugog reda
				   ;pauza od 2 sekunde
				   ;Komanda za brisanje LCD-a
	goto Estado

RUN
	
	lcdcmd 0x01			   ;Komanda za brisanje LCD-a
	lcdtext 1,"Arranque OK"  ;Ispisi tekst od pocetka prvog reda
	lcdtext 2,"Enviando SMS"
	bsf PORTB,0
	pausems .2000
	lcdcmd 0x01			   ;pauza od 2 sekunde
RUN_OK
	btfss  PORTA,0
	goto   Estado
				   
	lcdtext 1,"MOTOR ARRANCADO"     ;Ispisi tekst od pocetka prvog reda
	pausems .2000
	goto RUN_OK
	
	End