*
*	This program will run a stepper motor connected to port B.
*	
	ORG	$B600	; start of EEPROM

*	Copy the stepper table into zero-page RAM
*
Top
	ldx	#Step_Fwd
	ldaa	#$08
Main	
	psha
	ldaa	$00,x
	ldab	$08,x
	aslb
	aslb
	aslb
	aslb

	aba
	staa	$1004
	bsr	Delay
	pula
	inx
	deca
	bne	Main
	bra	Top

Step_Fwd
	fcb	%1000, %1100, %0100, %0110, %0010, %0011, %0001, %1001

Delay
	pshx
	ldx	#$4000	; 
Delay_Loop
	dex
	bne	Delay_Loop
	pulx
	rts

Step_Back
	fcb	%1000, %1001, %0001, %0011, %0010, %0110, %0100, %1100