MOVLW 'A'

RS_KÜLD   MACRO   KARAKTER
      MOVLW   KARAKTER
      CALL   RS232_KÜLD
      ENDM

RS232_KÜLD
   BTFSS   PIR1,TXIF         ; KÜLDÉS LEHETŐSÉGÉT JELZŐ BIT (HA LEHET, AKKOR A BIT = TRUE)
   GOTO   RS232_KÜLD
   MOVWF   TXREG            ; KARAKTER KIVITELE
   RETURN

   RS_KÜLD   'A'
   RS_KÜLD   'N'
   RS_KÜLD   'D'
   RS_KÜLD   'R'
   RS_KÜLD   'Á'
   RS_KÜLD   'S'

#include <p16F690.inc>
   __config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF)

   cblock   0x20
   Byte_to_send
   W_save
   STATUS_save
   Delay1
   endc

   org 0
   nop
   goto Start
   
   org 4            ; Interrupt vector
   movwf W_save      ; Save W reg
   movf STATUS,0      ; Save status reg
   movwf STATUS_save
   movf RCREG,W      ; Receiving the byte what is arrived
   movwf Byte_to_send   ; and put it into the register

   movf STATUS_save,W   ; Restore STATUS and WREG
   movwf STATUS
   movf W_save,W
   retfie

Start
   call Select_bank1
   bsf OSCCON,6      ; Setting the internal oscillator to 2 MHz
   bcf OSCCON,5      ; Setting --""--
   bsf OSCCON,4      ; Setting --""--
   CLRF TRISC         ; Port C all output
   CLRF TRISB         ; Port B all output
   CLRF TRISA         ; Port A all output
   bsf INTCON,GIE      ; Enabling global interrupts
   bsf INTCON,PEIE      ; Enabling peripherial interrupts
   bsf PIE1,RCIE      ; Enabling the receiver interrupt
   CLRF SPBRGH         ; Setting up baud_rate to 9600 at 2 MHz
   bsf TXSTA,BRGH      ; Setting up baud rate
   bcf TXSTA,BRG16      ; Setting up baud rate
   bcf TXSTA,SYNC      ; Setting up for asynchronous operation
   movlw d'12'
   movwf SPBRG         ; Setting up baud rate...
   call Select_bank0
   bsf RCSTA,SPEN      ; Setting up USART
   bsf RCSTA,CREN      ; Enabling the receiver
   call Select_bank1
   bsf TXSTA,TXEN      ; Enabling the transmitter
   call Select_bank0

   call Delay_a_round
   movlw d'79'
   movwf TXREG         ; Sending the char 'O'
   call Wait_for_TX
   movlw d'75'
   movwf TXREG         ; Sending the char 'K'
   call Wait_for_TX
   movlw d'65'
   movwf TXREG
   call Wait_for_TX
   movlw d'78'
   movwf TXREG
   call Wait_for_TX
   movlw d'68'
   movwf TXREG
   call Wait_for_TX
   movlw d'82'
   movwf TXREG
   call Wait_for_TX
   movlw d'65'
   movwf TXREG
   call Wait_for_TX
   movlw d'83'
   movwf TXREG

Main_loop
;   movf Byte_to_send,W   ; Testing this register
;   BTFSC STATUS,Z      ; If the register is not zero then send it
;   goto Main_loop
;   movlw d'65'
;   BTFSS PIE1,TXIF      ; Waiting for send the previous byte
;   goto $-1
;   movwf TXREG         ; Sending the byte
;   CLRF Byte_to_send
   goto Main_loop

; Subrutines

Select_bank0            ; Subrutin definitions
   bcf STATUS,RP0
   bcf STATUS,RP1
   return
Select_bank1
   bsf STATUS,RP0
   bcf STATUS,RP1
   return
Select_bank2
   bcf STATUS,RP0
   bsf STATUS,RP1
   return
Select_bank3
   bsf STATUS,RP0
   bsf STATUS,RP1
   return
Wait_for_TX
   BTFSS PIE1,TXIF      ; Waiting for send the previous byte
   goto $-1
   nop
   return
Delay_a_round
   movlw .250
   movwf Delay1
   DECFSZ Delay1,1
   goto $-1
   return
end

MOVF   RAM_A5,F

  MOVLW B’10000000’ ; Set to Configuration Mode.
  MOVWF CANCON

; Request Configuration mode.
 
  MOVLW B’10000000’ ; Set to Configuration Mode.
  MOVWF CANCON

; A request to switch to Configuration mode may not be immediately honored.
; Module will wait for CAN bus to be idle before switching to Configuration Mode.
; Request for other modes such as Loopback, Disable etc. may be honored immediately.
; It is always good practice to wait and verify before continuing.

ConfigWait:
  MOVF CANSTAT, W ; Read current mode state.
  ANDLW B’10000000’ ; Interested in OPMODE bits only.
  TSTFSZ WREG ; Is it Configuration mode yet?
  BRA ConfigWait ; No. Continue to wait...

; Module is in Configuration mode now.
; Modify configuration registers as required.
; Switch back to Normal mode to be able to communicate.