From a44c565ced9e27eb526afc68a76aa1b220dd04f2 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 24 Jun 1993 08:07:26 +0000
Subject: [PATCH] Initial revision

---
 v7/src/microcode/cmpauxmd/makefile | 20 ++++++++++++++++++++
 v7/src/microcode/s/nt.m4           | 30 ++++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 v7/src/microcode/cmpauxmd/makefile
 create mode 100755 v7/src/microcode/s/nt.m4

diff --git a/v7/src/microcode/cmpauxmd/makefile b/v7/src/microcode/cmpauxmd/makefile
new file mode 100644
index 000000000..df54ad40c
--- /dev/null
+++ b/v7/src/microcode/cmpauxmd/makefile
@@ -0,0 +1,20 @@
+#
+# Makefile for MS DOS and Windows NT compiled code interface files
+# for the MIT CScheme microcode.
+#
+# $Id: makefile,v 1.1 1993/06/24 08:07:26 gjr Exp $
+#
+
+i386-dos.asm: i386.m4 ../s/dos.m4
+	rm -f i386-dos.asm
+	../s/dos.m4 <i386.m4 >i386-dos.asm
+
+
+i386-nt.asm: i386.m4 ../s/nt.m4
+	rm -f i386-nt.asm
+	../s/nt.m4 <i386.m4 >i386-nt.asm
+
+
+all: i386-dos.asm i386-nt.asm
+
+
diff --git a/v7/src/microcode/s/nt.m4 b/v7/src/microcode/s/nt.m4
new file mode 100755
index 000000000..fd5817ec2
--- /dev/null
+++ b/v7/src/microcode/s/nt.m4
@@ -0,0 +1,30 @@
+#!/bin/csh -f
+###
+###	$Id: nt.m4,v 1.1 1993/06/24 08:04:38 gjr Exp $
+###
+###	Copyright (c) 1993 Massachusetts Institute of Technology
+###
+####	Postprocessing to get valid nt assembly language from cmpauxmd/i386.m4
+
+set tmpfil = "m4.tmp"
+set seen_input = 0
+rm -f "$tmpfil"
+
+echo changecom\(\`\;\'\) >> "$tmpfil"
+echo "define(DOS,1)" >> "$tmpfil"
+echo "define(WINNT,1)" >> "$tmpfil"
+while ($#argv != 0)
+  if ("$argv[1]" == "-P") then
+    echo "$argv[2]" >> "$tmpfil"
+    shift
+  else
+    set seen_input = 1
+    sed -e '/#/;/g' < "$argv[1]" >> "$tmpfil"
+  endif
+  shift
+end
+if ($seen_input == 0) then
+  sed -e 's/#/;/g' >> "$tmpfil"
+endif
+m4 < "$tmpfil" | sed -e 's/^$//' | sed -n -e '/^..*/p'
+rm -f "$tmpfil"
-- 
2.25.1