TITLE	UCASE
	ENTRY	UCASE
;
;	Vorbereitungsroutine zur Auswertung des MBASIC-
;	Stringdeskriptors. Laenge und Startadresse des
;	Strings werden an die Routine UPCASE uebergeben.
;
;	MBASIC-Aufruf: CALL UCASE(string)
;
;	Stringlaenge: max. 255 Zeichen !
;
UCASE:	LD	A,(HL)		; Stringlaenge (1 Byte)
	LD	(SLEN),A
	LD	A,0
	LD	(SLEN+1),A	; Stringlaenge (2 Bytes) in SLEN
	INC	HL
	LD	E,(HL)		; Stringadresse (low byte)
	INC	HL
	LD	D,(HL)		; Stringadresse (high byte)
	EX	DE,HL		; Stringadresse jetzt in HL
	LD	DE,SLEN		; Adresse d. Stringlaenge in DE
	CALL	UPCASE##	; UPCASE mit zwei Parametern aufrufen
	RET
;
;	Arbeitsspeicher:
;
SLEN:	DS	2		; Zwischenspeicher fuer Stringlaenge
;
	END