; Programa Que Encienda Led Por Led, Es Decir, 
; Que Saque Por El Puerto A/B Los Valores: 
; 1, 2, 4, 8, 16. 32, 64, 128, (0,) 1, 2, 4, 8 ..
;
; Gilberto Stankiewicz
; http://www.stan.com.mx
; Abril 2008
; 6502 Macroassambler & Simulator
; http://home.pacbell.net/michal_k/
;
	.ORG $0400
	LDA #$FF     ; configurar puerto
	STA $9003
	LDA #$01     ; valor de salida del puerto
NEXT:	STA $9001    
	JSR DELAY    ; delay
	ROL
	JMP NEXT
	RTS
	
DELAY:	LDX #$04
LOOPX:	LDY #$FF
LOOPY:	DEY
	BNE LOOPY
	DEX 
	BNE LOOPX
	RTS