please dont rip this site

PIC JAL IO Routine

serial routine

by  AlexK (?) as posted by Vasile Surducan

-- serial routine from Axelk

--
-- ------------------------------------------------------------------------
-- bit lengths:
--     9600 baud  =   104 cycles
--    19200 baud  =    52 cycles
--    38400 baud  =    26 cycles
--    76800 baud  =    13 cycles
--
--
-- ------------------------------------------------------------------------
-- const asynch_baudrate = 19200  -- hardcoded

var volatile bit asynch_in_pin         is pin_a3
var volatile bit asynch_out_pin        is pin_b7

--
-- ------------------------------------------------------------------------
-- some easy delays
--
-- ------------------------------------------------------------------------

procedure delay10 is -- 10 usec including call
  -- call=2 + return=2 + 3*(goto=2)
  assembler
    local L1, L2, L3
        goto L1
    L1: goto L2
    L2: goto L3
    L3:
  end assembler
end procedure

--
-- ------------------------------------------------------------------------

procedure delay44 is -- 44 usec including call
  -- call=2 + return=2 + 4*10
  delay10
  delay10
  delay10
  delay10
end procedure

--
-- -------------------------------------------------------------------------
-- send a byte
--
-- -------------------------------------------------------------------------

procedure asynch_send( byte in x ) is

   var bit current_bit at x : 0
   var byte times

   assembler
     local sendloop, L1, L2, by0, by1

     -- wait 2 bits = 104 clocks
     call delay44
     call delay44
     call delay10
     call delay10   -- 108 is ok here

     -- the start bit
     bcf   asynch_out_pin    -- low
     call  delay44

     -- the 8 data bits
     movlw   8               -- 8 times
     movwf   times

                                                   -- 46
     goto    L1                                    -- 48
L1:  goto    L2                                    -- 50
L2:

sendloop:
     -- asynch_out_pin = current_bit
     btfss   current_bit
     goto    by0
     bsf     asynch_out_pin
     goto    by1
by0:
     bcf     asynch_out_pin
     nop
by1:                                               -- 5

     -- x = x >> 1
     rrf     x, f                                  -- 6
     call    delay44                               -- 50

      -- end loop
     decfsz times, f                               -- 51
     goto   sendloop                               -- 53

     -- the stop bit(s)
     bsf   asynch_out_pin                          -- high
     call  delay44
     call  delay10

     clrwdt
  end assembler

end procedure

--
-- -------------------------------------------------------------------------
-- receive a byte into lastreceived
--
-- -------------------------------------------------------------------------

var byte lastreceived

procedure asynch_receive is

   var byte times

   assembler
     local WaitIdle, WaitStart, RecvLoop

        clrwdt

     -- wait for idle
     WaitIdle:
        btfss asynch_in_pin  -- active low
        goto  WaitIdle

     -- wait for start bit
     WaitStart:
        btfsc asynch_in_pin  -- active low
        goto  WaitStart

     -- wait for half a bit time (26) until recvloop
        call    delay10
        call    delay10
        nop

     -- now repeat 8 times:
     -- wait for the next interval and sample

        movlw   8               -- 8 times
        movwf   times
        goto    recvloop        -- 2 usec

      recvloop:
        call    delay44         -- 44
        nop                     -- 45

        -- x = x >> 1
        clrc                                    --   1
        rrf   lastreceived, f                   --   2

        -- bit x:7 = asynch_in_pin
        btfsc  asynch_in_pin                    --   3
        bsf    lastreceived, 7                  --   4

        -- end loop
        decfsz times, f                         --   5
        goto   recvloop                         --   7

        -- wait for the (first) stop bit
        call    delay44

        clrwdt

   end assembler
end procedure -- asynch_receive


file: /Techref/piclist/jal/jaxel.htm, 4KB, , updated: 2002/11/1 19:07, local time: 2024/10/10 21:57,
TOP NEW HELP FIND: 
18.207.255.67:LOG IN
©2024 PLEASE DON'T RIP! THIS SITE CLOSES OCT 28, 2024 SO LONG AND THANKS FOR ALL THE FISH!

 ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://www.piclist.com/techref/piclist/jal/jaxel.htm"> PIC JAL IO Routine </A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type a nice message (short messages are blocked as spam) in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

  PICList 2024 contributors:
o List host: MIT, Site host massmind.org, Top posters @none found
- Page Editors: James Newton, David Cary, and YOU!
* Roman Black of Black Robotics donates from sales of Linistep stepper controller kits.
* Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters.
* Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
 

Welcome to www.piclist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .