Code:
$regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Config Porta = Output
Config Portc = Output
Gnd1 Alias Portc.2
Gnd2 Alias Portc.1
Gnd3 Alias Portc.0
Ledvornlinks Alias Porta.0
Ledvornmitte Alias Porta.1
Ledvornrecht Alias Porta.2
Ledmittelinks Alias Porta.3
Ledmittemitte Alias Porta.4
Ledmitterecht Alias Porta.5
Ledhintenlinks Alias Portc.7
Ledhintenmitte Alias Portc.6
Ledhintenrecht Alias Portc.5
'ebene 0 ist an
'led 1 ist an
Porta = 0
Gnd1 = 1
Gnd2 = 1
Gnd3 = 1
Dim Temp As Word
Temp = 0
Do
' das ergebnis 1-16 ---> 0 - 15 (s.o.)
Temp = Temp * 9 ' wie gehabt
Porta = Lookup(temp , Daten) ; Lookup(temp -1 , Daten) ' die erste Spalte
Incr Temp
Incr Temp
Portc = Lookup(temp , Daten)
Incr Temp
Gnd1 = 0
Gnd2 = 1
Gnd3 = 1
Porta = Lookup(temp , Daten)
Incr Temp
Porta = Lookup(temp , Daten)
Incr Temp
Porta = Lookup(temp , Daten)
Incr Temp
Gnd1 = 1
Gnd2 = 0
Gnd3 = 1
Porta = Lookup(temp , Daten)
Incr Temp
Porta = Lookup(temp , Daten)
Incr Temp
Porta = Lookup(temp , Daten)
Incr Temp
Gnd1 = 1
Gnd2 = 1
Gnd3 = 0
Temp = Temp + 1
Loop
Daten:
Data &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , &B000 , 1000
Data &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , &B010 , 1000
Data &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , &B100 , 1000
Data &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , &B001 , 1000
Data &B000 , &B111 , &B000 , &B000 , &B111 , &B000 , &B000 , &B100 , &B000 , 1000
Lesezeichen