| Dynamite Dan | Routines |
| Prev: E800 | Up: Map | Next: E820 |
| E801 | LD HL,$4000 | Start copying from the top of the screen, and for the length of it. | ||
| E804 | LD BC,$1800 | |||
| E807 | LD (HL),L | Set the first byte to 0. | ||
| E808 | LD D,H | Start copying to the second byte in the screen. | ||
| E809 | LD E,$01 | |||
| E80B | LDIR | Do the copy, which will fill the screen with 0. | ||
|
At this point, HL is pointing to the attributes.
|
||||
| E80D | LD A,$45 | Use bright cyan on black. | ||
| E80F | LD (HL),A | Set the first cell. | ||
| E810 | LD BC,$02FF | Fill the rest of the attributes. | ||
| E813 | LDIR | |||
|
Set the border to black.
|
||||
| E815 | LD A,($E800) | Get the last read to port FE. (E800) | ||
| E818 | AND $F8 | Ignore the border bits, it is always black. | ||
| E81A | OUT ($FE),A | Set the port values. | ||
| E81C | LD ($E800),A | Remember this for later. | ||
| E81F | RET | Return. | ||
| Prev: E800 | Up: Map | Next: E820 |