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ß |
Antwort schreiben |