.export	swap
	.export peek
	
swap:	swap d0
		rts
peek:	move.b	(a0,d0),d0
		rts