org 0
  nop
  goto		Start
  nop
  nop
  nop
HeadISR:
  movwf     W_Save
  movf      STATUS,w
  movwf     STATUS_Save
ISR:
  movf		RCREG,w
  movwf		byte ;Most elvileg a W-ben és a byte-ban van a kiírandó jel
  call		SendChar
ExitISR:
  movf      STATUS_Save,w
  movwf     STATUS
  swapf     W_Save,f
  swapf     W_Save,w
retfie
Start:
  bsf       STATUS,RP0     ; select Register Page 1
  clrf      TRISA               
  movlw     b'00001111'
  movwf     TRISC     
  bcf       STATUS,RP0     ; back to Register Page 0

  bcf       STATUS,RP0     ; address Register Page 2
  bsf       STATUS,RP1     
  movlw     0x0           ; we want all Port A pins Analoga
  movwf     ANSEL
  bcf       STATUS,RP0     ; address Register Page 0
  bcf       STATUS,RP1

  ;A soros port beállítása
  BANKSEL	RCSTA
  bsf		RCSTA,CREN
  bsf		RCSTA,SPEN

  BANKSEL	TXSTA
  bcf		TXSTA,SYNC
  ;A soros port megszakítása
  BANKSEL	PIE1
  bsf		PIE1,RCIE
  BANKSEL	INTCON
  bsf		INTCON,GIE
  bsf		INTCON,PEIE
  ;Baud rate
  BANKSEL	TXSTA
  bsf		TXSTA,BRGH
  ;bcf		BAUDCTL,BRG16
  ;clrf		SPBRGH
  movlw		.25
  BANKSEL	SPBRG
  movwf		SPBRG

  bcf		STATUS,RP0
  bcf		STATUS,RP1

  call      Init

  movlw		'M'
  call		SendChar

  goto 		$