sidz.c

Go to the documentation of this file.

/*****************************************************************************
 * ugBASIC - an isomorphic BASIC language compiler for retrocomputers        *
 *****************************************************************************
 * Copyright 2021-2026 Marco Spedaletti (asimov@mclink.it)
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *----------------------------------------------------------------------------
 * Concesso in licenza secondo i termini della Licenza Apache, versione 2.0
 * (la "Licenza"); è proibito usare questo file se non in conformità alla
 * Licenza. Una copia della Licenza è disponibile all'indirizzo:
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Se non richiesto dalla legislazione vigente o concordato per iscritto,
 * il software distribuito nei termini della Licenza è distribuito
 * "COSì COM'è", SENZA GARANZIE O CONDIZIONI DI ALCUN TIPO, esplicite o
 * implicite. Consultare la Licenza per il testo specifico che regola le
 * autorizzazioni e le limitazioni previste dalla medesima.
 ****************************************************************************/
 
#if defined(__c128z__)
 
#include "../ugbc.h"
 
static unsigned int SOUND_FREQUENCIES[] = {
    0,      0,      0,      0,      0,      0,      0,      0,      0,      0,
    0,      0,      0,      0,      0,      0,      0,      0,      0,      0,
    0,      0,      0,      268,    284,    301,    318,    337,    358,    379,
    401,    425,    451,    477,    506,    536,    568,    602,    637,    675,
    716,    758,    803,    851,    902,    955,    1012,   1072,   1136,   1204,
    1275,   1351,   1432,   1517,   1607,   1703,   1804,   1911,   2026,   2145,
    2273,   2408,   2551,   2703,   2864,   3034,   3215,   3406,   3608,   3823,
    4050,   4291,   4547,   4817,   5103,   5407,   5728,   6069,   6430,   6812,
    7217,   7647,   8101,   8583,   9094,   9634,   10207,  10814,  11457,  12139,
    12860,  13625,  14435,  15294,  16203,  17167,  18188,  19269,  20415,  21629,
    22915,  24278,  25721,  27251,  28871,  30588,  32407,  34334,  36376,  38539,
    40830,  43258,  45830,  48556,  51443,  54502,  57743,  61176,  64814
};
 
void sidz_initialization( Environment * _environment ) {
 
    cpu_call( _environment, "SIDZSTARTUP" );
    
}
 
void sidz_finalization( Environment * _environment ) {
 
    if ( !_environment->deployed.sidstartup ) {
        outhead0( "SIDZSTARTUP:" );
        outline0( "RET" );
    }
 
}
 
void sidz_start( Environment * _environment, int _channels ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    if ( _channels & 0x01 ) {
        outline0("CALL SIDZSTART0");
    }
    if ( _channels & 0x02 ) {
        outline0("CALL SIDZSTART1");
    }
    if ( _channels & 0x04 ) {
        outline0("CALL SIDZSTART2");
    }
 
}
 
void sidz_set_volume( Environment * _environment, int _channels, int _volume ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    outline1("LD C, #%2.2x", ( _volume & 0x0f ) );
    outline0("CALL SIDZSTARTVOL");
 
}
 
#define WAVEFORM_TRIANGLE       0x10
#define WAVEFORM_SAW            0x20
#define WAVEFORM_RECTANGLE      0x40
#define WAVEFORM_NOISE          0x80
 
#define     PROGRAM_FREQUENCY( c, f ) \
    outline1("LD C, $%2.2x", ( ( ( f * 0xffff ) / 4000 ) & 0xff ) ); \
    outline1("LD B, $%2.2x", ( ( ( ( f * 0xffff ) / 4000 ) >> 8 ) & 0xff ) ); \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZPROGFREQ0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZPROGFREQ1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZPROGFREQ2" );
 
#define     PROGRAM_FREQUENCY_V( c, f ) \
    outline1("LD A, (%s)", f ); \
    outline0("LD C, A" ); \
    outline1("LD A, (%s)", address_displacement(_environment, f, "1") ); \
    outline0("LD B, A" ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZFREQ" );
 
#define     PROGRAM_FREQUENCY_SV( c, f ) \
    outline1("LD C, $%2.2x", ( ( ( f * 0xffff ) / 4000 ) & 0xff ) ); \
    outline1("LD B, $%2.2x", ( ( ( ( f * 0xffff ) / 4000 ) >> 8 ) & 0xff ) ); \
    outline1("LD A, (%s)", ( c == NULL ? "$7" : c ) ); \
    outline0("CALL SIDZFREQ2" );
 
#define     PROGRAM_PITCH( c, f ) \
    outline1("LD BC, $%4.4x", ( f & 0xffff ) ); \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZPROGFREQ0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZPROGFREQ1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZPROGFREQ2" );
 
#define     PROGRAM_PITCH_V( c, f ) \
    outline1("LD HL, (%s)", f ); \
    outline0("LD BC, HL" ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGFREQ" );
 
#define     PROGRAM_PITCH_SV( c, f ) \
    outline1("LD BC, $%4.4x", ( f & 0xffff ) ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGFREQ" );
 
#define     PROGRAM_PULSE( c, p ) \
    outline1("LD C, $%2.2x", ( p & 0xff ) ); \
    outline1("LD B, $%2.2x", ( ( p >> 8 ) & 0xff ) ); \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZPROGPULSE0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZPROGPULSE1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZPROGPULSE2" );
 
#define     PROGRAM_PULSE_V( c, p ) \
    outline1("LD A, (%s)", address_displacement(_environment, p, "1") ); \
    outline0("LD B, A" ); \
    outline1("LD A, (%s)", p ); \
    outline0("LD C, A" ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGPULSE" );
 
#define     PROGRAM_PULSE_SV( c, p ) \
    outline1("LD C, $%2.2x", ( p & 0xff ) ); \
    outline1("LD B, $%2.2x", ( ( p >> 8 ) & 0xff ) ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGPULSE" );
 
#define     PROGRAM_WAVEFORM( c, w ) \
    outline1("LD C, $%2.2x", w ); \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZPROGCTR0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZPROGCTR1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZPROGCTR2" );
 
#define     PROGRAM_WAVEFORM_V( c, w, p ) \
    outline1("LD C, $%2.2x", w ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGCTR" );
 
#define     PROGRAM_WAVEFORM_VV( c, w, p ) \
    outline1("LD A, (%s)", w ); \
    outline0("LD C, A" ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGCTR" );
 
#define     PROGRAM_WAVEFORM_SV( c, w ) \
    outline1("LD C, $%2.2x", w ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGCTR" );
 
#define     PROGRAM_ATTACK_DECAY( c, a, d ) \
    outline1("LD C, $%2.2x", ( a & 0x0f ) ); \
    outline1("LD B, $%2.2x", ( d & 0x0f ) ); \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZPROGAD0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZPROGAD1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZPROGAD2" );
 
#define     PROGRAM_ATTACK_DECAY_V( c, a, d ) \
    outline1("LD A, (%s)", d ); \
    outline0("LD B, A" ); \
    outline1("LD A, (%s)", a ); \
    outline0("LD C, A" ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGAD" );
 
#define     PROGRAM_ATTACK_DECAY_SV( c, a, d ) \
    outline1("LD C, $%2.2x", ( a & 0x0f ) ); \
    outline1("LD B, $%2.2x", ( d & 0x0f ) ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGAD" );
 
#define     PROGRAM_SUSTAIN_RELEASE( c, s, r ) \
    outline1("LD C, $%2.2x", ( s & 0x0f ) ); \
    outline1("LD B, $%2.2x", ( r & 0x0f ) ); \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZPROGSR0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZPROGSR1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZPROGSR2" );
 
#define     PROGRAM_SUSTAIN_RELEASE_V( c, s, r ) \
    outline1("LD A, (%s)", r ); \
    outline0("LD B, A" ); \
    outline1("LD A, (%s)", s ); \
    outline0("LD C, A" ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGSR" );
 
#define     PROGRAM_SUSTAIN_RELEASE_SV( c, s, r ) \
    outline1("LD C, $%2.2x", ( s & 0x0f ) ); \
    outline1("LD B, $%2.2x", ( r & 0x0f ) ); \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZPROGSR" );
 
#define     STOP_FREQUENCY( c ) \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZSTOP0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZSTOP1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZSTOP2" );
 
#define     STOP_FREQUENCY_V( c ) \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZSTOP" );
 
#define     STOP_FREQUENCY_SV( c ) \
    if ( c == NULL ) { \
        outline0("LD A, $7"); \
    } else { \
        outline1("LD A, (%s)", c ); \
    } \
    outline0("CALL SIDZSTOP" );
 
#define     PROGRAM_DURATION( c, d ) \
    outline1("LD C, $%2.2x", ( d & 0xff ) ); \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZSETDURATION0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZSETDURATION1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZSETDURATION2" ); \
 
#define     WAIT_DURATION( c ) \
    if ( ( c & 0x01 ) ) \
        outline0("CALL SIDZWAITDURATION0" ); \
    if ( ( c & 0x02 ) ) \
        outline0("CALL SIDZWAITDURATION1" ); \
    if ( ( c & 0x04 ) ) \
        outline0("CALL SIDZWAITDURATION2" ); \
 
void sidz_attack_decay_sustain_release( Environment * _environment, char * _voice, char * _attack, char * _decay, char * _sustain, char * _release ) {
 
    PROGRAM_ATTACK_DECAY_V( _voice, _attack, _decay );
    PROGRAM_SUSTAIN_RELEASE_V( _voice, _sustain, _release );
 
}
 
void sidz_wave( Environment * _environment, char * _voice, char * _bits, char * _pulse ) {
 
    PROGRAM_WAVEFORM_VV( _voice, _bits, NULL );
 
    if ( _pulse ) {
        PROGRAM_PULSE_V( _voice, _pulse );
    }
 
}
 
void sidz_set_program( Environment * _environment, int _channels, int _program ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    switch (_program) {
        case IMF_INSTRUMENT_EXPLOSION:
            PROGRAM_WAVEFORM(_channels, WAVEFORM_NOISE);
            PROGRAM_ATTACK_DECAY(_channels, 2, 11);
            PROGRAM_SUSTAIN_RELEASE(_channels, 0, 1);
            break;
        case IMF_INSTRUMENT_GUNSHOT:
            PROGRAM_WAVEFORM(_channels, WAVEFORM_NOISE);
            PROGRAM_ATTACK_DECAY(_channels, 2, 4);
            PROGRAM_SUSTAIN_RELEASE(_channels, 0, 1);
            break;
        case IMF_INSTRUMENT_PAD_5_BOWED:
        case IMF_INSTRUMENT_PAD_6_METALLIC:
        case IMF_INSTRUMENT_PAD_7_HALO:
        case IMF_INSTRUMENT_PAD_8_SWEEP:
        case IMF_INSTRUMENT_ACOUSTIC_GRAND_PIANO:
        case IMF_INSTRUMENT_BRIGHT_ACOUSTIC_PIANO:
        case IMF_INSTRUMENT_ELECTRIC_GRAND_PIANO:
        case IMF_INSTRUMENT_HONKY_TONK_PIANO:
        case IMF_INSTRUMENT_ELECTRIC_PIANO1:
        case IMF_INSTRUMENT_ELECTRIC_PIANO2:
        case IMF_INSTRUMENT_HARPSICHORD:
        case IMF_INSTRUMENT_CLAVI:
        case IMF_INSTRUMENT_CELESTA:
            PROGRAM_PULSE(_channels, 0x600);
            PROGRAM_ATTACK_DECAY(_channels, 2, 11);
            PROGRAM_SUSTAIN_RELEASE(_channels, 5, 0);
            break;
 
        case IMF_INSTRUMENT_LEAD_3_CALLIOPE:
        case IMF_INSTRUMENT_GLOCKENSPIEL:
        case IMF_INSTRUMENT_MUSIC_BOX:
        case IMF_INSTRUMENT_VIBRAPHONE:
        case IMF_INSTRUMENT_MARIMBA:
        case IMF_INSTRUMENT_XYLOPHONE:
        case IMF_INSTRUMENT_TUBULAR_BELLS:
        case IMF_INSTRUMENT_DULCIMER:
            PROGRAM_PULSE(_channels, 1024);
            PROGRAM_ATTACK_DECAY(_channels, 0, 9);
            PROGRAM_SUSTAIN_RELEASE(_channels, 0, 0);
            break;
 
        default:
        case IMF_INSTRUMENT_PAD_3_POLYSYNTH:
        case IMF_INSTRUMENT_DRAWBAR_ORGAN:
        case IMF_INSTRUMENT_PERCUSSIVE_ORGAN:
        case IMF_INSTRUMENT_ROCK_ORGAN:
        case IMF_INSTRUMENT_CHURCH_ORGAN:
        case IMF_INSTRUMENT_REED_ORGAN:
        case IMF_INSTRUMENT_ACCORDION:
        case IMF_INSTRUMENT_HARMONICA:
        case IMF_INSTRUMENT_TANGO_ACCORDION:
            PROGRAM_PULSE(_channels, 0x800);
            PROGRAM_ATTACK_DECAY(_channels, 0, 9);
            PROGRAM_SUSTAIN_RELEASE(_channels, 9, 0);
            break;
 
        case IMF_INSTRUMENT_ACOUSTIC_GUITAR_NYLON:
        case IMF_INSTRUMENT_ACOUSTIC_GUITAR_STEEL:
        case IMF_INSTRUMENT_ELECTRIC_GUITAR_JAZZ:
        case IMF_INSTRUMENT_ELECTRIC_GUITAR_CLEAN:
        case IMF_INSTRUMENT_OVERDRIVEN_GUITAR:
        case IMF_INSTRUMENT_DISTORTION_GUITAR:
        case IMF_INSTRUMENT_GUITAR_HARMONICS:
        case IMF_INSTRUMENT_ELECTRIC_GUITAR_MUTED:
        case IMF_INSTRUMENT_LEAD_8_BASS_LEAD:
        case IMF_INSTRUMENT_ACOUSTIC_BASS:
        case IMF_INSTRUMENT_ELECTRIC_BASS_FINGER:
        case IMF_INSTRUMENT_ELECTRIC_BASS_PICK:
        case IMF_INSTRUMENT_FRETLESS_BASS:
        case IMF_INSTRUMENT_SLAP_BASS_1:
        case IMF_INSTRUMENT_SLAP_BASS_2:
        case IMF_INSTRUMENT_SYNTH_BASS_1:
        case IMF_INSTRUMENT_SYNTH_BASS_2:        
            PROGRAM_WAVEFORM(_channels, WAVEFORM_SAW);
            PROGRAM_ATTACK_DECAY(_channels, 0, 9);
            PROGRAM_SUSTAIN_RELEASE(_channels, 2, 1);
            break;
 
        case IMF_INSTRUMENT_LEAD_1_SQUARE:
        case IMF_INSTRUMENT_VIOLIN:
        case IMF_INSTRUMENT_VIOLA:
        case IMF_INSTRUMENT_CELLO:
        case IMF_INSTRUMENT_CONTRABASS:
        case IMF_INSTRUMENT_TREMOLO_STRINGS:
        case IMF_INSTRUMENT_PIZZICATO_STRINGS:
        case IMF_INSTRUMENT_ORCHESTRAL_HARP:
        case IMF_INSTRUMENT_STRING_ENSEMBLE_1:
        case IMF_INSTRUMENT_STRING_ENSEMBLE_2:
        case IMF_INSTRUMENT_SYNTHSTRINGS_1:
        case IMF_INSTRUMENT_SYNTHSTRINGS_2:
            PROGRAM_WAVEFORM(_channels, WAVEFORM_TRIANGLE | WAVEFORM_RECTANGLE );
            PROGRAM_PULSE(_channels, 128);
            PROGRAM_ATTACK_DECAY(_channels, 10, 8);
            PROGRAM_SUSTAIN_RELEASE(_channels, 10, 9);
            break;
 
        case IMF_INSTRUMENT_PAD_4_CHOIR:
        case IMF_INSTRUMENT_CHOIR_AAHS:
        case IMF_INSTRUMENT_VOICE_OOHS:
        case IMF_INSTRUMENT_SYNTH_VOICE:
        case IMF_INSTRUMENT_LEAD_4_CHIFF:
        case IMF_INSTRUMENT_LEAD_5_CHARANG:
        case IMF_INSTRUMENT_LEAD_6_VOICE:
        case IMF_INSTRUMENT_LEAD_7_FIFTHS:
        case IMF_INSTRUMENT_FX_1_RAIN:
        case IMF_INSTRUMENT_FX_2_SOUNDTRACK:
        case IMF_INSTRUMENT_FX_3_CRYSTAL:
        case IMF_INSTRUMENT_FX_4_ATMOSPHERE:
        case IMF_INSTRUMENT_FX_5_BRIGHTNESS:
        case IMF_INSTRUMENT_FX_6_GOBLINS:
        case IMF_INSTRUMENT_FX_7_ECHOES:
        case IMF_INSTRUMENT_FX_8_SCI_FI:
        case IMF_INSTRUMENT_TIMPANI:
        case IMF_INSTRUMENT_ORCHESTRA_HIT:
        case IMF_INSTRUMENT_APPLAUSE:
            PROGRAM_WAVEFORM(_channels, WAVEFORM_NOISE);
            PROGRAM_ATTACK_DECAY(_channels, 3, 8);
            PROGRAM_SUSTAIN_RELEASE(_channels, 3, 8);
            break;
 
        case IMF_INSTRUMENT_LEAD_2_SAWTOOTH:
        case IMF_INSTRUMENT_PAD_1_NEW_AGE:
        case IMF_INSTRUMENT_PAD_2_WARM:
        case IMF_INSTRUMENT_TRUMPET:
        case IMF_INSTRUMENT_TROMBONE:
        case IMF_INSTRUMENT_TUBA:
        case IMF_INSTRUMENT_MUTED_TRUMPET:
        case IMF_INSTRUMENT_FRENCH_HORN:
        case IMF_INSTRUMENT_BRASS_SECTION:
        case IMF_INSTRUMENT_SYNTHBRASS_1:
        case IMF_INSTRUMENT_SYNTHBRASS_2:
        case IMF_INSTRUMENT_SOPRANO_SAX:
        case IMF_INSTRUMENT_ALTO_SAX:
        case IMF_INSTRUMENT_TENOR_SAX:
        case IMF_INSTRUMENT_BARITONE_SAX:
        case IMF_INSTRUMENT_OBOE:
        case IMF_INSTRUMENT_ENGLISH_HORN:
        case IMF_INSTRUMENT_BASSOON:
        case IMF_INSTRUMENT_CLARINET:
        case IMF_INSTRUMENT_PICCOLO:
        case IMF_INSTRUMENT_FLUTE:
        case IMF_INSTRUMENT_RECORDER:
        case IMF_INSTRUMENT_PAN_FLUTE:
        case IMF_INSTRUMENT_BLOWN_BOTTLE:
        case IMF_INSTRUMENT_SHAKUHACHI:
        case IMF_INSTRUMENT_WHISTLE:
        case IMF_INSTRUMENT_OCARINA:
            PROGRAM_WAVEFORM(_channels, WAVEFORM_SAW);
            PROGRAM_ATTACK_DECAY(_channels, 8, 9);
            PROGRAM_SUSTAIN_RELEASE(_channels, 4, 1);
            break;
 
        case IMF_INSTRUMENT_SITAR:
        case IMF_INSTRUMENT_BANJO:
        case IMF_INSTRUMENT_SHAMISEN:
        case IMF_INSTRUMENT_KOTO:
        case IMF_INSTRUMENT_KALIMBA:
        case IMF_INSTRUMENT_BAG_PIPE:
        case IMF_INSTRUMENT_FIDDLE:
        case IMF_INSTRUMENT_SHANAI:
        case IMF_INSTRUMENT_TINKLE_BELL:
        case IMF_INSTRUMENT_AGOGO:
        case IMF_INSTRUMENT_STEEL_DRUMS:
        case IMF_INSTRUMENT_WOODBLOCK:
        case IMF_INSTRUMENT_TAIKO_DRUM:
        case IMF_INSTRUMENT_MELODIC_TOM:
        case IMF_INSTRUMENT_SYNTH_DRUM:
        case IMF_INSTRUMENT_REVERSE_CYMBAL:
        case IMF_INSTRUMENT_GUITAR_FRET_NOISE:
        case IMF_INSTRUMENT_BREATH_NOISE:
        case IMF_INSTRUMENT_SEASHORE:
        case IMF_INSTRUMENT_BIRD_TWEET:
        case IMF_INSTRUMENT_TELEPHONE_RING:
        case IMF_INSTRUMENT_HELICOPTER:
            PROGRAM_WAVEFORM(_channels, WAVEFORM_SAW | WAVEFORM_TRIANGLE);
            PROGRAM_ATTACK_DECAY(_channels, 3, 3);
            PROGRAM_SUSTAIN_RELEASE(_channels, 14, 14);
            break;
    }
 
}
 
void sidz_set_parameter( Environment * _environment, int _channels, int _parameter, int _value ) {
 
}
 
void sidz_set_frequency( Environment * _environment, int _channels, int _frequency ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    PROGRAM_FREQUENCY( _channels, _frequency );
 
}
 
void sidz_set_pitch( Environment * _environment, int _channels, int _pitch ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    PROGRAM_PITCH( _channels, _pitch );
 
}
 
void sidz_set_note( Environment * _environment, int _channels, int _note ) {
 
    sidz_set_pitch( _environment, _channels, SOUND_FREQUENCIES[_note] );
 
}
 
void sidz_stop( Environment * _environment, int _channels ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    STOP_FREQUENCY( _channels );
 
}
 
void sidz_start_var( Environment * _environment, char * _channels ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    if ( _channels ) {
        outline1("LD A, (%s)", _channels );
    } else {
        outline0("LD A, $7" );
    }
    outline0("CALL SIDZSTART");
 
}
 
void sidz_set_volume_vars( Environment * _environment, char * _channels, char * _volume ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    outline1("LD A, (%s)", _volume );
    outline0("SRL A" );
    outline0("SRL A" );
    outline0("SRL A" );
    outline0("SRL A" );
    outline0("LD B, A" );
    outline0("CALL SIDZSTARTVOL");
 
}
 
void sidz_set_volume_semi_var( Environment * _environment, char * _channel, int _volume ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    outline1("LD C, $%2.2x", _volume );
    outline0("CALL SIDZSTARTVOL");
 
}
 
void sidz_set_program_semi_var( Environment * _environment, char * _channels, int _program ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    switch (_program) {
        case IMF_INSTRUMENT_EXPLOSION:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_NOISE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 2, 11);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 0, 1);
            break;
        case IMF_INSTRUMENT_GUNSHOT:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_NOISE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 2, 4);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 0, 1);
            break;
        case IMF_INSTRUMENT_PAD_5_BOWED:
        case IMF_INSTRUMENT_PAD_6_METALLIC:
        case IMF_INSTRUMENT_PAD_7_HALO:
        case IMF_INSTRUMENT_PAD_8_SWEEP:
        case IMF_INSTRUMENT_ACOUSTIC_GRAND_PIANO:
        case IMF_INSTRUMENT_BRIGHT_ACOUSTIC_PIANO:
        case IMF_INSTRUMENT_ELECTRIC_GRAND_PIANO:
        case IMF_INSTRUMENT_HONKY_TONK_PIANO:
        case IMF_INSTRUMENT_ELECTRIC_PIANO1:
        case IMF_INSTRUMENT_ELECTRIC_PIANO2:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_TRIANGLE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 4, 2);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 14, 10);
            break;
 
        case IMF_INSTRUMENT_HARPSICHORD:
        case IMF_INSTRUMENT_CLAVI:
        case IMF_INSTRUMENT_CELESTA:
            PROGRAM_PULSE_SV(_channels, 1024);
            PROGRAM_ATTACK_DECAY_SV(_channels, 3, 3);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 14, 3);
            break;
 
        case IMF_INSTRUMENT_LEAD_3_CALLIOPE:
        case IMF_INSTRUMENT_GLOCKENSPIEL:
        case IMF_INSTRUMENT_MUSIC_BOX:
        case IMF_INSTRUMENT_VIBRAPHONE:
        case IMF_INSTRUMENT_MARIMBA:
        case IMF_INSTRUMENT_XYLOPHONE:
        case IMF_INSTRUMENT_TUBULAR_BELLS:
        case IMF_INSTRUMENT_DULCIMER:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_TRIANGLE | WAVEFORM_RECTANGLE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 0, 6);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 5, 0);
            break;
 
        default:
        case IMF_INSTRUMENT_PAD_3_POLYSYNTH:
        case IMF_INSTRUMENT_DRAWBAR_ORGAN:
        case IMF_INSTRUMENT_PERCUSSIVE_ORGAN:
        case IMF_INSTRUMENT_ROCK_ORGAN:
        case IMF_INSTRUMENT_CHURCH_ORGAN:
        case IMF_INSTRUMENT_REED_ORGAN:
        case IMF_INSTRUMENT_ACCORDION:
        case IMF_INSTRUMENT_HARMONICA:
        case IMF_INSTRUMENT_TANGO_ACCORDION:
        case IMF_INSTRUMENT_ORCHESTRA_HIT:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_TRIANGLE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 3, 3);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 14, 14);
            break;
 
        case IMF_INSTRUMENT_ACOUSTIC_GUITAR_NYLON:
        case IMF_INSTRUMENT_ACOUSTIC_GUITAR_STEEL:
        case IMF_INSTRUMENT_ELECTRIC_GUITAR_JAZZ:
        case IMF_INSTRUMENT_ELECTRIC_GUITAR_CLEAN:
        case IMF_INSTRUMENT_OVERDRIVEN_GUITAR:
        case IMF_INSTRUMENT_DISTORTION_GUITAR:
        case IMF_INSTRUMENT_GUITAR_HARMONICS:
            PROGRAM_PULSE_SV(_channels, 128);
            PROGRAM_ATTACK_DECAY_SV(_channels, 10, 10);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 14, 10);
            break;
 
        case IMF_INSTRUMENT_ELECTRIC_GUITAR_MUTED:
            PROGRAM_PULSE_SV(_channels, 128);
            PROGRAM_ATTACK_DECAY_SV(_channels, 1, 2);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 4, 3);
            break;
 
        case IMF_INSTRUMENT_LEAD_8_BASS_LEAD:
        case IMF_INSTRUMENT_ACOUSTIC_BASS:
        case IMF_INSTRUMENT_ELECTRIC_BASS_FINGER:
        case IMF_INSTRUMENT_ELECTRIC_BASS_PICK:
        case IMF_INSTRUMENT_FRETLESS_BASS:
        case IMF_INSTRUMENT_SLAP_BASS_1:
        case IMF_INSTRUMENT_SLAP_BASS_2:
        case IMF_INSTRUMENT_SYNTH_BASS_1:
        case IMF_INSTRUMENT_SYNTH_BASS_2:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_TRIANGLE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 2, 10);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 12, 14);
            break;
 
        case IMF_INSTRUMENT_LEAD_1_SQUARE:
        case IMF_INSTRUMENT_VIOLIN:
        case IMF_INSTRUMENT_VIOLA:
        case IMF_INSTRUMENT_CELLO:
        case IMF_INSTRUMENT_CONTRABASS:
        case IMF_INSTRUMENT_TREMOLO_STRINGS:
        case IMF_INSTRUMENT_PIZZICATO_STRINGS:
        case IMF_INSTRUMENT_ORCHESTRAL_HARP:
        case IMF_INSTRUMENT_STRING_ENSEMBLE_1:
        case IMF_INSTRUMENT_STRING_ENSEMBLE_2:
        case IMF_INSTRUMENT_SYNTHSTRINGS_1:
        case IMF_INSTRUMENT_SYNTHSTRINGS_2:
            PROGRAM_PULSE_SV(_channels, 128);
            PROGRAM_ATTACK_DECAY_SV(_channels, 10, 10);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 14, 10);
            break;
 
        case IMF_INSTRUMENT_PAD_4_CHOIR:
        case IMF_INSTRUMENT_CHOIR_AAHS:
        case IMF_INSTRUMENT_VOICE_OOHS:
        case IMF_INSTRUMENT_SYNTH_VOICE:
        case IMF_INSTRUMENT_LEAD_4_CHIFF:
        case IMF_INSTRUMENT_LEAD_5_CHARANG:
        case IMF_INSTRUMENT_LEAD_6_VOICE:
        case IMF_INSTRUMENT_LEAD_7_FIFTHS:
        case IMF_INSTRUMENT_FX_1_RAIN:
        case IMF_INSTRUMENT_FX_2_SOUNDTRACK:
        case IMF_INSTRUMENT_FX_3_CRYSTAL:
        case IMF_INSTRUMENT_FX_4_ATMOSPHERE:
        case IMF_INSTRUMENT_FX_5_BRIGHTNESS:
        case IMF_INSTRUMENT_FX_6_GOBLINS:
        case IMF_INSTRUMENT_FX_7_ECHOES:
        case IMF_INSTRUMENT_FX_8_SCI_FI:
        case IMF_INSTRUMENT_TIMPANI:
        case IMF_INSTRUMENT_APPLAUSE:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_NOISE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 1, 14);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 14, 14);
            break;
 
        case IMF_INSTRUMENT_LEAD_2_SAWTOOTH:
        case IMF_INSTRUMENT_PAD_1_NEW_AGE:
        case IMF_INSTRUMENT_PAD_2_WARM:
        case IMF_INSTRUMENT_TRUMPET:
        case IMF_INSTRUMENT_TROMBONE:
        case IMF_INSTRUMENT_TUBA:
        case IMF_INSTRUMENT_MUTED_TRUMPET:
        case IMF_INSTRUMENT_FRENCH_HORN:
        case IMF_INSTRUMENT_BRASS_SECTION:
        case IMF_INSTRUMENT_SYNTHBRASS_1:
        case IMF_INSTRUMENT_SYNTHBRASS_2:
        case IMF_INSTRUMENT_SOPRANO_SAX:
        case IMF_INSTRUMENT_ALTO_SAX:
        case IMF_INSTRUMENT_TENOR_SAX:
        case IMF_INSTRUMENT_BARITONE_SAX:
        case IMF_INSTRUMENT_OBOE:
        case IMF_INSTRUMENT_ENGLISH_HORN:
        case IMF_INSTRUMENT_BASSOON:
        case IMF_INSTRUMENT_CLARINET:
        case IMF_INSTRUMENT_PICCOLO:
        case IMF_INSTRUMENT_FLUTE:
        case IMF_INSTRUMENT_RECORDER:
        case IMF_INSTRUMENT_PAN_FLUTE:
        case IMF_INSTRUMENT_BLOWN_BOTTLE:
        case IMF_INSTRUMENT_SHAKUHACHI:
        case IMF_INSTRUMENT_WHISTLE:
        case IMF_INSTRUMENT_OCARINA:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_RECTANGLE);
            PROGRAM_ATTACK_DECAY_SV(_channels, 6, 0);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 8, 0);
            break;
 
        case IMF_INSTRUMENT_SITAR:
        case IMF_INSTRUMENT_BANJO:
        case IMF_INSTRUMENT_SHAMISEN:
        case IMF_INSTRUMENT_KOTO:
        case IMF_INSTRUMENT_KALIMBA:
        case IMF_INSTRUMENT_BAG_PIPE:
        case IMF_INSTRUMENT_FIDDLE:
        case IMF_INSTRUMENT_SHANAI:
        case IMF_INSTRUMENT_TINKLE_BELL:
        case IMF_INSTRUMENT_AGOGO:
        case IMF_INSTRUMENT_STEEL_DRUMS:
        case IMF_INSTRUMENT_WOODBLOCK:
        case IMF_INSTRUMENT_TAIKO_DRUM:
        case IMF_INSTRUMENT_MELODIC_TOM:
        case IMF_INSTRUMENT_SYNTH_DRUM:
        case IMF_INSTRUMENT_REVERSE_CYMBAL:
        case IMF_INSTRUMENT_GUITAR_FRET_NOISE:
        case IMF_INSTRUMENT_BREATH_NOISE:
        case IMF_INSTRUMENT_SEASHORE:
        case IMF_INSTRUMENT_BIRD_TWEET:
        case IMF_INSTRUMENT_TELEPHONE_RING:
        case IMF_INSTRUMENT_HELICOPTER:
            PROGRAM_WAVEFORM_SV(_channels, WAVEFORM_SAW);
            PROGRAM_ATTACK_DECAY_SV(_channels, 0, 9);
            PROGRAM_SUSTAIN_RELEASE_SV(_channels, 2, 1);
            break;
    }
 
}
 
void sidz_set_frequency_vars( Environment * _environment, char * _channels, char * _frequency ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    outline1("LD A, (%s)", address_displacement(_environment, _frequency, "1") ); \
    outline0("LD B, A" ); \
    outline1("LD A, (%s)", _frequency );
    outline0("LD C, A" ); \
    if ( _channels ) {
        outline1("LD A, (%s)", _channels );
    } else {
        outline0("LD A, $7" );
    }
 
    outline0("CALL SIDZFREQ");
 
}
 
void sidz_set_pitch_vars( Environment * _environment, char * _channels, char * _pitch ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    outline1("LD HL, (%s)", _pitch ); \
    outline0("LD BC, HL" ); \
    if ( _channels ) {
        outline1("LD A, (%s)", _channels );
    } else {
        outline0("LD A, $7" );
    }
 
    outline0("CALL SIDZPROGFREQ");
 
}
 
void sidz_set_note_vars( Environment * _environment, char * _channels, char * _note ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    outline1("LD A, (%s)", _note ); \
    outline0("LD B, A" ); \
    outline0("LD HL, SIDZFREQTABLE");
    outline0("LD A, C");
    outline0("SLA A");
    outline0("LD D, A");
    outline0("LD E, 0");
    outline0("ADD HL, DE");
    outline0("LD A, (HL)");
    outline0("LD C, A");
    outline0("INC HL");
    outline0("LD A, (HL)");
    outline0("LD B, A");
 
    if ( _channels ) {
        outline1("LD A, (%s)", _channels );
    } else {
        outline0("LD A, $7" );
    }
 
    outline0("CALL SIDZPROGFREQ");
 
}
 
void sidz_stop_vars( Environment * _environment, char * _channels ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    if ( _channels ) {
        outline1("LD A, (%s)", _channels );
    } else {
        outline0("LD A, $7" );
    }
    outline0("CALL SIDZSTOP");
 
}
 
void sidz_music( Environment * _environment, char * _music, int _size, int _loop ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
    deploy( music, src_hw_sidz_music_asm );
 
    outline0("DI");
    outline1("LD HL, %s", _music);
    outline0("LD (SIDZTMPPTR_BACKUP), HL");
    outline1("LD A, $%2.2x", ( _size>>8 ) & 0xff);
    outline0("LD (SIDZBLOCKS_BACKUP), A");
    outline1("LD A, $%2.2x", _size & 0xff );
    outline0("LA (SIDZLASTBLOCK_BACKUP), A");
    outline1("LD A, $%2.2x", _loop);
    outline0("LD (SIDZMUSICLOOP), A");
    outline0("CALL MUSICPLAYERRESET");
    outline0("EI");
 
}
 
void sidz_set_duration( Environment * _environment, int _channels, int _duration ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
    
    PROGRAM_DURATION( _channels, _duration );
 
}
 
void sidz_wait_duration( Environment * _environment, int _channels ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    WAIT_DURATION( _channels );
 
}
 
void sidz_set_duration_vars( Environment * _environment, char * _channels, char * _duration ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
 
    if ( _duration ) {
        outline1("LD A, (%s)", _duration );
        outline0("LD C, A" );
    } else {
        outline0("LD C, 50" );
    }
    if ( _channels ) {
        outline1("LD A, (%s)", _channels );
    } else {
        outline0("LD A, $f" );
    }
    
    outline0("CALL SIDZSETDURATION");
 
}
 
void sidz_wait_duration_vars( Environment * _environment, char * _channels ) {
 
    deploy( sidvars, src_hw_sidz_vars_asm );
    deploy( sidstartup, src_hw_sidz_startup_asm );
    
    if ( _channels ) {
        outline1("LD A, (%s)", _channels );
    } else {
        outline0("LD A, $f" );
    }
 
    outline0("CALL SIDZWAITDURATION");
 
}
 
void sidz_player_init( Environment * _environment, int _init_address ) {
 
    // deploy( sidplayer, src_hw_sidz_player_asm );
 
    // outline0( "DI" );
    // outline1( "CALL $%4.4x", (unsigned int)(_init_address&0xffff) );
    // outline0( "EI" );
 
}
 
void sidz_player_play( Environment * _environment, int _play_address ) {
 
    // deploy( sidplayer, src_hw_sidz_player_asm );
 
    // outline0( "DI" );
    // outline1( "LD HL, $%4.4x", (unsigned short)(_play_address&0xffff) );
    // outline0( "LD (SIDZPLAYERADDR), HL" );
    // outline0( "DI" );
 
}
 
#endif