.TITLE LOGIC
	.GLOBL IOR,IAND,ISHFT
IOR:	TST	(R5)+
	MOV	@(R5)+,R0
	BIS	@(R5)+,R0
	RTS	PC
IAND:	TST	(R5)+
	MOV	@(R5)+,R0
	MOV	@(R5)+,R1
	COM	R1
	BIC	R1,R0
	RTS	PC
ISHFT:	TST	(R5)+
	MOV	@(R5)+,R0
	MOV	@(R5)+,R1
	BEQ	DONE
	BLT	SHFTRT
SHFTLF:	CLC
	ROL	R0
	BEQ	DONE
	DEC	R1
	BGT	SHFTLF
	BR	DONE
SHFTRT:	CLC
	ROR	R0
	BEQ	DONE
	INC	R1
	BLT	SHFTRT
DONE:	RTS	PC
	.END