title	Module from library HILIB_1 : @ENDST
	name	('@ENDST')
	maclib	baselib.lib

; Language : PASCAL and BASIC

; Position to end of string

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

;		Version 1.0, October 1993

; ENTRY	Reg pair DE points to string closed by zero

; EXIT	Reg DE points to closing zero

	entry	@endst

@endst:
	ld	a,(de)		; Get character
	or	a
	ret	z		; .. found zero
	inc	de
	jr	@endst

	end