
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
> Hallo, > dann melde Dich mal wieder, wenn Du noch ein paar Infos mehr hast. > MfG, MaPi Hallo in zif1_zif2 sind die 2 Ausgabebytes #serausintern for zb=1 to 16 if (zif1_zif2 and &H8000)=0 then datZ=0 else datZ=1 'datz datenbit des 4094 taktZ=1 'Taktbit des 4094 Datenbit weiterschieben taktZ=0 zif1_zif2 = zif1_zif2 shl 1 next ladZ=1 'strobe vom4021 ins ausgaberegister laden ladZ=0 return #serINintern_4021 EinByte=0 DatZ=0 'hier Taktbit ladZ=0 ladZ=1 ladZ=0 for zb=1 to 8 EinByte=EinByte shl 1 if (taste and 8)=0 then EinByte=EinByte+0 else EinByte=EinByte+1 'and 8 datenbit des 4021 abfragen DatZ=1 'taktZ=1 DatZ=0 'taktZ=0 next 'in Einbyte die abgefragten bits des 4021 return #ser_k_abfrage_4021 DatZ=0 'hier Taktbit 4021 ladZ=0 ladZ=1 ladZ=0 EinByte =0 zb=1 #schl_abfrage if (taste and AbfrBitWert)then EinByte=EinByte+0 else EinByte=EinByte+1 if zb =8 then return 'ein versuch EinByte=EinByte shl 1 'Abgefragtes byte vom 4021 DatZ=1 'Takt=1 4021 Takten DatZ=0 'taktZ=0 zb=zb+1 goto schl_abfrage 'in Einbyte die abgefragten bits des 4021 return |
| Antwort schreiben |