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

; Convert line into upper case

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

;		Version 1.0 August 1986

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

; EXIT	String converted to upper case

	entry	upplin

	extrn	uppcon

upplin:
	push	de
upl??:
	ld	a,(de)		; Get character
	cp	b		; End ?
	jr	z,upe??		; Yes, go out
	call	uppcon		; Convert
	ld	(de),a		; Bring it back
	inc	de
	jr	upl??
upe??:
	pop	de
	ret

	end