list      p=16F690           ; list directive to define processor
	#include <p16F690.inc>        ; processor specific variable definitions

	errorlevel  -302              ; suppress message 302 from list file


	__CONFIG   _CP_OFF & _CPD_OFF & _BOR_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT & _FCMEN_OFF & _IESO_OFF 

	CBLOCK	0x70
			RESULTLO	
			RESULTHI   	
			CR	     
			LF	    
	ENDC

		ORG 0x5
		GOTO    START              ; go to beginning of program		  

START	BSF		STATUS,5                 ;Go to Bank 1 (BSF	STATUS,5)
		MOVLW   00h              	;Put 00000 into W
		MOVWF   TRISA           	;Move 00000 onto TRISA
		MOVLW   50h		   	;Put 01010000 into W
		MOVWF   TRISB	   	;Move 01010000 onto TRISB
		MOVLW   67h	  	   	;Put 01100111 into W
		MOVWF   TRISC           	;Move 01100111 onto TRISC
		BCF		STATUS,5		;Come back to Bank 0 (BCF	STATUS,5)
		BSF		STATUS,5               ;Go to Bank 1 (BSF STATUS,5)
		MOVLW	0x19                ;0x19=9600 bps (165 oldali táblázatból 4Mhz 
		MOVWF	SPBRG
		MOVLW	b'00100100'     	;TXEN=1, SYNC=0, BRGH=1 (high speed)
		MOVWF	TXSTA	     		;enable Async Transmission, set brgh 
		BCF		STATUS,5	     		;Come back to Bank 0 (BCF STATUS,5)        	   
		MOVLW	b'10010000'     	;SPEN=1 (Serial port enabled, konfigurálja a 
		MOVWF	RCSTA   
		CALL	ASend
		GOTO	$

ASend	BCF		STATUS,5
		MOVLW	0x41		;„A” karakter küldése
	    CALL	Send;			
	    MOVLW 	0x54		;„T” karakter küldése
	    CALL 	Send 
		MOVLW 	CR			;Ezzel jelezzük, hogy vége az AT parancsnak (CR_LF)
	    CALL 	Send
        MOVLW	 LF 		;Ezzel jelezzük, hogy vége az AT parancsnak (CR_LF)
     	CALL 	Send
		RETURN

Send	MOVWF	TXREG        ;W tartalmának (szenzorok adatai) küldése 
		BSF		STATUS,5       ;Go to Bank 1 (BSF STATUS,5)
		BTFSS	TXSTA,1     ;TXSTA 1-es bitjét figyeli (TRMT ami ha 1-es 
		GOTO	$-1	        ;amíg nincs transmission complete addig mindig       						;visszaugrik a BTFSS TXSTA,1 lépésre
		BCF		STATUS,5	    ;Come back to Bank 0 (BCF STATUS,5)       
    	RETURN 

	
		END