📄 nhd-c12865.txt
字号:
//---------------------------------------------------------
/*
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,⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -