LCDCMD	equ	$b5f0
LCDDAT 	equ	$b5f1
L4xC20	equ	$3c * 4x20
CLRCH	equ	$01
DCBON	equ	$0f
CINSHOF	equ	$06
SCSHR	equ	$14
CSRHOM	equ	$02

BAUD 	equ 	$102b
SCDR 	equ 	$102f
SCSR 	equ 	$102e
SCCR1 	equ 	$102c
SCCR2 	equ 	$102d


	org 	$00C4 ; vecteur d'interuption SCI
	jmp 	issprog
	

	org 	$2200

	sei

	clr 	SCCR1
	clr 	SCSR

	ldaa 	#$30
	staa 	BAUD

	ldaa 	#$2C
	staa 	SCCR2 

	clr 	$2000
	cli

loop 	bra 	loop


issprog clr 	SCSR
	ldab 	SCDR 	
	stab 	$2000
	 

init	ldaa	#L4xC20	
	staa	LCDCMD	
	jsr	courte	
		
	ldaa	#CLRCH	
	staa	LCDCMD	
	jsr	longue
		
	ldaa	#DCBON	
	staa	LCDCMD	
	jsr	courte
		
	ldaa	#CINSHOF
	staa	LCDCMD	
	jsr	courte
		
	ldaa	#SCSHR	
	staa	LCDCMD	
	jsr	courte
		
	ldaa	#CSRHOM	
	staa	LCDCMD
	jsr	longue

	ldab	$2000
	stab	LCDDAT
	jsr	courte 
	

longue	ldx	#50000	
loop_l	dex		
	bne	loop_l	
	rts	

courte	ldx	#1000	
loop_c	dex		
	bne 	loop_c	
	rts

	rti