$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Config Portd = Output
Dta0 Alias Portd.0
Strb Alias Portd.1
Dta Alias Portd.2
Clk Alias Portd.3
Strb0 Alias Portd.4
Oe1 Alias Portc.3
Oe2 Alias Portc.4
Dim B As Byte
Dim I As Byte , D As Byte
Dim Z As Byte , K As Byte , M As Byte
Oe1 = 1
Oe2 = 1
Do
For K = 0 To 108
For B = 0 To 3
Z = B + K
D = Lookup(z , Dat1)
For I = 0 To 7
Z = D And &H01
Shift D , Right , 1
Dta = Z
Clk = 1
nop
nop
Clk = 0
Next I
Next B
Strb = 1
nop
nop
Strb = 0
For B = 4 To 7
Z = B + K
D = Lookup(z , Dat1)
For I = 0 To 7
Z = D And &H01
Shift D , Right , 1
Dta0 = Z
Clk = 1
nop
nop
Clk = 0
Next I
Next B
Strb0 = 1
nop
nop
Strb0 = 0
Waitms 30
Next K
Loop
End
Dat1:
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &H38
Data &H24
Data &H24
Data &H00
Data &H70
Data &HC0
Data &H80
Data &H00
Data &H7C
Data &H98
Data &H80
Data &H00
Data &H00
Data &H38
Data &H24
Data &H24
Data &H00
Data &H00
Data &H38
Data &HA0
Data &H20
Data &H70