Music Jingle Generator

Photograph of the prototype hardware:

N.B. the grey �dongle� in the background is the In-System Programmer.

Circuit diagram:

Controlling program:

(*$c 4 clock=4MHz*)

(*$d 2313 *)

PROGRAM Music;

(* Play a tune stored in EEPROM variables *)

USES

� LCDdisp2, ToneGen2; (* edit ToneGen2 for output on PB0 *)

CONST

� rest = 0; A = #1; As = #2; B = #3; C = #4; Cs = #5; D = #6;

� Ds = #7; E = #8; F = #9; Fs = #10; G = #11; Gs = #12;

� semiQ = #1; quaver = #2; crochet = #4; minim = #8;

TYPE

� TmusArray� = array[0..71] of byte;

� TmsgArray� = array[0..1] of string;

VAR

(* initialized array variables in EEPROM *)

� music : TmusArray | EEPROM = (*note, octave, duration*)

��������� [A, #3,semiQ,�� Gs,#2,semiQ, ��A, #3,semiQ,

���������� rest,#0,semiQ, E, #2,semiQ,�� rest,#0,semiQ,

���������� Cs,#2,semiQ,�� rest,#0,semiQ, E, #2,semiQ,

���������� rest,#0,semiQ, A, #2,semiQ,�� B, #2,semiQ,

���������� A, #2,semiQ,�� Gs,#1,semiQ,�� A, #2,semiQ,

���������� rest,#0,semiQ, E, #1,semiQ,�� rest,#0,semiQ,

���������� Cs,#1,semiQ,�� rest,#0,semiQ, E, #1,semiQ,

���������� rest,#0,semiQ, A, #1,minim,�� #15,#0,#0];

����������

(* initialized simple variables *)

� intro1� : string | EEPROM = "Music Player V1";

� intro2� : string | EEPROM = "Press button...";

(* simple vars. in SRAM *)

� note, octave, duration : byte;

� i : word;

(* library subroutines *)

(* LCDdisp2 *)

PROCEDURE InitLCD; LIBRARY;

PROCEDURE WriteCh(ch:BYTE); LIBRARY;

PROCEDURE WriteStr(str:STRING); LIBRARY;

PROCEDURE CursorAt(posn:BYTE); LIBRARY;

PROCEDURE ClearLCD; LIBRARY;

(* ToneGen2: change this module to output on PB0 first *)

PROCEDURE InitTones; LIBRARY;

PROCEDURE SoundTone(pitch,octave,duration: BYTE); LIBRARY;

(* global procedures *)

PROCEDURE InitSwitch;

(* set up a press-switch on port D, line 0 *)

� BEGIN

��� ASM

��� cbi�� ddrD,0�� ; declare this an input

��� sbi�� portD,0� ; switch on pull-up resistor

��� END;

� END;

PROCEDURE WaitForSwitchPress;

(* wait for switch on Pin D.0 to be pressed *)

� BEGIN

��� ASM (* do this in assembler *)

wait:sbic�� pinD,0

���� rjmp�� wait

��� END;

� END;

BEGIN

� (* set up hardware *)

� InitLCD;

� InitTones;

� InitSwitch;

� REPEAT

��� (* display intro. message *)

��� ClearLCD;

��� CursorAt(#0); WriteStr(intro1);

��� CursorAt(#16); WriteStr(intro2);

��� WaitForSwitchPress;

��� (* display title *)

��� ClearLCD;

��� CursorAt(#0); WriteStr("A bit of Bach..");

��� i:=0; (* start of music in array *)

��� note := music[i]; octave := music[i+1]; duration := music[i+2];

��� WHILE note <> #15 DO BEGIN

����� SoundTone(note, octave, duration);

����� i := i + 3; (* move to next group *)

����� note := music[i]; octave := music[i+1]; duration := music[i+2];

��� END;

� FOREVER

END.

Back