Prev: 9EC7 Up: Map Next: 9F08
9ED6: Message: Choose The Noun Byte
Chooses which noun byte to print. A set B703 prints the class token; otherwise the object's name tokens are printed.
Message_ChooseTheNounByte 9ED6 PUSH AF If B703 is not zero then jump to Message_ChooseTheNounByte_PrintTheFirstWord.
9ED7 PUSH DE
9ED8 LD A,($B703)
9EDB CP $00
9EDD JR NZ,Message_ChooseTheNounByte_PrintTheFirstWord
9EDF LD D,(IY+$01) Read the high byte of the first name word.
9EE2 LD E,(IY+$00) Read the low byte of the first name word.
9EE5 CALL Message_ChooseAClassToken Call Message_ChooseAClassToken to turn the class token into a word.
9EE8 LD E,(IY+$02) Read the low byte of the second name word.
9EEB LD D,(IY+$03) Read the high byte of the second name word.
9EEE CALL PrintToken Call PrintToken to print a dictionary token.
9EF1 LD E,(IY+$04) Read the low byte of the third name word.
9EF4 LD D,(IY+$05) Read the high byte of the third name word.
9EF7 CALL PrintToken Call PrintToken to print a dictionary token.
Message_ChooseTheNounByte_PrintTheFirstWord 9EFA LD E,(IY+$00) Read the low byte of the first name word.
9EFD LD D,(IY+$01) Read the high byte of the first name word.
9F00 LD A,D If DE is not zero call Message_PrintTheClassToken.
9F01 OR E
9F02 CALL NZ,Message_PrintTheClassToken
9F05 POP DE Restore DE and AF from the stack.
9F06 POP AF
9F07 RET Return.
View the equivalent code in;
Prev: 9EC7 Up: Map Next: 9F08