TextDelEnd - Zrušení konce textu


; -----------------------------------------------------------------------------
;                             Delete end of text
; -----------------------------------------------------------------------------
; INPUT:	EBX = pointer to TEXT variable
;		ECX = length of text to delete (in bytes, may be out of range)
; OUTPUT:	CY = memory error (text not changed)
; NOTES:	It limits length to a valid range.
; -----------------------------------------------------------------------------

TextDelEnd:	push	edx		; push EDX
		mov	edx,[ebx]	; EDX <- data buffer
		mov	edx,[edx+TEXT_Length] ; EDX <- text length
		sub	edx,ecx		; EDX <- start position
		call	TextDelete	; delete characters from text
		pop	edx		; pop EDX
		ret

Na vstupu funkce obsahuje registr EBX ukazatel na textovou proměnnou. V registru ECX je délka rušené části textu (v bajtech). V případě chyby paměti funkce navrátí příznak chyby CY a text zůstane nezměněn. Funkce omezuje délku textu do platných rozsahů.

Funkce volá funkci TextDelete s nastavenou pozicí na dané místo před koncem textu (v registru EDX).