*  Interrupt example for PortC

portcl  equ  $1005
portb   equ    $1004
portc   equ   $1003
pioc    equ  $1002


	org $20
start	lds #$FF
	clr counter
	ldaa #$43     enable interrupt for PortC.
	staa pioc

	tpa           turn off the I mask bit to enable I interrupt.
	anda #%11101111
	tap


loop	nop
        bra loop


interr	ldaa pioc
	ldab portcl
	stab portb
	inc counter
	rti

counter	rmb	1

	org $fff2
	fdb  interr


	org $fffe
	fdb start