source: buchla-68k/orig/BUCHLA/FPUPROMS.C@ 6888aa2

/*
   =============================================================================
        fpuproms.c -- Buchla 700 FPU Microcode PROM Utility
        Version (see VER below) -- D.N. Lynx Crowe

        This program takes an ASCII file giving the microcode addresses
        and data values, and creates 5 PROM files in Motorola S-Record format.

        The FPU700.DAT input file consists of 9 input fields, as follows:

                adr p1 p2 p2b p3 p3b p4 p4b p5

        where:

                adr     is the address in decimal for the data
                p1..p5  is the hex data for each prom

        PROM 2, PROM 3, and PROM 4 have separate data for each half, while the
        data from the first half is duplicated in the second half for
        PROM 1 and PROM 5.
   =============================================================================
*/

#define VER     "4 - 1987-09-11"        /* version ID */

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

extern  short   msrec();
extern  char    *memset();

#define NFIELDS 9               /* number of input data fields */

#define FN_IN   "FPU700.DAT"    /* input file name (stripped Wordstar file) */

#define FN_P1   "FPU700P1.MOT"  /* output file name - PROM 1 */
#define FN_P2   "FPU700P2.MOT"  /* output file name - PROM 2 */
#define FN_P3   "FPU700P3.MOT"  /* output file name - PROM 3 */
#define FN_P4   "FPU700P4.MOT"  /* output file name - PROM 4 */
#define FN_P5   "FPU700P5.MOT"  /* output file name - PROM 5 */

FILE    *fp;                    /* stream pointer */

char    prom[5][1024];          /* PROM images */

short   padr, p1, p2, p2b, p3, p3b, p4, p4b, p5;        /* input variables */

/* 

*/

/*
   =============================================================================
        putfile(fn, n) -- output PROM file 'n' to file 'fn'
   =============================================================================
*/

putfile(fn, n)
FILE *fn;
short n;
{
        if (NULL EQ (fp = fopen(fn, "w"))) {

                printf("\nfpuproms:  ERROR - unable to open output file [%s]\n",
                        fn);

                exit(1);
        }

        msrec(fp, 0L, 1024L, prom[n]);
        fclose(fp);
        printf("fpuproms:  PROM %d file [%s] written\n", n + 1, fn);
}

/* 

*/

/*
   =============================================================================
        main function -- Buchla 700 FPU Microcode PROM Utility
   =============================================================================
*/

main()
{
        register short i, rc;

        printf("Buchla 700 FPU Microcode PROM Utility -- Version %s\n\n", VER);

        if (NULL EQ (fp = fopen(FN_IN, "r"))) {

                printf("fpuproms:  ERROR - Unable to open [%s] for input\n",
                        FN_IN);

                exit(1);
        }

        padr = -1;
        memset(prom, 0xFF, sizeof prom);

/* 

*/
        /* read the PROM data */

        printf("fpuproms:  Reading PROM data from [%s]\n", FN_IN);

        for (;;) {

                rc = fscanf(fp, "%d %x %x %x %x %x %x %x %x",
                        &padr, &p1, &p2, &p2b, &p3, &p3b, &p4, &p4b, &p5);

                if (rc EQ EOF)
                        break;

                if (rc NE NFIELDS) {

                        printf("\nfpuproms:  ERROR - Invalid data near address %d\n",
                                padr);

                        exit(1);
                }

                if (padr LT 0 OR padr GT 511) {

                printf("\nfpuproms:  ERROR - Address [%d] not in range 0..511\n",
                                padr);

                        exit(1);
                }

                prom[0][padr] = p1;             /* PROM 1 */
                prom[0][padr+512] = p1;

                prom[1][padr] = p2;             /* PROM 2 */
                prom[1][padr+512] = p2b;

                prom[2][padr] = p3;             /* PROM 3 */
                prom[2][padr+512] = p3b;

                prom[3][padr] = p4;             /* PROM 4 */
                prom[3][padr+512] = p4b;

                prom[4][padr] = p5;             /* PROM 5 */
                prom[4][padr+512] = p5;
        }

/* 

*/

        fclose(fp);

        printf("fpuproms:  End of input file reached\n");

        /* write out the Motorola S-Record PROM data files */

        printf("\nfpuproms:  Writing Motorola S-Record PROM data files\n");

        putfile(FN_P1, 0);
        putfile(FN_P2, 1);
        putfile(FN_P3, 2);
        putfile(FN_P4, 3);
        putfile(FN_P5, 4);

        printf("\nfpuproms:  PROM file conversion complete\n");
        exit(0);
}