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.
33 lines
375 B
33 lines
375 B
4 years ago
|
HeaderTitle EQUS "\"BUILDTEST\""
|
||
|
|
||
|
include "common/defines.inc"
|
||
|
|
||
|
OverrideIntVblank SET 1
|
||
|
include "common/header.inc"
|
||
|
|
||
|
SECTION "intVblank", ROM0
|
||
|
ld a, [hl]
|
||
|
xor a, $ff
|
||
|
ld [hli], a
|
||
|
reti
|
||
|
|
||
|
SECTION "home", ROM0
|
||
|
ld a, %00011011
|
||
|
ld [$ff47], a
|
||
|
|
||
|
ei
|
||
|
ld a, %11100001
|
||
|
ld [$ffff], a
|
||
|
|
||
|
ld a, 127
|
||
|
ld b, 0
|
||
|
reset:
|
||
|
ld hl, $8010
|
||
|
ld d, 48 * 4
|
||
|
|
||
|
loop:
|
||
|
halt
|
||
|
dec d
|
||
|
jr z, reset
|
||
|
jr loop
|