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

		org	$2000
texto		fcc	'La periode='
fin		fcb	#0




		ORG 	$2100

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

		ldy	#texto   *necessaire de placer avant jsr pour charger dans l'accu Y le texte
		jsr	chaine



*
longue 	ldx 	#50000
loop_l 	dex
		bne 	loop_l
		rts

*
courte 	ldx 	#1000
loop_c 	dex
		bne 	loop_c
		rts
		
		
chaine		ldaa	0,y
		beq	suite
		staa	LCDDAT
		jsr	courte
		iny
		bra	chaine



*
suite		ldaa	#'A'
		staa	LCDDAT
		jsr 	courte

		ldaa	#'B'
		staa	LCDDAT
		jsr	courte

		ldaa	#'C'
		staa	LCDDAT
		jsr	courte
		
		ldaa	#'D'
		staa	LCDDAT
		jsr	courte