***************************************************************************
*** reception d'un caractere du COM1 en 19200 b et affichage sur PORT B ***
*** envoi par Hyperterminal en 19200 b																	***
***************************************************************************

* Equivalences utilisees avec un offset $1000
*
BAUD            EQU     $2B     *Baudrate selector
SCCR1           EQU     $2C     *SCI control register 1
SCCR2           EQU     $2D     *SCI control register 2
SCSR            EQU     $2E     *SCI status register
SCDR            EQU     $2F     *SCI Rx/Tx data register
CSCTL           EQU     $5D     *Chip Select control
PORTB					 	equ			$04

* Equivalence pour la config Memoire
*
RAMEND          equ     $03FF   *Adresse de fin de la RAM interne


***	 code	du programme ***
        org     $FE00
        
START:
        lds     #RAMEND         *affectation du registre de la pile.
        ldx     #$1000           *"X" contien l'add de base des registres.

        clr     CSCTL,X         *desactive les chip select du 68HC11F1

*** reglage de la SCI ***
        clr     SCCR1,X         *Initialise la SCI pour 8 bits de donnee
        ldd     #$300C          *"A"= 30, "B"= 0c   19200 bauds
        staa    BAUD,X          *19200 bauds max, selectionne 19200 bauds
        stab    SCCR2,X         *autorise TX & RX
        
        
***	MAIN LOOP	***
LOOP
        bsr     CHR_IN
        bra     LOOP

* Reception d'un caractere sur la SCI et echo vers le PC
*
CHR_IN
T1      brclr   SCSR,X,#$20 T1		*
        ldab    SCDR,X
        stab    PORTB,X
*T2      brclr   SCSR,X,#$80 T2		*
*        stab    SCDR,X
        
        rts


        end