|
Routines |
| Prev: 47120 | Up: Map | Next: 47258 |
|
Write the rover lamp attributes at Rover_Lamp_Attributes from the Jetman type.
|
||||
|
Write the rover lamp attributes from the Jetman type. Type 22 and above is seated facing right.
|
||||
| ColouriseRoverLights | 47230 | LD A,(24696) | Fetch Jetman_Slot. | |
| 47233 | CP 22 | Compare it with 22. | ||
| 47235 | LD HL,48297 | HL=Rover_Lamp_Attributes. | ||
| 47238 | JR C,ColouriseRoverLights_OnFoot | Jump to ColouriseRoverLights_OnFoot if the type is lower. | ||
|
Write the lamp attributes for type 22 and above: INK:WHITE, PAPER:RED (BRIGHT), INK:WHITE, PAPER:RED (BRIGHT), then INK:WHITE, PAPER:BLACK (BRIGHT).
|
||||
| 47240 | LD A,87 | A=INK:WHITE, PAPER:RED (BRIGHT). | ||
| 47242 | LD (HL),A | Write A to *HL. | ||
| 47243 | INC HL | Increment HL by one. | ||
| 47244 | LD (HL),A | Write A to *HL. | ||
| 47245 | INC HL | Increment HL by one. | ||
| 47246 | LD (HL),71 | Write INK:WHITE, PAPER:BLACK (BRIGHT) to *HL. | ||
| 47248 | RET | Return. | ||
|
Write the lamp attributes for the lower types: INK:WHITE, PAPER:BLACK (BRIGHT), INK:WHITE, PAPER:RED (BRIGHT), then INK:WHITE, PAPER:RED (BRIGHT).
|
||||
| ColouriseRoverLights_OnFoot | 47249 | LD A,87 | A=INK:WHITE, PAPER:RED (BRIGHT). | |
| 47251 | LD (HL),71 | Write INK:WHITE, PAPER:BLACK (BRIGHT) to *HL. | ||
| 47253 | INC HL | Increment HL by one. | ||
| 47254 | LD (HL),A | Write A to *HL. | ||
| 47255 | INC HL | Increment HL by one. | ||
| 47256 | LD (HL),A | Write A to *HL. | ||
| 47257 | RET | Return. | ||
| Prev: 47120 | Up: Map | Next: 47258 |