//--------------------------------------------------------- /* NHD-C12865.bas Program for writing a picture to Newhaven Display Graphic COG (c)2007 Curt Lagerstam - Newhaven Display International, LLC. 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. */ 'Column Equ 31h 'PAGES EQU 32H 'PAGESIZE EQU 8 ';ABOUT SPLC501 OR ST7565S INTERFACE 'A0 EQU P3.2 ;ADDRESS OF DATA/COMMAND 'R_W EQU P3.1 ;68=READ/WRITE;80=/WRITE 'E EQU P3.0 ;68=ENABLE;80=/READ 'CS1 EQU P3.4 ;/CHIP SELECT1 'RES EQU P3.3 ;RESET //------------------------------------------------------------------------------ $large Dim A As Byte Dim Count As Byte Dim PageCounter As Byte Dim Page As Byte Dim Cleardata1 As Byte Dim Cleardata2 As Byte Declare Sub Writedata Declare Sub Writecom Declare Sub Init Declare Sub Clear Declare Sub Picture Do Call Init Call Clear Call Picture Wait 5 Loop End Sub Init Set P3.0 Set P3.1 Reset P3.4 Set P3.3 'reset Reset P3.3 Waitms 2 Set P3.3 Waitms 20 A = &HA2 '1/9 BIAS Call Writecom A = &HA0 'ADC SELECT , NORMAL Call Writecom A = &HC8 'COM OUTPUT REVERSE Call Writecom A = &HA4 'DISPLAY ALL POINTS NORMAL Call Writecom A = &H40 'DISPLAY START LINE SET Call Writecom A = &H25 'INTERNAL RESISTOR RATIO Call Writecom A = &H81 'ELECTRONIC VOLUME MODE SET Call Writecom A = &H10 'ELECTRONIC VOLUME Call Writecom A = &H2F 'POWER CONTROLLER SET Call Writecom A = &HAF 'DISPLAY ON Call Writecom End Sub Sub Picture Restore Pic1 Page = &HB0 For PageCounter = 1 To 8 A = Page Call Writecom A = &H00 Call Writecom A = &H10 Call Writecom For Count = 1 To 128 Read A Call Writedata Next Count Incr Page Next PageCounter End Sub Sub Clear Page = &HB0 For PageCounter = 1 To 8 A = Page Call Writecom A = &H00 Call Writecom A = &H10 Call Writecom A = &H00 For Count = 1 To 128 Call Writedata Next Count Incr Page Next PageCounter End Sub Sub Writecom Reset P3.2 'A0 Reset P3.1 'R/W Reset P3.4 'CS1 Set P3.0 'E P1 = A Reset P3.0 Set P3.4 End Sub Sub Writedata Set P3.2 Reset P3.1 Reset P3.4 Set P3.0 P1 = A Reset P3.0 Set P3.4 End Sub Pic1: Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HC0 , &H60 , &HF0 , &HF0 , &H00 , &H00 , &HE0 , &HF0 , &H10 , &H10, Data &HF0 , &HE0 , &H00 , &HE0 , &HF0 , &H10 , &H10 , &HF0 , &HE0 , &H00 , &HF0 , &HF0 , &HF0 , &HC0 , &H00 , &HC0, Data &HF0 , &HF0 , &HF0 , &H00 , &HF0 , &HF0 , &H10 , &H10 , &H10 , &HF0 , &HE0 , &H00 , &HF0 , &HF0 , &H00 , &H00, Data &H00 , &HF0 , &HF0 , &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 , &HF0 , &HF0 , &H10 , &H10 , &H10 , &H10 , &H00 , &HF0 , &HF0 , &HE0 , &H80, Data &H00 , &HF0 , &HF0 , &H00 , &H10 , &H10 , &HF0 , &HF0 , &H10 , &H10 , &H00 , &HF0 , &HF0 , &H10 , &H10 , &H10, Data &H10 , &H00 , &HF0 , &HF0 , &H10 , &H10 , &H10 , &HF0 , &HE0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H1F , &H1F , &H00 , &H00 , &H0F , &H1F , &H10 , &H10, Data &H1F , &H0F , &H00 , &H0F , &H1F , &H10 , &H10 , &H1F , &H0F , &H00 , &H1F , &H1F , &H00 , &H0F , &H1C , &H0F, Data &H00 , &H1F , &H1F , &H00 , &H1F , &H1F , &H02 , &H02 , &H02 , &H03 , &H01 , &H00 , &H1F , &H1F , &H01 , &H01, Data &H01 , &H1F , &H1F , &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 , &H1F , &H1F , &H11 , &H11 , &H11 , &H11 , &H00 , &H1F , &H1F , &H00 , &H03, Data &H0E , &H1F , &H1F , &H00 , &H00 , &H00 , &H1F , &H1F , &H00 , &H00 , &H00 , &H1F , &H1F , &H11 , &H11 , &H11, Data &H11 , &H00 , &H1F , &H1F , &H01 , &H01 , &H03 , &H0F , &H1C , &H10 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H10 , &H18 , &H08 , &H88 , &HF8 , &H70 , &H00 , &HE0 , &HF8 , &H58 , &H48, Data &HC8 , &H88 , &H00 , &H00 , &H00 , &H00 , &HF0 , &HF8 , &H08 , &H08 , &HF8 , &HF0 , &H00 , &HF8 , &HF8 , &H78, Data &HE0 , &H00 , &HE0 , &H78 , &HF8 , &HF8 , &H00 , &HF8 , &HF8 , &H08 , &H08 , &H08 , &HF8 , &HF0 , &H00 , &HE0, Data &HF0 , &H18 , &H08 , &H88 , &H98 , &H90 , &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 , &HF8 , &HF8 , &H78 , &HE0 , &H00 , &HE0 , &H78 , &HF8 , &HF8 , &H00 , &HE0, Data &HF0 , &H18 , &H08 , &H08 , &H18 , &HF0 , &HE0 , &H00 , &HF8 , &HF8 , &H08 , &H08 , &H18 , &HF0 , &HE0 , &H00, Data &HF8 , &HF8 , &H88 , &H88 , &H88 , &H88 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H0C , &H0E , &H0B , &H09 , &H08 , &H08 , &H00 , &H04 , &H0C , &H08 , &H08, Data &H0F , &H07 , &H00 , &H0C , &H0C , &H00 , &H07 , &H0F , &H08 , &H08 , &H0F , &H07 , &H00 , &H0F , &H0F , &H00, Data &H07 , &H0E , &H07 , &H00 , &H0F , &H0F , &H00 , &H0F , &H0F , &H01 , &H01 , &H01 , &H01 , &H00 , &H00 , &H03, Data &H07 , &H0C , &H08 , &H08 , &H0F , &H07 , &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 , &H0F , &H0F , &H00 , &H07 , &H0E , &H07 , &H00 , &H0F , &H0F , &H00 , &H03, Data &H07 , &H0C , &H08 , &H08 , &H0C , &H07 , &H03 , &H00 , &H0F , &H0F , &H08 , &H08 , &H0C , &H07 , &H03 , &H00, Data &H0F , &H0F , &H08 , &H08 , &H08 , &H08 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H30 , &H18 , &HFC , &HFC , &H00 , &H00 , &H08 , &H0C , &H24 , &H24, Data &HFC , &HD8 , &H00 , &H00 , &H00 , &H00 , &H70 , &H7C , &H2C , &H24 , &HE4 , &HC4 , &H04 , &H3C , &HF8 , &HC0, Data &H00 , &HC0 , &HF8 , &H3C , &H04 , &HFC , &HFC , &H00 , &H00 , &H00 , &H00 , &H00 , &H04 , &H04 , &HFC , &HFC, Data &H04 , &H04 , &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 , &HFC , &HFC , &H00 , &H00 , &H00 , &HFC , &HFC , &H00 , &HFC , &HFC , &H84 , &H84, Data &H84 , &HFC , &H78 , &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 , &H07 , &H07 , &H00 , &H00 , &H02 , &H06 , &H04 , &H04, Data &H07 , &H03 , &H00 , &H06 , &H06 , &H00 , &H02 , &H06 , &H04 , &H04 , &H07 , &H03 , &H00 , &H00 , &H01 , &H07, Data &H06 , &H07 , &H01 , &H00 , &H00 , &H07 , &H07 , &H04 , &H04 , &H04 , &H04 , &H00 , &H00 , &H00 , &H07 , &H07, 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 , &H03 , &H07 , &H04 , &H04 , &H04 , &H07 , &H03 , &H00 , &H07 , &H07 , &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 , &HDC , &HFE , &H22 , &H22 , &HFE , &HDC , &H00 , &H38 , &H3E , &H16 , &H12, Data &HF2 , &HE2 , &H00 , &H0C , &H12 , &H12 , &H0C , &H00 , &HFE , &HFE , &H22 , &H22 , &H22 , &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 , &HFE , &HFE , &H02 , &H02 , &H06 , &HFC , &HF8 , &H00 , &HF8 , &HFC , &H06 , &H02, Data &H02 , &H06 , &HFC , &HF8 , &H06 , &H7E , &HF8 , &H80 , &HF8 , &H7E , &H0E , &H7E , &HF8 , &H80 , &HF8 , &H7E, Data &H06 , &HFE , &HFE , &H1C , &H70 , &HC0 , &HFE , &HFE , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00, Data &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H03 , &H02 , &H02 , &H03 , &H01 , &H00 , &H01 , &H03 , &H02 , &H02, Data &H03 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H03 , &H03 , &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 , &H03 , &H03 , &H02 , &H02 , &H03 , &H01 , &H00 , &H00 , &H00 , &H01 , &H03 , &H02, Data &H02 , &H03 , &H01 , &H00 , &H00 , &H00 , &H03 , &H03 , &H03 , &H00 , &H00 , &H00 , &H03 , &H03 , &H03 , &H00, Data &H00 , &H03 , &H03 , &H00 , &H00 , &H01 , &H03 , &H03 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00,