--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/makerom.c	Mon Jul 02 02:12:31 2018 +0900
@@ -0,0 +1,78 @@
+/* makerom.c 
+   Read standard input as S-records and build ROM image file v09.rom
+   ROM starts at 0x8000 and is 32K.
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <strings.h>
+
+static int sum,charindex;
+unsigned char mem[0x8000];
+char linebuf[130];
+
+void
+hexerr()
+{
+ fprintf(stderr,"Illegal character in hex number\n");
+ exit(1);
+}
+
+int gethex()
+{
+ int c;
+ c=linebuf[charindex++];
+ if(c<'0')hexerr();
+ if(c>'9') { if(c<'A')hexerr();else c-=7; }
+ c-='0';
+ return c;
+}
+
+int getbyte() 
+{
+ int b;
+ b=gethex();
+ b=b*16+gethex();
+ sum=(sum+b)&0xff;
+ return b;
+}
+
+int
+main()
+{
+ FILE *romfile;
+ unsigned int i,length,addr;
+ for(i=0;i<0x8000;i++)mem[i]=0xff; /*set unused locations to FF */
+ for(;;) {
+  if(fgets(linebuf,128,stdin)==NULL)break;
+  if(strlen(linebuf))linebuf[strlen(linebuf)]=0;
+  if(linebuf[0]=='S'&&linebuf[1]=='1') {
+   sum=0;charindex=2;
+   length=getbyte();
+   if(length<3) {
+    fprintf(stderr,"Illegal length in data record\n");
+    exit(1);
+   }
+   addr=getbyte();
+   addr=(addr<<8)+getbyte();
+   if((long)addr+length-3>0x10000||addr<0x8000) {
+    fprintf(stderr,"Address 0x%x out of range\n",addr);
+    exit(1);
+   }
+   for(i=0;i!=length-3;i++)mem[addr-0x8000+i]=getbyte();
+   getbyte();
+   if(sum!=0xff) {
+    fprintf(stderr,"Checksum error\n");
+    exit(1);
+   }  
+  }
+ }
+ romfile=fopen("v09.rom","wb");
+ if(!romfile) {
+  fprintf(stderr,"Cannot create file v09.rom\n");
+  exit(1);
+ }
+ fwrite(mem,0x8000,1,romfile);
+ fclose(romfile);
+ exit(0);
+}