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.
44 lines
590 B
44 lines
590 B
4 years ago
|
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
|