; Corrimiento A La Izquierda Del Número 03H Con Leds
;
; 11000000  0xC0
; 01100000  0x60
; 00110000  0x30
; 00011000  0x18
; 00001100  0x0C
; 00000110  0x06
; 00000011  0x03
; 00000001  0x01
; 10000000  0x80
;
; Gilberto Stankiewicz
; http://www.stan.com.mx
; Abril 2008
; 6502 Macroassambler & Simulator
; http://home.pacbell.net/michal_k/
;
; Puerto         A       B
; Configuracion  $9003   $9002
; Valor          $9001   $9000
;
	.ORG $0400
	LDA #$FF     ; configurar puerto
	STA $9003    ; configurar puerto
	LDA #$C0     ; valor de salida del puerto
	STA $9001    ; valor de salida del puerto
NEXT:	JSR DELAY    ; delay
	ROR $9001    ; corrimiento a la derecha ($9001 >> 1)
	JMP NEXT     ; repetir
	
DELAY:	LDX #$04
LOOPX:	LDY #$FF
LOOPY:	DEY
	BNE LOOPY
	DEX 
	BNE LOOPX
	RTS