;########################################################################
;# speed is = 1953 / BPM						#
;# verses are 1...31 or 65...95 for volume decrease on last 2 verses	#
;#----------------------------------------------------------------------#
;# timing:								#
;#  _dummy	filling byte for even bytes in a row			#
;#  __ende	the end							#
;#  _endvs	end of "preview"					#
;#  takt16	play note(s) and wait 1/16, before next notes start	#
;#  takt18	play note(s) and wait 1/8 , before next notes start	#
;#  takt36	play note(s) and wait 3/16, before next notes start	#
;#  takt14	play note(s) and wait 1/4 , before next notes start	#
;#  takt38	play note(s) and wait 3/8 , before next notes start	#
;#  takt12	play note(s) and wait 1/2 , before next notes start	#
;#  takt34	play note(s) and wait 3/4 , before next notes start	#
;#----------------------------------------------------------------------#
;# note set: (x=channel):						#
;# c0___x ... dis5_x	NameOctave_Channel				#
;# ---------------------------------------------------------------------#
;# envelope set (x=channel):						#
;# n116_x	1/16		138_x		3/8			#
;# n108_x	1/8		102_x		1/2			#
;# n136_x	3/16		304_x		3/4			#
;# n104_x	1/4		101_x		1/1			#
;#----------------------------------------------------------------------#
;# volume:	 	vol__x nnn	(nnn 0...255)			#
;# halftone shift:	ver__x nnn	(nnn 0...255, calculated mod 64)#
;# wavetable:		wad__x ll hh	first Low-, then High-Byte	#
;# envelope-table:	ead__x ll hh	first Low-, then High-Byte	#
;############----------------############################################
	.db "Der Mond ist auf",74,100	;Name, Strophen  und Geschw.
	.db 160,93			;Lautstärken festlegen
	.db ver__1,12			;Kanal 1 eine Oktave höher
	.db ver__2,12			;Kanal 2 eine Oktave höher
	.db n104_1,n104_2		;Hüllkurven festlegen
;part 1
	.db f1___1,f1___2,takt14,_dummy

	.db g1___1,b0___2,takt14,f1___1,a0___2,takt14
	.db b1___1,g0___2,takt14,a1___1,f0___2,takt14
	
	.db n102_1,g1___1,b0___2,takt14,c1___2,takt14
	.db n104_1,f1___1,f0___2,takt14,_dummy,_endvs,a1___1,n108_2,f1___2,takt18
	.db e1___2,takt18,n104_2,_dummy
	
	.db a1___1,d1___2,takt14,a1___1,c1___2,takt14
	.db d2___1,b0___2,takt14,c2___1,a0___2,takt14
	
	.db n102_1,b1___1,g0___2,takt14,c1___2,takt14
	.db n104_1,a1___1,f0___2,takt14,a1___1,n108_2,f1___2,takt18
	.db e1___2,takt18,n104_2,_dummy

	.db a1___1,d1___2,takt14,a1___1,c1___2,takt14
	.db b1___1,b0___2,takt14,a1___1,h0___2,takt14
	
	.db n102_1,g1___1,c1___2,takt14,n108_2,e1___2,takt18,f1___2
	.db takt18,n104_2,e1___2,takt14,n104_1,_dummy
;part 2
	.db f1___1,f1___2,takt14,_dummy

	.db g1___1,b0___2,takt14,f1___1,a0___2,takt14
	.db b1___1,g0___2,takt14,a1___1,f0___2,takt14
	
	.db n102_1,g1___1,b0___2,takt14,c1___2,takt14
	.db n104_1,f1___1,f0___2,takt14,a1___1,n108_2,f1___2,takt18
	.db e1___2,takt18,n104_2,_dummy
	
	.db a1___1,d1___2,takt14,a1___1,c1___2,takt14
	.db d2___1,b0___2,takt14,c2___1,a0___2,takt14

	.db n102_1,b1___1,g0___2,takt14,c1___2,takt14
	.db n104_1,n102_2,a1___1,f0___2,takt14,a1___1,takt14,n104_2

	.db a1___1,a0___2,takt14,a1___1,fis0_2,takt14
	.db b1___1,g0___2,takt14,a1___1,c1___2,takt14

	.db n102_2,g1___1,c1___2,takt14,g1___1,takt14
	.db n104_2,f1___1,f0___2,takt14,takt12,__ende