Может кому пригодится рабочий код на графический ЖКИ 128*64 с контроллером ST7920, модель JN12864J V1.2
подключено 8-битной шиной, вывод Psb подключить на плюс питания (через резистор 1-10 ком) - это выбор параллельной шины обмена
ДЛЯ AVR ATMEGA8
в теле кода есть два обращения к порту напрямую, учитывайте при переназначении выводов!
Код:
'Рабочий код на графический ЖКИ 128*64 с контроллером ST7920, модель JN12864J V1.2
'Подключено 8-битной шиной,
'Вывод Psb подключить на плюс питания (через резистор 1-10 ком) - это выбор параллельной шины обмена
'В теле кода есть два обращения к порту напрямую, учитывайте при переназначении выводов!
'Для AVR ATMEGA8
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 40
Declare Sub Lcdstart()
Declare Sub Lcdimgcls()
Declare Sub Lcdcommand(ir As Byte)
Declare Sub Lcdwrite(dr_en As Byte)
Declare Function Lcdget() As Byte
Declare Sub Showstr(zf As String)
Declare Sub Point(x As Byte , Y As Byte)
Declare Sub Lcdline(px1 As Byte , Py1 As Byte , Px2 As Byte , Py2 As Byte )
Declare Sub Lcdcircle(px1 As Byte , Py1 As Byte , Rcircle As Byte)
Outport Alias Portb
Getport Alias Pinb
Config Outport = Output
Rs Alias Portc.4 'H: Data L: Instruction Code
Config Rs = Output
Rw Alias Portc.3 'H: Read L: Write
Config Rw = Output
E Alias Portc.2
Config E = Output
Rst Alias Portc.0
Config Rst = Output
Dim Mybyte As Byte
Dim Myword As Word
Dim Lcdstr As String * 32
Dim Lcdx As Byte , Lcdy As Byte
Dim Pstx As Byte , Psty As Byte
Dim Xx1 As Byte , Yy1 As Byte , Xx2 As Byte , Yy2 As Byte
Dim K As Single , Mysingle As Single
Dim Dx As Integer , Dy As Integer
Dim X As Byte , Y As Byte
Dim Xi As Byte , Yi As Byte
Dim Xadrs As Byte , Yadrs As Byte , Xpos As Byte
Dim Byteh As Byte , Bytel As Byte
Const Pi = 3.1416
Call Lcdstart
Mybyte = &B_1001_1000 : Lcdcommand Mybyte
Lcdstr = "ST7920.BascomAvr" : Showstr Lcdstr
Mybyte = &B_0011_0100 : Lcdcommand Mybyte ' EXTENDEN instruction
Mybyte = &B_0011_0110 : Lcdcommand Mybyte ' GRAGIC display On
Call Lcdimgcls
Psty = 0
For Pstx = 0 To 127
Point Pstx , Psty
Next
Pstx = 0
For Psty = 0 To 63
Point Pstx , Psty
Next
Pstx = 127
For Psty = 0 To 63
Point Pstx , Psty
Next
Psty = 63
For Pstx = 0 To 127
Point Pstx , Psty
Next
Pstx = 35 : Psty = 17 : Mybyte = 15
Lcdcircle Pstx , Psty , Mybyte
Pstx = 66 : Psty = 17 : Mybyte = 15
Lcdcircle Pstx , Psty , Mybyte
Pstx = 97 : Psty = 17 : Mybyte = 15
Lcdcircle Pstx , Psty , Mybyte
Pstx = 50 : Psty = 34 : Mybyte = 15
Lcdcircle Pstx , Psty , Mybyte
Pstx = 81 : Psty = 34 : Mybyte = 15
Lcdcircle Pstx , Psty , Mybyte
Xx1 = 0 : Yy1 = 49 : Xx2 = 127 : Yy2 = 49
Lcdline Xx1 , Yy1 , Xx2 , Yy2
Wait 2
Xx1 = 0 : Yy1 = 0 : Xx2 = 127 : Yy2 = 49
Lcdline Xx1 , Yy1 , Xx2 , Yy2
Xx1 = 0 : Yy1 = 49 : Xx2 = 127 : Yy2 = 0
Lcdline Xx1 , Yy1 , Xx2 , Yy2
End
Sub Lcdstart()
Reset Rst : Waitms 50 : Set Rst
Reset Rw
Reset E
Waitms 50
Mybyte = &B_0011_0000 : Lcdcommand Mybyte : Waitms 150 ' Set 8-bit interface
Mybyte = &B_0011_0000 : Lcdcommand Mybyte
Mybyte = &B_0000_0001 : Lcdcommand Mybyte ' Clear Display
Waitms 2
Mybyte = &B_0000_0110 : Lcdcommand Mybyte ' Entry Mode Set
Mybyte = &B_0000_1100 : Lcdcommand Mybyte ' Control Display
End Sub
Function Lcdget()as Byte
E = 0 : Rs = 1 : Rw = 1
E = 1
Config Outport = Input ' Input
nop
Lcdget = Getport ' Read
nop
E = 0
Rw = 0
Waitus 80
Config Outport = Output
End Function
Sub Lcdcommand(ir As Byte)
E = 0
Rs = 0
E = 1
nop
Outport = Ir
nop
E = 0
Waitus 80
End Sub
Sub Lcdwrite(dr_en As Byte)
E = 0
Rs = 1
E = 1
nop
Outport = Dr_en
nop
E = 0
Waitus 80
End Sub
Sub Showstr(zf As String)
Local T As Byte , I As Byte , Zf1 As String * 1
Zf = Format(zf , "00")
For T = 1 To Len(zf)
Zf1 = Mid(zf , T , 1)
I = Asc(zf1)
Lcdwrite I
Next
End Sub
Sub Lcdimgcls()
Mybyte = &H00
For Lcdx = &H80 To &B10001111
For Lcdy = &H80 To &B10011111
Lcdcommand Lcdy
Lcdcommand Lcdx
Lcdwrite Mybyte
Lcdwrite Mybyte
Next
Next
End Sub
Sub Point(x As Byte , Y As Byte )
' (0,0)-(127,63)
Xadrs = X \ 16
Xpos = X Mod 16
Yadrs = Y \ 32
Yadrs = Yadrs * 8
Xadrs = Xadrs + Yadrs
Yadrs = Y Mod 32
Xadrs = Xadrs + &H80
Yadrs = Yadrs + &H80
Lcdcommand Yadrs
Lcdcommand Xadrs
Byteh = Lcdget()
Byteh = Lcdget()
Bytel = Lcdget()
If Xpos < 8 Then
Xpos = 7 - Xpos
Xpos = 2 ^ Xpos
Byteh = Byteh Or Xpos
Else
Xpos = 15 - Xpos
Xpos = 2 ^ Xpos
Bytel = Bytel Or Xpos
End If
Lcdcommand Yadrs
Lcdcommand Xadrs
Lcdwrite Byteh
Lcdwrite Bytel
End Sub
Sub Lcdline(px1 As Byte , Py1 As Byte , Px2 As Byte , Py2 As Byte )
Dy = Py2 - Py1 : Dx = Px2 - Px1
If Dy = 0 And Dx = 0 Then
Point Px1 , Py1
Exit Sub
End If
If Dy = 0 Then
If Px1 > Px2 Then
For X = Px1 To Px2 Step -1
Point X , Py1
Next
Else
For X = Px1 To Px2 Step 1
Point X , Py1
Next
End If
Exit Sub
End If
If Dx = 0 Then
If Py1 > Py2 Then
For Y = Py1 To Py2 Step -1
Point Px1 , Y
Next
Else
For Y = Py1 To Py2 Step 1
Point Px1 , Y
Next
End If
Exit Sub
End If
Xi = Abs(dx) : Yi = Abs(dy)
If Xi > Yi Then
K = Dy / Dx
If Px1 > Px2 Then
For X = Px1 To Px2 Step -1
Yi = X - Px1
Yi = K * Yi
Y = Py1 + Yi
Point X , Y
Next
Else
For X = Px1 To Px2 Step 1
Yi = X - Px1
Yi = K * Yi
Y = Py1 + Yi
Point X , Y
Next
End If
Else
K = Dx / Dy
If Py1 > Py2 Then
For Y = Py1 To Py2 Step -1
Xi = Y - Py1
Xi = K * Xi
X = Px1 + Xi
Point X , Y
Next
Else
For Y = Py1 To Py2 Step 1
Xi = Y - Py1
Xi = K * Xi
X = Px1 + Xi
Point X , Y
Next
End If
End If
End Sub
Sub Lcdcircle(px1 As Byte , Py1 As Byte , Rcircle As Byte)
For Myword = 0 To 359 Step 2
Mysingle = Myword
K = Deg2rad(mysingle)
Mysingle = Sin(k)
Mysingle = Mysingle * Rcircle
Xx1 = Mysingle + Px1
Mysingle = Cos(k)
Mysingle = Mysingle * Rcircle
Yy1 = Mysingle + Py1
Point Xx1 , Yy1
Next
End Sub
и это не помогает - 
вам за исходный код, поражаюсь над использованием MOD и OR функций 
, образование не какое, вот учусь на практике. Хочется не использовать готовое, а понять корневой принцип работы, взял на вооружение ограничение значения функцией MOD 
