ORG      $0000
TMP         RMB      1

INIT_SCI    ORG      $C000
	    lds      #$ff
	    CLRB
	    JSR      LCD
	    LDX      #REGBAS
	    LDAA     #'A' 
	    STAA     TMP
	    
	    CLR      SCCR1,X       
	    LDAA     #%00110000    ; 9600 BAUD
	    STAA     BAUD,X
	    LDAA     #%00001100    ; TE=1 ; RE=1
	    STAA     SCCR2,X       ; 


ZEND        BRCLR    SCSR,X,TDRE,ZEND 
	    LDAA     TMP            
	    STAA     SCDR,X        ; reset
	    INC      TMP
	    CMPA     #'Z' 
	    BMI      ZEND

ONTVANG     BRCLR    SCSR,X,RDRF,ONTVANG
	    LDAB     SCDR,X        ; reset
	    JSR      LCD
	    CMPB     #'@'
	    BEQ      OPNIEUW
	    BRA      ONTVANG

OPNIEUW     LDAA     #'A'
	    STAA     TMP
	    BRA      ZEND

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