Routines
Prev: 738D Up: Map Next: 73A3
7394: Message: Code 04, The Stacked Class Token
Message code 04. Prints the token the caller pushed as a class token. B703 is set to 01 and Message_PrintTheClassToken prints it. Reached through the control-code table at PrintTable, dispatched by PrintMessage.
Message_PrintTheStackedClassToken 7394 POP DE Drop the dispatcher return and restore the caller's token from the stack into HL.
7395 POP HL
7396 EX (SP),HL
7397 PUSH DE Put the dispatcher return back and move the token into DE.
7398 EX DE,HL
7399 LD A,$01 Write 01 to *B703 so the token is read as a class token.
739B LD ($B703),A
739E CALL Message_PrintTheClassToken Call Message_PrintTheClassToken to print the class token for this noun.
73A1 XOR A Finish this control code with zero.
73A2 RET Return.
View the equivalent code in;
Prev: 738D Up: Map Next: 73A3