LCDCMD	equ	$B5f0
LCDDAT	equ	$b5f1
L4xC20	equ	$3c * 4x20
CLRCH	equ	$01
DCBON	equ	$0f
CINSHOF equ	$14
CSRHOM	equ	$02
	ORG	$2100

init	ldaa	#L4xC20

suite	ldaa	#'M'
	staa	LCDDAT
	jsr	courte

	ldaa	#'a'
	staa	LCDDAT
	jsr	courte

	ldaa	#'r'
	staa	LCDDAT
	jsr	courte

	ldaa	#'c'
	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