ld hl, signon
call puts
+
+ call putscreen
ei
signon:
db $0D,$0A,$1B,"[1mFPGABoy Diagnostic ROM",$1B,"[0m",$0D,$0A,0
+putscreen:
+ ld a, $FF ; Copy two tiles.
+ ld hl, $8000
+ ld [hli], a
+ ld [hli], a
+ xor a
+ ld [hli], a
+ ld [hli], a
+
+ ld hl, $9800
+.loop: ld a, $FF
+ ld [hli], a
+ xor a
+ ld [hli], a
+ ld a, h
+ cp $9C
+ jp nz,.loop
+ ret
+
vbl:
PUSH AF
PUSH BC