stkptr = 0x3f0

powerrst:
	.long	stkptr
	.long	start

. = . + 0x05c

autovec:
	.long	intrtn
	.long	intrtn
	.long	intrtn
	.long	intrtn
	.long	intrtn
	.long	intrtn
	.long	intrtn

intrtn:
	move.l  #0x300, a1
	move.b	(a1)+, d2
	move.b	d2, (a1)
	rte

start:
	move.l	#0x300, a0
	tas	(a0)

	move.l	#0x200, a0
	move.b	(a0)+, d0
	move.b	(a0)+, d1

repeat:
	add.b	d1, d0
	move.b	d0, (a0)+
	add.b	d0, d1
	move.b	d1, (a0)+
	bra	repeat
