Prev: A80E Up: Map Next: A82F
A815: Read The High Byte Of The Token
Used by the routines at D416 and ReadScheduleField.
Keeps the low digit of the token and folds it into the dictionary page.
A815 PUSH AF Keep the token and take its high byte.
A816 LD A,D
A817 AND %00001111 Keep the dictionary page (the low nibble of the token's high byte).
A819 LD D,A Keep the low digit of the token in D.
A81A POP AF Restore the saved result from the stack.
A81B OR D Set the bits from D.
A81C LD D,A Fold the saved token bits back into D.
A81D AND %00001111 Keep the dictionary page of the folded token, ready to test the whole token.
A81F OR E Fold in the low byte of the token, so the zero flag shows an empty token.
A820 RET Z Return if the folded token is zero.
Print text token.
A821 CALL PrintTextToken Call PrintTextToken to print the dictionary word.
A824 LD A,($A7EA) Read the token match flag at A7EA and point HL at the token format flag at TokenFormatFlag.
A827 PUSH HL
A828 LD HL,$A026
A82B OR (HL) Set the bits from *HL.
A82C LD (HL),A Store the result at the pointer.
A82D POP HL Restore the text pointer from the stack.
A82E RET Return.
Prev: A80E Up: Map Next: A82F