141 lines
2.4 KiB
NASM
141 lines
2.4 KiB
NASM
|
; Sameboy CGB bootstrap ROM
|
||
|
|
; Todo: use friendly names for HW registers instead of magic numbers
|
||
|
|
SECTION "BootCode", ROM0[$0]
|
||
|
|
Start:
|
||
|
|
; Init stack pointer
|
||
|
|
ld sp, $fffe
|
||
|
|
|
||
|
|
; Clear memory VRAM
|
||
|
|
ld hl, $8000
|
||
|
|
|
||
|
|
.clearVRAMLoop
|
||
|
|
ldi [hl], a
|
||
|
|
bit 5, h
|
||
|
|
jr z, .clearVRAMLoop
|
||
|
|
|
||
|
|
; Init Audio
|
||
|
|
ld a, $80
|
||
|
|
ldh [$26], a
|
||
|
|
ldh [$11], a
|
||
|
|
ld a, $f3
|
||
|
|
ldh [$12], a
|
||
|
|
ldh [$25], a
|
||
|
|
ld a, $77
|
||
|
|
ldh [$24], a
|
||
|
|
|
||
|
|
; Init BG palette
|
||
|
|
ld a, $fc
|
||
|
|
ldh [$47], a
|
||
|
|
|
||
|
|
; Load logo from ROM.
|
||
|
|
; A nibble represents a 4-pixels line, 2 bytes represent a 4x4 tile, scaled to 8x8.
|
||
|
|
; Tiles are ordered left to right, top to bottom.
|
||
|
|
ld de, $104 ; Logo start
|
||
|
|
ld hl, $8010 ; This is where we load the tiles in VRAM
|
||
|
|
|
||
|
|
.loadLogoLoop
|
||
|
|
ld a, [de] ; Read 2 rows
|
||
|
|
ld b, a
|
||
|
|
call DoubleBitsAndWriteRow
|
||
|
|
call DoubleBitsAndWriteRow
|
||
|
|
inc de
|
||
|
|
ld a, e
|
||
|
|
xor $34 ; End of logo
|
||
|
|
jr nz, .loadLogoLoop
|
||
|
|
|
||
|
|
; Load trademark symbol
|
||
|
|
ld de, TrademarkSymbol
|
||
|
|
ld c,$08
|
||
|
|
.loadTrademarkSymbolLoop:
|
||
|
|
ld a,[de]
|
||
|
|
inc de
|
||
|
|
ldi [hl],a
|
||
|
|
inc hl
|
||
|
|
dec c
|
||
|
|
jr nz, .loadTrademarkSymbolLoop
|
||
|
|
|
||
|
|
; Set up tilemap
|
||
|
|
ld a,$19 ; Trademark symbol
|
||
|
|
ld [$9910], a ; ... put in the superscript position
|
||
|
|
ld hl,$992f ; Bottom right corner of the logo
|
||
|
|
ld c,$c ; Tiles in a logo row
|
||
|
|
.tilemapLoop
|
||
|
|
dec a
|
||
|
|
jr z, .tilemapDone
|
||
|
|
ldd [hl], a
|
||
|
|
dec c
|
||
|
|
jr nz, .tilemapLoop
|
||
|
|
ld l,$0f ; Jump to top row
|
||
|
|
jr .tilemapLoop
|
||
|
|
.tilemapDone
|
||
|
|
|
||
|
|
; Turn on LCD
|
||
|
|
ld a, $91
|
||
|
|
ldh [$40], a
|
||
|
|
|
||
|
|
; Wait ~0.75 seconds
|
||
|
|
ld b, 45
|
||
|
|
call WaitBFrames
|
||
|
|
|
||
|
|
; Play first sound
|
||
|
|
ld a, $83
|
||
|
|
call PlaySound
|
||
|
|
ld b, 15
|
||
|
|
call WaitBFrames
|
||
|
|
; Play second sound
|
||
|
|
ld a, $c1
|
||
|
|
call PlaySound
|
||
|
|
|
||
|
|
; Wait ~2.5 seconds
|
||
|
|
ld b, 150
|
||
|
|
call WaitBFrames
|
||
|
|
; Boot the game
|
||
|
|
jp BootGame
|
||
|
|
|
||
|
|
|
||
|
|
DoubleBitsAndWriteRow:
|
||
|
|
; Double the most significant 4 bits, b is shifted by 4
|
||
|
|
ld a, 4
|
||
|
|
ld c, 0
|
||
|
|
.doubleCurrentBit
|
||
|
|
sla b
|
||
|
|
push af
|
||
|
|
rl c
|
||
|
|
pop af
|
||
|
|
rl c
|
||
|
|
dec a
|
||
|
|
jr nz, .doubleCurrentBit
|
||
|
|
ld a, c
|
||
|
|
; Write as two rows
|
||
|
|
ldi [hl], a
|
||
|
|
inc hl
|
||
|
|
ldi [hl], a
|
||
|
|
inc hl
|
||
|
|
ret
|
||
|
|
|
||
|
|
WaitFrame:
|
||
|
|
ldh a, [$44]
|
||
|
|
cp $90
|
||
|
|
jr nz, WaitFrame
|
||
|
|
ret
|
||
|
|
|
||
|
|
WaitBFrames:
|
||
|
|
call WaitFrame
|
||
|
|
dec b
|
||
|
|
jr nz, WaitBFrames
|
||
|
|
ret
|
||
|
|
|
||
|
|
PlaySound:
|
||
|
|
ldh [$13], a
|
||
|
|
ld a, $87
|
||
|
|
ldh [$14], a
|
||
|
|
ret
|
||
|
|
|
||
|
|
|
||
|
|
TrademarkSymbol:
|
||
|
|
db $3c,$42,$b9,$a5,$b9,$a5,$42,$3c
|
||
|
|
|
||
|
|
SECTION "BootGame", ROM0[$fc]
|
||
|
|
BootGame:
|
||
|
|
ld a, 1
|
||
|
|
ldh [$50], a
|