You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
502 B
35 lines
502 B
HeaderTitle EQUS "\"MISCINSTRS\"" |
|
|
|
include "common/defines.inc" |
|
include "common/header.inc" |
|
include "common/functions.inc" |
|
|
|
SECTION "home", ROM0 |
|
ProgramStart: |
|
call clearLogo |
|
|
|
_lcdDisable |
|
|
|
; Set a proper grayscale palette. |
|
ld a, %11100100 |
|
ldh [$ff47], a |
|
|
|
; TODO: Write actual tests. :) |
|
ld a, $ff |
|
ld hl, $8014 |
|
ld [hl], a |
|
ld hl, $8016 |
|
ld [hl], a |
|
ld hl, $8019 |
|
ld [hl], a |
|
ld hl, $801b |
|
ld [hli], a |
|
ld [hli], a |
|
ld [hli], a |
|
ld [hli], a |
|
ld [hli], a |
|
call memset |
|
_lcdEnable |
|
|
|
.loop: |
|
jr .loop
|
|
|