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