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.
32 lines
375 B
32 lines
375 B
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
|
|
|