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
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
		adda	0,x
		staa	q_haut	*quartet haut




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

		ldaa	q_bas
		staa	LCDDAT
		jsr	courte

		ldaa	#'.'
		staa	LCDDAT
		jsr	courte
		
		ldaa	#'.'
		staa	LCDDAT
		jsr	courte


		ldaa	#'4'
		staa	LCDDAT
		jsr 	courte

		ldaa	#'2'
		staa	LCDDAT
		jsr	courte

		ldaa	#'.'
		staa	LCDDAT
		jsr	courte
		
		ldaa	#'.'
		staa	LCDDAT
		jsr	courte