#ifndef _uart_inc_ #define _uart_inc_ messg "include 'uart.inc'" LIST ; Title : Universal Asynchronous Receiver Transmitter (UART) ; By : komi ; Last update : 2005.11.18 ; Version : 0.4 NOLIST ;---------------------------------------------------------------------------- ; 解説 ;---------------------------------------------------------------------------- ; ; ■初期化 ; ・定義 ; UART_init ; 引数 ; 設定したいボーレート[bps] ; 使用例 ; #define CPU_FREQ D'20000000' <-- 20MHz ; UART_init D'9600' <-- 9600bps ; ; CPU動作クロックに合わせて最適な設定を計算しているので ; あらかじめ CPU_FREQ を定義しておく. ; 誤差が 5% 以上の場合はエラーが出ます. ; ; ; ■1文字送信 ; ・定義1 ; UART_send_char_U1 u1 u1..byte型変数を指定する. ; ・定義2 ; UART_send_char_V1 v1 v1..キャラクタコードを指定する. ; ・定義3 ; UART_send_char_W Wregの値が送信される. ; 使用例 ; UART_send_char_V1 A'a' 'a'を送信する. ; ; 送信が受理されるまで待ち続ける. ; シミュレーション時は注意. ; ; ; ■1文字受信 ; ・定義1 ; U1_UART_receive_char u1 u1..受信した文字の格納先を指定する. ; ・定義2 ; W_UART_receive_char Wregに受信した文字を受け取る. ; ・定義3 ; UART_receive_char RCREG 参照 ; ; 文字が受信されるまで待ち続ける. ; シミュレーション時は注意. ; ; ; ■受信してるか調べる ; ・定義1 ; UART_if_received_goto ; ・定義2 ; UART_if_not_received_goto ; ; 受信しているか調べる. ; 定義1の場合は是のとき, 定義2は偽のときへジャンプする. ; ; ; ■文字列送信 ; ・定義1 ; UART_send_string_V2 V2..文字列データの置かれている番地. ; ・定義2 ; UART_send_string_U2 U2..文字列データの置かれている番地を ; 指している変数. ; 使用例 ; UART_send_string_V2 error_msg1 ; error_msg: DT "ERROR1", 0 ; ; '\0'を文字列の終端と判断する. ; RETLW k を利用せずにプログラムメモリを直接読んでいるので ; 255文字を超える文字列に対応している. ; ; ; ; ; ;---------------------------------------------------------------------------- #ifndef CLOCK_FREQ error "Please define that is CPU CLOCK frequency.(UART.INC)" #endif variable _UART_send_char_used_ = false variable _UART_receive_char_used_ = false variable _UART_send_string_used_ = false ;------------------------------------------------------------------ ; 初期化 ; ; UART_init MACRO baudrate NOLIST local spbrg0, spbrg1, spbrg2, spbrg3 local gosa0, gosa1, gosa2, gosa3 local txsta, rxsta spbrg0 = CLOCK_FREQ /baudrate /D'64' ; low speed if (spbrg0 > D'255') spbrg0 = D'255' endif spbrg1 = spbrg0 -1 spbrg2 = CLOCK_FREQ /baudrate /D'16' ; high speed if (spbrg2 > D'255') spbrg2 = D'255' endif spbrg3 = spbrg2 -1 gosa0 = CLOCK_FREQ /(D'64'*(spbrg0+1)) - baudrate gosa1 = CLOCK_FREQ /(D'64'*(spbrg1+1)) - baudrate gosa2 = CLOCK_FREQ /(D'16'*(spbrg2+1)) - baudrate gosa3 = CLOCK_FREQ /(D'16'*(spbrg3+1)) - baudrate if (gosa0 < 0) gosa0 = -gosa0 endif if (gosa1 < 0) gosa1 = -gosa1 endif if (gosa2 < 0) gosa2 = -gosa2 endif if (gosa3 < 0) gosa3 = -gosa3 endif if (gosa2 > gosa3) gosa2 = gosa3 spbrg2 = spbrg3 endif if (gosa0 > gosa1) gosa0 = gosa1 spbrg0 = spbrg1 endif if (gosa2 < gosa0) ; use high speed mode gosa2 = (gosa2 *D'100') /baudrate; if (gosa2 >= 5) error "Cannot set baudrate. over 5% (UART.INC)" endif LIST banksel SPBRG MOVLW spbrg2 MOVWF SPBRG banksel TXSTA MOVLW B'00100100' MOVWF TXSTA NOLIST else ; use low speed mode gosa0 = (gosa0 *D'100') /baudrate; if (gosa0 >= 5) error "Cannot set baudrate. over 5% (UART.INC)" endif LIST banksel SPBRG MOVLW spbrg0 MOVWF SPBRG banksel TXSTA MOVLW B'00100000' MOVWF TXSTA NOLIST endif LIST banksel RCSTA MOVLW B'10010000' MOVWF RCSTA ENDM ;------------------------------------------------------------------ ; 1文字送信 ; 送信可能になるまで待ちます ; ;======================================================== macro _UART_send_char_ MACRO NOLIST _UART_send_char_used_ = true LIST pagesel UART_send_char_f CALL UART_send_char_f ENDM ;======================================================== function UART_send_char_U1 MACRO var banksel var MOVF var, W _UART_send_char_ ENDM ;........................................................ UART_send_char_V1 MACRO value MOVLW value _UART_send_char_ ENDM ;........................................................ UART_send_char_W MACRO _UART_send_char_ ENDM ;======================================================== ;------------------------------------------------------------------ ; 1文字受信 ; 受信されるまで待ちます ; ;======================================================== macro _UART_receive_char_ MACRO NOLIST _UART_receive_char_used_ = true LIST pagesel UART_receive_char_f CALL UART_receive_char_f ENDM ;======================================================== function U1_UART_receive_char MACRO var _UART_receive_char_ MOVF RCREG, W banksel var MOVWF var ENDM ;........................................................ W_UART_receive_char MACRO _UART_receive_char_ MOVF RCREG, W ENDM ;........................................................ UART_receive_char MACRO _UART_receive_char_ ENDM ;======================================================== ;------------------------------------------------------------------ ; 受信してるか調べる ; ;======================================================== macro UART_if_received_goto MACRO label banksel PIR1 BTFSC PIR1, RCIF GOTO label ENDM ;........................................................ UART_if_not_received_goto MACRO label banksel PIR1 BTFSS PIR1, RCIF GOTO label ENDM ;======================================================== ;------------------------------------------------------------------ ; 文字列送信 ; 指定したアドレスの文字列を送信する. ; ;======================================================== macro _UART_send_string_ MACRO NOLIST _UART_send_string_used_ = true LIST pagesel UART_send_string_f CALL UART_send_string_f ENDM ;======================================================== function UART_send_string_V2 MACRO addrV2 PGMMEM_set_address_V2 addrV2 _UART_send_string_ ENDM ;........................................................ UART_send_string_U2 MACRO addrU2 PGMMEM_set_address_U2 addrU2 _UART_send_string_ ENDM ;........................................................ UART_send_string_STR MACRO str local str_data, end_func PGMMEM_set_address_V2 str_data _UART_send_string_ GOTO end_func str_data: DT str, 0 end_func: ENDM ;======================================================== ;------------------------------------------------------------------ ;---------------------------------------------------------------------------- ; 関数本体 UART_functions MACRO C_UART CODE NOLIST #if _UART_send_string_used_ _UART_send_string_used_ = false #ifndef _pgmmem_inc_ error "Please include 'pgmmem.inc'. (before UART.INC)" #endif LIST UART_send_string_f: W_PGMMEM_read_data ; プログラムメモリのリード BTFSC STATUS, Z ; '\0' ? RETURN ; ゼロ以外なら UART_send_char_W ; 文字送信 banksel EEADR ; アドレスのインクリメント INCF EEADR, F ; BTFSC STATUS, Z ; 桁上がり処理 INCF EEADRH, F ; GOTO UART_send_string_f NOLIST #endif #if _UART_send_char_used_ _UART_send_char_used_ = false LIST UART_send_char_f: banksel TXSTA BTFSS TXSTA, TRMT GOTO $-1 banksel TXREG MOVWF TXREG RETURN NOLIST #endif #if _UART_receive_char_used_ _UART_receive_char_used_ = false LIST UART_receive_char_f: banksel PIR1 BTFSS PIR1, RCIF GOTO $-1 RETURN NOLIST #endif LIST ENDM ;---------------------------------------------------------------------------- LIST #endif