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	longue
	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	courte

	ldy	#texto

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


*
longue	ldx	#50000
loop_l	dex
	bne	loop_l
	rts
*
courte	ldx	#1000
loop_c	dex
	bne	loop_c
	rts