	include declare.h
	xdef	TesterPB

	section code,,c
DEBUT	
			
TesterPB MOVE.W	#$0003,D0
BOUC	MOVE.B	PBDR,D1
	BTST	D1,D0
	BNE	SI
	
	SUB	#$0001,D0
	BPL	SIN
	
	JMP	BOUC
SIN	MOVE.W	#$1001,D2
	
		
SI	MOVE.W	D0,D2	
	rts
	
	end	DEBUT