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