Cleanup of codebase and initial commit of 56K assembler by ggn.

[rmac] / dsp56kgen.c

diff --git a/dsp56kgen.c b/dsp56kgen.c
new file mode 100644 (file)
index 0000000..3f263ad
--- /dev/null
+++ b/dsp56kgen.c
@@ -0,0 +1,134 @@
+//
+// RMAC - Reboot's Macro Assembler for all Atari computers
+// 68KGEN.C - Tool to Generate 68000 Opcode Table
+// Copyright (C) 199x Landon Dyer, 2011-2018 Reboot and Friends
+// RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
+// Source utilised with the kind permission of Landon Dyer
+//
+
+#include <stdio.h>
+#include <ctype.h>
+#include <stdlib.h>
+
+
+#define        EOS     '\0'
+
+int kwnum = 1;                 /* current op# for kwgen output */
+FILE * kfp;                            /* keyword file */
+int lineno = 0;
+
+// Function prototypes
+void error(char *, char *);
+void procln(int, char **);
+
+
+int main(int argc, char ** argv)
+{
+       char * namv[256];
+       char * s;
+       int namcnt;
+       char ln[256];
+
+       if ((argc == 2) && ((kfp = fopen(argv[1], "w")) == NULL))
+               error("Cannot create: %s", argv[1]);
+
+       while (fgets(ln, 256, stdin) != NULL)
+       {
+               lineno++;                       /* bump line# */
+
+               if (*ln == '#')         /* ignore comments */
+                       continue;
+
+               /*
+                *  Tokenize line (like the way "argc, argv" works)
+                *  and pass it to the parser.
+                */
+               namcnt = 0;
+               s = ln;
+
+               while (*s)
+               {
+                       if (isspace(*s))
+                               ++s;
+                       else
+                       {
+                               namv[namcnt++] = s;
+
+                               while (*s && !isspace(*s))
+                                       s++;
+
+                               if (isspace(*s))
+                                       *s++ = EOS;
+                       }
+               }
+
+               if (namcnt)
+                       procln(namcnt, namv);
+       }
+
+       return 0;
+}
+
+
+//
+// Parse line
+//
+void procln(int namc, char ** namv)
+{
+       int i, j;
+
+       // alias for previous entry
+       if (namc == 1)
+       {
+               fprintf(kfp, "%s\t%d\n", namv[0], kwnum - 1 + 2000);
+               return;
+       }
+
+       if (namc < 5)
+       {
+               fprintf(stderr, "%d: missing fields\n", lineno);
+               exit(1);
+       }
+
+       // output keyword name
+       if (*namv[0] != '-')
+               fprintf(kfp, "%s\t%d\n", namv[0], kwnum + 2000);
+
+       printf("/*%4d %-6s*/  {", kwnum, namv[0]);
+
+       printf("%s, %s, %s, ", namv[1], namv[2], namv[3]);
+
+       // enforce little fascist percent signs
+       if (*namv[4] == '%')
+       {
+               for(i=1, j=0; i<25; i++)
+               {
+                       j <<= 1;
+
+                       if (namv[4][i] == '1' || isupper(namv[4][i]))
+                               j++;
+               }
+
+               printf("0x%06x, ", j);
+       }
+       else
+               printf("%s, ", namv[4]);
+
+       if (namc >= 7 && *namv[6] == '+')
+               printf("%d, ", kwnum + 1);
+       else
+               printf("0, ");
+
+       printf("%s},\n", namv[5]);
+
+       kwnum++;
+}
+
+
+void error(char * s, char * s1)
+{
+       fprintf(stderr, s, s1);
+       fprintf(stderr, "\n");
+       exit(1);
+}
+