ORG      VECSCI
            FDB      SCI_ISR

            ORG      $C000
            lds	     #$ff
INIT_SCI    LDX      #REGBAS
            CLR      SCCR1,X
            LDAA     #%00110000            ; 9600 BAUD
            STAA     BAUD,X
            LDAA     #%00101100            ; enable RX (RE=1;RIE=1)
            STAA     SCCR2,X               ; enable TX (TE=1)

            CLR      DDRC,X
            CLRB
            JSR      LCD
            CLI

*----------------------------------------------------------------------------

L00         LDAA     PORTC,X
            BPL      L00
            ANDA     #$7F
            STAA     PORTB,X               ; grapje
ZEND1       BRCLR    SCSR,X,TDRE,ZEND1     ; is TDR leeg ?
            STAA     SCDR,X

L01         LDAA     PORTC,X
            BMI      L01
            ANDA     #$7F
            STAA     PORTB,X
ZEND2       BRCLR    SCSR,X,TDRE,ZEND2     ; is TDR leeg ?
            STAA     SCDR,X

            BRA      L00

*----------------------------------------------------------------------------

SCI_ISR     BRCLR    SCSR,X,RDRF,SCI_RTI   ; is RDR vol ?
            LDAB     SCDR,X
            JSR      LCD
SCI_RTI     RTI

*----------------------------------------------------------------------------
$INCLUDE 'REGS.INC'
*$INCLUDE 'LCD.INC'
$INCLUDE 'SIMLCD.INC'