PORTB	EQU	$04
DATO	EQU	$01
DLY	EQU	$FFFF

	ORG	$100
	BRA	INICIO

MASK1	FCB	$80
MASK2	FCB	$01

INICIO	LDX	#$1000
	LDAA	#DATO
	STAA	PORTB,X
	LDY	#DLY

IZQ	CMPA	MASK1
	BEQ	DCHA
	BSR	DELAY
	LSLA
	STAA	PORTB,X
	BRA	IZQ

DCHA	CMPA	MASK2
	BEQ	IZQ
	BSR	DELAY
	LSRA
	STAA	PORTB,X
	BRA	DCHA

DELAY	DEY
	BNE	DELAY
	LDY	#DLY
	RTS

	END