Revision: 1699
Author: [email protected]
Date: Tue Feb 23 12:50:29 2010
Log: removed until we have solution for controlling with print library and
until he is buildbot prove
http://code.google.com/p/jallib/source/detail?r=1699
Deleted:
/trunk/include/external/lcd/lcd_nokia3310.jal
=======================================
--- /trunk/include/external/lcd/lcd_nokia3310.jal Mon Feb 22 13:08:58 2010
+++ /dev/null
@@ -1,286 +0,0 @@
---
-----------------------------------------------------------------------------
--- Title: library for GLCD with pcd8544 controller used in Nokia 3310
--- Author: Andre Miller Copyright (c) 2008..2010, all rights reserved.
--- Adapted-by: Richard Zengerink
--- Compiler: >=2.4n
---
--- This file is part of jallib (http://jallib.googlecode.com)
--- Released under the ZLIB license
(http://www.opensource.org/licenses/zlib-license.html)
---
--- Sources: http://www.amontec.com/lcd_nokia_3310.shtml
---
--- Description: library for Nokia 3310 display with pcd8544 controller
---
--- Dependencies: delay.jal
---
---
-
-
-include delay
-
-
-const byte FontLookup[] =
- {
- 0x00, 0x00, 0x00, 0x00, 0x00, -- sp
- 0x00, 0x00, 0x2f, 0x00, 0x00, -- !
- 0x00, 0x07, 0x00, 0x07, 0x00, -- "
- 0x14, 0x7f, 0x14, 0x7f, 0x14, -- #
- 0x24, 0x2a, 0x7f, 0x2a, 0x12, -- $
- 0xc4, 0xc8, 0x10, 0x26, 0x46, -- %
- 0x36, 0x49, 0x55, 0x22, 0x50, -- &
- 0x00, 0x05, 0x03, 0x00, 0x00, -- '
- 0x00, 0x1c, 0x22, 0x41, 0x00, -- (
- 0x00, 0x41, 0x22, 0x1c, 0x00, -- )
- 0x14, 0x08, 0x3E, 0x08, 0x14, -- *
- 0x08, 0x08, 0x3E, 0x08, 0x08, -- +
- 0x00, 0x00, 0x50, 0x30, 0x00, -- ,
- 0x10, 0x10, 0x10, 0x10, 0x10, -- -
- 0x00, 0x60, 0x60, 0x00, 0x00, -- .
- 0x20, 0x10, 0x08, 0x04, 0x02, -- /
- 0x3E, 0x51, 0x49, 0x45, 0x3E, -- 0
- 0x00, 0x42, 0x7F, 0x40, 0x00, -- 1
- 0x42, 0x61, 0x51, 0x49, 0x46, -- 2
- 0x21, 0x41, 0x45, 0x4B, 0x31, -- 3
- 0x18, 0x14, 0x12, 0x7F, 0x10, -- 4
- 0x27, 0x45, 0x45, 0x45, 0x39, -- 5
- 0x3C, 0x4A, 0x49, 0x49, 0x30, -- 6
- 0x01, 0x71, 0x09, 0x05, 0x03, -- 7
- 0x36, 0x49, 0x49, 0x49, 0x36, -- 8
- 0x06, 0x49, 0x49, 0x29, 0x1E, -- 9
- 0x00, 0x36, 0x36, 0x00, 0x00, -- :
- 0x00, 0x56, 0x36, 0x00, 0x00, -- ;
- 0x08, 0x14, 0x22, 0x41, 0x00, -- <
- 0x14, 0x14, 0x14, 0x14, 0x14, -- =
- 0x00, 0x41, 0x22, 0x14, 0x08, -- >
- 0x02, 0x01, 0x51, 0x09, 0x06, -- ?
- 0x32, 0x49, 0x59, 0x51, 0x3E, -- @
- 0x7E, 0x11, 0x11, 0x11, 0x7E, -- A
- 0x7F, 0x49, 0x49, 0x49, 0x36, -- B
- 0x3E, 0x41, 0x41, 0x41, 0x22, -- C
- 0x7F, 0x41, 0x41, 0x22, 0x1C, -- D
- 0x7F, 0x49, 0x49, 0x49, 0x41, -- E
- 0x7F, 0x09, 0x09, 0x09, 0x01, -- F
- 0x3E, 0x41, 0x49, 0x49, 0x7A, -- G
- 0x7F, 0x08, 0x08, 0x08, 0x7F, -- H
- 0x00, 0x41, 0x7F, 0x41, 0x00, -- I
- 0x20, 0x40, 0x41, 0x3F, 0x01, -- J
- 0x7F, 0x08, 0x14, 0x22, 0x41, -- K
- 0x7F, 0x40, 0x40, 0x40, 0x40, -- L
- 0x7F, 0x02, 0x0C, 0x02, 0x7F, -- M
- 0x7F, 0x04, 0x08, 0x10, 0x7F, -- N
- 0x3E, 0x41, 0x41, 0x41, 0x3E, -- O
- 0x7F, 0x09, 0x09, 0x09, 0x06, -- P
- 0x3E, 0x41, 0x51, 0x21, 0x5E, -- Q
- 0x7F, 0x09, 0x19, 0x29, 0x46, -- R
- 0x46, 0x49, 0x49, 0x49, 0x31, -- S
- 0x01, 0x01, 0x7F, 0x01, 0x01, -- T
- 0x3F, 0x40, 0x40, 0x40, 0x3F, -- U
- 0x1F, 0x20, 0x40, 0x20, 0x1F, -- V
- 0x3F, 0x40, 0x38, 0x40, 0x3F, -- W
- 0x63, 0x14, 0x08, 0x14, 0x63, -- X
- 0x07, 0x08, 0x70, 0x08, 0x07, -- Y
- 0x61, 0x51, 0x49, 0x45, 0x43, -- Z
- 0x00, 0x7F, 0x41, 0x41, 0x00, -- [
- 0x55, 0x2A, 0x55, 0x2A, 0x55, -- 55
- 0x00, 0x41, 0x41, 0x7F, 0x00, -- ]
- 0x04, 0x02, 0x01, 0x02, 0x04, -- ^
- 0x40, 0x40, 0x40, 0x40, 0x40, -- _
- 0x00, 0x01, 0x02, 0x04, 0x00, -- '
- 0x20, 0x54, 0x54, 0x54, 0x78, -- a
- 0x7F, 0x48, 0x44, 0x44, 0x38, -- b
- 0x38, 0x44, 0x44, 0x44, 0x20, -- c
- 0x38, 0x44, 0x44, 0x48, 0x7F, -- d
- 0x38, 0x54, 0x54, 0x54, 0x18, -- e
- 0x08, 0x7E, 0x09, 0x01, 0x02, -- f
- 0x0C, 0x52, 0x52, 0x52, 0x3E, -- g
- 0x7F, 0x08, 0x04, 0x04, 0x78, -- h
- 0x00, 0x44, 0x7D, 0x40, 0x00, -- i
- 0x20, 0x40, 0x44, 0x3D, 0x00, -- j
- 0x7F, 0x10, 0x28, 0x44, 0x00, -- k
- 0x00, 0x41, 0x7F, 0x40, 0x00, -- l
- 0x7C, 0x04, 0x18, 0x04, 0x78, -- m
- 0x7C, 0x08, 0x04, 0x04, 0x78, -- n
- 0x38, 0x44, 0x44, 0x44, 0x38, -- o
- 0x7C, 0x14, 0x14, 0x14, 0x08, -- p
- 0x08, 0x14, 0x14, 0x18, 0x7C, -- q
- 0x7C, 0x08, 0x04, 0x04, 0x08, -- r
- 0x48, 0x54, 0x54, 0x54, 0x20, -- s
- 0x04, 0x3F, 0x44, 0x40, 0x20, -- t
- 0x3C, 0x40, 0x40, 0x20, 0x7C, -- u
- 0x1C, 0x20, 0x40, 0x20, 0x1C, -- v
- 0x3C, 0x40, 0x30, 0x40, 0x3C, -- w
- 0x44, 0x28, 0x10, 0x28, 0x44, -- x
- 0x0C, 0x50, 0x50, 0x50, 0x3C, -- y
- 0x44, 0x64, 0x54, 0x4C, 0x44 -- z
- }
-
-
-
-procedure _lcd_write (byte in value) is
--- Clock in 8 bits of data
- for 8 loop
- nok_sclk = low
- if ( (value & 0x80) == 0 )then
- nok_sda = low
- else
- nok_sda = high
- end if
- nok_sclk = high
- value = value << 1
- delay_1us -- max dataspeed is 4Mhz so delay for safety
- end loop
-end procedure
-
-
--- Write a data byte to the LCD
-procedure _lcd_write_data (byte in value) is
- nok_dc = high -- d/c line high for data
- _lcd_write (value)
-end procedure
-
-
-
--- Write a command byte to the LCD
-procedure _lcd_write_command (byte in value) is
- nok_dc = low -- d/c line low for command
- _lcd_write (value)
- nok_dc = high -- set d/c to data
-end procedure
-
-
-
-
--- Set the current position for data (x = 0->83, y = 0->5)
-procedure lcd_gotoxy (byte in xnokia, byte in ynokia) is
- _lcd_write_command ( 0x40 | ( ynokia & 0x07 ))
- _lcd_write_command ( 0x80 | ( xnokia & 0x7f ))
-end procedure
-
-
-
-
---Clear the LCD data memory
-procedure lcd_clear_screen() is
- nok_sda = low ;; Data bit is low
- nok_dc = high ;; Data mode
- nok_cs = low
- for 6 loop -- 6 rows
- for 84 loop -- 84 columns or 'pages'
- for 8 loop --Clock for the 8 bits of the 'page'
- nok_sclk = low
- nok_sclk = high
- end loop
- end loop
- end loop
-end procedure
-
--- Send LCD Initialization
-procedure lcd_Init() is
--- Set initial status of LCD pins
- nok_sclk = low
- nok_sda = low
- nok_dc = low
- nok_cs = low
- nok_res = low
--- Toggle LCD Reset
- delay_1ms (10)
- nok_res = low
- delay_1ms (250)
- nok_res = high
--- nok_cs = high
- _lcd_write_command (0x21) -- Extended commands
- _lcd_write_command (0xc5) -- LCD Vop
- _lcd_write_command (0x06) -- Temp coef
- _lcd_write_command (0x13) -- LCD Bias 1:48
- _lcd_write_command (0x20) -- Standard commands
- _lcd_write_command (0x0c) -- Normal Mode
--- Clear and position at top of LCD
- lcd_clear_screen()
- lcd_gotoxy (0,0);
-end procedure
-
-
-
--- Writes a character to the display
-procedure print_char_5x7 (byte in letter) is
- var word index = 0
- var byte offset
- var byte x
-
- offset = letter - 32 ;; Fix for ascii value
-
- for offset loop
- index = index + 5
- end loop
-
- for 5 loop
- x = FontLookup[index]
- _lcd_write_data (x)
- index = index + 1
- end loop
-
- _lcd_write_data (0) ; Add blank space between characters
-end procedure
-
-
-
-
--- Writes an inverted character to the display
-procedure print_char_5x7_i (byte in letter) is
- var word index = 0
- var byte offset
- var byte x
-
- offset = letter - 32 ;; Fix for ascii value
-
- for offset loop
- index = index + 5
- end loop
-
- for 5 loop
- x = FontLookup[index]
- x = x ^ 0xFF
- _lcd_write_data (x)
- index = index + 1
- end loop
-
- _lcd_write_data (0xFF) ; Add blank space between characters
-end procedure
-
-
--- print string to lcd
--- same idea as print_string in print.jal library only this one works
--- and with print.jal unfortunately not
-
-procedure char_string_to_nokia( byte in str[]) is
- var word len = count(str)
- var byte i
-
- for len using i loop
- print_char_5x7 (str[i])
- end loop
-
-end procedure
-
--- prints any bitmap graphics (for instance created with fastLCD
--- http://www.amontec.com/lcd_nokia_3310.shtml) to lcd
--- just create: const byte graphic[] = { graphic max 504 bytes} and call
--- graphic_to_nokia( graphic)
-
-procedure graphic_to_nokia( byte in graph[]) is
- var word len = count(graph)
- var word i
-
- for len using i loop
- _lcd_write_data(graph[i])
- end loop
-
-end procedure
-
---
----------------------------------------------------------------------------
--- lcd'put - write one char to screen (pseudo var, enables streams)
---
----------------------------------------------------------------------------
-procedure lcd'put(byte in data) is
-; pragma inline -- disabled due to complier bug with inline +
pseudovar/arrays.
- _lcd_write_data(data)
-end procedure
--
You received this message because you are subscribed to the Google Groups
"jallib" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/jallib?hl=en.
