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.
43 lines
590 B
43 lines
590 B
HeaderTitle EQUS "\"MEMCPY\"" |
|
|
|
include "common/defines.inc" |
|
include "common/header.inc" |
|
include "common/functions.inc" |
|
|
|
; Output: |
|
; 1: copy block finished |
|
; 2: verify block succeeded |
|
|
|
SECTION "home", ROM0 |
|
ProgramStart: |
|
call clearLogo |
|
|
|
ld hl, $c000 ; WRAM |
|
ld bc, $0104 ; Cartridge Logo |
|
ld d, 48 ; size |
|
call memcpy |
|
|
|
ld hl, $8010 |
|
call waitVBlank |
|
ld b, $ff |
|
call fillTile |
|
|
|
ld hl, $c000 |
|
ld bc, $0104 |
|
ld d, 48 |
|
.verifyLoop: |
|
ld a, [bc] |
|
cp [hl] |
|
jr nz, loop |
|
inc hl |
|
inc bc |
|
dec d |
|
jr nz, .verifyLoop |
|
|
|
ld hl, $8030 |
|
call waitVBlank |
|
ld b, $ff |
|
call fillTile |
|
|
|
loop: |
|
jr loop
|
|
|