Kode for ekstra seriel port til motorola 6811

Hvor hurtigt skal den kunne køre (Baud hastighed)
-SCB

Jeg har brug for komplet kode

Max 9600 baud, men skal helst kunne ændres.

Sende rutine: på f.eks port PD3

;*-----------------------------------------------------*
;*      SEND SERIEL PÅ COM    RS232 MANUELT          *
;*-----------------------------------------------------*
SEND_SER:    SEI
            LDAA  #9
            STAA  PAMDS
            CLC
            BRA  PUTC2
PUTC5:      ROR  PAMAS
PUTC2:      BCC  PUTC3
            BSET  PORTD,Y,3
            BRA  PUTC4
PUTC3:      BCLR  PORTD,Y,3
            BRA  PUTC4
PUTC4:      JSR  WWWW
            DEC  PAMDS
            BNE  PUTC5
            BRCLR PORTD,Y,3,PUTC6
PUTC6:      BSET  PORTD,Y,3
            PULY
            JSR  WWWW
            JSR  WWWW
            CLI
            RTS

Vente rutine der bestemmer hastigheden (Her 9600 baud)
;*-----------------------------------
;*      DELAY FOR SERIEL SEND       
;*-----------------------------------
WWWW:        PSHX
            LDX  #24     
WAIT1:      DEX
            BNE  WAIT1
            PULX
            RTS

Modtage rutine på IRQ + F.EKS port PA5
;*-----------------------------------------------------*
;*      INTERRUPTS FRA SERIEL DATA                    *
;*-----------------------------------------------------*
SERIEL_IRQ:  LDY  #1000H
            LDAA  #8
            STAA  MPAMB
            CLR  MPAMD

;*-----------VENT ET HALVT STARTBIT--------*
            LDX  #10     
MAIT1:      DEX
            BNE  MAIT1

            BRSET PORTA,Y,5,GETC8  ;FALSK STARTBIT
GETC7        JSR  WWWW
            CLC
            BRCLR PORTA,Y,5,GETC6
            SEC
GETC6        NOP
            ROR  MPAMD
            DEC  MPAMB
            BNE  GETC7
            JSR  WWWW

GETC8        LDAA  MPAMD
            ANDA  #01111111B
            STAA  MPAMD

            LDAA  MPAMD
            TSTA
            BNE  DATA    ;HOP TIL RUTINE FOR MODTAGE DATA
            RTI


Du skal selvfølig huske at oprette de forskellige registere i ram
Hop til rutine for modtagede data, undersøger og behandler data.
-SCB

PS:
Hvis du skal ændre hastighed er det i rutinen wwww hvor 24 = 9600 baud, 48 = 4800 baud osv ved et krystal på 8 MHZ
-SCB

Takker