Initial revision

diff --git a/v7/src/microcode/cmpauxmd/makefile b/v7/src/microcode/cmpauxmd/makefile
new file mode 100644 (file)
index 0000000..df54ad4
--- /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 (executable)
index 0000000..fd5817e
--- /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/^\f$//' | sed -n -e '/^..*/p'
+rm -f "$tmpfil"