************************************************************
* Ce programme permet le décalage des leds sur le portB
* Arrivée à la 8ème il repart.
* Mise en oeuvre de l'adressage indexé.
************************************************************
*Equivalences registres
 
PORTB		equ		$1004

*Début du programme implantation en EEPROM
				org		$FE00

********************
*   Configuration        
********************
* Pile 
start		lds		#$00ff

********************
*Programme principal  
********************
*Eteindre toutes les leds sur le portb.		TTT	DDDaaa 
				clr		PORTB
* Initialisation du pointeur pointant la première adresse contenant le code de l'allumage de la LED 1 seule 
init		ldy		#pointeur
*Lire la valeur pointé 
suite		ldab		0,y		
				beq		init	
*Allumer la led correspondante 	
				stab	PORTB		
				bsr		tempo	
*Incrémenter le pointeur	 
				iny		
				bra		suite
********************
*  Sous Programmes 
********************
*Sous programmes tempo
************************
* duree de temporisation 50ms
tempo		ldx		#16666
delay		dex				
				bne		delay		
				rts

pointeur 	fcb		$01,$02,$04,$08,$10,$20,$40,$80,$40,$20,$10,$08,$04,$02,$00

***************************
* Vecteurs d'interruptions
***************************
*vecteur de reset  
					org	$fffe
rstvect		fdb	start
					end