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

        org  $2020
        
octet   fcb  #$12  *octet de test
q_haut  rmb  1
q_bas   rmb  1

        org  $2100
        
conv    ldaa octet
        anda #$0F
        adda #$30
        staa q_bas    *quartet bas
        
        ldaa octet
        asra
        asra
        asra
        asra
        anda #$0F
       
        adda #$30
        staa q_haut    *quartet haut
        
init	ldaa	#L4xC20

	ldy     #texto
chaine	ldaa  0,y
	beq   suite
	staa  LCDDAT
	jsr   courte
             iny
             bra   chaine
             
suite        ldaa  #'0'
             staa  LCDDAT
             jsr   courte
             
             ldaa  #'x'
             staa  LCDDAT
             jsr   courte
             
     ldaa  #q_haut
     staa  LCDDAT
     jsr   courte
             
     ldaa  #q_bas
     staa  LCDDAT
     jsr   courte
             
     ldaa  #'.'
     staa  LCDDAT
     jsr   courte

     rts
     
	
*
longue	ldx	#50000
loop_l	dex
	bne	loop_l
	rts

*
courte	ldx	#1000
loop_c	dex
	bne	loop_c
	rts