org #400
;run #400

write direct "tstlogo.bin",#400

nolist

.start

di

ld BC,#7F00
ld A,#54
ld D,16
out (C),C
out (C),A
out (C),D
out (C),A

inc C
ld A,#4B
out (C),C
out (C),A

ld A,#8C+2
out (C),A

ld HL,image
ld DE,#C000
ld B,7

.drawimage_loop1
	push BC
	push DE
	ld B,8
.drawimage_loop2 
	push BC
	push DE
	ld BC,32
	ldir
	pop DE
	pop BC
	ld A,8
	add D
	ld D,A
	djnz drawimage_loop2
	pop DE
	ex DE,HL
	ld BC,80
	add HL,BC
	ex DE,HL
	pop BC
	djnz drawimage_loop1

jr $

.image
incbin "gfx/easteregg_logo_mode2.pm2"

