|
Routines |
| Prev: 42915 | Up: Map | Next: 42954 |
|
Used by the routine at UpdatePanel.
Copies CounterBoxAttributes to the attribute file. The box is six cells wide and three cells high.
|
||||
|
Copy the attributes of the box.
|
||||
| ColourCounterBox | 42926 | LD HL,23193 | Point HL at 23193 (in the attribute buffer). | |
| 42929 | LD DE,42954 | Point DE at CounterBoxAttributes. | ||
| 42932 | LD BC,1539 | Set the width to 6 and the height to 3. | ||
| ColourCounterBox_Row | 42935 | PUSH BC | Stash the size and the address of the row. | |
| 42936 | PUSH HL | |||
| ColourCounterBox_Cell | 42937 | LD A,(DE) | Fetch the attribute of the cell. | |
| 42938 | INC DE | Move on to the next attribute. | ||
| 42939 | LD (HL),A | Write it to the attribute file. | ||
| 42940 | INC HL | Move on to the next cell. | ||
| 42941 | DJNZ ColourCounterBox_Cell | Jump to ColourCounterBox_Cell until the row is done. | ||
| 42943 | POP HL | Restore the address of the row from the stack. | ||
| 42944 | LD A,32 | Set A to 32. | ||
| 42946 | CALL AddAToHL | Call AddAToHL. | ||
| 42949 | POP BC | Restore the size of the box from the stack. | ||
| 42950 | DEC C | Jump to ColourCounterBox_Row until all of the rows are done. | ||
| 42951 | JR NZ,ColourCounterBox_Row | |||
| 42953 | RET | Return. | ||
| Prev: 42915 | Up: Map | Next: 42954 |