1 files changed, 108 insertions, 0 deletions
diff --git a/sys/arch/mvme88k/stand/boot/wrtvid.c b/sys/arch/mvme88k/stand/boot/wrtvid.c
new file mode 100644
index 00000000000..6161ccaa85a
--- /dev/null
+++ b/sys/arch/mvme88k/stand/boot/wrtvid.c
@@ -0,0 +1,108 @@
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <stdio.h>
+#include "vid.h"
+
+#define	sec2blk(x)	((x) * 2)
+
+main(int argc, char **argv)
+{
+	struct vid *pvid;
+	struct cfg *pcfg;
+	struct stat stat;
+	int exe_file;
+	int tape_vid;
+	int tape_exe;
+	unsigned int exe_addr;
+	unsigned short exe_addr_u;
+	unsigned short exe_addr_l;
+	char *filename;
+	char fileext[256];
+
+	if (argc == 0){
+		filename = "a.out";
+	} else {
+		filename = argv[1];
+	}
+	exe_file = open(filename, O_RDONLY,0444);
+	if (exe_file == -1)
+	{
+		printf("file %s does not exist\n",filename);
+		exit(2);
+	}
+	sprintf (fileext,"%s%s",filename,".1");
+	tape_vid = open(fileext, O_WRONLY|O_CREAT|O_TRUNC,0644);
+	sprintf (fileext,"%s%s",filename,".2");
+	tape_exe = open(fileext, O_WRONLY|O_CREAT|O_TRUNC,0644);
+
+	pvid = (struct vid *) malloc(sizeof (struct vid));
+
+	memset(pvid,0,sizeof(struct vid));
+
+	strcpy(pvid->vid_id, "NBSD");
+
+	fstat (exe_file,&stat);
+	/* size in 512 byte blocks round up after a.out header removed */
+	/* Actually, blocks == 256 bytes */
+
+	pvid->vid_oss = 1;
+	pvid->vid_osl = (short)sec2blk((stat.st_size - 0x20 + 511) / 512);
+
+	lseek(exe_file,0x14,SEEK_SET);
+	read(exe_file,&exe_addr,4);
+	{
+		union {
+			struct {
+				short osa_u;
+				short osa_l;
+			} osa_u_l; 
+			int	osa;
+		} u;
+		u.osa = exe_addr;
+		pvid->vid_osa_u = u.osa_u_l.osa_u;
+		pvid->vid_osa_l = u.osa_u_l.osa_l;
+	}
+	pvid->vid_cas = 1;
+	pvid->vid_cal = 1;
+	/* do not want to write past end of structure, not null terminated */
+	strcpy(pvid->vid_mot,"MOTOROL");
+	pvid->vid_mot[7] = 'A';
+
+	write(tape_vid,pvid,sizeof(struct vid));
+
+	free(pvid);
+
+	pcfg = (struct cfg *) malloc (sizeof(struct cfg));
+
+	memset(pcfg,0,sizeof(struct cfg));
+
+	pcfg->cfg_rec = 0x100;
+	pcfg->cfg_psm = 0x200;
+
+	write(tape_vid,pcfg,sizeof(struct cfg));
+
+	free(pcfg);
+
+	copy_exe(exe_file,tape_exe);
+	close (exe_file);
+	close (tape_vid);
+	close (tape_exe);
+}
+
+#define BUF_SIZ 512
+copy_exe(exe_file,tape_exe)
+{
+	char *buf;
+	int cnt = 0;
+
+	buf = (char *)malloc (BUF_SIZ);
+
+	lseek (exe_file,0x20,SEEK_SET);
+	while (BUF_SIZ == (cnt = read(exe_file, buf , BUF_SIZ))) {
+		write (tape_exe,buf,cnt);
+	}
+	memset (&buf[cnt],0,BUF_SIZ-cnt);
+	write (tape_exe,buf,BUF_SIZ);
+}