db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0
tiles:
- db %11111111
- db %11111111
- db %11000011
- db %11000011
- db %11000011
- db %11000011
- db %11111111
- db %11111111
-
- db %00000000
- db %00000000
- db %00000000
- db %00000000
+ db %01111100
+ db %11000110
+ db %11000110
+ db %11111110
+ db %11000110
+ db %11000110
+ db %11000110
db %00000000
+
+ db %11111100
+ db %11000110
+ db %11000110
+ db %11111100
+ db %11000110
+ db %11000110
+ db %11111100
db %00000000
+
+ db %01111100
+ db %11000110
+ db %11000010
+ db %11000000
+ db %11000010
+ db %11000110
+ db %01111100
db %00000000
+
+ db %11111100
+ db %11000110
+ db %11000110
+ db %11000110
+ db %11000110
+ db %11000110
+ db %11111100
db %00000000
putscreen:
ld hl, $8000 ; Copy two tiles.
ld de, tiles
- ld c, $10
+ ld c, $20
.cloop: push hl
ld h, d
ld l, e
.vloop: call .vblwait
ld c, $40
ld b, 0
-.loop: inc b
- ld a, b
- and $01
+.loop: ld a, b
+ inc b
+ and $03
ld [hli], a
ld a, h
cp $9C