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 

 Vielen Dank! Kategorie: C-Control I V1.2/2.0 (von leo - 12.07.2007 20:41)
 Als Antwort auf Re: Ich komme nicht weiter und verzweifel gerade! von thomas - 9.07.2007 22:27
leo nutzt:  CC1-M-Unit V1.2/2.0
Hey Thomas,

ich danke Dir recht herzlich. Ich werde das gleich mal testen. Wenigstens einer der die Fragen liest und richtig darauf antwortet und nicht nur nutzlosen Müll von sich gibt. Anhand Deines Programmes kann man den Vorgang wenigstens nachvollziehen.

Gruß Leo

 
> 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:

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