.TITLE	BAND -BYTE "IAND"
	.IDENT	/01/
;
BAND::	MOVB	@2(R5),R0
	MOVB	@4(R5),R1
	COM	R1
	BIC	R1,R0
	RTS	PC
	.END