.z80
	external Word,NBits
				;Function ROTLFT rotates
				;integer Word by NBits left
rotlft:	ld	HL,(Word)
	ld	A,(NBits)
	and	0FH
	or	A
	ret	Z		;No rotation
				;if NBits 0
	ld	B,A
	ld	A,L
	ld	L,0

loop:	sla	A		;MSB in carry
	rl	H
	adc	A,L		;Carry restore
	djnz	loop

	ld	L,A		;Result in HL
	ret
	end	rotlft