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	$2020
table	fcc	'0'
	fcc	'1'
	fcc	'2'
	fcc	'3'
	fcc	'4'
	fcc	'5'
	fcc	'6'
	fcc	'7'
	fcc	'8'
	fcc	'9'
	fcc	'A'
	fcc	'B'
	fcc	'C'
	fcc	'D'
	fcc	'E'
	fcc	'F'

octet	fcb	#$36 *octet de test
q_haut	rmb	1
q_bas	rmb	1

	ORG	$2100


conv	ldx	#table
	ldaa	octet
	anda	#$0F
	adda	0,x
	staa	q_bas *quartet bas

	ldaa	octet
	asra
	asra
	asra
	asra
	anda	#$0F
	anda	0,x
	staa	q_haut *quartet haut



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	q_haut
	staa	LCDDAT
	jsr	courte

	ldaa	q_bas
	staa	LCDDAT
	jsr	courte

	ldaa	#'.'
	staa	LCDDAT
	jsr	courte

	ldaa	#'.'
	staa	LCDDAT
	jsr	courte

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