please dont rip this site

PIC JAL IO Routine

hd44780 and compatible LCD driver

by Vasile Surducan

--
-- file      : hd44780m.jal
-- author    : Wouter van Ooijen
-- cosmetics : Surducan Vasile
-- date      : 17-NOV-1998; MAY 2000
-- purpose   : hd44780,KS0066,6426,-LCD drivers;interface common part
-- used by   : hd447804, hd447808
-- note      : all delay timings may be reduced to 2.5 x
--             for hd44780 driver,   

-- Copyright (C) 1998 Wouter van Ooijen
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Library General Public
-- License as published by the Free Software Foundation; either
-- version 2 of the License, or (at your option) any later version.
--
-- This library 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
-- Library General Public License for more details.
-- 
-- You should have received a copy of the GNU Library General Public
-- License along with this library; if not, write to the
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-- Boston, MA  02111-1307, USA.
--

procedure HD44780_clear is
   HD44780_instruction( 0b_0000_1000 ) -- display off
   HD44780_instruction( 0b_0000_0001 ) -- clear display
   delay_10uS( 200 )
   HD44780_instruction( 0b_0000_0010 ) -- cursor home
   delay_10uS( 200 )
   HD44780_instruction( 0b_0000_0110 ) -- entry, autoincrement, no shift
   HD44780_instruction( 0b_0000_1100 ) -- display on, cursor off, blink off
   delay_10uS( 200 )
end procedure

procedure cursor_blink ( byte in x ) is
-- x=1 character blink, cursor blink
-- x=2 cursor display
-- x=3 cursor display, character blink
    HD44780_instruction( 0b_0000_1100 + x )
end procedure


procedure cursor_on is  -- put the cursor after last written value
 HD44780_instruction( 0b_0000_1110 )
end procedure

procedure cursor_off is -- switch off the cursor
 HD44780_instruction( 0b_0000_1100 )
end procedure

procedure cursor_left is -- move cursor one location to left
 HD44780_instruction( 0b_0001_0000 )
end procedure

procedure cursor_right is -- move cursor one location to right
 HD44780_instruction( 0b_0001_0100 )
end procedure

procedure shift_left is -- flow the whole display to the left
 HD44780_instruction( 0b_0001_1000 )
end procedure

procedure shift_right is -- flow the whole display to the right
 HD44780_instruction( 0b_0001_1100 )
end procedure


-- HD44780 driver, 2 lines, 80,C0 begining address

procedure HD44780_line1 is
   HD44780_instruction( 0b_1000_0000 )
end procedure

procedure HD44780_position1 ( byte in x ) is
   HD44780_instruction( 0b_1000_0000 + x )
end procedure

procedure HD44780_line2 is
  HD44780_instruction( 0b_1100_0000 )
end procedure

procedure HD44780_position2 ( byte in x ) is
  HD44780_instruction( 0b_1100_0000 + x )
end procedure


-- 6426 driver, 4 lines, 80,A0,C0,E0 begining address

procedure _6426_line1 is
   HD44780_instruction( 0b_1000_0000 )
end procedure

procedure _6426_position1 ( byte in x ) is
   HD44780_instruction( 0b_1000_0000 + x )
end procedure

procedure _6426_line2 is
   HD44780_instruction( 0b_1010_0000 )
end procedure

procedure _6426_position2 ( byte in x ) is
   HD44780_instruction( 0b_1010_0000 + x )
end procedure

procedure _6426_line3 is
   HD44780_instruction( 0b_1100_0000 )
end procedure

procedure _6426_position3 ( byte in x ) is
   HD44780_instruction( 0b_1100_0000 + x )
end procedure

procedure _6426_line4 is
   HD44780_instruction( 0b_1110_0000 )
end procedure

procedure _6426_position4 ( byte in x ) is
   HD44780_instruction( 0b_1110_0000 + x )
end procedure




procedure HD44780_define( 
   byte in x,
   byte in b0, 
   byte in b1, 
   byte in b2, 
   byte in b3, 
   byte in b4, 
   byte in b5, 
   byte in b6,
   byte in b7
) is 
   HD44780_instruction( 0x40 | ( x << 3 ) )
   HD44780_write( b0 )
   HD44780_write( b1 )
   HD44780_write( b2 )
   HD44780_write( b3 )
   HD44780_write( b4 )
   HD44780_write( b5 )
   HD44780_write( b6 )
   HD44780_write( b7 )
end procedure


file: /Techref/piclist/jal/hd44780-vs.htm, 4KB, , updated: 2000/8/15 11:32, local time: 2024/10/12 23:58,
TOP NEW HELP FIND: 
35.171.164.77: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/hd44780-vs.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!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .