Split shared graphics into separate files. Start on CGB.HEADmaster

1 files changed, 843 insertions, 0 deletions

diff --git a/cgb.s b/cgb.s
new file mode 100644
index 0000000..2f09d18
--- /dev/null
+++ b/cgb.s
@@ -0,0 +1,843 @@
+SECTION "main",rom0
+
+	ld sp,$FFFE
+	ld a,2
+	jp func7c
+
+dma: MACRO
+	db HIGH(\1),LOW(\1),HIGH(\2),LOW(\2),(\3-1)/$10
+ENDM
+DMAdata:
+	dma $D300,$98A0,$130
+	dma $D300,$8000,$410
+
+ManualSelectPalettes:
+	db $1E,$53,$D0,$00
+	db $1F,$42,$1c,$00
+	db $14,$2A,$4D,$19
+	db $8C,$7E,$00,$7c
+	db $31,$6E,$4A,$45
+	db $52,$4A,$00,$00
+	db $FF,$53,$1F,$7C
+	db $FF,$03,$1F,$00
+	db $FF,$1F,$A7,$00
+	db $EF,$1B,$1F,$00
+	db $EF,$1B,$00,$7c
+	db $00,$00,$ff,$03
+
+logo:
+INCBIN "nintendo.s"
+
+registered:
+INCBIN "®.bin"
+registered_:
+
+data7a:
+	db $58,$43
+
+func7c:
+	ld [$ff70],a
+	ld a,$fc
+	ld [$ff47],a
+	call $0275
+	call $0200
+	ld h,$d0
+	call $0203
+	ld hl,$fe00
+	ld c,$a0
+	xor a
+loop93:
+	ld [hli],a
+	dec c
+	jr nz,loop93
+	ld de,$0104
+	ld hl,$8010
+	ld c,h
+loop9e:
+	ld a,[de]
+	ld [$ff00+c],a
+	inc c
+	call $03c6
+	call $03c7
+	inc de
+	ld a,e
+	cp $34
+	jr nz,loop9e
+	ld de,registered
+	ld b,registered_ - registered
+funcb2:
+	ld a,[de]
+	inc de
+	ld [hli],a
+	inc hl
+	dec b
+	jr nz,funcb2
+	call $03f0
+	ld a,$01
+	ld [$ff4f],a
+	ld a,$91
+	ld [$ff40],a
+	ld hl,$98b2
+	ld b,$4e
+	ld c,$44
+	call $0291
+	xor a
+	ld [$ff4f],a
+	ld c,$80
+	ld hl,$0042
+	ld b,$18
+loopd8:
+	ld a,[$ff00+c]
+	inc c
+	cp [hl]
+infloop1:
+	jr nz,infloop1
+	inc hl
+	dec b
+	jr nz,loopd8
+	ld hl,$0134
+	ld b,$19
+	ld a,b
+loope7:
+	add [hl]
+	inc l
+	dec b
+	jr nz,loope7
+	add [hl]
+infloop2:
+	jr nz,infloop2
+	call $031c
+	jr .next
+	nop
+	nop
+.next
+	call $05d0
+	xor a
+	ld [$ff70],a
+	ld a,$11
+	ld [$ff50],a
+
+SEcTION "more",rom0[$200]
+func200:
+	ld hl,$8000
+	xor a
+loop204:
+	ld [hli],a
+	bit 5,h
+	jr z,loop204
+	ret
+
+func20a:
+	ld a,[hli]
+	ld [de],a
+	inc de
+	dec c
+	jr nz,func20a
+	ret
+
+func211:
+	push hl
+	ld hl,$ff0f
+	res 0,[hl]
+.prev
+	bit 0,[hl]
+	jr z,.prev
+	pop hl
+	ret
+
+func21d:
+	ld de,$ff00
+	ld hl,$d003
+	ld c,$0f
+	ld a,$30
+	ld [de],a
+	ld a,$20
+	ld [de],a
+	ld a,[de]
+	cpl
+	and c
+	swap a
+	ld b,a
+	ld a,$10
+	ld [de],a
+	ld a,[de]
+	cpl
+	and c
+	or b
+	ld c,a
+	ld a,[hl]
+	xor c
+	and $f0
+	ld b,a
+	ld a,[hli]
+	xor c
+	and c
+	or b
+	ld [hld],a
+	ld b,a
+	ld a,c
+	ld [hl],a
+	ld a,$30
+	ld [de], a
+	ret
+
+func24a:
+	ld a,$80
+	ld [$ff68],a
+	ld [$ff6a],a
+	ld c,$6b
+.loop1
+	ld a,[hli]
+	ld [$ff00+c],a
+	dec b
+	jr nz,.loop1
+	ld c,d
+	add hl,bc
+	ld b,e
+	ld c,$69
+.loop2
+	ld a,[hli]
+	ld [$ff00+c],a
+	dec b
+	jr nz,.loop2
+	ret
+
+func262:
+	push bc
+	push de
+	push hl
+	ld hl,$d800
+	ld b,1
+	ld d,$3f
+	ld e,$40
+	call $24a
+	pop hl
+	pop de
+	pop bc
+	ret
+
+func275:
+	ld a,$80
+	ld [$ff26],a
+	ld [$ff11],a
+	ld a,$f3
+	ld [$ff12],a
+	ld [$ff25],a
+	ld a,$77
+	ld [$ff24],a
+	ld hl,$ff30
+	xor a
+	ld c,$10
+.loop
+	ld [hli],a
+	cpl
+	dec c
+	jr nz,.loop
+	ret
+
+func291:
+	call func211
+	call func262
+	ld a,c
+	cp $38
+	jr nz,.next
+	push hl
+	xor a
+	ld [$ff4f],a
+	ld hl,$99a7
+	ld a,$38
+.loop1
+	ld [hli],a
+	inc a
+	cp $3f
+	jr nz,.loop1
+	ld a,$01
+	ld [$ff4f],a
+	pop hl
+.next
+	push bc
+	push hl
+	ld hl,$0143
+	bit 7,[hl]
+	call z,$0589
+	pop hl
+	pop bc
+	call func211
+	ld a,c
+	sub $30
+	jp nc,$0306
+	ld a,c
+	cp $01
+	jp z,$0306
+	ld a,l
+	cp $d1
+	jr z,.next2
+	push bc
+	ld b,$03
+.loopc
+	ld c,$01
+.loopb
+	ld d,$03
+.loopa
+	ld a,[hl]
+	and $f8
+	or c
+	ld [hli],a
+	dec d
+	jr nz,.loopa
+	inc c
+	ld a,c
+	cp $06
+	jr nz,.loopb
+	ld de,$0011
+	add hl,de
+	dec b
+	jr nz,.loopc
+	ld de,$ffa1
+	add hl,de
+	pop bc
+.next2
+	inc b
+	ld a,b
+	ld e,$83
+	cp $62
+	jr z,.next3
+	ld e,$c1
+	cp $64
+	jr nz,func306
+.next3
+	ld a,e
+	ld [$ff13],a
+	ld a,$87
+	ld [$ff14],a
+func306:
+	ld a,[$d002]
+	cp $00
+	jr z,.next4
+	dec a
+	ld [$d002],a
+	ld a,c
+	cp $01
+	jp z,func291
+.next4
+	dec c
+	jp nz,func291
+	ret
+
+func31c:
+	ld c,$26
+.loop
+	call func34a
+	call func211
+	call func262
+	dec c
+	jr nz,.loop
+	call func211
+	ld a,1
+	ld [$ff4f],a
+	call $33e
+	call $341
+	xor a
+	ld [$ff4f],a
+	call $33e
+	ret
+
+func33e:
+	ld hl,8
+	ld de,$ff51
+	ld c,5
+	call $20a
+	ret
+
+func34a:
+	push bc
+	push de
+	push hl
+	ld hl,$d840
+	ld c,$20
+.loop
+	ld a,[hl]
+	and $1f
+	cp $1f
+	jr z,.next1
+	inc a
+.next1
+	ld d,a
+	ld a,[hli]
+	rlca
+	rlca
+	rlca
+	and $07
+	ld b,a
+	ld a,[hld]
+	rlca
+	rlca
+	rlca
+	and $18
+	or b
+	cp $1f
+	jr z,.next2
+	inc a
+.next2
+	rrca
+	rrca
+	rrca
+	ld b,a
+	and $e0
+	or d
+	ld [hli],a
+	ld a,b
+	and $03
+	ld e,a
+	ld a,[hl]
+	rrca
+	rrca
+	and $1f
+	cp $1f
+	jr z,.next3
+	inc a
+.next3
+	rlca
+	rlca
+	or e
+	ld [hli],a
+	dec c
+	jr nz,.loop
+	pop hl
+	pop de
+	pop bc
+	ret
+
+func38f:
+	ld c,0
+.loop
+	ld a,[de]
+	and $f0
+	bit 1,c
+	jr z,.next1
+	swap a
+.next1
+	ld b,a
+	inc hl
+	ld a,[hl]
+	or b
+	ld [hli],a
+	ld a,[de]
+	and $f
+	bit 1,c
+	jr nz,.next2
+	swap a
+.next2
+	ld b,a
+	inc hl
+	ld a,[hl]
+	or b
+	ld [hli],a
+	inc de
+	bit 0,c
+	jr z,.next3
+	push de
+	ld de,$fff8
+	bit 1,c
+	jr z,.next4
+	ld de,8
+.next4
+	add hl,de
+	pop de
+.next3
+	inc c
+	ld a,c
+	cp $18
+	jr nz,.loop
+	ret
+
+func3c6:
+	ld b,a
+	push de
+	ld d,4
+.loop
+	ld e,b
+	rl b
+	rla
+	rl e
+	rla
+	dec d
+	jr nz,.loop
+	pop de
+	ld [hli],a
+	inc hl
+	ld [hli],a
+	inc hl
+	ret
+
+func3da:
+	ld a,$19
+	ld [$9910],a
+	ld hl,$992f
+.loop2
+	ld c,$c
+.loop1
+	dec a
+	jr z,.done
+	ld [hld],a
+	dec c
+	jr nz,.loop1
+	ld l,$f
+	jr .loop2
+.done
+	ret
+
+func3f0:
+	ld a,$01
+	ld [$ff4f],a
+	call $0200
+	ld de,$0607
+	ld hl,$8080
+	ld c,$c0
+.loop1
+	ld a,[de]
+	ld [hli],a
+	inc hl
+	ld [hli],a
+	inc hl
+	inc de
+	dec c
+	jr nz,.loop1
+	ld de,$0104
+	call $038f
+	ld bc,$ffa8
+	add hl,bc
+	call $038f
+	ld bc,$fff8
+	add hl,bc
+	ld de,$0072
+	ld c,$08
+.loop2
+	inc hl
+	ld a,[de]
+	ld [hli],a
+	inc de
+	dec c
+	jr nz,.loop2
+	ld hl,$98c2
+	ld b,$08
+	ld a,$08
+.loop4
+	ld c,$10
+.loop3
+	ld [hli],a
+	dec c
+	jr nz,.loop3
+	ld de,$0010
+	add hl,de
+	dec b
+	jr nz,.loop4
+	xor a
+	ld [$ff4f],a
+	ld hl,$98c2
+	ld a,$08
+.loop5
+	ld [hli],a
+	inc a
+	cp $18
+	jr nz,.skip1
+	ld l,$e2
+.skip1
+	cp $28
+	jr nz,.skip2
+	ld hl,$9902
+.skip2
+	cp $38
+	jr nz,.loop5
+	ld hl,$08d8
+	ld de,$d840
+	ld b,$08
+.loop6
+	ld a,$ff
+	ld [de],a
+	inc de
+	ld [de],a
+	inc de
+	ld c,$02
+	call $020a
+	ld a,$00
+	ld [de],a
+	inc de
+	ld [de],a
+	inc de
+	inc de
+	inc de
+	dec b
+	jr nz,.loop6
+	call func262
+	ld hl,$014b
+	ld a,[hl]
+	cp $33
+	jr nz,.a_488
+	ld l,$44
+	ld e,$30
+	ld a,[hli]
+	cp e
+	jr nz,.a_4ce
+	inc e
+	jr .a_48c
+.a_488
+	ld l,$4b
+	ld e,$01
+.a_48c
+	ld a,[hli]
+	cp e
+	jr nz,.a_4ce
+	ld l,$34
+	ld bc,$0010
+.a_495
+	ld a,[hli]
+	add b
+	ld b,a
+	dec c
+	jr nz,.a_495
+	ld [$d000],a
+	ld hl,$06c7
+	ld c,$00
+.a_4a3
+	ld a,[hli]
+	cp b
+	jr z,.a_4af
+	inc c
+	ld a,c
+	cp $4f
+	jr nz,.a_4a3
+	jr .a_4ce
+.a_4af
+	ld a,c
+	sub $41
+	jr c,.a_4d0
+	ld hl,$0716
+	ld d,$00
+	ld e,a
+	add hl,de
+.a_4bb
+	ld a,[$0137]
+	ld d,a
+	ld a,[hl]
+	cp d
+	jr z,.a_4d0
+	ld de,$000e
+	add hl,de
+	ld a,c
+	add e
+	ld c,a
+	sub $5e
+	jr c,.a_4bb
+.a_4ce
+	ld c,$00
+.a_4d0
+	ld hl,$0733
+	ld b,$00
+	add hl,bc
+	ld a,[hl]
+	and $1f
+	ld [$d008],a
+	ld a,[hl]
+	and $e0
+	rlca
+	rlca
+	rlca
+	ld [$d00b],a
+	call $04e9
+	ret
+
+func4e9:
+	ld de,$0791
+	ld hl,$d900
+	ld a,[$d00b]
+	ld b,a
+	ld c,$1e
+.loop
+	bit 0,b
+	jr nz,.a_4fb
+	inc de
+	inc de
+.a_4fb
+	ld a,[de]
+	ld [hli],a
+	jr nz,.a_501
+	dec de
+	dec de
+.a_501
+	bit 1,b
+	jr nz,.a_507
+	inc de
+	inc de
+.a_507
+	ld a,[de]
+	ld [hli],a
+	inc de
+	inc de
+	jr nz,.a_50f
+	dec de
+	dec de
+.a_50f
+	bit 2,b
+	jr z,.a_518
+	dec de
+	dec hl
+	ld a,[de]
+	ld [hli],a
+	inc de
+.a_518
+	ld a,[de]
+	ld [hli],a
+	inc de
+	dec c
+	jr nz,.loop
+	ld hl,$d900
+	ld de,$da00
+	call $0564
+	ret
+
+func528:
+	ld hl,ManualSelectPalettes
+	ld a,[$d005]
+	rlca
+	rlca
+	ld b,$00
+	ld c,a
+	add hl,bc
+	ld de,$d840
+	ld b,$08
+.loop
+	push hl
+	ld c,$02
+	call $020a
+	inc de
+	inc de
+	inc de
+	inc de
+	inc de
+	inc de
+	pop hl
+	dec b
+	jr nz,.loop
+	ld de,$d842
+	ld c,$02
+	call $020a
+	ld de,$d84a
+	ld c,$02
+	call $020a
+	dec hl
+	dec hl
+	ld de,$d844
+	ld c,$02
+	call $020a
+	ret
+
+func564:
+	ld c,$60
+.loop
+	ld a,[hli]
+	push hl
+	push bc
+	ld hl,$07e8
+	ld b,$00
+	ld c,a
+	add hl,bc
+	ld c,$08
+	call $020a
+	pop bc
+	pop hl
+	dec c
+	jr nz,.loop
+	ret
+
+func57b:
+	ld a,[$d008]
+	ld de,$0018
+	inc a
+.loop
+	dec a
+	jr z,.done
+	add hl,de
+	jr nz,.loop
+.done
+	ret
+
+func589:
+	call $021d
+	ld a,b
+	and $ff
+	jr z,.a_5a0
+	ld hl,$08e4
+	ld b,$00
+.loop
+	ld a,[hli]
+	cp c
+	jr z,.a_5a2
+	inc b
+	ld a,b
+	cp $0c
+	jr nz,.loop
+.a_5a0
+	jr .done
+.a_5a2
+	ld a,b
+	ld [$d005],a
+	ld a,$1e
+	ld [$d002],a
+	ld de,$000b
+	add hl,de
+	ld d,[hl]
+	ld a,d
+	and $1f
+	ld e,a
+	ld hl,$d008
+	ld a,[hld]
+	ld [hli],a
+	ld a,e
+	ld [hl],a
+	ld a,d
+	and $e0
+	rlca
+	rlca
+	rlca
+	ld e,a
+	ld hl,$d00b
+	ld a,[hld]
+	ld [hli],a
+	ld a,e
+	ld [hl],a
+	call $04e9
+	call $0528
+.done
+	ret
+
+func5d0:
+	call func211
+	ld a,[$0143]
+	bit 7,a
+	jr z,.next
+	ld [$ff4c],a
+	jr .done
+.next
+	ld a,$04
+	ld [$ff4c],a
+	ld a,$01
+	ld [$ff6c],a
+	ld hl,$da00
+	call $057b
+	ld b,$10
+	ld d,$00
+	ld e,$08
+	call $024a
+	ld hl,data7a
+	ld a,[$d000]
+	ld b,a
+	ld c,$02
+.loop
+	ld a,[hli]
+	cp b
+	call z,$03da
+	dec c
+	jr nz,.loop
+.done
+	ret