  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 > > > > > > > > Schade ,hat keiner ein Assembler Programm dafür. > > 2 Variable ausgeben und eine einlesen im ASM und dem Basicprogramm übergeben. > Ist nicht lebenswichtig,aber hätte ich es ,dann würde ich mir die Arbeit machen ,dies in die fast 10 Jahre alte C-Control einzubauen. > > Danke und Gruß ..oder sollte dies in ein anderes Forum? MfG |
| Antwort schreiben |