#INCLUDE	'A:\VAR_DEF.ASM'
* GIURGIUTIU, Victor
* Define program variables
	ORG	DATA
DELAY	RMB	1
* Start main program
	ORG	PROGRAM
START	LDX	#REGBAS
BEGIN	LDAA	#%00000000
	STAA	PORTB,X
	JSR	SR_WAIT
	LDAA	#%00000010
	STAA	PORTB,X
	JSR	SR_WAIT
	BRA	BEGIN

SR_WAIT	LDAB	DELAY
LABEL1	SUBB	#1
	BHI	LABEL1
	RTS
	SWI

	ORG	$FFFE	; reset vector
	FDB	START	; set to start of program