$regfile "m128def.dat"
$crystal = 16000000
$swstack = 64
$hwstack = 128
$framesize = 128
'--------------------------- Config --------------------------------------------
Dim Code(16) As Byte , I As Integer , K As Integer , Index As Byte
Dim A As Word , B As Word , C As Word , D As Integer , W As Integer
Dim H As Integer
'*******************************************************************************
Ddrf = &HFF
Clk Alias Portf.0
Lach Alias Portf.1
Rst Alias Portf.2
Oe Alias Portf.3
Ok Alias Portf.4
Errr Alias Portf.5
'======================
Ddrd = &HFF
Data1 Alias Portd.0
Data2 Alias Portd.1
Data3 Alias Portd.2
Data4 Alias Portd.3
Data5 Alias Portd.4
Data6 Alias Portd.5
Data7 Alias Portd.6
Data8 Alias Portd.7
'======================
Ddrc = &HFF
Data9 Alias Portc.0
Data10 Alias Portc.1
Data11 Alias Portc.2
Data12 Alias Portc.3
Data13 Alias Portc.4
Data14 Alias Portc.5
Data15 Alias Portc.6
Data16 Alias Portc.7
'*******************************************************************************
'********************************** Function ***********************************
Declare Sub Send
'*******************************************************************************
'-------------------------------------------------------------------------------
A = 0
B = 3
C = 63
Oe = 0
Rst = 0
Rst = 1
Lach = 1
Lach = 0
Do
W = 0
A = 0
B = 3
C = 63
D = 0
'---------------------------------------------------------------------
For D = 0 To 276 'frame
For K = A To B
Index = 1
'----------------------------------
For I = K To C Step 4
Code(index) = Lookup(i , Text)
Incr Index
Next I
'----------------------------------
For I = 7 To 0 Step -1
Call Send
Clk = 1
Clk = 0
Next I
'--------------------------
Next K
Lach = 1
Lach = 0
'-------------------
H = Lookup(w , Delay_)
H = Hexval(h)
Waitms H
Incr W
Rst = 0
Rst = 1
'----------------------
A = A + 64
B = B + 64
C = C + 64
Next D
Loop
End
'____________________________ SEND ___________________________________________
Sub Send
Data1 = Code(1).i
Data2 = Code(2).i
Data3 = Code(3).i
Data4 = Code(4).i
Data5 = Code(5).i
Data6 = Code(6).i
Data7 = Code(7).i
Data8 = Code(8).i
Data9 = Code(9).i
Data10 = Code(10).i
Data11 = Code(11).i
Data12 = Code(12).i
Data13 = Code(13).i
Data14 = Code(14).i
Data15 = Code(15).i
Data16 = Code(16).i
End Sub
'_______________________________________________________________________________
دیدگاه