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.
34 lines
452 B
34 lines
452 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 hl, $8010 |
|
ld b, $00 |
|
call fillTileEx |
|
|
|
ld b, $01 |
|
call fillTileEx |
|
|
|
ld b, $02 |
|
call fillTileEx |
|
|
|
ld b, $03 |
|
call fillTileEx |
|
|
|
_lcdEnable |
|
|
|
.loop: |
|
jr .loop
|
|
|