; Edit version 1.05
;**************************************************************************
;**************************************************************************
;***									***
;***	Musical Score Module.						***
;***									***
;**************************************************************************
;**************************************************************************
;
; File Name		: FOOL.Z80
; Library Name		: MUSICBOX.LBR
; Module Build File	: MUSICBOX.ZEX
; Author		: Edmund Cramp
; Creation Date		: 28-Sep-1987
;
; 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	17-Apr-1987	Modified for ZAS/ZLINK.
; Emdund Cramp	19-Mar-1988	Modified for SLR assembler/linker.
; 
; Module Function
; ***************
;	This is the source for the Beatles song "The Fool on the Hill".  The
; original 'score' for this was published in an early issue of Dr Dobbs.
;
;**************************************************************************

		NAME	FOOL

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

;		n o n e

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

;		n o n e

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

		MACLIB	NOTES.LIB	; Note equates.
		MACLIB	MACROS.LIB	; Macro library.

;		============
;		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	120		; Set the musical tempo song (0-255)

;**************************************************************************
;***									***
;**************************************************************************

		.XALL

		COMMON	/AREA/
		DEFB	TEMPO		; Tempo value.
		DEFW	TUNE		; Pointer to title string.
		DEFW	SONG		; Start of song pointers

		DSEG
TUNE:		STRING	'The Fool on the Hill'

SONG:		NOTE	2,N$LE		; Fool on the hill
		NOTE	1,N$LC
		NOTE	1,N$LF
		NOTE	1,N$LG
		NOTE	3,N$LA
		NOTE	1,N$LG
		NOTE	1,N$LA
		NOTE	1,N$LB
		NOTE	3,N$MC
		NOTE	1,N$LG
		NOTE	1,N$LA
		NOTE	3,N$MD
		NOTE	1,N$LG
		NOTE	1,N$LA
		NOTE	2,N$MD
		NOTE	1,N$MC
		NOTE	1,N$ME
		NOTE	2,N$MD
		NOTE	1,N$LA
		NOTE	1,N$LG
		NOTE	1,N$LA
		NOTE	2,N$MC
		NOTE	1,N$LA
		NOTE	1,N$MC
		NOTE	1,N$LG
		NOTE	2,N$LA
		NOTE	1,N$LG
		NOTE	1,N$LA
		NOTE	1,N$MD
		NOTE	1,N$LA
		NOTE	1,N$MC
		NOTE	1,N$LG
		NOTE	2,N$LA
		NOTE	1,N$LG
		NOTE	1,N$LA
		NOTE	3,N$MD
		NOTE	1,N$MC
		NOTE	1,N$ME
		NOTE	1,N$MC
		NOTE	2,N$MD
		NOTE	1,N$MC
		NOTE	1,N$LB
		NOTE	1,N$MC
		NOTE	1,N$LG
		NOTE	1,N$LGS
		NOTE	1,N$LF
		NOTE	2,N$LG
		NOTE	1,N$LF
		NOTE	1,N$LG
		NOTE	2,N$LGS
		NOTE	1,N$LG
		NOTE	3,N$LF
		NOTE	1,N$LG
		NOTE	1,N$LGS
		NOTE	2,N$LAS
		NOTE	1,N$LGS
		NOTE	1,N$LG
		NOTE	3,N$LGS
		NOTE	1,N$MC
		NOTE	4,N$MD
		NOTE	1,N$MDS
		NOTE	1,N$MD
		NOTE	5,N$MC

		NOTE	3,N$REST

		DEFB	N$STOP

		END