Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Re: RS232 mit Paritybit? Kategorie: Programmierung Basic (von Daniel Buchheit - 8.10.2004 10:16)

Als Antwort auf RS232 mit Paritybit? von Daniel Buchheit - 4.10.2004 12:52

Habe das Problem gelöst! Stolz wie Oskar und schöne Grüße, Daniel '*** Beispielprogramm:Ansteuerung Digits in BASIC DEFINE PutByte BYTE DEFINE i BYTE DEFINE j BYTE BAUD 228 '600 BAUD FOR j=0 TO 10 FOR i=0 TO 9 PutByte=&H84 SYS &H101 PutByte=i SYS &H101 PAUSE 100 NEXT NEXT END SYSCODE "PARITY4.S19" ;************** RS 232 mit Parity Assemblerteil         PARAM equ $a1 SCCR1 equ $0E TRANSMIT equ $11 org $101 PUTPARITY: TXWAIT: brclr 6,16,TXWAIT   ;Warten, bis vorherige Sendung abgeschlossen       lda #0 ;Parity Berechnen brclr 0,PARAM, bit1  ;bei $94 liegt übergabewert inca bit1:   brclr 1,PARAM, bit2 inca bit2:   brclr 2,PARAM, bit3 inca   bit3:   brclr 3,PARAM, bit4 inca   bit4:   brclr 4,PARAM, bit5 inca   bit5:   brclr 5,PARAM, bit6 inca   bit6:   brclr 6,PARAM, bit7 inca bit7:   brclr 7,PARAM, bit8 inca   bit8: and #1 beq SETONE ;bne=odd; beq=even bset 6, SCCR1 ;T8 (Paritybit=even) in SCCR1 jmp WEITER SETONE: bclr 6, SCCR1 WEITER: bset 4, SCCR1 ;M in SCCR1, also 9. bit übertragen lda PARAM sta TRANSMIT rts

Antwort schreiben

Bisherige Antworten: