title	Module from library BASE_1 : LOWCON
	name	('LOWCON')
	maclib	baselib.lib

; Convert character into lower case

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

;		Version 1.0 November 1987

; ENTRY	Accu holds character

; EXIT	Accu holds lower case character
;	Carry set if not converted otherwise reset

	entry	lowcon

lowcon:
	cp	'A'		; Test A .. Z
	ret	c
	cp	'Z'+1
	ccf
	ret	c
	add	a,lower		; Convert
	ret

	end