libsam-rs 0.2.0

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "debug.h"
#include "sam.h"
#include "render.h"
#include "SamTabs.h"

char input[256]; //tab39445
//standard sam sound
unsigned char speed = 72;
unsigned char pitch = 64;
unsigned char mouth = 128;
unsigned char throat = 128;
int singmode = 0;

extern int sam_debug;

unsigned char mem39;
unsigned char mem44;
unsigned char mem47;
unsigned char mem49;
unsigned char mem50;
unsigned char mem51;
unsigned char mem53;
unsigned char mem56;

unsigned char mem59=0;

unsigned char B, R, S;

unsigned char stress[256]; //numbers from 0 to 8
unsigned char phonemeLength[256]; //tab40160
unsigned char phonemeindex[256];

unsigned char phonemeIndexOutput[60]; //tab47296
unsigned char stressOutput[60]; //tab47365
unsigned char phonemeLengthOutput[60]; //tab47416




// contains the final soundbuffer
int bufferpos=0;
char *buffer = NULL;


void SetInput(char *_input)
{
    int i, l;
    l = strlen(_input);
    if (l > 254) l = 254;
    for(i=0; i<l; i++)
        input[i] = _input[i];
    input[l] = 0;
}

void SetSpeed(unsigned char _speed) {speed = _speed;}
void SetPitch(unsigned char _pitch) {pitch = _pitch;}
void SetMouth(unsigned char _mouth) {mouth = _mouth;}
void SetThroat(unsigned char _throat) {throat = _throat;}
void EnableSingmode() {singmode = 1;}
char* GetBuffer(){return buffer;}
int GetBufferLength(){return bufferpos;}

void Init();
int Parser1();
void Parser2();
int SAMMain();
void CopyStress();
void SetPhonemeLength();
void AdjustLengths();
void Code41240();
void Insert(unsigned char position, unsigned char mem60, unsigned char mem59, unsigned char mem58);
void InsertBreath();
void PrepareOutput();
void SetMouthThroat(unsigned char mouth, unsigned char throat);

// 168=pitches
// 169=frequency1
// 170=frequency2
// 171=frequency3
// 172=amplitude1
// 173=amplitude2
// 174=amplitude3


void Init()
{
    int i;
    SetMouthThroat( mouth, throat);

    bufferpos = 0;
    // TODO, check for free the memory, 10 seconds of output should be more than enough
    buffer = malloc(22050*10);

    /*
    freq2data = &mem[45136];
    freq1data = &mem[45056];
    freq3data = &mem[45216];
    */
    //pitches = &mem[43008];
    /*
    frequency1 = &mem[43264];
    frequency2 = &mem[43520];
    frequency3 = &mem[43776];
    */
    /*
    amplitude1 = &mem[44032];
    amplitude2 = &mem[44288];
    amplitude3 = &mem[44544];
    */
    //phoneme = &mem[39904];
    /*
    ampl1data = &mem[45296];
    ampl2data = &mem[45376];
    ampl3data = &mem[45456];
    */

    for(i=0; i<256; i++)
    {
        stress[i] = 0;
        phonemeLength[i] = 0;
    }

    for(i=0; i<60; i++)
    {
        phonemeIndexOutput[i] = 0;
        stressOutput[i] = 0;
        phonemeLengthOutput[i] = 0;
    }
    phonemeindex[255] = 255; //to prevent buffer overflow // ML : changed from 32 to 255 to stop freezing with long inputs

}


//int Code39771()
int SAMMain()
{
    Init();
    phonemeindex[255] = 32; //to prevent buffer overflow

    if (!Parser1()) return 0;
    if (sam_debug)
        PrintPhonemes(phonemeindex, phonemeLength, stress);
    Parser2();
    CopyStress();
    SetPhonemeLength();
    AdjustLengths();
    Code41240();
    do
    {
        B = phonemeindex[R];
        if (B > 80)
        {
            phonemeindex[R] = 255;
            break; // error: delete all behind it
        }
        R++;
    } while (R != 0);

    //pos39848:
    InsertBreath();

    //mem[40158] = 255;
    if (sam_debug)
    {
        PrintPhonemes(phonemeindex, phonemeLength, stress);
    }

    PrepareOutput();

    return 1;
}


//void Code48547()
void PrepareOutput()
{
    B = 0;
    R = 0;
    S = 0;

    //pos48551:
    while(1)
    {
        B = phonemeindex[R];
        if (B == 255)
        {
            B = 255;
            phonemeIndexOutput[S] = 255;
            Render();
            return;
        }
        if (B == 254)
        {
            R++;
            int temp = R;
            //mem[48546] = X;
            phonemeIndexOutput[S] = 255;
            Render();
            //X = mem[48546];
            R=temp;
            S = 0;
            continue;
        }

        if (B == 0)
        {
            R++;
            continue;
        }

        phonemeIndexOutput[S] = B;
        phonemeLengthOutput[S] = phonemeLength[R];
        stressOutput[S] = stress[R];
        R++;
        S++;
    }
}

//void Code48431()
void InsertBreath()
{
    unsigned char mem54;
    unsigned char mem55;
    unsigned char index; //variable Y
    mem54 = 255;
    R++;
    mem55 = 0;
    unsigned char mem66 = 0;
    while(1)
    {
        //pos48440:
        R = mem66;
        index = phonemeindex[R];
        if (index == 255) return;
        mem55 += phonemeLength[R];

        if (mem55 < 232)
        {
            if (index != 254) // ML : Prevents an index out of bounds problem
            {
                B = flags2[index]&1;
                if(B != 0)
                {
                    R++;
                    mem55 = 0;
                    Insert(R, 254, mem59, 0);
                    mem66++;
                    mem66++;
                    continue;
                }
            }
            if (index == 0) mem54 = R;
            mem66++;
            continue;
        }
        R = mem54;
        phonemeindex[R] = 31;   // 'Q*' glottal stop
        phonemeLength[R] = 4;
        stress[R] = 0;
        R++;
        mem55 = 0;
        Insert(R, 254, mem59, 0);
        R++;
        mem66 = R;
    }

}

// Iterates through the phoneme buffer, copying the stress value from
// the following phoneme under the following circumstance:

//     1. The current phoneme is voiced, excluding plosives and fricatives
//     2. The following phoneme is voiced, excluding plosives and fricatives, and
//     3. The following phoneme is stressed
//
//  In those cases, the stress value+1 from the following phoneme is copied.
//
// For example, the word LOITER is represented as LOY5TER, with as stress
// of 5 on the diphtong OY. This routine will copy the stress value of 6 (5+1)
// to the L that precedes it.


//void Code41883()
void CopyStress()
{
    // loop thought all the phonemes to be output
    unsigned char pos=0; //mem66
    while(1)
    {
        // get the phomene
        S = phonemeindex[pos];

        // exit at end of buffer
        if (S == 255) return;

        // if CONSONANT_FLAG set, skip - only vowels get stress
        if ((flags[S] & 64) == 0) {pos++; continue;}
        // get the next phoneme
        S = phonemeindex[pos+1];
        if (S == 255) //prevent buffer overflow
        {
            pos++; continue;
        } else
        // if the following phoneme is a vowel, skip
        if ((flags[S] & 128) == 0)  {pos++; continue;}

        // get the stress value at the next position
        S = stress[pos+1];

        // if next phoneme is not stressed, skip
        if (S == 0)  {pos++; continue;}

        // if next phoneme is not a VOWEL OR ER, skip
        if ((S & 128) != 0)  {pos++; continue;}

        // copy stress from prior phoneme to this one
        stress[pos] = S+1;

        // advance pointer
        pos++;
    }

}


//void Code41014()
void Insert(unsigned char position/*var57*/, unsigned char mem60, unsigned char mem59, unsigned char mem58)
{
    int i;
    for(i=253; i >= position; i--) // ML : always keep last safe-guarding 255
    {
        phonemeindex[i+1] = phonemeindex[i];
        phonemeLength[i+1] = phonemeLength[i];
        stress[i+1] = stress[i];
    }

    phonemeindex[position] = mem60;
    phonemeLength[position] = mem59;
    stress[position] = mem58;
    return;
}

// The input[] buffer contains a string of phonemes and stress markers along
// the lines of:
//
//     DHAX KAET IHZ AH5GLIY. <0x9B>
//
// The byte 0x9B marks the end of the buffer. Some phonemes are 2 bytes
// long, such as "DH" and "AX". Others are 1 byte long, such as "T" and "Z".
// There are also stress markers, such as "5" and ".".
//
// The first character of the phonemes are stored in the table signInputTable1[].
// The second character of the phonemes are stored in the table signInputTable2[].
// The stress characters are arranged in low to high stress order in stressInputTable[].
//
// The following process is used to parse the input[] buffer:
//
// Repeat until the <0x9B> character is reached:
//
//        First, a search is made for a 2 character match for phonemes that do not
//        end with the '*' (wildcard) character. On a match, the index of the phoneme
//        is added to phonemeIndex[] and the buffer position is advanced 2 bytes.
//
//        If this fails, a search is made for a 1 character match against all
//        phoneme names ending with a '*' (wildcard). If this succeeds, the
//        phoneme is added to phonemeIndex[] and the buffer position is advanced
//        1 byte.
//
//        If this fails, search for a 1 character match in the stressInputTable[].
//        If this succeeds, the stress value is placed in the last stress[] table
//        at the same index of the last added phoneme, and the buffer position is
//        advanced by 1 byte.
//
//        If this fails, return a 0.
//
// On success:
//
//    1. phonemeIndex[] will contain the index of all the phonemes.
//    2. The last index in phonemeIndex[] will be 255.
//    3. stress[] will contain the stress value for each phoneme

// input[] holds the string of phonemes, each two bytes wide
// signInputTable1[] holds the first character of each phoneme
// signInputTable2[] holds te second character of each phoneme
// phonemeIndex[] holds the indexes of the phonemes after parsing input[]
//
// The parser scans through the input[], finding the names of the phonemes
// by searching signInputTable1[] and signInputTable2[]. On a match, it
// copies the index of the phoneme into the phonemeIndexTable[].
//
// The character <0x9B> marks the end of text in input[]. When it is reached,
// the index 255 is placed at the end of the phonemeIndexTable[], and the
// function returns with a 1 indicating success.
int Parser1()
{
    int i;
    unsigned char sign1;
    unsigned char sign2;
    unsigned char position = 0;
    R = 0;
    B = 0;
    S = 0;

    // CLEAR THE STRESS TABLE
    for(i=0; i<256; i++)
        stress[i] = 0;

  // THIS CODE MATCHES THE PHONEME LETTERS TO THE TABLE
    // pos41078:
    while(1)
    {
        // GET THE FIRST CHARACTER FROM THE PHONEME BUFFER
        sign1 = input[R];
        // TEST FOR 155 (�) END OF LINE MARKER
        if (sign1 == 155)
        {
           // MARK ENDPOINT AND RETURN
            phonemeindex[position] = 255;      //mark endpoint
            // REACHED END OF PHONEMES, SO EXIT
            return 1;       //all ok
        }

        // GET THE NEXT CHARACTER FROM THE BUFFER
        R++;
        sign2 = input[R];

        // NOW sign1 = FIRST CHARACTER OF PHONEME, AND sign2 = SECOND CHARACTER OF PHONEME

       // TRY TO MATCH PHONEMES ON TWO TWO-CHARACTER NAME
       // IGNORE PHONEMES IN TABLE ENDING WITH WILDCARDS

       // SET INDEX TO 0
        S = 0;
pos41095:

         // GET FIRST CHARACTER AT POSITION Y IN signInputTable
         // --> should change name to PhonemeNameTable1
        B = signInputTable1[S];

        // FIRST CHARACTER MATCHES?
        if (B == sign1)
        {
           // GET THE CHARACTER FROM THE PhonemeSecondLetterTable
            B = signInputTable2[S];
            // NOT A SPECIAL AND MATCHES SECOND CHARACTER?
            if ((B != '*') && (B == sign2))
            {
               // STORE THE INDEX OF THE PHONEME INTO THE phomeneIndexTable
                phonemeindex[position] = S;

                // ADVANCE THE POINTER TO THE phonemeIndexTable
                position++;
                // ADVANCE THE POINTER TO THE phonemeInputBuffer
                R++;

                // CONTINUE PARSING
                continue;
            }
        }

        // NO MATCH, TRY TO MATCH ON FIRST CHARACTER TO WILDCARD NAMES (ENDING WITH '*')

        // ADVANCE TO THE NEXT POSITION
        S++;
        // IF NOT END OF TABLE, CONTINUE
        if (S != 81) goto pos41095;

// REACHED END OF TABLE WITHOUT AN EXACT (2 CHARACTER) MATCH.
// THIS TIME, SEARCH FOR A 1 CHARACTER MATCH AGAINST THE WILDCARDS

// RESET THE INDEX TO POINT TO THE START OF THE PHONEME NAME TABLE
        S = 0;
pos41134:
// DOES THE PHONEME IN THE TABLE END WITH '*'?
        if (signInputTable2[S] == '*')
        {
// DOES THE FIRST CHARACTER MATCH THE FIRST LETTER OF THE PHONEME
            if (signInputTable1[S] == sign1)
            {
                // SAVE THE POSITION AND MOVE AHEAD
                phonemeindex[position] = S;

                // ADVANCE THE POINTER
                position++;

                // CONTINUE THROUGH THE LOOP
                continue;
            }
        }
        S++;
        if (S != 81) goto pos41134; //81 is size of PHONEME NAME table

// FAILED TO MATCH WITH A WILDCARD. ASSUME THIS IS A STRESS
// CHARACTER. SEARCH THROUGH THE STRESS TABLE

        // SET INDEX TO POSITION 8 (END OF STRESS TABLE)
        S = 8;

       // WALK BACK THROUGH TABLE LOOKING FOR A MATCH
        while( (sign1 != stressInputTable[S]) && (S>0))
        {
  // DECREMENT INDEX
            S--;
        }

        // REACHED THE END OF THE SEARCH WITHOUT BREAKING OUT OF LOOP?
        if (S == 0)
        {
            //mem[39444] = X;
            //41181: JSR 42043 //Error
           // FAILED TO MATCH ANYTHING, RETURN 0 ON FAILURE
            return 0;
        }
// SET THE STRESS FOR THE PRIOR PHONEME
        stress[position-1] = S;
    } //while
}




//change phonemelength depedendent on stress
//void Code41203()
void SetPhonemeLength()
{
    unsigned char B;
    int position = 0;
    while(phonemeindex[position] != 255 )
    {
        B = stress[position];
        //41218: BMI 41229
        if ((B == 0) || ((B&128) != 0))
        {
            phonemeLength[position] = phonemeLengthTable[phonemeindex[position]];
        } else
        {
            phonemeLength[position] = phonemeStressedLengthTable[phonemeindex[position]];
        }
        position++;
    }
}


void Code41240()
{
    unsigned char pos=0;

    while(phonemeindex[pos] != 255)
    {
        unsigned char index; //register AC
        R = pos;
        index = phonemeindex[pos];
        if ((flags[index]&2) == 0)
        {
            pos++;
            continue;
        } else
        if ((flags[index]&1) == 0)
        {
            Insert(pos+1, index+1, phonemeLengthTable[index+1], stress[pos]);
            Insert(pos+2, index+2, phonemeLengthTable[index+2], stress[pos]);
            pos += 3;
            continue;
        }

        do
        {
            R++;
            B = phonemeindex[R];
        } while(B==0);

        if (B != 255)
        {
            if ((flags[B] & 8) != 0)  {pos++; continue;}
            if ((B == 36) || (B == 37)) {pos++; continue;} // '/H' '/X'
        }

        Insert(pos+1, index+1, phonemeLengthTable[index+1], stress[pos]);
        Insert(pos+2, index+2, phonemeLengthTable[index+2], stress[pos]);
        pos += 3;
    };

}

// Rewrites the phonemes using the following rules:
//
//       <DIPHTONG ENDING WITH WX> -> <DIPHTONG ENDING WITH WX> WX
//       <DIPHTONG NOT ENDING WITH WX> -> <DIPHTONG NOT ENDING WITH WX> YX
//       UL -> AX L
//       UM -> AX M
//       <STRESSED VOWEL> <SILENCE> <STRESSED VOWEL> -> <STRESSED VOWEL> <SILENCE> Q <VOWEL>
//       T R -> CH R
//       D R -> J R
//       <VOWEL> R -> <VOWEL> RX
//       <VOWEL> L -> <VOWEL> LX
//       G S -> G Z
//       K <VOWEL OR DIPHTONG NOT ENDING WITH IY> -> KX <VOWEL OR DIPHTONG NOT ENDING WITH IY>
//       G <VOWEL OR DIPHTONG NOT ENDING WITH IY> -> GX <VOWEL OR DIPHTONG NOT ENDING WITH IY>
//       S P -> S B
//       S T -> S D
//       S K -> S G
//       S KX -> S GX
//       <ALVEOLAR> UW -> <ALVEOLAR> UX
//       CH -> CH CH' (CH requires two phonemes to represent it)
//       J -> J J' (J requires two phonemes to represent it)
//       <UNSTRESSED VOWEL> T <PAUSE> -> <UNSTRESSED VOWEL> DX <PAUSE>
//       <UNSTRESSED VOWEL> D <PAUSE>  -> <UNSTRESSED VOWEL> DX <PAUSE>


//void Code41397()
void Parser2()
{
    if (sam_debug) fprintf(stderr,"Parser2\n");
    unsigned char pos = 0; //mem66;
    unsigned char mem58 = 0;


  // Loop through phonemes
    while(1)
    {
// SET X TO THE CURRENT POSITION
        R = pos;
// GET THE PHONEME AT THE CURRENT POSITION
        B = phonemeindex[pos];

// DEBUG: Print phoneme and index
        if (sam_debug && B != 255) fprintf(stderr,"%d: %c%c\n", R, signInputTable1[B], signInputTable2[B]);

// Is phoneme pause?
        if (B == 0)
        {
// Move ahead to the
            pos++;
            continue;
        }

// If end of phonemes flag reached, exit routine
        if (B == 255) return;

// Copy the current phoneme index to Y
        S = B;

// RULE:
//       <DIPHTONG ENDING WITH WX> -> <DIPHTONG ENDING WITH WX> WX
//       <DIPHTONG NOT ENDING WITH WX> -> <DIPHTONG NOT ENDING WITH WX> YX
// Example: OIL, COW


// Check for DIPHTONG
        if ((flags[B] & 16) == 0) goto pos41457;

// Not a diphthong. Get the stress
        mem58 = stress[pos];

// End in IY sound?
        B = flags[S] & 32;

// If ends with IY, use YX, else use WX
        if (B == 0) B = 20; else B = 21;    // 'WX' = 20 'YX' = 21
        //pos41443:
// Insert at WX or YX following, copying the stress

        if (sam_debug) if (B==20) fprintf(stderr,"RULE: insert WX following diphtong NOT ending in IY sound\n");
        if (sam_debug) if (B==21) fprintf(stderr,"RULE: insert YX following diphtong ending in IY sound\n");
        Insert(pos+1, B, mem59, mem58);
        R = pos;
// Jump to ???
        goto pos41749;



pos41457:

// RULE:
//       UL -> AX L
// Example: MEDDLE

// Get phoneme
        B = phonemeindex[R];
// Skip this rule if phoneme is not UL
        if (B != 78) goto pos41487;  // 'UL'
        B = 24;         // 'L'                 //change 'UL' to 'AX L'

        if (sam_debug) fprintf(stderr,"RULE: UL -> AX L\n");

pos41466:
// Get current phoneme stress
        mem58 = stress[R];

// Change UL to AX
        phonemeindex[R] = 13;  // 'AX'
// Perform insert. Note code below may jump up here with different values
        Insert(R+1, B, mem59, mem58);
        pos++;
// Move to next phoneme
        continue;

pos41487:

// RULE:
//       UM -> AX M
// Example: ASTRONOMY

// Skip rule if phoneme != UM
        if (B != 79) goto pos41495;   // 'UM'
        // Jump up to branch - replaces current phoneme with AX and continues
        B = 27; // 'M'  //change 'UM' to  'AX M'
        if (sam_debug) fprintf(stderr,"RULE: UM -> AX M\n");
        goto pos41466;
pos41495:

// RULE:
//       UN -> AX N
// Example: FUNCTION


// Skip rule if phoneme != UN
        if (B != 80) goto pos41503; // 'UN'

        // Jump up to branch - replaces current phoneme with AX and continues
        B = 28;         // 'N' //change UN to 'AX N'
        if (sam_debug) fprintf(stderr,"RULE: UN -> AX N\n");
        goto pos41466;
pos41503:

// RULE:
//       <STRESSED VOWEL> <SILENCE> <STRESSED VOWEL> -> <STRESSED VOWEL> <SILENCE> Q <VOWEL>
// EXAMPLE: AWAY EIGHT

        S = B;
// VOWEL set?
        B = flags[B] & 128;

// Skip if not a vowel
        if (B != 0)
        {
// Get the stress
            B = stress[R];

// If stressed...
            if (B != 0)
            {
// Get the following phoneme
                R++;
                B = phonemeindex[R];
// If following phoneme is a pause

                if (B == 0)
                {
// Get the phoneme following pause
                    R++;
                    S = phonemeindex[R];

// Check for end of buffer flag
                    if (S == 255) //buffer overflow
// ??? Not sure about these flags
                        B = 65&128;
                    else
// And VOWEL flag to current phoneme's flags
                        B = flags[S] & 128;

// If following phonemes is not a pause
                    if (B != 0)
                    {
// If the following phoneme is not stressed
                        B = stress[R];
                        if (B != 0)
                        {
// Insert a glottal stop and move forward
                            if (sam_debug) fprintf(stderr,"RULE: Insert glottal stop between two stressed vowels with space between them\n");
                            // 31 = 'Q'
                            Insert(R, 31, mem59, 0);
                            pos++;
                            continue;
                        }
                    }
                }
            }
        }


// RULES FOR PHONEMES BEFORE R
//        T R -> CH R
// Example: TRACK


// Get current position and phoneme
        R = pos;
        B = phonemeindex[pos];
        if (B != 23) goto pos41611;     // 'R'

// Look at prior phoneme
        R--;
        B = phonemeindex[pos-1];
        //pos41567:
        if (B == 69)                    // 'T'
        {
// Change T to CH
            if (sam_debug) fprintf(stderr,"RULE: T R -> CH R\n");
            phonemeindex[pos-1] = 42;
            goto pos41779;
        }


// RULES FOR PHONEMES BEFORE R
//        D R -> J R
// Example: DRY

// Prior phonemes D?
        if (B == 57)                    // 'D'
        {
// Change D to J
            phonemeindex[pos-1] = 44;
            if (sam_debug) fprintf(stderr,"RULE: D R -> J R\n");
            goto pos41788;
        }

// RULES FOR PHONEMES BEFORE R
//        <VOWEL> R -> <VOWEL> RX
// Example: ART


// If vowel flag is set change R to RX
        B = flags[B] & 128;
        if (sam_debug) fprintf(stderr,"RULE: R -> RX\n");
        if (B != 0) phonemeindex[pos] = 18;  // 'RX'

// continue to next phoneme
        pos++;
        continue;

pos41611:

// RULE:
//       <VOWEL> L -> <VOWEL> LX
// Example: ALL

// Is phoneme L?
        if (B == 24)    // 'L'
        {
// If prior phoneme does not have VOWEL flag set, move to next phoneme
            if ((flags[phonemeindex[pos-1]] & 128) == 0) {pos++; continue;}
// Prior phoneme has VOWEL flag set, so change L to LX and move to next phoneme
            if (sam_debug) fprintf(stderr,"RULE: <VOWEL> L -> <VOWEL> LX\n");
            phonemeindex[R] = 19;     // 'LX'
            pos++;
            continue;
        }

// RULE:
//       G S -> G Z
//
// Can't get to fire -
//       1. The G -> GX rule intervenes
//       2. Reciter already replaces GS -> GZ

// Is current phoneme S?
        if (B == 32)    // 'S'
        {
// If prior phoneme is not G, move to next phoneme
            if (phonemeindex[pos-1] != 60) {pos++; continue;}
// Replace S with Z and move on
            if (sam_debug) fprintf(stderr,"RULE: G S -> G Z\n");
            phonemeindex[pos] = 38;    // 'Z'
            pos++;
            continue;
        }

// RULE:
//             K <VOWEL OR DIPHTONG NOT ENDING WITH IY> -> KX <VOWEL OR DIPHTONG NOT ENDING WITH IY>
// Example: COW

// Is current phoneme K?
        if (B == 72)    // 'K'
        {
// Get next phoneme
            S = phonemeindex[pos+1];
// If at end, replace current phoneme with KX
            if (S == 255) phonemeindex[pos] = 75; // ML : prevents an index out of bounds problem
            else
            {
// VOWELS AND DIPHTONGS ENDING WITH IY SOUND flag set?
                B = flags[S] & 32;
                if (sam_debug) if (B==0) fprintf(stderr,"RULE: K <VOWEL OR DIPHTONG NOT ENDING WITH IY> -> KX <VOWEL OR DIPHTONG NOT ENDING WITH IY>\n");
// Replace with KX
                if (B == 0) phonemeindex[pos] = 75;  // 'KX'
            }
        }
        else

// RULE:
//             G <VOWEL OR DIPHTONG NOT ENDING WITH IY> -> GX <VOWEL OR DIPHTONG NOT ENDING WITH IY>
// Example: GO


// Is character a G?
        if (B == 60)   // 'G'
        {
// Get the following character
            unsigned char index = phonemeindex[pos+1];

// At end of buffer?
            if (index == 255) //prevent buffer overflow
            {
                pos++; continue;
            }
            else
// If diphtong ending with YX, move continue processing next phoneme
            if ((flags[index] & 32) != 0) {pos++; continue;}
// replace G with GX and continue processing next phoneme
            if (sam_debug) fprintf(stderr,"RULE: G <VOWEL OR DIPHTONG NOT ENDING WITH IY> -> GX <VOWEL OR DIPHTONG NOT ENDING WITH IY>\n");
            phonemeindex[pos] = 63; // 'GX'
            pos++;
            continue;
        }

// RULE:
//      S P -> S B
//      S T -> S D
//      S K -> S G
//      S KX -> S GX
// Examples: SPY, STY, SKY, SCOWL

        S = phonemeindex[pos];
        //pos41719:
// Replace with softer version?
        B = flags[S] & 1;
        if (B == 0) goto pos41749;
        B = phonemeindex[pos-1];
        if (B != 32)    // 'S'
        {
            B = S;
            goto pos41812;
        }
        // Replace with softer version
        if (sam_debug) fprintf(stderr,"RULE: S* %c%c -> S* %c%c\n", signInputTable1[S], signInputTable2[S],signInputTable1[S-12], signInputTable2[S-12]);
        phonemeindex[pos] = S-12;
        pos++;
        continue;


pos41749:

// RULE:
//      <ALVEOLAR> UW -> <ALVEOLAR> UX
//
// Example: NEW, DEW, SUE, ZOO, THOO, TOO

//       UW -> UX

        B = phonemeindex[R];
        if (B == 53)    // 'UW'
        {
// ALVEOLAR flag set?
            S = phonemeindex[R-1];
            B = flags2[S] & 4;
// If not set, continue processing next phoneme
            if (B == 0) {pos++; continue;}
            if (sam_debug) fprintf(stderr,"RULE: <ALVEOLAR> UW -> <ALVEOLAR> UX\n");
            phonemeindex[R] = 16;
            pos++;
            continue;
        }
pos41779:

// RULE:
//       CH -> CH CH' (CH requires two phonemes to represent it)
// Example: CHEW

        if (B == 42)    // 'CH'
        {
            //        pos41783:
            if (sam_debug) fprintf(stderr,"CH -> CH CH+1\n");
            Insert(R+1, B+1, mem59, stress[R]);
            pos++;
            continue;
        }

pos41788:

// RULE:
//       J -> J J' (J requires two phonemes to represent it)
// Example: JAY


        if (B == 44) // 'J'
        {
            if (sam_debug) fprintf(stderr,"J -> J J+1\n");
            Insert(R+1, B+1, mem59, stress[R]);
            pos++;
            continue;
        }

// Jump here to continue
pos41812:

// RULE: Soften T following vowel
// NOTE: This rule fails for cases such as "ODD"
//       <UNSTRESSED VOWEL> T <PAUSE> -> <UNSTRESSED VOWEL> DX <PAUSE>
//       <UNSTRESSED VOWEL> D <PAUSE>  -> <UNSTRESSED VOWEL> DX <PAUSE>
// Example: PARTY, TARDY


// Past this point, only process if phoneme is T or D

        if (B != 69)    // 'T'
        if (B != 57) {pos++; continue;}       // 'D'
        //pos41825:


// If prior phoneme is not a vowel, continue processing phonemes
        if ((flags[phonemeindex[R-1]] & 128) == 0) {pos++; continue;}

// Get next phoneme
        R++;
        B = phonemeindex[R];
        //pos41841
// Is the next phoneme a pause?
        if (B != 0)
        {
// If next phoneme is not a pause, continue processing phonemes
            if ((flags[B] & 128) == 0) {pos++; continue;}
// If next phoneme is stressed, continue processing phonemes
// FIXME: How does a pause get stressed?
            if (stress[R] != 0) {pos++; continue;}
//pos41856:
// Set phonemes to DX
        if (sam_debug) fprintf(stderr,"RULE: Soften T or D following vowel or ER and preceding a pause -> DX\n");
        phonemeindex[pos] = 30;       // 'DX'
        } else
        {
            B = phonemeindex[R+1];
            if (B == 255) //prevent buffer overflow
                B = 65 & 128;
            else
// Is next phoneme a vowel or ER?
                B = flags[B] & 128;
            if (sam_debug) if (B != 0) fprintf(stderr,"RULE: Soften T or D following vowel or ER and preceding a pause -> DX\n");
            if (B != 0) phonemeindex[pos] = 30;  // 'DX'
        }

        pos++;

    } // while
}


// Applies various rules that adjust the lengths of phonemes
//
//         Lengthen <FRICATIVE> or <VOICED> between <VOWEL> and <PUNCTUATION> by 1.5
//         <VOWEL> <RX | LX> <CONSONANT> - decrease <VOWEL> length by 1
//         <VOWEL> <UNVOICED PLOSIVE> - decrease vowel by 1/8th
//         <VOWEL> <UNVOICED CONSONANT> - increase vowel by 1/2 + 1
//         <NASAL> <STOP CONSONANT> - set nasal = 5, consonant = 6
//         <VOICED STOP CONSONANT> {optional silence} <STOP CONSONANT> - shorten both to 1/2 + 1
//         <LIQUID CONSONANT> <DIPHTONG> - decrease by 2


//void Code48619()
void AdjustLengths()
{

    // LENGTHEN VOWELS PRECEDING PUNCTUATION
    //
    // Search for punctuation. If found, back up to the first vowel, then
    // process all phonemes between there and up to (but not including) the punctuation.
    // If any phoneme is found that is a either a fricative or voiced, the duration is
    // increased by (length * 1.5) + 1

    // loop index
    R = 0;
    unsigned char index;

    // iterate through the phoneme list
    unsigned char loopIndex=0;
    while(1)
    {
        // get a phoneme
        index = phonemeindex[R];

        // exit loop if end on buffer token
        if (index == 255) break;

        // not punctuation?
        if((flags2[index] & 1) == 0)
        {
            // skip
            R++;
            continue;
        }

        // hold index
        loopIndex = R;

        // Loop backwards from this point
pos48644:

        // back up one phoneme
        R--;

        // stop once the beginning is reached
        if(R == 0) break;

        // get the preceding phoneme
        index = phonemeindex[R];

        if (index != 255) //inserted to prevent access overrun
        if((flags[index] & 128) == 0) goto pos48644; // if not a vowel, continue looping

        //pos48657:
        do
        {
            // test for vowel
            index = phonemeindex[R];

            if (index != 255)//inserted to prevent access overrun
            // test for fricative/unvoiced or not voiced
            if(((flags2[index] & 32) == 0) || ((flags[index] & 4) != 0))     //nochmal �berpr�fen
            {
                //A = flags[Y] & 4;
                //if(A == 0) goto pos48688;

                // get the phoneme length
                B = phonemeLength[R];

                // change phoneme length to (length * 1.5) + 1
                B = (B >> 1) + B + 1;
if (sam_debug) fprintf(stderr,"RULE: Lengthen <FRICATIVE> or <VOICED> between <VOWEL> and <PUNCTUATION> by 1.5\n");
if (sam_debug) fprintf(stderr,"PRE\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);

                phonemeLength[R] = B;

if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);

            }
            // keep moving forward
            R++;
        } while (R != loopIndex);
        //  if (X != loopIndex) goto pos48657;
        R++;
    }  // while

    // Similar to the above routine, but shorten vowels under some circumstances

    // Loop throught all phonemes
    loopIndex = 0;
    //pos48697

    while(1)
    {
        // get a phoneme
        R = loopIndex;
        index = phonemeindex[R];

        // exit routine at end token
        if (index == 255) return;

        // vowel?
        B = flags[index] & 128;
        if (B != 0)
        {
            // get next phoneme
            R++;
            index = phonemeindex[R];

            // get flags
            if (index == 255)
            mem56 = 65; // use if end marker
            else
            mem56 = flags[index];

            // not a consonant
            if ((flags[index] & 64) == 0)
            {
                // RX or LX?
                if ((index == 18) || (index == 19))  // 'RX' & 'LX'
                {
                    // get the next phoneme
                    R++;
                    index = phonemeindex[R];

                    // next phoneme a consonant?
                    if ((flags[index] & 64) != 0) {
                        // RULE: <VOWEL> RX | LX <CONSONANT>


if (sam_debug) fprintf(stderr,"RULE: <VOWEL> <RX | LX> <CONSONANT> - decrease length by 1\n");
if (sam_debug) fprintf(stderr,"PRE\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", loopIndex, signInputTable1[phonemeindex[loopIndex]], signInputTable2[phonemeindex[loopIndex]], phonemeLength[loopIndex]);

                        // decrease length of vowel by 1 frame
                        phonemeLength[loopIndex]--;

if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", loopIndex, signInputTable1[phonemeindex[loopIndex]], signInputTable2[phonemeindex[loopIndex]], phonemeLength[loopIndex]);

                    }
                    // move ahead
                    loopIndex++;
                    continue;
                }
                // move ahead
                loopIndex++;
                continue;
            }


            // Got here if not <VOWEL>

            // not voiced
            if ((mem56 & 4) == 0)
            {

                 // Unvoiced
                 // *, .*, ?*, ,*, -*, DX, S*, SH, F*, TH, /H, /X, CH, P*, T*, K*, KX

                // not an unvoiced plosive?
                if((mem56 & 1) == 0) {
                    // move ahead
                    loopIndex++;
                    continue;
                }

                // P*, T*, K*, KX


                // RULE: <VOWEL> <UNVOICED PLOSIVE>
                // <VOWEL> <P*, T*, K*, KX>

                // move back
                R--;

if (sam_debug) fprintf(stderr,"RULE: <VOWEL> <UNVOICED PLOSIVE> - decrease vowel by 1/8th\n");
if (sam_debug) fprintf(stderr,"PRE\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]],  phonemeLength[R]);

                // decrease length by 1/8th
                mem56 = phonemeLength[R] >> 3;
                phonemeLength[R] -= mem56;

if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);

                // move ahead
                loopIndex++;
                continue;
            }

            // RULE: <VOWEL> <VOICED CONSONANT>
            // <VOWEL> <WH, R*, L*, W*, Y*, M*, N*, NX, DX, Q*, Z*, ZH, V*, DH, J*, B*, D*, G*, GX>

if (sam_debug) fprintf(stderr,"RULE: <VOWEL> <VOICED CONSONANT> - increase vowel by 1/2 + 1\n");
if (sam_debug) fprintf(stderr,"PRE\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R-1, signInputTable1[phonemeindex[R-1]], signInputTable2[phonemeindex[R-1]],  phonemeLength[R-1]);

            // decrease length
            B = phonemeLength[R-1];
            phonemeLength[R-1] = (B >> 2) + B + 1;     // 5/4*A + 1

if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R-1, signInputTable1[phonemeindex[R-1]], signInputTable2[phonemeindex[R-1]], phonemeLength[R-1]);

            // move ahead
            loopIndex++;
            continue;

        }


        // WH, R*, L*, W*, Y*, M*, N*, NX, Q*, Z*, ZH, V*, DH, J*, B*, D*, G*, GX

//pos48821:

        // RULE: <NASAL> <STOP CONSONANT>
        //       Set punctuation length to 6
        //       Set stop consonant length to 5

        // nasal?
        if((flags2[index] & 8) != 0)
        {

            // M*, N*, NX,

            // get the next phoneme
            R++;
            index = phonemeindex[R];

            // end of buffer?
            if (index == 255)
               B = 65&2;  //prevent buffer overflow
            else
                B = flags[index] & 2; // check for stop consonant


            // is next phoneme a stop consonant?
            if (B != 0)

               // B*, D*, G*, GX, P*, T*, K*, KX

            {
if (sam_debug) fprintf(stderr,"RULE: <NASAL> <STOP CONSONANT> - set nasal = 5, consonant = 6\n");
if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R-1, signInputTable1[phonemeindex[R-1]], signInputTable2[phonemeindex[R-1]], phonemeLength[R-1]);

                // set stop consonant length to 6
                phonemeLength[R] = 6;

                // set nasal length to 5
                phonemeLength[R-1] = 5;

if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R-1, signInputTable1[phonemeindex[R-1]], signInputTable2[phonemeindex[R-1]], phonemeLength[R-1]);

            }
            // move to next phoneme
            loopIndex++;
            continue;
        }


        // WH, R*, L*, W*, Y*, Q*, Z*, ZH, V*, DH, J*, B*, D*, G*, GX

        // RULE: <VOICED STOP CONSONANT> {optional silence} <STOP CONSONANT>
        //       Shorten both to (length/2 + 1)

        // (voiced) stop consonant?
        if((flags[index] & 2) != 0)
        {
            // B*, D*, G*, GX

            // move past silence
            do
            {
                // move ahead
                R++;
                index = phonemeindex[R];
            } while(index == 0);


            // check for end of buffer
            if (index == 255) //buffer overflow
            {
                // ignore, overflow code
                if ((65 & 2) == 0) {loopIndex++; continue;}
            } else if ((flags[index] & 2) == 0) {
                // if another stop consonant, move ahead
                loopIndex++;
                continue;
            }

            // RULE: <UNVOICED STOP CONSONANT> {optional silence} <STOP CONSONANT>
if (sam_debug) fprintf(stderr,"RULE: <UNVOICED STOP CONSONANT> {optional silence} <STOP CONSONANT> - shorten both to 1/2 + 1\n");
if (sam_debug) fprintf(stderr,"PRE\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R-1, signInputTable1[phonemeindex[R-1]], signInputTable2[phonemeindex[R-1]], phonemeLength[R-1]);
// X gets overwritten, so hold prior X value for debug statement
int debugX = R;
            // shorten the prior phoneme length to (length/2 + 1)
            phonemeLength[R] = (phonemeLength[R] >> 1) + 1;
            R = loopIndex;

            // also shorten this phoneme length to (length/2 +1)
            phonemeLength[loopIndex] = (phonemeLength[loopIndex] >> 1) + 1;

if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", debugX, signInputTable1[phonemeindex[debugX]], signInputTable2[phonemeindex[debugX]], phonemeLength[debugX]);
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", debugX-1, signInputTable1[phonemeindex[debugX-1]], signInputTable2[phonemeindex[debugX-1]], phonemeLength[debugX-1]);


            // move ahead
            loopIndex++;
            continue;
        }


        // WH, R*, L*, W*, Y*, Q*, Z*, ZH, V*, DH, J*, **,

        // RULE: <VOICED NON-VOWEL> <DIPHTONG>
        //       Decrease <DIPHTONG> by 2

        // liquic consonant?
        if ((flags2[index] & 16) != 0)
        {
            // R*, L*, W*, Y*

            // get the prior phoneme
            index = phonemeindex[R-1];

            // prior phoneme a stop consonant>
            if((flags[index] & 2) != 0) {
                             // Rule: <LIQUID CONSONANT> <DIPHTONG>

if (sam_debug) fprintf(stderr,"RULE: <LIQUID CONSONANT> <DIPHTONG> - decrease by 2\n");
if (sam_debug) fprintf(stderr,"PRE\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);

             // decrease the phoneme length by 2 frames (20 ms)
             phonemeLength[R] -= 2;

if (sam_debug) fprintf(stderr,"POST\n");
if (sam_debug) fprintf(stderr,"phoneme %d (%c%c) length %d\n", R, signInputTable1[phonemeindex[R]], signInputTable2[phonemeindex[R]], phonemeLength[R]);
        }
         }

         // move to next phoneme
         loopIndex++;
         continue;
    }
//            goto pos48701;
}

// -------------------------------------------------------------------------
// ML : Code47503 is division with remainder, and mem50 gets the sign
void Code47503(unsigned char mem52)
{

    S = 0;
    if ((mem53 & 128) != 0)
    {
        mem53 = -mem53;
        S = 128;
    }
    mem50 = S;
    B = 0;
    for(R=8; R > 0; R--)
    {
        int temp = mem53;
        mem53 = mem53 << 1;
        B = B << 1;
        if (temp >= 128) B++;
        if (B >= mem52)
        {
            B = B - mem52;
            mem53++;
        }
    }

    mem51 = B;
    if ((mem50 & 128) != 0) mem53 = -mem53;

}