![]() |
Routines |
| Prev: 54729 | Up: Map | Next: 54767 |
|
Used by the routines at ProcessLocationTokenDisplay and PrintObjectDescription.
|
||||||||
| PrintObjectAttributeDescription | 54739 | LD HL,54729 | HL=Table_ObjectAttributeDescriptionTokens (load the address of the object attribute description text token table). | |||||
|
Extract the attribute type from the object data.
|
||||||||
| 54742 | LD A,(IX+4) | A=*IX+4 (load the object attribute byte). | ||||||
| 54745 | AND %00000111 | Keep only bits 0-2 (extract the attribute type value, 0-7). | ||||||
| 54747 | CP 5 | Compare the attribute type with 5. | ||||||
| 54749 | PUSH AF | Stash the comparison result on the stack. | ||||||
| 54750 | DEC A | Decrease A by one (convert to 0-based index for the table). | ||||||
| 54751 | LD E,A | Set DE to the index value (E=A, D=0). | ||||||
| 54752 | LD D,0 | |||||||
| 54754 | ADD HL,DE | Add the index to the table base address twice (multiply by 2 for 2-byte word entries). | ||||||
| 54755 | ADD HL,DE | |||||||
| 54756 | CALL ExtractTokenFromText | Call ExtractTokenFromText to print the text token from the table. | ||||||
| 54759 | POP AF | Restore the comparison result from the stack. | ||||||
| 54760 | RET NZ | Return if the attribute type was not 5 (original value was not 6). | ||||||
|
Print an additional text token for attribute type 6.
|
||||||||
| 54761 | LD DE,2267 | DE="TO". | ||||||
| 54764 | JP PrintTextToken | Jump to PrintTextToken to print the text token. | ||||||
| Prev: 54729 | Up: Map | Next: 54767 |