jetpac | Routines |
Prev: 61d5 | Up: Map | Next: 6261 |
Used by the routine at 61d5.
|
||||
6234 | ld de,$6261 | Point DE to main menu colour attributes | ||
6237 | exx | |||
6238 | ld hl,$6267 | HL'=Y (y-position of the menu item) | ||
623b | ld de,$626d | DE'=to the beginning of the menu strings | ||
623e | ld b,$06 | B'=loop counter for the 6 colour attribute bytes | ||
Flip-flop between normal/shadow registers: meaning one time we hit this EXX we are using the shadow registers, the next the normal registers.
|
||||
6240 | exx | |||
6241 | ld a,(de) | A=current colour attribute | ||
6242 | ld ($5dd6),a | Store menu colour attribute | ||
6245 | inc de | |||
6246 | exx | |||
6247 | push bc | |||
6248 | ld a,(hl) | |||
6249 | inc hl | |||
624a | push hl | |||
624b | ld h,a | |||
624c | ld l,$30 | L'=indentation | ||
624e | call $62ca | Write line of text to screen | ||
6251 | exx | |||
6252 | pop hl | |||
6253 | pop bc | |||
6254 | inc de | |||
6255 | djnz $6240 | Duel purpose loop: both colour attrs and menu items | ||
6257 | ld hl,$b800 | Note: address is past 7FFF limit of 16K ZX Spectrum | ||
625a | ld de,$6043 | Point DE to the copyright string | ||
625d | call $7134 | Now display the copyright message | ||
6260 | ret |
Prev: 61d5 | Up: Map | Next: 6261 |