
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
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 |