title	Module from library BASE_2 : LOWLIN
	name	('LOWLIN')
	maclib	baselib.lib

; Convert line into lower case

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 November 1987

; ENTRY	Reg pair DE points to string to be converted.
;	Reg B holds end of string (Usually $ or zero)

; EXIT	String converted to lower case

	entry	lowlin

	extrn	lowcon

lowlin:
	push	de
lol??:
	ld	a,(de)		; Get character
	cp	b		; End ?
	jr	z,loe??		; Yes, go out
	call	lowcon		; Convert
	ld	(de),a		; Bring it back
	inc	de
	jr	lol??
loe??:
	pop	de
	ret

	end