Implement writing for SBLK and RIM10 file formats.

Author: larsbrinkhoff

dis.h

@@ -111,6 +111,8 @@ extern void	read_raw_at (FILE *f, struct pdp10_memory *memory,
 			     int address);
 extern void	write_raw_at (FILE *f, struct pdp10_memory *memory,
 			      int address);
+extern void	write_sblk_core (FILE *f, struct pdp10_memory *memory);
+extern void	write_sblk_symbols (FILE *f);
 extern void	sblk_info (FILE *f, word_t word0, int cpu_model);
 extern void     dmp_info (struct pdp10_memory *memory, int cpu_model);
 extern void     dec_info (struct pdp10_memory *memory,
@@ -124,7 +126,7 @@ extern int      parse_machine (const char *string, int *machine);
 extern void	dis (struct pdp10_memory *memory, int cpu_model);
 extern void	disassemble_word (struct pdp10_memory *memory, word_t word,
 				  int address, int cpu_model);
-extern word_t   ascii_to_sixbit (char *ascii);
+extern word_t   ascii_to_sixbit (const char *ascii);
 extern void	sixbit_to_ascii (word_t sixbit, char *ascii);
 extern void	squoze_to_ascii (word_t squoze, char *ascii);
 extern void	print_date (FILE *, word_t t);

info.c

@@ -37,7 +37,7 @@
 word_t start_instruction;
 
 word_t
-ascii_to_sixbit (char *ascii)
+ascii_to_sixbit (const char *ascii)
 {
   int i;
   char c;

rim10-file.c

@@ -38,6 +38,26 @@
 #define OP_CONO_PTR   071060
 #define OP_DATAI_PTR  071044
 
+static word_t midas_rim10[] =
+{
+  /*00*/ 0777761000000LL, /* -17,,0 */
+  /*01*/ 0710600000060LL, /* CONO PTR,60 */
+  /*02*/ 0541440000004LL, /* HRRI 11,4 */
+  /*03*/ 0710740000010LL, /* CONSO PTR,10 */
+  /*04*/ 0254000000003LL, /* JRST 3 */
+  /*05*/ 0241011777776LL, /* ROT 0,-2(11) */
+  /*06*/ 0710471000010LL, /* DATAI PTR,@10(11) */
+  /*07*/ 0256011000010LL, /* XCT 10(11) */
+  /*10*/ 0256011000013LL, /* XCT 13(11) */
+  /*11*/ 0364440000000LL, /* SOJA 11,0 */
+  /*12*/ 0312000000017LL, /* CAME 0,17 */
+  /*13*/ 0270017000000LL, /* ADD 0,(17) */
+  /*14*/ 0331740000000LL, /* SKIPL 17,0 */
+  /*15*/ 0254200000001LL, /* JRST 4,1 */
+  /*16*/ 0253740000003LL, /* AOBJN 17,3 */
+  /*17*/ 0254000000002LL  /* JRST 2 */
+};
+  
 static int
 effective_address (word_t insn, struct pdp10_memory *memory)
 {
@@ -235,8 +255,20 @@ read_rim10 (FILE *f, struct pdp10_memory *memory, int cpu_model)
   printf ("Start address: %o\n", address);
 }
 
+static void
+write_rim10 (FILE *f, struct pdp10_memory *memory)
+{
+  int i;
+
+  for (i = 0; i < sizeof midas_rim10 / sizeof midas_rim10[0]; i++)
+    write_word (f, midas_rim10[i]);
+
+  write_sblk_core (f, memory);
+  write_word (f, start_instruction);
+}
+
 struct file_format rim10_file_format = {
   "rim10",
   read_rim10,
-  NULL
+  write_rim10
 };

sblk-file.c

@@ -18,6 +18,12 @@
 
 #include "dis.h"
 #include "memory.h"
+#include "symbols.h"
+
+#define SYHKL       0400000000000
+#define SYKIL       0200000000000
+#define SYLCL       0100000000000
+#define SYGBL       0040000000000
 
 static void
 read_sblk (FILE *f, struct pdp10_memory *memory, int cpu_model)
@@ -74,8 +80,102 @@ read_sblk (FILE *f, struct pdp10_memory *memory, int cpu_model)
   sblk_info (f, word, cpu_model);
 }
 
+static void
+write_block (FILE *f, struct pdp10_memory *memory, int start, int end)
+{
+  word_t word, cksum;
+  int i, length;
+
+  length = end - start;
+  word = -length << 18;
+  word |= start;
+  word &= WORDMASK;
+  write_word (f, word);
+
+  cksum = word;
+  for (i = start; i < end; i++)
+    {
+      cksum = (cksum << 1) | (cksum >> 35);
+      word = get_word_at (memory, i);
+      cksum += word;
+      cksum &= WORDMASK;
+      write_word (f, word);
+    }
+
+  write_word (f, cksum);
+}
+
+void
+write_sblk_core (FILE *f, struct pdp10_memory *memory)
+{
+  int start, length;
+  int i, n;
+
+  for (i = 0; i < memory->areas; i++)
+    {
+      start = memory->area[i].start;
+      length = memory->area[i].end - start;
+      while (length > 0)
+	{
+	  n = length > 512 ? 512 : length;
+	  write_block (f, memory, start, start + n);
+	  start += n;
+	  length -= n;
+	}
+    }
+}
+
+void
+write_sblk_symbols (FILE *f)
+{
+  word_t word, cksum;
+  int i, length;
+
+  length = 2 * num_symbols;
+  word = length;
+  word = (-word) << 18;
+  word &= WORDMASK;
+  write_word (f, word);
+
+  cksum = word;
+  for (i = 0; i < num_symbols; i++)
+    {
+      cksum = (cksum << 1) | (cksum >> 35);
+      word = ascii_to_sixbit (symbols[i].name);
+      if (symbols[i].flags & SYMBOL_KILLED)
+	word |= SYKIL;
+      if (symbols[i].flags & SYMBOL_HALFKILLED)
+	word |= SYHKL;
+      if (symbols[i].flags & SYMBOL_GLOBAL)
+	word |= SYGBL;
+      else
+	word |= SYLCL;
+      cksum += word;
+      cksum &= WORDMASK;
+      write_word (f, word);
+
+      cksum = (cksum << 1) | (cksum >> 35);
+      word = symbols[i].value;
+      cksum += word;
+      cksum &= WORDMASK;
+      write_word (f, word);
+    }
+
+  write_word (f, cksum);
+}
+
+static void
+write_sblk (FILE *f, struct pdp10_memory *memory)
+{
+  write_word (f, JRST_1);
+  write_sblk_core (f, memory);
+  write_word (f, start_instruction);
+  write_sblk_symbols (f);
+  write_word (f, start_instruction);
+}
+
 struct file_format sblk_file_format = {
   "sblk",
   read_sblk,
-  NULL
+  write_sblk
 };