TextGetFirst - Načtení prvního znaku z textu


; -----------------------------------------------------------------------------
;                        Get first character from text
; -----------------------------------------------------------------------------
; INPUT:	EBX = pointer to TEXT
; OUTPUT:	EAX = Unicode character (or UNINOASC on error)
;		CY = error, no valid character (EAX = UNINOASC)
; -----------------------------------------------------------------------------

; ------------- Push registers

TextGetFirst:	push	edx		; push EDX

; ------------- Prepare position of first character (-> EDX)

		call	TextFirst	; get position of first character

; ------------- Read first character

		call	TextGetChar	; read first character from text

; ------------- Pop registers

		pop	edx		; pop EDX
		ret

Na vstupu funkce obsahuje registr EBX ukazatel na textovou proměnnou. Funkce navrátí v registru EAX první znak textu v kódu Unicode. Pokud je text prázdný, navrátí funkce nastavený příznak chyby CY a registr EAX obsahuje znak UNINOASC (otazník).

Funkce zjistí voláním funkce TextFirst pozici prvního znaku v textu a voláním funkce TextGetChar tento znak načte.