| Dynamite Dan | Routines |
| Prev: EDA1 | Up: Map | Next: EDBC |
|
Used by the routine at CA5B.
|
||||
| EDA2 | LD HL,$EDA1 | Point HL at the current colour. (EDA1) | ||
| EDA5 | INC (HL) | Increment it. | ||
| EDA6 | LD A,(HL) | Take the bottom 2 bits. | ||
| EDA7 | AND $03 | |||
| EDA9 | CP $03 | Is the colour now magenta? | ||
| EDAB | RET NZ | Return if it isn't. | ||
| EDAC | LD A,($5878) | Point A at the last attribute. | ||
| EDAF | LD C,A | Copy this to C. | ||
| EDB0 | LD B,$13 | 13 columns to draw. | ||
| EDB2 | LD HL,$5867 | Point HL to the start of the attributes to change. | ||
| EDB5 | LD A,(HL) | Put the current attribute in A. | ||
| EDB6 | LD (HL),C | Replace it with the previous attribute in C. | ||
| EDB7 | LD C,A | Make the previous attribute the current. | ||
| EDB8 | INC L | Move forward a column. | ||
| EDB9 | DJNZ $EDB5 | Loop until all columns are re-coloured. | ||
| EDBB | RET | |||
| Prev: EDA1 | Up: Map | Next: EDBC |