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