*
*	Program to test stepper motors on port B.
*	motor 1 on pins 0-3, motor 2 on pins 4-7
*
	ORG	$B600	; start of EEPROM

*	Copy the stepper table into zero-page RAM
*
Top
	ldx	#StepperTable
	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

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

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