Sherlock: Routine at A25D

A25D: Check Text Token Match

Used by the routine at ProcessTextToken.

Input
A	Token ID to check

Output
F	Zero flag set if token matches or end reached

CheckTextTokenMatch

A25D

PUSH BC

Stash BC on the stack.

A25E

LD B,A

B=A.

A25F

LD A,($A011)

Jump to CheckTextTokenMatch_0 if *A011 is zero.

A262

AND A

A263

JR Z,CheckTextTokenMatch_0

A265

LD HL,($A0D8)

HL=*A0D8.

A268

LD A,H

Jump to CheckTextTokenMatch_0 if HL is zero.

A269

OR L

A26A

JR Z,CheckTextTokenMatch_0

A26C

PUSH HL

IX=HL (using the stack).

A26D

POP IX

A26F

LD A,B

A=B.

A270

CALL SearchThreeByteTable

Call SearchThreeByteTable.

A273

CP $FF

Set the zero flag if the termination character was reached (FF).

CheckTextTokenMatch_0

A275

POP BC

Restore BC from the stack.

A276

RET

Return.