.INCLUDE "M32DEF.INC"
.EQU	MYREG = 0x200
	CBI	DDRB,4
	IN	R17,PINB
	BST	R17,4
	LDI	R16,0
	BLD	R16,0
	STS	MYREG,R16
HERE:JMP	HERE