|
Routines |
| Prev: 49412 | Up: Map | Next: 49523 |
|
Used by the routine at KeepToken.
A third word, and a word count of 32 go in the spare slots after the noun. A fifth word is ignored.
|
||||
| StoreExtra | 49484 | LD A,(23430) | Increment *WordSlot. | |
| 49487 | INC A | |||
| 49488 | LD (23430),A | |||
| 49491 | LD C,A | |||
| 49492 | CP 5 | Jump to StoreExtra_Slot if there is still a spare slot. | ||
| 49494 | JR C,StoreExtra_Slot | |||
| 49496 | POP AF | Drop the id from the stack. | ||
| 49497 | JP ParseWord | Jump to ParseWord. | ||
|
Write the extra word into the next spare slot after the verb.
|
||||
| StoreExtra_Slot | 49500 | LD B,0 | The slot is an offset from *Verb. | |
| 49502 | LD IX,23423 | |||
| 49506 | ADD IX,BC | |||
| 49508 | POP AF | Write the id into that slot. | ||
| 49509 | LD (IX+0),A | |||
| 49512 | JP ParseWord | Jump to ParseWord to take the next word. | ||
|
This entry point is used by the routine at KeepToken.
|
||||
| StoreExtra_Overflow | 49515 | PUSH AF | Stash the id on the stack. | |
| 49516 | LD A,(23435) | Use one less than *WordCount as the slot and jump to StoreExtra_Slot. | ||
| 49519 | DEC A | |||
| 49520 | LD C,A | |||
| 49521 | JR StoreExtra_Slot | |||
| Prev: 49412 | Up: Map | Next: 49523 |