incdir	'Include40/'
	include	misc/AYPlayer.i
	incdir	''
b
	AYMODHEADER	EMUL,2,1
	dc.w	0		;no internal player
	dc.w	creator-*
	dc.w	misc-*		;no misc info
	dc.b	1-1		;how many songs
	dc.b	0		;which should start first
	dc.w	songdata-*

songdata	dc.w	name1-*
	dc.w	data1-*

name1	dc.b	'Z80 Emul Debug Test',0
creator	dc.b	'Patrik Rak',0
misc	dc.b	'Just for checking if debug routine works',0
	even
	
data1	dc.b	0,1,2,3		;channel assignement
	dc.w	1000		;songlen
	dc.w	100		;fadelen
	dc.w	$1234		;faked init number
	dc.w	testl-*		;launch structure
	dc.w	testb-*		;block list
testb	dc.w	49152		;put code at address
	dc.w	e-testc		;len
	dc.w	testc-*		;take code from
testl	dc.w	0		;stack / use as EMUL_Block list terminator
	dc.w	$1b		;check if ret works
	dc.w	49152		;interrupt
testc	dc.b	62,-1		;ld a,255
	dc.b	$ed,79		;ld r,a
	dc.b	62,$55		;ld a,$55
	dc.b	$ed,71		;ld i,a
	dc.b	1,$2c,$2b	;ld bc,$2b2c
	dc.b	17,$2e,$2d	;ld de,$2d2e
	dc.b	33,$2f,$2a	;ld hl,$2a2f
	dc.b	229		;push hl
	dc.b	241		;pop af
	dc.b	33,$21,$28	;ld hl,$2821
	dc.b	8		;ex af,af'
	dc.b	217		;exx
	dc.b	1,$1c,$1b	;ld bc,$1b1c
	dc.b	17,$1e,$1d	;ld de,$1d1e
	dc.b	33,$1f,$1a	;ld hl,$1a1f
	dc.b	229		;push hl
	dc.b	241		;pop af
	dc.b	33,$11,$18	;ld hl,$1811
	dc.b	221,33,$31,$38	;ld ix,$3831
	dc.b	253,33,$41,$48	;ld iy,$4841
	dc.b	$ed,0		;no such instruction -> exception
	dc.b	201		;rts (never executed)
e