*********************************************************
***   pgm en wait
***   interruption declanchée par l'arrivée d'un caractere sur le SCI
***   affichage du caractere sur le port b
***   mise en wait du pgm
*********************************************************
* !! mode etendu !!!
PORTB equ $1004
BAUD  equ $102B     *Baudrate selector
SCCR1 equ $102C     *SCI control register 1
SCCR2 equ $102D     *SCI control register 2
SCSR  equ $2E     	*SCI status register
SPCR	equ	$28
SCDR	equ	$102F
CNT		rmb		1

			org $FE00
						
			lds #$0120 			* pile
			ldx #$1000

			
			ldx #$1000
			cli 						* enable interrupts

*** initalisation SCI*** 			
			bset SPCR,x,#$20 * serial port setup
			clr SCCR1
			ldd #$332C 			* set baudrate, enable recv & tx 
			staa BAUD 			* 2400 N81 with 16 MHz xtal
			stab SCCR2 			* 2 de 2C : enable receive interrupt 
			ldaa #$00
			staa CNT

*** Pgm principal*** 
Main	ldaa CNT				* lit la valeur stocké durant l'interruption 
			staa PORTB 			* and display on port F
			wai 						* low power sleep mode			
			bra Main
			

*** vecteur d'interruption***			
reinit brclr SCSR,x,#$20,reinit * reset serial port
			 ldaa SCDR 			* reception caractere recu 
			 staa CNT	 			* stock en memoire 		
			 rti 						* fin de l'interruption 

				
***vecteur d'interruption SCI ***
				org		$ffd6		* vecteur de SCI
irqvect	fdb		reinit

				end