; Edit version 1.04
;**************************************************************************
;**************************************************************************
;***									***
;***	Musical source for "DAISY"					***
;***									***
;**************************************************************************
;**************************************************************************
;
; File Name		: DAISY.Z80
; Library Name		: MUSICBOX.LBR
; Module Build File	: MUSICBOX.ZEX
; Author		: Edmund Cramp
; Creation Date		: 28-Sep-1985
;
; Assembler Name	: Z80ASM (SLR Systems)
; Linker Name		: SLRNKP (SLR SYstems)
;
; Ammendment Record
; *****************
; Name		Date		Details of Ammendment
; ----		----		---------------------
; Edmund Cramp	28-Sep-1985	Initial file creation
; Edmund Cramp	16-Apr-1987	Modified for ZAS/ZLINK.
; Edmund Cramp	19-Mar-1988	Modified for SLR assembler/linker.
; 
; Module Function
; ***************
;	This is the source for the song "DAISY" as sung (slightly out of tune)
; by HAL in the movie "2001".  The original 'score' for this was published in
; an early issue of Dr Dobbs.
;
;**************************************************************************

		NAME DAISY

;		===============
;		Global symbols.
;		===============

;		n o n e

;		===================
;		External Referances
;		===================

;		n o n e

;		==============
;		External Files
;		==============

		MACLIB	MACROS.LIB	; Macro library.
		MACLIB	NOTES.LIB	; Music note definitions.

;		============
;		Local Macros
;		============

;+
; Usage:	NOTE	n,value
; Macro to generate 'n' bytes of "value" for use in creating musical notes.
;-
NOTE		MACRO	N,P1
		REPT	N		;; Repeat n DEFB statements...
		DEFB	P1		;; ...
		ENDM			;; ...
		ENDM

;		=============
;		Local Equates
;		=============

TEMPO:		EQU	40		; Musical tempo

;**************************************************************************
;***	Start of Module.						***
;**************************************************************************

		.XALL

		COMMON	/AREA/
		DEFB	TEMPO		; Song tempo value.
		DEFW	LTITLE		; Title string pointer.
		DEFW	SONG		; Start of song pointer.

		DSEG
LTITLE:		STRING	'Daisy'		; 
	
SONG:		NOTE	3,N$HG		; Start of the music.
		NOTE	3,N$HE
		NOTE	3,N$HC
		NOTE	3,N$MG
		NOTE	1,N$MA
		NOTE	1,N$MB
		NOTE	1,N$HC
		NOTE	2,N$MA
		NOTE	1,N$HC
		NOTE	6,N$MG
		NOTE	3,N$HD
		NOTE	3,N$HG
		NOTE	3,N$HE
		NOTE	3,N$HC
		NOTE	1,N$MA
		NOTE	1,N$MB
		NOTE	1,N$HC
		NOTE	2,N$HD
		NOTE	1,N$HE
		NOTE	5,N$HD
		NOTE	1,N$HE
		NOTE	1,N$HF
		NOTE	1,N$HE
		NOTE	1,N$HD
		NOTE	2,N$HG
		NOTE	1,N$HE
		NOTE	1,N$HD
		NOTE	4,N$HC
		NOTE	1,N$HD
		NOTE	2,N$HE
		NOTE	1,N$HC
		NOTE	2,N$MA
		NOTE	1,N$HC
		NOTE	1,N$MA
		NOTE	5,N$MG
		NOTE	2,N$HC
		NOTE	1,N$HE
		NOTE	2,N$HD
		NOTE	1,N$MG
		NOTE	2,N$HC
		NOTE	1,N$HE
		NOTE	1,N$HD
		NOTE	1,N$HE
		NOTE	1,N$HF
		NOTE	1,N$HG
		NOTE	1,N$HE
		NOTE	1,N$HC
		NOTE	2,N$HD
		NOTE	1,N$MG
		NOTE	4,N$HC

		NOTE	5,N$REST

		DEFB	N$STOP		; End of song.

		END