;_______________commande afficheur teste_______________

portB	equ	$04

org	$0002


;_____temporisation de sincronisatin_____

		ldX	#422
boucle1		ldA	#250
boucle2		decA
		bne	boucle2
		deX
		bne	boucle1

;_____initialisation afficheur_____

		ldX	#$1000
		ldY	#$0000
		bset	portB,X %00000010	;SCE a "0"
		bset	portB,X %00001000	;D/C a "0"
		ldA	#%00100001
		jsr	envoi
		ldA	#%10010000
		jsr	envoi
		ldA	#%00100000
		jsr	envoi
		ldA	#%00001100
		jsr	envoi

;_____écriture sur l'écran_____

		bclr	portB,X %00001000	;D/C a "1"
suivant		ldA	#%10110010
		inY
		jsr	envoi
		cpY	#$0004
		bne	suivant
		bclr	portB,X %00000010	;SCE a "1"
		end



;__________envoi__________

org	$00ff

envoi		ldB	#8
next		lslA				;passe MSB dans C
		bset	portB,X %00000010	;signale d'horloge passe a "0"
		bcs	un			;teste C=1?
		bset	portB,X %00000001
		bra	continu
un		bclr	portB,X %00000001
continu		bclr	portB,X %00000010	;signale d'horloge passe a "1"
		deY
		bne	next
		rts