This is a multi-part message in MIME format.

--Boundary_(ID_fFOnbm7kBxRLKxLHl7l/AA)
Content-type: text/plain; charset=us-ascii
Content-transfer-encoding: 7BIT

Sean Alcorn - PIC Stuff wrote:
>
> Hi guys,
>
> I am working on my first A/D project and am using the PIC12F675
>
> Does anybody have a simple circuit & code that I can use to output the
> value of a set of values to an RS-232 port on a PC in order to check my
> values are correct?
>
> Regards,
>
> Sean


Here is some bit bang code for 9600 baud @ 4MHz and a RS232 circuit.


#Define SkipIfRxLow     btfsc GPIO,RX
#Define Tx_Low          bcf GPIO,TX
#Define Tx_High         bsf GPIO,TX
#Define Tx_Out          bcf GPIO,TX
#Define Tx_In           bsf GPIO,TX



Loop    call Receive    ; wait for receive byte
        call TxRoutine  ; echo it back
        goto Loop

;
; ---------------
; RECEIVE ROUTINE
; ---------------
;
RxRoutine       SkipIfRxLow             ; wait for start bit
        goto RxRoutine

        call HBDelay2           ; wait 1/2 bit length - 2 cycles
        movlw 9h
        movwf BCount

RxLoop  SkipIfRxLow             ; start bit is lost during routine
        goto RxHiBit

        bcf STATUS,C            ; receive start bit and 8 data bits
        goto RxLoBit

RxHiBit bsf STATUS,C
        nop
RxLoBit rrf RxHold,F
        call HBDelay4           ; wait 1/2 bit length - 4 cycles
        call HBDelay5           ; wait 1/2 bit length - 5 cycles
        decfsz BCount,F
        goto RxLoop

        movf RxHold,W
        return                  ; data returned in W Reg
;
; ----------------
; TRANSMIT ROUTINE
; ----------------
;
TxRoutine       movwf TxSend            ; temp store data to be sent
        Tx_Low                  ; do start bit
        call HBDelay5
        call HBDelay2

        movlw 8h                        ; 8 data bits to send
        movwf BCount

TxLoop  rrf TxSend,F
        btfsc STATUS,C
        goto TxHiBit

        nop
        Tx_Low
        goto DoneBit

TxHiBit Tx_High
        goto $ + 1

DoneBit call HBDelay5           ; wait 1 bit length
        call HBDelay5
        decfsz BCount,F
        goto TxLoop

        call DoRet
        nop
        Tx_High                 ; stop bit
        call HBDelay1
        call HBDelay
DoRet   return
;
; ----------------------------
; HALF BIT DELAY FOR 9600 BAUD
; ----------------------------
;
HBDelay nop
HBDelay1        nop
HBDelay2        goto $ + 1
HBDelay4        nop
HBDelay5        movlw 0x0D
        movwf BitWait
BW      decfsz BitWait,F
        goto BW
        nop
        nop
        nop
        return


--
Best regards

Tony

mICros
http://www.bubblesoftonline.com
mailto:sales@bubblesoftonline.com

--Boundary_(ID_fFOnbm7kBxRLKxLHl7l/AA)
Content-type: image/gif; name=RS232.GIF
Content-disposition: inline; filename=RS232.GIF
Content-transfer-encoding: base64

R0lGODdhZAHoAIAAAAAAAP///ywAAAAAZAHoAAAC/4yPqcvtD6OctNqLs968+w+G4kiW5omm
6sq27gvH8kzXJYAHOKDn9g8MCocgHsKoIyqXzObQZ0AindSq9Rqa8qbYrvcLTkiT4bL5vBxz
0ey2W6V9y+d0zo67ruv3/L7/DxgoOEhYaHj4cqe4yNjo+IgYKemQ51I5iUl4ybKZ6enXCfc5
qlkTSorqdoqymupa1moS+0qLNUtyW6vblCvSuwss9FsUXAw2/IFsvJxoyvxMpZzhIw1tfZO4
FXXNHQlV3R1u5yxeHgNOcbdtzt6CPt0eL0rzLm8vRn6vT0y/7+9R70LAf+0GVjBIsBzCCQsT
DoIiRpGFhhEoTqy0yKGSS/5jDuYLwvGARY0TG2ir+AjiipEeGZwk+STKFiM7jhGhOVMmS5jp
RK57+SClSkpCixo9+q4jTTI8QfokEyvUqp0Vszxd2jTmz3USjHYVZnUr06w/aupUh+EXVQjo
zPaQSHaPWrBxr83dkLSuXZktNWAdpxdaR4aAq60NLOcuXnAD1R1GzAke3rAm0257DHmewMIA
g1pOgjkzK8l+uU6m9Bmo6DaK/TL2vBn06sSk4dTM0/jy7DetP3+9egSpxJSXie+2VXva0AVx
xuaWXfn4FdxSOyxnTo152KWbQksvqR12aX7Jtnb/bgUjW7oAsarGhz4a9k7eFTx/fyS+fN/5
r/+fuD+WffpFIxxa5gWYQmP+5TfgHM1pQ5V39TWIi3YLYmNSQxNS6At7Lo3GoSoehidLiCI6
hdp/JrLmzm0knrMiGzs1F1GBNhoXoxkz9kdjjsvMmJ2APjKz4VNDGlOkaUcCkySCS9bSZJNP
pjfilLREiYuLVrKIYofQbYkGlhmm5iSYX4jpUi/cmRlmlZ19yWYYQBrIoJf4xYlcZMCJdONM
jhQHCZ6u/UWZZlDVuV2ZSgrqEaGEiWebn0KWd+h5Ttw2HFpuOXchKSfd0imab64ZXURp0lni
oWKpauSiULJKGH1uKndgqfCRaBEezu2pW6u7fHqRrF0maumkAu7Ipxb/bsXR46+wkudTpxWO
QOqH4eVAjbSUAcVtf4gaciNUkPS5BoTNUCutemLdqSKCf0lhoJQwNuqqdXzKtpaE1qoa4aru
GTnYYA89Ciy1xx4mbKqT/tsiTo5li6mkGRXSCqnPAdGdhvMli+qAp5hVsJcYr6ewoKA+S+nI
Y7bL6MmOphzppr6e2/JFIK707Vnk7iyvPvIiW1zOjM476w3YDtUzmFNhBBdgKg/dz2+4vvk0
1DJUXFlbRVuN829H6wStDUnrqKUnWK+raGxV21XuJ2fzK3JZ4YSUIiBvMxz2R88smPAfS8Pb
NNVyC1Zd3X7ftPWr9ulqOCiIDxvMcoSOTTTk/no7a62fferxc+Ke0sc4Jp1b/oqakDqu1dpX
8re4IKOrXjrr+FBucOqDY34vyacG8vrtujyo+yS9ix05g5rz3PGJnltSfHBVZTL85bGrjZ3r
ej4Pu/Giy37r4TiHmvjLlkz81uKZSkp9T433wVJOp0uv/QwMCww3U72l2b35vF8fPPEpbtgs
3BxrPP8T2iFeB7IsBGlfVQjgi2bWl+gcz0ZvQZ4FL4jBDG5KDRDS1tTcxzEN7sxwoRMaMj5W
Qkn0Tg09aCFpzNWsS31LgLMjYAT1Z7fHcWWCHlwYvgyYhlupC2DJeZStULc8d0xHJTJLlhOb
KLUbGguJpJNf83L3/778sU+HvlPcqo7oDS76D3eVEiHnxAi/VODhY2ZDY9TIqD787a9hWbQi
anrIB9OtL480A+MbP8Qu66VviltkXh2v5plAzjEoKSQkHw25RztmjXZKhE0MEYHArxVBkwz0
ogQrKMJQMqJk6AoXEbFVPt90sEYUpBhKtNhAUvqOhZxUGwyBiAo9ytF2cauawxohGcfsiknc
w2ISi/nHMf4OmS7kZaGyh0hiOq9/NXIjzKBZOU+KD5b7mdYxu0ZG7pgxmc/sYhpzaSpqxhJD
3zSUJ+OYJ29WMZpwNGL1rCk4bMKAks6MYuvwaa9+SnKZbGnkOuWpzz6+81q4ZAJCokfO6f4V
kGfndNo8s7m6gnJThuy86D6vKMVpCjSfKgKfR0EYxkF6a6QBnUfh9LlNTpCviXCJWBH9+c92
hhRDLzUnfPRVP3fxahhrxF4nE2pDEPVUmRbCY0dTGLC0GTWmEOxm7diTwPZQtV5B9NUamWhR
cWrQFKIs69FMCZ1VwkOcoPnG5spKwvy9RxlFVecBdZhAc6UlOzmBCD9bBVXTKNKuhOVqHRBY
KTjRq60zjecOhRTVmxo1p97T6c0I9FUcnk+yhTWsgwD6UWkycqPNrKxHFbqXYW6PpaFlkqV4
KJwzsha1v+OIQServNNCEklTYaaOxtdZ2hoTncE9KpdkWlyNkv90pa64kC5p06LkFrCluyxd
Pf6q0v84lzPUfeCV2uZbWOC1lsrdmEnFIUzOnmEh5IqWbpy60r6mEpSxvQd2wYNVvio2ONfJ
awv9Kpr77vSNHURl32qIIwEL8rOzxW1S9aJgeyI1kYYJ8GFBK1yyRBinTN0MfL1blw07uKLP
q3BmRCzdSo7HxJBB8SEHSqvlxsXFkYwojCF84QarGDE09iOJdxuYHhuXrGZtZYtzTAchNxfJ
DLaSkh153Ck9mbTrVRqToevkK/PGykmWbZa7rOUjTbmhv93SmKsqIy43ec1POrNnz4TmHLlZ
ql1AJZ1NNOcph0zKYY5ym/t8jKx+mc3PWzazlpcF4CdCzIlgYxmfwZzO0gZIKe7t1Z0fLOYw
u5W5lp4hlS36Z0h7q1vgXVipEbqkPFsITnP17iXLmWlRu/clgVMNDS99mkFjOX6RtR+v0CbL
WMsCU2ALXHfLJ7GzIvuszNaZo0PNzncR8ZqF1nUv+eLrOA+4TYbu6KwBS+3cQvuqLqI1mSVc
7UfL0z0Cew2g5cwyaT823H5ONSsWLS4oYrrewt61v+0t63SPW+AEF3ORD47whBeIa9xmuMMf
DvGIS3ziFK+4xS8ujgIAADs=

--Boundary_(ID_fFOnbm7kBxRLKxLHl7l/AA)--

--
http://www.piclist.com hint: The PICList is archived three different
ways.  See http://www.piclist.com/#archives for details.