Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Ich komme nicht weiter und verzweifel gerade! Kategorie: C-Control I V1.2/2.0 (von thomas - 9.07.2007 22:27)
 Als Antwort auf Re: Ich komme nicht weiter und verzweifel gerade! von Achim - 9.07.2007 2:00
thomas nutzt:  CC1-M-Unit V1.1, CC1-M-Unit V1.2/2.0, sonstige
Bitte schön,Deine Pfeile

'frei definierbare zeichen
define d byteport[1]
define RS port[9]
define RW port[10]
define E port[11]
define dd byte
define ts byte
define cg byte

#z0     'pfeil auf
gosub init
dd=0:gosub cu
for ts=0 to 7
dd=ts:gosub ez1
looktab zeichen,ts,dd
gosub z
next
#z1'    pfeil ab
dd=1:gosub cu
for ts=8 to 15
dd=ts:gosub ez1
looktab zeichen,ts,dd
gosub z
next


#ausgabe
dd=0:gosub cu
dd=0:gosub z
dd=1:gosub cu
dd=1:gosub z

end


#init
dd=&h38:gosub ko:dd=&h0c:gosub ko:dd=&h01:gosub ko:return
#ko
rw=0:rs=0:d=dd:pulse e:return
#z
rw=0:rs=1:d=dd:pulse e:return
#cu
rw=0:rs=0:d=dd+128:pulse e:return
#ez1
rs=0:rw=0:d=dd+64:pulse e:return



table zeichen
&b00000100
&b00001110
&b00011111
&b00000100
&b00000100
&b00000100
&b00000100
&b00000000

&b00000100
&b00000100
&b00000100
&b00000100
&b00011111
&b00001110
&b00000100
&b00000000



Gruß Thomas

 Antwort schreiben

Bisherige Antworten:

Vielen Dank! (von leo - 12.07.2007 20:41)
    Re: Vielen Dank! (von thomas - 12.07.2007 23:28)