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.
36 lines
502 B
36 lines
502 B
4 years ago
|
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
|