.PSECT	ISL
ISL::	TST	(R5)+
	MOV	@(R5)+,	R0
	MOV	@(R5)+,	R1
	BEQ	2$
1$:	ASL	R0
	DEC	R1
	BNE	1$
2$:	RTS	PC
	.PSECT	ZLEN
ZLEN::	TST	(R5)+
	MOV	@R5,	R0
1$:	TSTB	(R0)+
	BNE	1$
	SUB	@R5,	R0
	DEC	R0
	RTS	PC
	.END