Graphic display sample code NHD-12864AZ, NHD-12864MZ, NHD-12864WG-B.
'*****************************************************/ '* 'NHD-12864AZ.bas 'Program for writing to Newhaven Display 128x64 AZ series Graphic LCD ' 'c.2008 Newhaven Display International, Inc. ' ' This program 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 2 of the License, or ' (at your option) any later version. ' ' This program 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. '/ '*****************************************************/ '------------------------------------------------------------------------------- 'Symbol Pin 'Vdd(+5) 2 'Vss(GND) 1 'V0 (-10) 3 'DB0-DB7 7-14 P1 'CS2 16 P3.6 'CS1 15 P3.1 'RST 17 P3.2 'R/W 5 P3.7 'D/I 4 P3.0 'E 6 P3.4 'Vout 18 'A(+4.2) 19 'K(GND) 20 '------------------------------------------------------------------------------- $large Dim A As Byte Dim Count As Byte Dim Page As Byte Dim Showloop As Byte Declare Sub Comleft Declare Sub Comright Declare Sub Writeright Declare Sub Writeleft Declare Sub Show Declare Sub Init '------------------------------------------------------------------------------- Do Call Init Page = &HB8 A = Page 'move to 1st page Call Comleft Call Comright A = &H40 Call Comleft Call Comright Restore Dta1 'point to NHD logo For Showloop = 1 To 8 Call Show Incr Page A = Page 'move to next page Call Comleft Call Comright A = &H40 Call Comleft Call Comright Next Showloop Wait 3 Loop End '------------------------------------------------------------------------------- Sub Init Reset P3.2 Set P3.2 Reset P3.4 Reset P3.0 Reset P3.7 Reset P3.6 Reset P3.1 A = &H3F Call Comleft 'display on Call Comright 'display on End Sub '------------------------------------------------------------------------------- Sub Comleft P1 = A Set P3.6 Reset P3.0 Set P3.4 Reset P3.4 Reset P3.6 End Sub Sub Comright P1 = A Set P3.1 Reset P3.0 Set P3.4 Reset P3.4 Reset P3.1 End Sub Sub Writeleft P1 = A Set P3.6 Set P3.0 Set P3.4 Reset P3.4 Reset P3.6 End Sub Sub Writeright P1 = A Set P3.1 Set P3.0 Set P3.4 Reset P3.4 Reset P3.1 End Sub '------------------------------------------------------------------------------- Sub Show For Count = 1 To 64 Read A Call Writeright Next For Count = 1 To 64 Read A Call Writeleft Next End Sub '------------------------------------------------------------------------------- Dta1: Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &HE0 , &HF8 , &HF8 , &HFC , &HFC , &HF8 , &HF0 , &HE0 Data &H80 , &H80 , &H80 , &H80 , &H80 , &H80 , &H80 , &H80 , &H80 , &H00 , &H00 , &H80 , &H80 , &H00 , &H00 , &H00 Data &H80 , &H80 , &H80 , &H00 , &H00 , &H80 , &H80 , &H00 , &H80 , &H80 , &H00 , &H80 , &H80 , &H00 , &H00 , &H80 Data &H80 , &H00 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 , &H80 , &H00 , &H00 Data &H80 , &H80 , &H00 , &H00 , &H00 , &H80 , &H80 , &H80 , &H00 , &H00 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 Data &H80 , &H00 , &H00 , &H00 , &H00 , &H80 , &H80 , &H80 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 , &H80 , &H00 Data &H00 , &H00 , &H80 , &H80 , &H80 , &H00 , &H00 , &H00 , &H00 , &H80 , &H80 , &H80 , &H00 , &H00 , &H00 , &H80 Data &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H80 , &H00 , &H80 , &H80 , &H80 , &H00 , &H00 , &H80 , &H80 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H7F , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H7F Data &H3F , &H1F , &H1F , &H1F , &H1F , &H1F , &HFF , &HFF , &HFF , &HF0 , &H00 , &HFF , &HFF , &H00 , &HF8 , &HFF Data &H3F , &H0F , &H0F , &H00 , &H00 , &HFF , &HFF , &H00 , &HFF , &HFF , &H00 , &HFF , &HFF , &H00 , &H00 , &HFF Data &HFF , &H00 , &HFF , &HFF , &H00 , &H00 , &HF0 , &HFF , &HFF , &HF0 , &H00 , &H00 , &HFF , &HFF , &H00 , &H00 Data &HFF , &HFF , &H00 , &HFE , &HFF , &H1F , &H0F , &H0F , &H00 , &H00 , &HFF , &HFF , &HF8 , &H00 , &H00 , &HFF Data &HFF , &H00 , &H00 , &H00 , &H00 , &HFF , &HFF , &H0F , &H0F , &H3F , &HFF , &HF8 , &H00 , &HFF , &HFF , &H00 Data &HFE , &HFF , &HFF , &H1F , &H1F , &H1F , &H00 , &H00 , &HFF , &HFF , &H0F , &H1F , &HFE , &HFC , &H00 , &HFF Data &HFF , &H00 , &H00 , &H00 , &H00 , &HF0 , &HFF , &HFF , &HF0 , &H01 , &H3F , &HFF , &HC0 , &HC0 , &HFF , &H3F Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H80 , &H80 , &H01 , &H01 , &H03 , &H03 , &H03 , &H01 , &HC0 Data &HF0 , &HFE , &HFE , &HFE , &H7E , &H7E , &HFF , &HFF , &H01 , &H3F , &HF8 , &HFF , &HFF , &H00 , &HFF , &HFF Data &H3E , &H3C , &H3C , &H00 , &H00 , &H3F , &HFF , &HF0 , &H3F , &H3F , &HF0 , &HFF , &H3F , &H00 , &H00 , &HFF Data &HFF , &H3F , &HFF , &HFF , &H00 , &H00 , &HFF , &HC3 , &HC3 , &HFF , &H00 , &H00 , &H1F , &HFF , &HC0 , &HC0 Data &HFF , &H1F , &H00 , &HFF , &HFF , &H3E , &H3E , &H3E , &H00 , &H00 , &HFF , &HFF , &H1F , &H7F , &HFC , &HFF Data &HFF , &H00 , &H00 , &H00 , &H00 , &HFF , &HFF , &H00 , &H00 , &H00 , &HFF , &HFF , &H00 , &HFF , &HFF , &H00 Data &H0F , &H1F , &H3F , &H3F , &HFC , &HF8 , &HE0 , &H00 , &HFF , &HFF , &HF8 , &HF8 , &H7F , &H1F , &H00 , &HFF Data &HFF , &H00 , &H00 , &H00 , &H00 , &HFF , &HC3 , &HC3 , &HFF , &H00 , &H00 , &H00 , &HFF , &HFF , &H00 , &H00 Data &H00 , &H00 , &HF0 , &HFC , &HFE , &HFF , &HFF , &HFF , &HFF , &HFE , &HFC , &HE0 , &HE0 , &HF8 , &HFF , &H3F Data &H0F , &H83 , &HE1 , &HF0 , &HF8 , &HF8 , &HFF , &HFF , &H00 , &H00 , &H03 , &HFF , &HFF , &H00 , &H1F , &HFF Data &HFC , &HF8 , &HF8 , &H00 , &H00 , &H00 , &HFF , &HFF , &H00 , &H00 , &HFF , &HFF , &H00 , &H00 , &H00 , &HFF Data &HFF , &H00 , &HFF , &HFF , &H00 , &HFE , &HFF , &H07 , &H07 , &HFF , &HFE , &H00 , &H00 , &H3F , &HFF , &HFF Data &H3F , &H00 , &H00 , &HFF , &HFF , &HFC , &HF8 , &HF8 , &H00 , &H00 , &HFF , &HFF , &H00 , &H00 , &H01 , &HFF Data &HFF , &H00 , &H00 , &H00 , &H00 , &HFF , &HFF , &HF8 , &HF8 , &HFE , &H7F , &H03 , &H00 , &HFF , &HFF , &H00 Data &H70 , &HF8 , &HF8 , &HFC , &HFF , &HFF , &H7F , &H00 , &HFF , &HFF , &H00 , &H00 , &H00 , &H00 , &H00 , &HFF Data &HFF , &HF8 , &HF0 , &H00 , &HFF , &HFF , &H07 , &H07 , &HFF , &HFF , &H00 , &H00 , &HFF , &HFF , &H00 , &H00 Data &H00 , &H00 , &H01 , &H0F , &H1F , &H3F , &H7F , &H7F , &H7F , &H3F , &H1F , &H0F , &H07 , &H03 , &H81 , &HF0 Data &HFF , &HFF , &HFF , &H0F , &H07 , &H03 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 , &H00 Data &H01 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 Data &H01 , &H00 , &H01 , &H01 , &H00 , &H01 , &H01 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 , &H01 Data &H00 , &H00 , &H00 , &H00 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 Data &H01 , &H00 , &H00 , &H00 , &H00 , &H01 , &H01 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 , &H01 , &H00 Data &H00 , &H00 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 Data &H01 , &H01 , &H01 , &H00 , &H01 , &H01 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 , &H01 , &H01 , &H00 , &H00 Data &H80 , &HE0 , &HF0 , &HF8 , &HF8 , &HF8 , &HF8 , &HF8 , &HF0 , &HE0 , &HE0 , &HF0 , &HF8 , &HFE , &HFF , &H7F , &H1F Data &H0F , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &HFC , &HFC , &H00 , &H00 , &H00 , &HFC , &H78 , &HC0 , &HFC , &H00 , &H04 , &H0C , &HFC , &HFC Data &H0C , &H04 , &H00 , &H00 , &HF8 , &HFC , &H8C , &H8C , &H00 , &H00 , &HFC , &HFC , &H8C , &H78 , &H00 Data &H00 , &HFC , &H78 , &HC0 , &HFC , &H00 , &H00 , &H00 , &H00 , &HF8 , &H3C , &HF8 , &H00 , &H00 , &H04 , &H0C , &HFC , &HFC Data &H0C , &H04 , &H00 , &HFC , &HFC , &H00 , &H00 , &H00 , &HF8 , &H0C , &H0C , &HF8 , &H00 , &H00 , &H00 , &HFC Data &H78 , &HC0 , &HFC , &H00 , &H00 , &H00 , &HF8 , &H3C , &HF8 , &H00 , &H00 , &H00 , &HFC , &HFC , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H1F , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H7F , &H3F , &H0F , &H0F , &H07 , &H03 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H3F , &H3F , &H00 , &H00 , &H00 , &H3F , &H00 , &H07 , &H3F , &H00 , &H00 , &H00 , &H3F Data &H3F , &H00 , &H00 , &H00 , &H00 , &H1F , &H3F , &H31 , &H31 , &H00 , &H00 , &H3F , &H3F , &H01 , &H3E , &H00 Data &H00 , &H3F , &H00 , &H03 , &H3F , &H00 , &H00 , &H00 , &H3E , &H3F , &H07 , &H3F , &H3E , &H00 , &H00 , &H00 Data &H3F , &H3F , &H00 , &H00 , &H00 , &H3F , &H3F , &H00 , &H00 , &H00 , &H1F , &H30 , &H30 , &H1F , &H00 , &H00 Data &H00 , &H3F , &H00 , &H07 , &H3F , &H00 , &H00 , &H3E , &H3F , &H07 , &H3F , &H3E , &H00 , &H00 , &H3F , &H3F Data &H30 , &H30 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H01 , &H01 , &H03 , &H03 , &H03 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00