source: buchla-68k/orig/BUCHLA/TMULTS.C@ 4b63bf3

/*
   =============================================================================
        tmults. -- calculate a table of time multipliers for the Buchla 700
        Version 5 -- 1987-09-24 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stdio.h"
#include "stddefs.h"

#define OUT_FILE        "tmultab.tmp"
#define PRN_FILE        "tmultab.prn"

#define SHIFTCON        32768.0

float j, m;
int i, k[101], n;
FILE *fp_out, *fp_prn;

main()
{
        if (NULL EQ (fp_out = fopen(OUT_FILE, "wa"))) {

                printf("Unable to open [%s] for output\n", OUT_FILE);
                exit(1);
        }

        if (NULL EQ (fp_prn = fopen(PRN_FILE, "wa"))) {

                printf("Unable to open [%s] for output\n", PRN_FILE);
                exit(1);
        }

        printf("Creating time multiplier table on [%s]\n", OUT_FILE);
        printf("   and documentation on [%s]\n\n", PRN_FILE);

        fprintf(fp_prn, "Time Multipliers\n\n");
        fprintf(fp_prn, "Ndx Mult 1/Mult Value\n");

        for (i = 0; i LE 100; i++) {

                j = 0.5 + (float)i * 0.01;
                m = 1.0 / j;

                if (m EQ 2.0)   /* limit to 'almost 2.0' to avoid overflow */
                        m = 1.99999;

                n = m * SHIFTCON;
                k[i] = n;

                fprintf(fp_prn, "%3d %4.2f %6.4f 0x%04x\n", i, j, m, n);
        }

        for (i = 0; i LE 100; i++) {

                if (0 EQ (i % 5))
                        fprintf(fp_out, "\n\t");

                fprintf(fp_out, "0x%04x, ", k[i]);
        }

        fprintf(fp_out, "\n");
        fflush(fp_out);
        fclose(fp_out);
        fflush(fp_prn);
        fclose(fp_prn);
        printf("Time multipler table output complete.\n");
        exit(0);
}