91 lines
1.9 KiB
C
91 lines
1.9 KiB
C
#include "melody.h"
|
|
|
|
// freq: wave duration as multiple of 40ns
|
|
// duration: total duration as multiple of 40ns
|
|
#define TONE(freq, duration) ((((uint32_t)freq & 0xffff) << 16) | (((uint32_t)duration / (uint32_t)freq) & 0xffff))
|
|
|
|
const uint32_t TACT = 2120 * 1000 * 25; // 2.12 seconds for one tact
|
|
|
|
const uint32_t GIS2 = 30098;
|
|
const uint32_t F = 35793;
|
|
const uint32_t DIS = 40177;
|
|
const uint32_t CIS = 45097;
|
|
const uint32_t C = 47778;
|
|
const uint32_t B = 53629;
|
|
const uint32_t GIS = 60197;
|
|
|
|
const uint32_t CALL = 0x10000;
|
|
const uint32_t RETURN = 0x20000;
|
|
|
|
const uint32_t refrain[];
|
|
const uint32_t quadrupel[];
|
|
const uint32_t *cpu32EntryPoint = refrain;
|
|
|
|
const uint32_t GOTO_REFRAIN = 0;
|
|
const uint32_t CALL_QUADRUPEL = CALL + 1;
|
|
|
|
const uint32_t *jumplabels[] = {
|
|
refrain,
|
|
quadrupel,
|
|
};
|
|
const uint32_t **cppu32JumpLabels = jumplabels;
|
|
|
|
const uint32_t quadrupel[] = {
|
|
TONE(GIS, TACT / 16),
|
|
TONE(B, TACT / 16),
|
|
TONE(CIS, TACT / 16),
|
|
TONE(B, TACT / 16),
|
|
RETURN,
|
|
};
|
|
|
|
const uint32_t refrain[] = {
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(DIS, TACT * 3 / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(DIS, TACT * 3 / 16),
|
|
TONE(DIS, TACT * 3 / 16),
|
|
TONE(CIS, TACT * 3 / 16),
|
|
TONE(C, TACT / 16),
|
|
TONE(B, TACT / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(CIS, TACT / 4),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(C, TACT * 3 / 16),
|
|
TONE(B, TACT / 16),
|
|
TONE(GIS, TACT / 4),
|
|
TONE(GIS, TACT / 8),
|
|
|
|
TONE(DIS, TACT / 4),
|
|
TONE(CIS, TACT / 2),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(F, TACT * 3 / 16),
|
|
TONE(DIS, TACT * 3 / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(GIS2,TACT / 4),
|
|
TONE(C, TACT / 8),
|
|
TONE(CIS, TACT * 3 / 16),
|
|
TONE(C, TACT / 16),
|
|
TONE(B, TACT / 8),
|
|
CALL_QUADRUPEL,
|
|
|
|
TONE(CIS, TACT / 4),
|
|
TONE(DIS, TACT / 8),
|
|
TONE(C, TACT * 3 / 16),
|
|
TONE(B, TACT / 16),
|
|
TONE(GIS, TACT / 4),
|
|
TONE(GIS, TACT / 8),
|
|
|
|
TONE(DIS, TACT / 4),
|
|
TONE(CIS, TACT / 2),
|
|
|
|
GOTO_REFRAIN,
|
|
};
|