*	Lab4
*		read Port C, write the data to Port B
*		Mike Dawdy

Program	equ		$c000		;for Fanshawe EVB

Registers	equ		$1000
PortB		equ		$04
PortC		equ		$03


			org		Program

			ldx		#Registers

Indefinite						;indefinite loop
			ldaa	PortC,X
			staa	PortB,X

			bra		Indefinite