.db		$bb,$6d
	.org	$9d95
	xor		a		; Fin de l'entête "ION"

	; LEDmorse pour TI82 Advanced, par grosged (juillet 2o2o)

	di				; pour la LED & gestion-clavier
	out	($20),a		; z80 à 6Mhz (mode "éco")
	dec	a			; a=%11111111 pour
	out	(1),a		; ré-initialiser le clavier
	ld	a,$fd		; défini le groupe
	out	(1),a		; de touches

Boucle_principale:

TOUCHES:
	in	a,(1)
	xor	%11111111
	and	%01000111	; 4 touches à tester
	jr	z,TOUCHES

	and	%111		; [ANNUL] appuyée?
	ret	z			; alors on quitte
	rra				; [entrer]=rouge, [+]=vert,
	inc	a			; [-]=jaune
	out	(0),a		; LED allumée

Touche_relachee?:	; Bon!..Là, il va
	ld	bc,0		; falloir boucler
test256:			; pour être fiable
	in	a,(1)		; (on n'a pas le choix)
	add	a,c			; somme de 256 tests!
	ld	c,a			; (histoire d'être sûr)
	djnz	test256
	or	a			; Plus rien..?
	jr	nz,Touche_relachee?

	out	(0),a		; LED éteinte
	jr	Boucle_principale

	;"Mini-Morse, Mini-Taille...Mais il fait le maximum" ;D