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

; Test if character in range A .. Z

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

;		Version 1.0, August 1986

; ENTRY	Accu holds character

; EXIT	Carry reset if character in range
;	Carry set if not in range

	entry	tstlet

tstlet:
	cp	'A'		; Check letter
	ret	c
	cp	'Z'+1
	ccf
	ret

	end