From f7dc5cdbfd6db4eebaa872474f36a474acf7ec88 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Thu, 11 Jul 2013 01:16:48 +0000 Subject: added inital support for 16f1847 git-svn-id: https://svn.spreadspace.org/pic/trunk@75 a09c6847-51d9-44de-8ef2-e725cf50f3c7 --- bootloader/com-16f1847-uart.inc | 76 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 76 insertions(+) create mode 100644 bootloader/com-16f1847-uart.inc (limited to 'bootloader/com-16f1847-uart.inc') diff --git a/bootloader/com-16f1847-uart.inc b/bootloader/com-16f1847-uart.inc new file mode 100644 index 0000000..2db9eca --- /dev/null +++ b/bootloader/com-16f1847-uart.inc @@ -0,0 +1,76 @@ + ;; + ;; spreadspace pic utils + ;; + ;; + ;; Copyright (C) 2011 Christian Pointner + ;; + ;; This file is part of spreadspace pic utils. + ;; + ;; spreadspace pic utils is free software: you can redistribute it and/or modify + ;; it under the terms of the GNU General Public License as published by + ;; the Free Software Foundation, either version 3 of the License, or + ;; any later version. + ;; + ;; spreadspace pic utils is distributed in the hope that it will be useful, + ;; but WITHOUT ANY WARRANTY; without even the implied warranty of + ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + ;; GNU General Public License for more details. + ;; + ;; You should have received a copy of the GNU General Public License + ;; along with spreadspace pic utils. If not, see . + ;; + + ;; --- transmit byte and add it to csum +com_tx_byte + btfss PIR1,TXIF + goto com_tx_byte + movlb .3 + movwf TXREG + xorwf csum,f + movlb .0 + return + + ;; ---- wait for byte to be received +com_rx_byte + movlb .3 + btfsc RCSTA,OERR + goto uart_rx_oe + movlb .0 + btfss PIR1,RCIF + goto com_rx_byte + movlb .3 + btfsc RCSTA,FERR + goto uart_rx_fe + movf RCREG,w + movlb .0 + return + +uart_rx_oe ; recover from overflow + bcf RCSTA,CREN + bsf RCSTA,CREN + goto com_rx_byte + +uart_rx_fe ; recover from framing error + movf RCREG,w + goto com_rx_byte + + ;; ----- initialize com (not a subroutine, com_init is called by generic_init +com_init + movlb .1 + movlw b'01110000' ; 8 MHz + movwf OSCCON + + movlb .3 + bcf ANSELB,ANSB1 + movlw b'01001000' ; TX non-inverted, 16bit Baudrate, no auto baud detect + movwf BAUDCON + movlw b'00100100' ; Baudrate = High Speed, async mode, transmit enabled, 8bit + movwf TXSTA + movlw .34 ; Baudrate = 57600 (@ 8MHz) -> -0,79 % Error + ;; movlw .51 ; Baudrate = 38400 (@ 8MHz) -> -0,002 % Error + ;; movlw .103 ; Baudrate = 19200 (@ 8MHz) -> 0,16 % Error + movwf SPBRGL + clrf SPBRGH + movlw b'10010000' ; enable Serial Port, 8bit, enable continues receive, disable address detection + movwf RCSTA + movlb .0 -- cgit v1.2.3