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

---
 v7/src/microcode/cmpauxmd/sun3-gcc.s | 379 +++++++++++++++++++++
 v7/src/microcode/cmpauxmd/sun3-nfp.s | 382 +++++++++++++++++++++
 v7/src/microcode/cmpauxmd/sun3.s     | 383 +++++++++++++++++++++
 v7/src/microcode/dosutl/config.bat   |  11 +
 v7/src/microcode/dosutl/float.h      |  41 +++
 v7/src/microcode/ntutl/bch-cl3.lst   |  86 +++++
 v7/src/microcode/ntutl/bch-p-nt.lst  | 108 ++++++
 v7/src/microcode/ntutl/config.bat    |  11 +
 v7/src/microcode/ntutl/float.h       |  41 +++
 v7/src/microcode/ntutl/limits.h      |  18 +
 v7/src/microcode/ntutl/makefile      | 482 +++++++++++++++++++++++++++
 v7/src/microcode/ntutl/scm-cl3.lst   |  86 +++++
 v7/src/microcode/ntutl/scm-p-nt.lst  | 109 ++++++
 13 files changed, 2137 insertions(+)
 create mode 100644 v7/src/microcode/cmpauxmd/sun3-gcc.s
 create mode 100644 v7/src/microcode/cmpauxmd/sun3-nfp.s
 create mode 100644 v7/src/microcode/cmpauxmd/sun3.s
 create mode 100644 v7/src/microcode/dosutl/config.bat
 create mode 100644 v7/src/microcode/dosutl/float.h
 create mode 100644 v7/src/microcode/ntutl/bch-cl3.lst
 create mode 100644 v7/src/microcode/ntutl/bch-p-nt.lst
 create mode 100644 v7/src/microcode/ntutl/config.bat
 create mode 100644 v7/src/microcode/ntutl/float.h
 create mode 100644 v7/src/microcode/ntutl/limits.h
 create mode 100644 v7/src/microcode/ntutl/makefile
 create mode 100644 v7/src/microcode/ntutl/scm-cl3.lst
 create mode 100644 v7/src/microcode/ntutl/scm-p-nt.lst

diff --git a/v7/src/microcode/cmpauxmd/sun3-gcc.s b/v7/src/microcode/cmpauxmd/sun3-gcc.s
new file mode 100644
index 000000000..c529f3ce9
--- /dev/null
+++ b/v7/src/microcode/cmpauxmd/sun3-gcc.s
@@ -0,0 +1,379 @@
+regblock_val	=	8
+address_mask	=	0x3FFFFFF
+	.data
+	.globl	c_save_stack
+c_save_stack:
+	.skip	4
+	.text
+	.globl	_interface_initialize
+_interface_initialize:
+	link	a6,#0
+	fmovel	#0x7480,fpcr
+	unlk	a6
+	rts
+	.globl	_C_to_interface
+_C_to_interface:
+	link	a6,#-44
+	moveml	d2-d7/a2-a5,a7@(4)
+	movl	a6@(8),a0
+	bras	interface_to_scheme_internal
+	.globl	_asm_scheme_to_interface
+_asm_scheme_to_interface:
+	.globl	scheme_to_interface
+scheme_to_interface:
+	movl	a5,_Free
+	movl	sp,_Ext_Stack_Pointer
+	movl	c_save_stack,sp
+	movl	a7@,a6
+	movl	d4,a7@-
+	movl	d3,a7@-
+	movl	d2,a7@-
+	movl	d1,a7@-
+	lea	_utility_table,a0
+	movl	a0@(0,d0:w:4),a0
+	jsr	a0@
+	lea	a7@(16),sp
+	movl	d0,a0
+	jmp	a0@
+	.globl	_interface_to_scheme
+_interface_to_scheme:
+	movl	d1,a0
+	.globl	interface_to_scheme_internal
+interface_to_scheme_internal:
+	movl	a6,a7@
+	movl	sp,c_save_stack
+	movl	_Ext_Stack_Pointer,sp
+	movl	_Free,a5
+	lea	_Registers,a6
+	movl	#address_mask,d7
+	movl	a6@(regblock_val),d0
+	movl	d0,d1
+	andl	d7,d1
+	movl	d1,a4
+	jmp	a0@
+	.globl	_interface_to_C
+_interface_to_C:
+	movl	d1,d0
+	moveml	a7@(4),d2-d7/a2-a5
+	unlk	a6
+	rts
+	.globl	_asm_trampoline_to_interface
+_asm_trampoline_to_interface:
+	.globl	trampoline_to_interface
+trampoline_to_interface:
+	movl	a7@+,d1
+	bra	scheme_to_interface
+	.globl	_asm_scheme_to_interface_jsr
+_asm_scheme_to_interface_jsr:
+	.globl	scheme_to_interface_jsr
+scheme_to_interface_jsr:
+	movl	a7@+,d1
+	addql	#4,d1
+	bra	scheme_to_interface
+	.globl	_asm_primitive_lexpr_apply
+_asm_primitive_lexpr_apply:
+	moveq	#0x13,d0
+	bra	scheme_to_interface
+	.globl	_asm_error
+_asm_error:
+	moveq	#0x15,d0
+	bra	scheme_to_interface
+	.globl	_asm_link
+_asm_link:
+	moveq	#0x17,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_closure
+_asm_interrupt_closure:
+	moveq	#0x18,d0
+	bra	scheme_to_interface
+	.globl	_asm_interrupt_procedure
+_asm_interrupt_procedure:
+	moveq	#0x1a,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_continuation
+_asm_interrupt_continuation:
+	moveq	#0x1b,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_assignment_trap
+_asm_assignment_trap:
+	moveq	#0x1d,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_reference_trap
+_asm_reference_trap:
+	moveq	#0x1f,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_safe_reference_trap
+_asm_safe_reference_trap:
+	moveq	#0x20,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_generic_decrement
+_asm_generic_decrement:
+	moveq	#0x22,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_divide
+_asm_generic_divide:
+	moveq	#0x23,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_equal
+_asm_generic_equal:
+	moveq	#0x24,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_greater
+_asm_generic_greater:
+	moveq	#0x25,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_increment
+_asm_generic_increment:
+	moveq	#0x26,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_less
+_asm_generic_less:
+	moveq	#0x27,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_subtract
+_asm_generic_subtract:
+	moveq	#0x28,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_multiply
+_asm_generic_multiply:
+	moveq	#0x29,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_negative
+_asm_generic_negative:
+	moveq	#0x2a,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_add
+_asm_generic_add:
+	moveq	#0x2b,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_positive
+_asm_generic_positive:
+	moveq	#0x2c,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_zero
+_asm_generic_zero:
+	moveq	#0x2d,d0
+	bra	scheme_to_interface
+	.globl	_asm_primitive_error
+_asm_primitive_error:
+	moveq	#0x36,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_dlink
+_asm_interrupt_dlink:
+	movl	a4,d2
+	moveq	#0x19,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_primitive_apply
+_asm_primitive_apply:
+	movl	a5,_Free
+	movl	sp,_Ext_Stack_Pointer
+	movl	c_save_stack,sp
+	movl	a7@,a6
+	movl	d1,a7@-
+	lea	_utility_table,a0
+	movl	a0@(0x12*4),a0
+	jsr	a0@
+	lea	a7@(4),sp
+	movl	d0,a0
+	jmp	a0@
+tc_compiled_entry	=	0x28
+offset_apply	=	0x14
+	.globl	_asm_shortcircuit_apply
+_asm_shortcircuit_apply:
+	.globl	shortcircuit_apply
+shortcircuit_apply:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_2
+	andl	d7,d1
+	movl	d1,a0
+	movb	a0@(-3),d1
+	extw	d1
+	cmpw	d1,d2
+	bnes	shortcircuit_apply_1
+	jmp	a0@
+	.globl	shortcircuit_apply_1
+shortcircuit_apply_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_2
+shortcircuit_apply_2:
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_1
+_asm_shortcircuit_apply_size_1:
+	.globl	shortcircuit_apply_size_1
+shortcircuit_apply_size_1:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_1_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#1,a0@(-3)
+	bnes	shortcircuit_apply_size_1_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_1_1
+shortcircuit_apply_size_1_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_1_2
+shortcircuit_apply_size_1_2:
+	moveq	#1,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_2
+_asm_shortcircuit_apply_size_2:
+	.globl	shortcircuit_apply_size_2
+shortcircuit_apply_size_2:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_2_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#2,a0@(-3)
+	bnes	shortcircuit_apply_size_2_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_2_1
+shortcircuit_apply_size_2_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_2_2
+shortcircuit_apply_size_2_2:
+	moveq	#2,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_3
+_asm_shortcircuit_apply_size_3:
+	.globl	shortcircuit_apply_size_3
+shortcircuit_apply_size_3:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_3_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#3,a0@(-3)
+	bnes	shortcircuit_apply_size_3_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_3_1
+shortcircuit_apply_size_3_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_3_2
+shortcircuit_apply_size_3_2:
+	moveq	#3,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_4
+_asm_shortcircuit_apply_size_4:
+	.globl	shortcircuit_apply_size_4
+shortcircuit_apply_size_4:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_4_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#4,a0@(-3)
+	bnes	shortcircuit_apply_size_4_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_4_1
+shortcircuit_apply_size_4_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_4_2
+shortcircuit_apply_size_4_2:
+	moveq	#4,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_5
+_asm_shortcircuit_apply_size_5:
+	.globl	shortcircuit_apply_size_5
+shortcircuit_apply_size_5:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_5_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#5,a0@(-3)
+	bnes	shortcircuit_apply_size_5_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_5_1
+shortcircuit_apply_size_5_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_5_2
+shortcircuit_apply_size_5_2:
+	moveq	#5,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_6
+_asm_shortcircuit_apply_size_6:
+	.globl	shortcircuit_apply_size_6
+shortcircuit_apply_size_6:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_6_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#6,a0@(-3)
+	bnes	shortcircuit_apply_size_6_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_6_1
+shortcircuit_apply_size_6_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_6_2
+shortcircuit_apply_size_6_2:
+	moveq	#6,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_7
+_asm_shortcircuit_apply_size_7:
+	.globl	shortcircuit_apply_size_7
+shortcircuit_apply_size_7:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_7_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#7,a0@(-3)
+	bnes	shortcircuit_apply_size_7_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_7_1
+shortcircuit_apply_size_7_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_7_2
+shortcircuit_apply_size_7_2:
+	moveq	#7,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_8
+_asm_shortcircuit_apply_size_8:
+	.globl	shortcircuit_apply_size_8
+shortcircuit_apply_size_8:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_8_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#8,a0@(-3)
+	bnes	shortcircuit_apply_size_8_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_8_1
+shortcircuit_apply_size_8_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_8_2
+shortcircuit_apply_size_8_2:
+	moveq	#8,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
diff --git a/v7/src/microcode/cmpauxmd/sun3-nfp.s b/v7/src/microcode/cmpauxmd/sun3-nfp.s
new file mode 100644
index 000000000..edb175cfe
--- /dev/null
+++ b/v7/src/microcode/cmpauxmd/sun3-nfp.s
@@ -0,0 +1,382 @@
+regblock_val	=	8
+address_mask	=	0x3FFFFFF
+	.data
+	.globl	c_save_stack
+c_save_stack:
+	.skip	4
+	.text
+	.globl	_interface_initialize
+_interface_initialize:
+	link	a6,#0
+	unlk	a6
+	rts
+	.globl	_C_to_interface
+_C_to_interface:
+	link	a6,#-44
+	moveml	d2-d7/a2-a5,a7@(4)
+	movl	a6@(8),a0
+	bras	interface_to_scheme_internal
+	.globl	_asm_scheme_to_interface
+_asm_scheme_to_interface:
+	.globl	scheme_to_interface
+scheme_to_interface:
+	movl	a5,_Free
+	movl	sp,_Ext_Stack_Pointer
+	movl	c_save_stack,sp
+	movl	a7@,a6
+	movl	d4,a7@-
+	movl	d3,a7@-
+	movl	d2,a7@-
+	movl	d1,a7@-
+	lea	_utility_table,a0
+	movl	a0@(0,d0:w:4),a0
+	jsr	a0@
+	lea	a7@(16),sp
+	movl	d0,a0
+	movl	a0@(4),d1
+	movl	a0@(0),a0
+	jmp	a0@
+	.globl	_interface_to_scheme
+_interface_to_scheme:
+	movl	d1,a0
+	.globl	interface_to_scheme_internal
+interface_to_scheme_internal:
+	movl	a6,a7@
+	movl	sp,c_save_stack
+	movl	_Ext_Stack_Pointer,sp
+	movl	_Free,a5
+	lea	_Registers,a6
+	movl	#address_mask,d7
+	movl	a6@(regblock_val),d0
+	movl	d0,d1
+	andl	d7,d1
+	movl	d1,a4
+	jmp	a0@
+	.globl	_interface_to_C
+_interface_to_C:
+	movl	d1,d0
+	moveml	a7@(4),d2-d7/a2-a5
+	unlk	a6
+	rts
+	.globl	_asm_trampoline_to_interface
+_asm_trampoline_to_interface:
+	.globl	trampoline_to_interface
+trampoline_to_interface:
+	movl	a7@+,d1
+	bra	scheme_to_interface
+	.globl	_asm_scheme_to_interface_jsr
+_asm_scheme_to_interface_jsr:
+	.globl	scheme_to_interface_jsr
+scheme_to_interface_jsr:
+	movl	a7@+,d1
+	addql	#4,d1
+	bra	scheme_to_interface
+	.globl	_asm_primitive_lexpr_apply
+_asm_primitive_lexpr_apply:
+	moveq	#0x13,d0
+	bra	scheme_to_interface
+	.globl	_asm_error
+_asm_error:
+	moveq	#0x15,d0
+	bra	scheme_to_interface
+	.globl	_asm_link
+_asm_link:
+	moveq	#0x17,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_closure
+_asm_interrupt_closure:
+	moveq	#0x18,d0
+	bra	scheme_to_interface
+	.globl	_asm_interrupt_procedure
+_asm_interrupt_procedure:
+	moveq	#0x1a,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_continuation
+_asm_interrupt_continuation:
+	moveq	#0x1b,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_assignment_trap
+_asm_assignment_trap:
+	moveq	#0x1d,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_reference_trap
+_asm_reference_trap:
+	moveq	#0x1f,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_safe_reference_trap
+_asm_safe_reference_trap:
+	moveq	#0x20,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_generic_decrement
+_asm_generic_decrement:
+	moveq	#0x22,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_divide
+_asm_generic_divide:
+	moveq	#0x23,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_equal
+_asm_generic_equal:
+	moveq	#0x24,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_greater
+_asm_generic_greater:
+	moveq	#0x25,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_increment
+_asm_generic_increment:
+	moveq	#0x26,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_less
+_asm_generic_less:
+	moveq	#0x27,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_subtract
+_asm_generic_subtract:
+	moveq	#0x28,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_multiply
+_asm_generic_multiply:
+	moveq	#0x29,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_negative
+_asm_generic_negative:
+	moveq	#0x2a,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_add
+_asm_generic_add:
+	moveq	#0x2b,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_positive
+_asm_generic_positive:
+	moveq	#0x2c,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_zero
+_asm_generic_zero:
+	moveq	#0x2d,d0
+	bra	scheme_to_interface
+	.globl	_asm_primitive_error
+_asm_primitive_error:
+	moveq	#0x36,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_dlink
+_asm_interrupt_dlink:
+	movl	a4,d2
+	moveq	#0x19,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_primitive_apply
+_asm_primitive_apply:
+	movl	a5,_Free
+	movl	sp,_Ext_Stack_Pointer
+	movl	c_save_stack,sp
+	movl	a7@,a6
+	movl	d1,a7@-
+	lea	_utility_table,a0
+	movl	a0@(0x12*4),a0
+	jsr	a0@
+	lea	a7@(4),sp
+	movl	d0,a0
+	movl	a0@(4),d1
+	movl	a0@(0),a0
+	jmp	a0@
+tc_compiled_entry	=	0x28
+offset_apply	=	0x14
+	.globl	_asm_shortcircuit_apply
+_asm_shortcircuit_apply:
+	.globl	shortcircuit_apply
+shortcircuit_apply:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_2
+	andl	d7,d1
+	movl	d1,a0
+	movb	a0@(-3),d1
+	extw	d1
+	cmpw	d1,d2
+	bnes	shortcircuit_apply_1
+	jmp	a0@
+	.globl	shortcircuit_apply_1
+shortcircuit_apply_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_2
+shortcircuit_apply_2:
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_1
+_asm_shortcircuit_apply_size_1:
+	.globl	shortcircuit_apply_size_1
+shortcircuit_apply_size_1:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_1_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#1,a0@(-3)
+	bnes	shortcircuit_apply_size_1_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_1_1
+shortcircuit_apply_size_1_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_1_2
+shortcircuit_apply_size_1_2:
+	moveq	#1,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_2
+_asm_shortcircuit_apply_size_2:
+	.globl	shortcircuit_apply_size_2
+shortcircuit_apply_size_2:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_2_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#2,a0@(-3)
+	bnes	shortcircuit_apply_size_2_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_2_1
+shortcircuit_apply_size_2_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_2_2
+shortcircuit_apply_size_2_2:
+	moveq	#2,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_3
+_asm_shortcircuit_apply_size_3:
+	.globl	shortcircuit_apply_size_3
+shortcircuit_apply_size_3:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_3_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#3,a0@(-3)
+	bnes	shortcircuit_apply_size_3_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_3_1
+shortcircuit_apply_size_3_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_3_2
+shortcircuit_apply_size_3_2:
+	moveq	#3,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_4
+_asm_shortcircuit_apply_size_4:
+	.globl	shortcircuit_apply_size_4
+shortcircuit_apply_size_4:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_4_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#4,a0@(-3)
+	bnes	shortcircuit_apply_size_4_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_4_1
+shortcircuit_apply_size_4_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_4_2
+shortcircuit_apply_size_4_2:
+	moveq	#4,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_5
+_asm_shortcircuit_apply_size_5:
+	.globl	shortcircuit_apply_size_5
+shortcircuit_apply_size_5:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_5_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#5,a0@(-3)
+	bnes	shortcircuit_apply_size_5_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_5_1
+shortcircuit_apply_size_5_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_5_2
+shortcircuit_apply_size_5_2:
+	moveq	#5,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_6
+_asm_shortcircuit_apply_size_6:
+	.globl	shortcircuit_apply_size_6
+shortcircuit_apply_size_6:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_6_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#6,a0@(-3)
+	bnes	shortcircuit_apply_size_6_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_6_1
+shortcircuit_apply_size_6_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_6_2
+shortcircuit_apply_size_6_2:
+	moveq	#6,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_7
+_asm_shortcircuit_apply_size_7:
+	.globl	shortcircuit_apply_size_7
+shortcircuit_apply_size_7:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_7_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#7,a0@(-3)
+	bnes	shortcircuit_apply_size_7_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_7_1
+shortcircuit_apply_size_7_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_7_2
+shortcircuit_apply_size_7_2:
+	moveq	#7,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_8
+_asm_shortcircuit_apply_size_8:
+	.globl	shortcircuit_apply_size_8
+shortcircuit_apply_size_8:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_8_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#8,a0@(-3)
+	bnes	shortcircuit_apply_size_8_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_8_1
+shortcircuit_apply_size_8_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_8_2
+shortcircuit_apply_size_8_2:
+	moveq	#8,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
diff --git a/v7/src/microcode/cmpauxmd/sun3.s b/v7/src/microcode/cmpauxmd/sun3.s
new file mode 100644
index 000000000..7db5e254c
--- /dev/null
+++ b/v7/src/microcode/cmpauxmd/sun3.s
@@ -0,0 +1,383 @@
+regblock_val	=	8
+address_mask	=	0x3FFFFFF
+	.data
+	.globl	c_save_stack
+c_save_stack:
+	.skip	4
+	.text
+	.globl	_interface_initialize
+_interface_initialize:
+	link	a6,#0
+	fmovel	#0x7480,fpcr
+	unlk	a6
+	rts
+	.globl	_C_to_interface
+_C_to_interface:
+	link	a6,#-44
+	moveml	d2-d7/a2-a5,a7@(4)
+	movl	a6@(8),a0
+	bras	interface_to_scheme_internal
+	.globl	_asm_scheme_to_interface
+_asm_scheme_to_interface:
+	.globl	scheme_to_interface
+scheme_to_interface:
+	movl	a5,_Free
+	movl	sp,_Ext_Stack_Pointer
+	movl	c_save_stack,sp
+	movl	a7@,a6
+	movl	d4,a7@-
+	movl	d3,a7@-
+	movl	d2,a7@-
+	movl	d1,a7@-
+	lea	_utility_table,a0
+	movl	a0@(0,d0:w:4),a0
+	jsr	a0@
+	lea	a7@(16),sp
+	movl	d0,a0
+	movl	a0@(4),d1
+	movl	a0@(0),a0
+	jmp	a0@
+	.globl	_interface_to_scheme
+_interface_to_scheme:
+	movl	d1,a0
+	.globl	interface_to_scheme_internal
+interface_to_scheme_internal:
+	movl	a6,a7@
+	movl	sp,c_save_stack
+	movl	_Ext_Stack_Pointer,sp
+	movl	_Free,a5
+	lea	_Registers,a6
+	movl	#address_mask,d7
+	movl	a6@(regblock_val),d0
+	movl	d0,d1
+	andl	d7,d1
+	movl	d1,a4
+	jmp	a0@
+	.globl	_interface_to_C
+_interface_to_C:
+	movl	d1,d0
+	moveml	a7@(4),d2-d7/a2-a5
+	unlk	a6
+	rts
+	.globl	_asm_trampoline_to_interface
+_asm_trampoline_to_interface:
+	.globl	trampoline_to_interface
+trampoline_to_interface:
+	movl	a7@+,d1
+	bra	scheme_to_interface
+	.globl	_asm_scheme_to_interface_jsr
+_asm_scheme_to_interface_jsr:
+	.globl	scheme_to_interface_jsr
+scheme_to_interface_jsr:
+	movl	a7@+,d1
+	addql	#4,d1
+	bra	scheme_to_interface
+	.globl	_asm_primitive_lexpr_apply
+_asm_primitive_lexpr_apply:
+	moveq	#0x13,d0
+	bra	scheme_to_interface
+	.globl	_asm_error
+_asm_error:
+	moveq	#0x15,d0
+	bra	scheme_to_interface
+	.globl	_asm_link
+_asm_link:
+	moveq	#0x17,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_closure
+_asm_interrupt_closure:
+	moveq	#0x18,d0
+	bra	scheme_to_interface
+	.globl	_asm_interrupt_procedure
+_asm_interrupt_procedure:
+	moveq	#0x1a,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_continuation
+_asm_interrupt_continuation:
+	moveq	#0x1b,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_assignment_trap
+_asm_assignment_trap:
+	moveq	#0x1d,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_reference_trap
+_asm_reference_trap:
+	moveq	#0x1f,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_safe_reference_trap
+_asm_safe_reference_trap:
+	moveq	#0x20,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_generic_decrement
+_asm_generic_decrement:
+	moveq	#0x22,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_divide
+_asm_generic_divide:
+	moveq	#0x23,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_equal
+_asm_generic_equal:
+	moveq	#0x24,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_greater
+_asm_generic_greater:
+	moveq	#0x25,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_increment
+_asm_generic_increment:
+	moveq	#0x26,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_less
+_asm_generic_less:
+	moveq	#0x27,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_subtract
+_asm_generic_subtract:
+	moveq	#0x28,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_multiply
+_asm_generic_multiply:
+	moveq	#0x29,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_negative
+_asm_generic_negative:
+	moveq	#0x2a,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_add
+_asm_generic_add:
+	moveq	#0x2b,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_positive
+_asm_generic_positive:
+	moveq	#0x2c,d0
+	bra	scheme_to_interface
+	.globl	_asm_generic_zero
+_asm_generic_zero:
+	moveq	#0x2d,d0
+	bra	scheme_to_interface
+	.globl	_asm_primitive_error
+_asm_primitive_error:
+	moveq	#0x36,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_interrupt_dlink
+_asm_interrupt_dlink:
+	movl	a4,d2
+	moveq	#0x19,d0
+	bra	scheme_to_interface_jsr
+	.globl	_asm_primitive_apply
+_asm_primitive_apply:
+	movl	a5,_Free
+	movl	sp,_Ext_Stack_Pointer
+	movl	c_save_stack,sp
+	movl	a7@,a6
+	movl	d1,a7@-
+	lea	_utility_table,a0
+	movl	a0@(0x12*4),a0
+	jsr	a0@
+	lea	a7@(4),sp
+	movl	d0,a0
+	movl	a0@(4),d1
+	movl	a0@(0),a0
+	jmp	a0@
+tc_compiled_entry	=	0x28
+offset_apply	=	0x14
+	.globl	_asm_shortcircuit_apply
+_asm_shortcircuit_apply:
+	.globl	shortcircuit_apply
+shortcircuit_apply:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_2
+	andl	d7,d1
+	movl	d1,a0
+	movb	a0@(-3),d1
+	extw	d1
+	cmpw	d1,d2
+	bnes	shortcircuit_apply_1
+	jmp	a0@
+	.globl	shortcircuit_apply_1
+shortcircuit_apply_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_2
+shortcircuit_apply_2:
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_1
+_asm_shortcircuit_apply_size_1:
+	.globl	shortcircuit_apply_size_1
+shortcircuit_apply_size_1:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_1_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#1,a0@(-3)
+	bnes	shortcircuit_apply_size_1_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_1_1
+shortcircuit_apply_size_1_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_1_2
+shortcircuit_apply_size_1_2:
+	moveq	#1,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_2
+_asm_shortcircuit_apply_size_2:
+	.globl	shortcircuit_apply_size_2
+shortcircuit_apply_size_2:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_2_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#2,a0@(-3)
+	bnes	shortcircuit_apply_size_2_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_2_1
+shortcircuit_apply_size_2_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_2_2
+shortcircuit_apply_size_2_2:
+	moveq	#2,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_3
+_asm_shortcircuit_apply_size_3:
+	.globl	shortcircuit_apply_size_3
+shortcircuit_apply_size_3:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_3_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#3,a0@(-3)
+	bnes	shortcircuit_apply_size_3_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_3_1
+shortcircuit_apply_size_3_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_3_2
+shortcircuit_apply_size_3_2:
+	moveq	#3,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_4
+_asm_shortcircuit_apply_size_4:
+	.globl	shortcircuit_apply_size_4
+shortcircuit_apply_size_4:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_4_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#4,a0@(-3)
+	bnes	shortcircuit_apply_size_4_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_4_1
+shortcircuit_apply_size_4_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_4_2
+shortcircuit_apply_size_4_2:
+	moveq	#4,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_5
+_asm_shortcircuit_apply_size_5:
+	.globl	shortcircuit_apply_size_5
+shortcircuit_apply_size_5:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_5_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#5,a0@(-3)
+	bnes	shortcircuit_apply_size_5_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_5_1
+shortcircuit_apply_size_5_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_5_2
+shortcircuit_apply_size_5_2:
+	moveq	#5,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_6
+_asm_shortcircuit_apply_size_6:
+	.globl	shortcircuit_apply_size_6
+shortcircuit_apply_size_6:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_6_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#6,a0@(-3)
+	bnes	shortcircuit_apply_size_6_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_6_1
+shortcircuit_apply_size_6_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_6_2
+shortcircuit_apply_size_6_2:
+	moveq	#6,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_7
+_asm_shortcircuit_apply_size_7:
+	.globl	shortcircuit_apply_size_7
+shortcircuit_apply_size_7:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_7_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#7,a0@(-3)
+	bnes	shortcircuit_apply_size_7_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_7_1
+shortcircuit_apply_size_7_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_7_2
+shortcircuit_apply_size_7_2:
+	moveq	#7,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
+	.globl	_asm_shortcircuit_apply_size_8
+_asm_shortcircuit_apply_size_8:
+	.globl	shortcircuit_apply_size_8
+shortcircuit_apply_size_8:
+	movb	a7@,d0
+	andb	#0xFC,d0
+	movl	a7@+,d1
+	cmpb	#tc_compiled_entry*4,d0
+	bnes	shortcircuit_apply_size_8_2
+	andl	d7,d1
+	movl	d1,a0
+	cmpb	#8,a0@(-3)
+	bnes	shortcircuit_apply_size_8_1
+	jmp	a0@
+	.globl	shortcircuit_apply_size_8_1
+shortcircuit_apply_size_8_1:
+	movl	a7@(-4),d1
+	.globl	shortcircuit_apply_size_8_2
+shortcircuit_apply_size_8_2:
+	moveq	#8,d2
+	moveq	#offset_apply,d0
+	bra	scheme_to_interface
diff --git a/v7/src/microcode/dosutl/config.bat b/v7/src/microcode/dosutl/config.bat
new file mode 100644
index 000000000..4a57b4575
--- /dev/null
+++ b/v7/src/microcode/dosutl/config.bat
@@ -0,0 +1,11 @@
+rem MIT Scheme microcode configuration script for DOS
+rem
+rem Copyright (c) 1993 Massachusetts Institute of Technology
+rem
+rem $Id: config.bat,v 1.1 1993/06/24 07:40:46 gjr Exp $
+rem
+copy cmpintmd\i386.h cmpintmd.h
+copy cmpauxmd\i386-dos.asm cmpauxmd.asm
+copy dosutl\*.lst .
+copy dosutl\*.h .
+copy dosutl\makefile .
diff --git a/v7/src/microcode/dosutl/float.h b/v7/src/microcode/dosutl/float.h
new file mode 100644
index 000000000..b3091f9d9
--- /dev/null
+++ b/v7/src/microcode/dosutl/float.h
@@ -0,0 +1,41 @@
+/* float.h */
+/* Produced by hard-params version 4.1, CWI, Amsterdam */
+
+#define FLT_RADIX 2
+#define FLT_MANT_DIG 24
+#define FLT_DIG 6
+#define FLT_ROUNDS 1
+#define FLT_EPSILON ((float)1.19209290e-007)
+#define FLT_MIN_EXP (-125)
+#define FLT_MIN ((float)1.17549435e-038)
+#define FLT_MIN_10_EXP (-37)
+#define FLT_MAX_EXP 128
+#define FLT_MAX ((float)3.40282347e+038)
+#define FLT_MAX_10_EXP 38
+
+#define DBL_MANT_DIG 53
+#define DBL_DIG 15
+#define DBL_EPSILON 2.2204460492503130e-016
+
+/* *** WARNING: Possibly bad output from printf above */
+/*     expected value around 2.2204460492503130e-16, bit pattern:
+    00000000 00000000 00000000 00000000 00000000 00000000 10110000 00111100 */
+/*     sscanf gave           2.2204460492503126e-016, bit pattern:
+    11111111 11111111 11111111 11111111 11111111 11111111 10101111 00111100 */
+/*     difference= 2.4651903288156620e-032 */
+
+#define DBL_MIN_EXP (-1021)
+#define DBL_MIN 2.2250738585072018e-308
+#define DBL_MIN_10_EXP (-307)
+#define DBL_MAX_EXP 1024
+#define DBL_MAX 1.7976931348623155e+308
+
+/* *** WARNING: Possibly bad output from printf above */
+/*     expected value around 1.7976931348623164e308, bit pattern:
+    11111111 11111111 11111111 11111111 11111111 11111111 11101111 01111111 */
+/*     sscanf gave           inf, bit pattern:
+    00000000 00000000 00000000 00000000 00000000 00000000 11110000 01111111 */
+/*     difference= -inf */
+
+#define DBL_MAX_10_EXP 308
+
diff --git a/v7/src/microcode/ntutl/bch-cl3.lst b/v7/src/microcode/ntutl/bch-cl3.lst
new file mode 100644
index 000000000..70120813e
--- /dev/null
+++ b/v7/src/microcode/ntutl/bch-cl3.lst
@@ -0,0 +1,86 @@
+artutl.obj
+bignum.obj
+bigprm.obj
+bitstr.obj
+boot.obj
+char.obj
+cmpauxmd.obj
+cmpint.obj
+comutl.obj
+daemon.obj
+debug.obj
+dfloat.obj
+error.obj
+extern.obj
+fasload.obj
+fixnum.obj
+flonum.obj
+generic.obj
+hooks.obj
+hunk.obj
+intern.obj
+interp.obj
+intext.obj
+intprm.obj
+list.obj
+lookprm.obj
+lookup.obj
+missing.obj
+obstack.obj
+option.obj
+osscheme.obj
+ostty.obj
+outf.obj
+prim.obj
+primutl.obj
+prmcon.obj
+ptrvec.obj
+purutl.obj
+regex.obj
+rgxprim.obj
+step.obj
+storage.obj
+string.obj
+syntax.obj
+sysprim.obj
+term.obj
+tparam.obj
+transact.obj
+utils.obj
+vector.obj
+wind.obj
+
+prosenv.obj
+prosfile.obj
+prosfs.obj
+prosio.obj
+prosterm.obj
+prostty.obj
+
+prntenv.obj
+prntfs.obj
+
+ntasutl.obj
+ntconio.obj
+ntenv.obj
+ntfile.obj
+ntfs.obj
+ntgui.obj
+ntgui.rbj
+ntio.obj
+ntsig.obj
+ntsys.obj
+nttop.obj
+nttrap.obj
+ntscreen.obj
+nttterm.obj
+nttty.obj
+ntutil.obj
+ntcmp386.obj
+
+bchdmp.obj
+bchgcl.obj
+bchmmg.obj
+bchpur.obj
+bchutl.obj
+bchdef.obj
diff --git a/v7/src/microcode/ntutl/bch-p-nt.lst b/v7/src/microcode/ntutl/bch-p-nt.lst
new file mode 100644
index 000000000..85e5f57f4
--- /dev/null
+++ b/v7/src/microcode/ntutl/bch-p-nt.lst
@@ -0,0 +1,108 @@
+;;; -*-Fundamental-*-
+;;;
+;;;	$Id: bch-p-nt.lst,v 1.1 1993/06/24 07:46:00 gjr Exp $
+;;;
+;;;	Copyright (c) 1993 Massachusetts Institute of Technology
+;;;
+;;;	This material was developed by the Scheme project at the
+;;;	Massachusetts Institute of Technology, Department of
+;;;	Electrical Engineering and Computer Science.  Permission to
+;;;	copy this software, to redistribute it, and to use it for any
+;;;	purpose is granted, subject to the following restrictions and
+;;;	understandings.
+;;;
+;;;	1. Any copy made of this software must include this copyright
+;;;	notice in full.
+;;;
+;;;	2. Users of this software agree to make their best efforts (a)
+;;;	to return to the MIT Scheme project any improvements or
+;;;	extensions that they make, so that these may be included in
+;;;	future releases; and (b) to inform MIT of noteworthy uses of
+;;;	this software.
+;;;
+;;;	3. All materials developed as a consequence of the use of this
+;;;	software shall duly acknowledge such use, in accordance with
+;;;	the usual standards of acknowledging credit in academic
+;;;	research.
+;;;
+;;;	4. MIT has made no warrantee or representation that the
+;;;	operation of this software will be error-free, and MIT is
+;;;	under no obligation to provide any services, by way of
+;;;	maintenance, update, or otherwise.
+;;;
+;;;	5. In conjunction with products arising from the use of this
+;;;	material, there shall be no use of the name of the
+;;;	Massachusetts Institute of Technology nor of any adaptation
+;;;	thereof in any advertising, promotional, or sales literature
+;;;	without prior written consent from MIT in each case.
+;;;
+;;;;	Shared files (Unix and DOS)
+artutl.c
+bignum.c
+bigprm.c
+bitstr.c
+boot.c
+char.c
+comutl.c
+daemon.c
+debug.c
+dfloat.c
+error.c
+extern.c
+fasload.c
+fixnum.c
+flonum.c
+generic.c
+hooks.c
+hunk.c
+intern.c
+interp.c
+intprm.c
+list.c
+lookprm.c
+lookup.c
+missing.c
+obstack.c
+option.c
+osscheme.c
+ostty.c
+prim.c
+primutl.c
+prmcon.c
+ptrvec.c
+purutl.c
+regex.c
+rgxprim.c
+step.c
+storage.c
+string.c
+syntax.c
+sysprim.c
+term.c
+transact.c
+utils.c
+vector.c
+wind.c
+;;;;	Generic OS primitive files
+prosenv.c
+prosfile.c
+prosfs.c
+prosio.c
+prosterm.c
+prostty.c
+;;;;	NT OS primitive files
+prntenv.c
+prntfs.c
+;;;;	Bizarre NT primitive files
+ntcmp386.c
+ntconio.c
+ntgui.c
+;dosint10.c
+;dosprm.c
+nttterm.c
+;;;;	GC files
+bchdmp.c
+bchgcl.c
+bchmmg.c
+bchpur.c
+bchutl.c
diff --git a/v7/src/microcode/ntutl/config.bat b/v7/src/microcode/ntutl/config.bat
new file mode 100644
index 000000000..524ee001e
--- /dev/null
+++ b/v7/src/microcode/ntutl/config.bat
@@ -0,0 +1,11 @@
+rem MIT Scheme microcode configuration script for Windows NT
+rem
+rem Copyright (c) 1993 Massachusetts Institute of Technology
+rem
+rem $Id: config.bat,v 1.1 1993/06/24 07:46:49 gjr Exp $
+rem
+copy cmpintmd\i386.h cmpintmd.h
+copy cmpauxmd\i386-nt.asm cmpauxmd.asm
+copy ntutl\*.lst .
+copy ntutl\*.h .
+copy ntutl\makefile .
diff --git a/v7/src/microcode/ntutl/float.h b/v7/src/microcode/ntutl/float.h
new file mode 100644
index 000000000..b3091f9d9
--- /dev/null
+++ b/v7/src/microcode/ntutl/float.h
@@ -0,0 +1,41 @@
+/* float.h */
+/* Produced by hard-params version 4.1, CWI, Amsterdam */
+
+#define FLT_RADIX 2
+#define FLT_MANT_DIG 24
+#define FLT_DIG 6
+#define FLT_ROUNDS 1
+#define FLT_EPSILON ((float)1.19209290e-007)
+#define FLT_MIN_EXP (-125)
+#define FLT_MIN ((float)1.17549435e-038)
+#define FLT_MIN_10_EXP (-37)
+#define FLT_MAX_EXP 128
+#define FLT_MAX ((float)3.40282347e+038)
+#define FLT_MAX_10_EXP 38
+
+#define DBL_MANT_DIG 53
+#define DBL_DIG 15
+#define DBL_EPSILON 2.2204460492503130e-016
+
+/* *** WARNING: Possibly bad output from printf above */
+/*     expected value around 2.2204460492503130e-16, bit pattern:
+    00000000 00000000 00000000 00000000 00000000 00000000 10110000 00111100 */
+/*     sscanf gave           2.2204460492503126e-016, bit pattern:
+    11111111 11111111 11111111 11111111 11111111 11111111 10101111 00111100 */
+/*     difference= 2.4651903288156620e-032 */
+
+#define DBL_MIN_EXP (-1021)
+#define DBL_MIN 2.2250738585072018e-308
+#define DBL_MIN_10_EXP (-307)
+#define DBL_MAX_EXP 1024
+#define DBL_MAX 1.7976931348623155e+308
+
+/* *** WARNING: Possibly bad output from printf above */
+/*     expected value around 1.7976931348623164e308, bit pattern:
+    11111111 11111111 11111111 11111111 11111111 11111111 11101111 01111111 */
+/*     sscanf gave           inf, bit pattern:
+    00000000 00000000 00000000 00000000 00000000 00000000 11110000 01111111 */
+/*     difference= -inf */
+
+#define DBL_MAX_10_EXP 308
+
diff --git a/v7/src/microcode/ntutl/limits.h b/v7/src/microcode/ntutl/limits.h
new file mode 100644
index 000000000..5a8cbf1fe
--- /dev/null
+++ b/v7/src/microcode/ntutl/limits.h
@@ -0,0 +1,18 @@
+/* limits.h */
+/* Produced by hard-params version 4.1, CWI, Amsterdam */
+
+#define CHAR_BIT 8
+#define CHAR_MAX 127
+#define CHAR_MIN (-128)
+#define SCHAR_MAX 127
+#define SCHAR_MIN (-128)
+#define UCHAR_MAX 255
+#define SHRT_MAX 32767
+#define SHRT_MIN (-32768)
+#define INT_MAX 2147483647
+#define INT_MIN (-2147483648)
+#define LONG_MAX 2147483647
+#define LONG_MIN (-2147483648)
+#define USHRT_MAX 65535
+#define UINT_MAX 4294967295
+#define ULONG_MAX 4294967295
diff --git a/v7/src/microcode/ntutl/makefile b/v7/src/microcode/ntutl/makefile
new file mode 100644
index 000000000..80952cc2a
--- /dev/null
+++ b/v7/src/microcode/ntutl/makefile
@@ -0,0 +1,482 @@
+### -*- Fundamental -*-
+###
+###	$Id: makefile,v 1.1 1993/06/24 07:47:15 gjr Exp $
+###
+###	Copyright (c) 1992-1993 Massachusetts Institute of Technology
+###
+###	This material was developed by the Scheme project at the
+###	Massachusetts Institute of Technology, Department of
+###	Electrical Engineering and Computer Science.  Permission to
+###	copy this software, to redistribute it, and to use it for any
+###	purpose is granted, subject to the following restrictions and
+###	understandings.
+###
+###	1. Any copy made of this software must include this copyright
+###	notice in full.
+###
+###	2. Users of this software agree to make their best efforts (a)
+###	to return to the MIT Scheme project any improvements or
+###	extensions that they make, so that these may be included in
+###	future releases; and (b) to inform MIT of noteworthy uses of
+###	this software.
+###
+###	3. All materials developed as a consequence of the use of this
+###	software shall duly acknowledge such use, in accordance with
+###	the usual standards of acknowledging credit in academic
+###	research.
+###
+###	4. MIT has made no warrantee or representation that the
+###	operation of this software will be error-free, and MIT is
+###	under no obligation to provide any services, by way of
+###	maintenance, update, or otherwise.
+###
+###	5. In conjunction with products arising from the use of this
+###	material, there shall be no use of the name of the
+###	Massachusetts Institute of Technology nor of any adaptation
+###	thereof in any advertising, promotional, or sales literature
+###	without prior written consent from MIT in each case.
+###
+
+####	 Makefile for Scheme on NT
+!include <ntwin32.mak>
+#cflags = $(cflags) -DDEVL=1 -D_X86_=1
+
+TERMCAP_OBJECTS = nttterm.obj tparam.obj
+TERMCAP_SOURCES = nttterm.c tparam.c
+TERMCAP_LIBS =
+GRAPHICS_SOURCES =
+GRAPHICS_OBJECTS =
+GRAPHICS_LIBS =
+#MACHINE_SWITCHES = -3 -mx -DNO_CONST -Di386
+MACHINE_SWITCHES = -DNO_CONST -Di386
+MACHINE_SOURCES = cmpint.c cmpauxmd.asm
+MACHINE_OBJECTS = cmpint.obj cmpauxmd.obj
+GC_HEAD_FILES = gccode.h cmpgc.h cmpintmd.h
+USER_PRIM_SOURCES =
+USER_PRIM_OBJECTS =
+USER_LIBS = 
+BINDIR = \scheme\nt\microcode
+AS = mlx
+LDFLAGS =
+#CFLAGS = -DMIT_SCHEME $(MACHINE_SWITCHES) -D__STDC__ -Jm -o
+#cflags = -DMIT_SCHEME -DWINNT -DCL386 $(MACHINE_SWITCHES) -D_STDC__ -o
+#cflags = $(cflags) -DMIT_SCHEME -DWINNT -DCL386 $(MACHINE_SWITCHES)  -o
+cflags = $(cflags) -DMIT_SCHEME -DWINNT -DCL386 $(MACHINE_SWITCHES) -DGUI=1
+
+# NT compilation system for scheme (NOT utilities)
+sysflags = $(conflags)
+#sysflags = $(guiflags)
+syslibs = $(guilibs)
+cvobj = cvtomf
+
+all: bintopsb.exe psbtobin.exe scheme.exe bchscheme.exe # mswload.exe
+
+.c.obj:
+	$(cc) $(cflags) $(cdebug) -c $*.c
+#	$(cc) $(cflags) -Zi -Ox -c $*.c
+	$(cvobj) $*.obj
+#.c.s:
+#	$(CC) $(CFLAGS) -S $*.c
+# .m4.asm:
+# 	$(M4)  -DTYPE_CODE_LENGTH=6 $*.m4 > $*.asm
+.asm.obj:
+	$(AS) /Zm /Cp /c $*.asm
+
+SCHEME_SOURCES = $(TERMCAP_SOURCES) $(GRAPHICS_SOURCES) $(USER_PRIM_SOURCES) missing.c
+SCHEME_OBJECTS = $(TERMCAP_OBJECTS) $(GRAPHICS_OBJECTS) $(USER_PRIM_OBJECTS) missing.obj
+SCHEME_LIB = $(USER_LIBS) $(GRAPHICS_LIBS) $(TERMCAP_LIBS) -lm
+CORE_SOURCES = \
+$(MACHINE_SOURCES) \
+artutl.c \
+bignum.c \
+bigprm.c \
+bitstr.c \
+boot.c \
+char.c \
+comutl.c \
+daemon.c \
+debug.c \
+dfloat.c \
+error.c \
+extern.c \
+fasload.c \
+fixnum.c \
+flonum.c \
+generic.c \
+hooks.c \
+hunk.c \
+intern.c \
+interp.c \
+intprm.c \
+list.c \
+lookprm.c \
+lookup.c \
+obstack.c \
+option.c \
+osscheme.c \
+ostty.c \
+outf.c \
+prim.c \
+primutl.c \
+prmcon.c \
+ptrvec.c \
+purutl.c \
+regex.c \
+rgxprim.c \
+step.c \
+storage.c \
+string.c \
+syntax.c \
+sysprim.c \
+term.c \
+transact.c \
+utils.c \
+vector.c \
+wind.c
+
+STD_GC_SOURCES = \
+fasdump.c \
+gcloop.c \
+memmag.c \
+purify.c
+BCH_GC_SOURCES = \
+bchdmp.c \
+bchgcl.c \
+bchmmg.c \
+bchpur.c \
+bchutl.c
+# nt
+NT_SOURCES = \
+intext.c \
+ntfs.c \
+ntenv.c \
+ntfile.c \
+ntgui.c \
+ntio.c \
+ntconio.c \
+nttty.c \
+nttop.c \
+ntutil.c \
+ntsig.c \
+nttrap.c \
+ntsys.c \
+ntscreen.c \
+#ntprm \
+#ntkbd.c \
+#ntexcp.c \
+#ntkbutl.asm \
+#ntxcutl.asm \
+ntcmp386.c \
+ntasutl.asm
+
+NT_OBJECTS = \
+intext.obj \
+ntfs.obj \
+ntenv.obj \
+ntfile.obj \
+ntgui.obj \
+ntgui.rbj \
+ntio.obj \
+ntconio.obj \
+nttty.obj \
+nttop.obj \
+ntutil.obj \
+ntsig.obj \
+nttrap.obj \
+ntsys.obj  \
+ntscreen.obj \
+#ntprm.obj \
+#ntkbd.obj \
+#ntexcp.obj \
+#ntkbutl.obj \
+#ntxcutl.obj \
+ntcmp386.obj \
+ntasutl.obj
+
+OS_PRIM_SOURCES = \
+prosfile.c \
+prosfs.c \
+prosio.c \
+prosterm.c \
+prostty.c \
+prosenv.c \
+prntfs.c \
+prntenv.c
+# prosproc.c \
+# pruxsock.c
+
+HEAD_FILES = scheme.tch prims.h zones.h locks.h bignum.h \
+	$(GC_HEAD_FILES) trap.h lookup.h history.h cmpint.h
+
+CORE_OBJECTS = \
+$(MACHINE_OBJECTS) \
+artutl.obj \
+bignum.obj \
+bigprm.obj \
+bitstr.obj \
+boot.obj \
+char.obj \
+comutl.obj \
+daemon.obj \
+debug.obj \
+dfloat.obj \
+error.obj \
+extern.obj \
+fasload.obj \
+fixnum.obj \
+flonum.obj \
+generic.obj \
+hooks.obj \
+hunk.obj \
+intern.obj \
+interp.obj \
+intprm.obj \
+list.obj \
+lookprm.obj \
+lookup.obj \
+obstack.obj \
+option.obj \
+osscheme.obj \
+ostty.obj \
+outf.obj \
+prim.obj \
+primutl.obj \
+prmcon.obj \
+ptrvec.obj \
+purutl.obj \
+regex.obj \
+rgxprim.obj \
+step.obj \
+storage.obj \
+string.obj \
+syntax.obj \
+sysprim.obj \
+term.obj \
+transact.obj \
+utils.obj \
+vector.obj \
+wind.obj
+
+OS_PRIM_OBJECTS = \
+prosfile.obj \
+prosfs.obj \
+prosio.obj \
+prosterm.obj \
+prosenv.obj \
+prostty.obj \
+prntenv.obj \
+prntfs.obj
+# prosproc.obj \
+# pruxsock.obj
+
+STD_GC_OBJECTS = \
+fasdump.obj \
+gcloop.obj \
+memmag.obj \
+purify.obj
+BCH_GC_OBJECTS = \
+bchdmp.obj \
+bchgcl.obj \
+bchmmg.obj \
+bchpur.obj \
+bchutl.obj
+
+SOURCES = $(CORE_SOURCES) $(STD_GC_SOURCES)
+OBJECTS = $(CORE_OBJECTS) $(STD_GC_OBJECTS) $(NT_OBJECTS) $(OS_PRIM_OBJECTS) usrdef.obj
+
+BCHSOURCES = $(CORE_SOURCES) $(BCH_GC_SOURCES)
+BCHOBJECTS = $(CORE_OBJECTS) $(BCH_GC_OBJECTS) $(NT_OBJECTS) $(OS_PRIM_OBJECTS) bchdef.obj
+
+FLASHTEK = x32v.lib
+
+# Update the resource if necessary
+ntgui.rbj: ntgui.rc ntgui.h
+    rc -r -fo $*.res $(cvars) $*.rc
+!IFDEF CPUTYPE
+    cvtres -$(CPU) $*.res -o $*.rbj
+!ENDIF
+
+scheme: scheme.exe
+scheme.exe : $(OBJECTS) $(SCHEME_OBJECTS) scm-cl3.lst
+	$(link) $(linkdebug) $(sysflags) -out:scheme.exe @scm-cl3.lst $(syslibs) winmm.lib
+bchscheme.exe : $(BCHOBJECTS) $(SCHEME_OBJECTS) bch-cl3.lst
+	$(link) $(linkdebug) $(sysflags) -out:bchschem.exe @bch-cl3.lst $(syslibs) winmm.lib
+findprim.exe : findprim.obj
+	$(link) $(linkdebug) $(conflags) -out:findprim.exe findprim.obj $(conlibs)
+bintopsb.exe : bintopsb.obj missing.obj
+	$(link) $(linkdebug) $(conflags) -out:bintopsb.exe bintopsb.obj missing.obj $(conlibs)
+psbtobin.exe : psbtobin.obj missing.obj
+	$(link) $(linkdebug) $(conflags) -out:psbtobin.exe psbtobin.obj missing.obj $(conlibs)
+breakup.exe : breakup.obj
+	$(link) $(linkdebug) $(conflags) -out:breakup.exe breakup $(conlibs)
+wsize.exe : wsize.obj
+	$(link) $(linkdebug) $(conflags) -out:wsize.exe wsize.obj $(conlibs)
+ppband.exe : ppband.obj
+	$(link) $(linkdebug) $(conflags) -out:ppband.exe ppband.obj $(conlibs)
+
+usrdef.c : $(SCHEME_SOURCES) $(SOURCES) $(OS_PRIM_SOURCES) ntconio.c ntgui.c ntcmp386.c usrdef.tch findprim.exe scm-p-nt.lst
+	rm -f usrdef.c
+	.\findprim -o usrdef.c -l .\scm-p-nt.lst
+
+bchdef.c : $(SCHEME_SOURCES) $(BCHSOURCES) $(OS_PRIM_SOURCES) usrdef.tch findprim.exe bch-p-nt.lst
+	rm -f bchdef.c
+	.\findprim -o bchdef.c -l .\bch-p-nt.lst
+
+primitive_tables :
+	rm -f usrdef.c usrdef.obj bchdef.c bchdef.obj
+
+COMMON_OBJECTS = $(CORE_OBJECTS) $(STD_GC_OBJECTS) $(NT_OBJECTS) $(OS_PRIM_OBJECTS)
+6003_SOURCES = $(X_SOURCES) $(TERMCAP_OBJECTS) $(GRAPHICS_SOURCES)\
+	  Sgraph_ar.c fft.c array.c\
+	      image.c
+6003_OBJECTS = $(X_OBJECTS) $(TERMCAP_OBJECTS) $(GRAPHICS_OBJECTS)\
+	  Sgraph_ar.obj fft.obj array.obj\
+	      image.obj usr6003.obj
+6003_LIB =  $(USER_LIBS) $(GRAPHICS_LIBS) $(X_LIB) $(TERMCAP_LIBS)\
+	-lm
+
+scheme.tch : scheme.h oscond.h ansidecl.h dstack.h obstack.h config.h \
+	bkpt.h object.h scode.h sdata.h gc.h interp.h stack.h futures.h \
+	types.h errors.h returns.h const.h fixobj.h default.h extern.h \
+	prim.h intrpt.h critsec.h float.h outf.h
+	rm -f scheme.tch
+	touch scheme.tch
+
+psbmap.tch : config.h object.h bignum.h bignmint.h bitstr.h types.h \
+	sdata.h const.h psbmap.h $(GC_HEAD_FILES) comlin.h comlin.c
+	rm -f psbmap.tch
+	touch psbmap.tch
+
+usrdef.tch : usrdef.h config.h object.h prim.h
+	rm -f usrdef.tch
+	touch usrdef.tch
+
+# Zortech MAKE seems not to allow redirection
+# limits.h : hard-params.exe
+#	-./hard-params -l > limits.h
+
+# float.h : hard-params.exe
+#	-./hard-params -f > float.h
+
+hard-params.exe : hard-params.c
+	$(CC) hard-params.c $(MACHINE_SWITCHES) -DNO_SIG -DNO_SC $(LDFLAGS)
+
+foo $(USER_PRIM_OBJECTS) : $(HEAD_FILES)
+interp.obj : scheme.tch locks.h trap.h lookup.h history.h cmpint.h zones.h prmcon.h
+	$(cc) $(cflags) $(cdebug) -Ox -c $*.c
+	$(cvobj) $*.obj
+hooks.obj : scheme.tch prims.h winder.h history.h
+utils.obj : scheme.tch prims.h winder.h history.h cmpint.h
+primutl.obj : scheme.tch prims.h prename.h
+hunk.obj list.obj step.obj vector.obj sysprim.obj daemon.obj prim.obj extern.obj : \
+	scheme.tch prims.h
+lookup.obj debug.obj intern.obj : scheme.tch prims.h lookup.h trap.h locks.h
+fasload.obj : scheme.tch prims.h osscheme.h osfile.h osio.h $(GC_HEAD_FILES) \
+	trap.h option.h prmcon.h load.c fasl.h
+fasdump.obj : scheme.tch prims.h osio.h osfile.h osfs.h $(GC_HEAD_FILES) \
+	trap.h lookup.h fasl.h dump.c
+memmag.obj : scheme.tch prims.h $(GC_HEAD_FILES)
+gcloop.obj : scheme.tch $(GC_HEAD_FILES)
+purify.obj : scheme.tch prims.h $(GC_HEAD_FILES) zones.h
+purutl.obj : scheme.tch prims.h $(GC_HEAD_FILES) zones.h
+comutl.obj : scheme.tch prims.h
+artutl.obj : scheme.tch
+bignum.obj : scheme.tch bignmint.h limits.h
+bigprm.obj flonum.obj intprm.obj : scheme.tch prims.h zones.h
+generic.obj : scheme.tch prims.h
+fixnum.obj : scheme.tch prims.h mul.c
+storage.obj : scheme.tch gctype.c
+char.obj string.obj dfloat.obj : scheme.tch prims.h
+nttterm.obj : scheme.tch prims.h osterm.h
+boot.obj : scheme.tch prims.h version.h option.h ostop.h
+option.obj : ansidecl.h option.h
+term.obj : scheme.tch
+missing.obj : config.h
+BCHGCC_H = bchgcc.h oscond.h $(GC_HEAD_FILES)
+bchdmp.obj : scheme.tch prims.h ntio.h osio.h osfile.h trap.h lookup.h \
+	$(BCHGCC_H) fasl.h dump.c
+bchdrn.obj : ansidecl.h bchdrn.h
+bchmmg.obj : scheme.tch prims.h nt.h $(BCHGCC_H) option.h bchdrn.h
+bchgcl.obj : scheme.tch $(BCHGCC_H)
+bchpur.obj : scheme.tch prims.h $(BCHGCC_H) zones.h
+bchutl.obj : ansidecl.h
+syntax.obj : scheme.tch prims.h edwin.h syntax.h
+bitstr.obj : scheme.tch prims.h bitstr.h
+regex.obj : scheme.tch syntax.h regex.h
+rgxprim.obj : scheme.tch prims.h edwin.h syntax.h regex.h
+bintopsb.obj : psbmap.tch trap.h limits.h fasl.h load.c bltdef.h
+psbtobin.obj : psbmap.tch float.h fasl.h dump.c
+ppband.obj : ansidecl.h config.h errors.h types.h const.h object.h \
+	       $(GC_HEAD_FILES) sdata.h load.c fasl.h
+
+fft.obj : scheme.tch prims.h zones.h array.h image.h
+array.obj image.obj : scheme.tch prims.h array.h
+cmpint.obj : scheme.tch prim.h $(GC_HEAD_FILES)
+osscheme.obj : scheme.tch posixtyp.h os.h osscheme.h
+ostty.obj : ansidecl.h oscond.h posixtyp.h os.h ostty.h osscheme.h
+error.obj ptrvec.obj transact.obj : ansidecl.h dstack.h outf.h
+wind.obj : ansidecl.h dstack.h obstack.h
+obstack.obj : obstack.h
+
+OS_PRIM_DEPENDENCIES = scheme.tch prims.h posixtyp.h os.h
+prosenv.obj : osenv.h ostop.h $(OS_PRIM_DEPENDENCIES)
+prosfile.obj : osfile.h $(OS_PRIM_DEPENDENCIES)
+prosfs.obj : osfs.h $(OS_PRIM_DEPENDENCIES)
+prosio.obj : osio.h $(OS_PRIM_DEPENDENCIES)
+prosproc.obj : osproc.h $(OS_PRIM_DEPENDENCIES)
+prosterm.obj : osterm.h osio.h $(OS_PRIM_DEPENDENCIES)
+prostty.obj : ostty.h osctty.h ossig.h osfile.h osio.h $(OS_PRIM_DEPENDENCIES)
+prmcon.obj : scheme.tch prims.h prmcon.h $(OS_PRIM_DEPENDENCIES)
+
+NT_DEPENDENCIES = oscond.h ansidecl.h posixtyp.h intext.h \
+		   dstack.h os.h osscheme.h nt.h ntsys.h
+ntenv.obj : osenv.h $(NT_DEPENDENCIES)
+ntfile.obj : osfile.h osio.h ntio.h $(NT_DEPENDENCIES)
+ntfs.obj : osfs.h $(NT_DEPENDENCIES)
+ntio.obj : osio.h ntio.h $(NT_DEPENDENCIES)
+ntconio.obj : scheme.tch prims.h ntscan.h osio.h ntio.h $(NT_DEPENDENCIES)
+nttop.obj : ostop.h nttop.h osctty.h ntutil.h errors.h option.h $(NT_DEPENDENCIES)
+nttty.obj : ostty.h osenv.h osio.h ntio.h osterm.h ntterm.h $(NT_DEPENDENCIES)
+ntutil.obj : ntutil.h $(NT_DEPENDENCIES)
+ntsig.obj : ossig.h osctty.h ostty.h critsec.h ntexcp.h ntkbd.h $(NT_DEPENDENCIES)
+nttrap.obj: nttrap.h ntexcp.h $(NT_DEPENDENCIES)
+ntsys.obj: ntsys.h
+prntenv.obj : $(NT_DEPENDENCIES)
+prntfs.obj : $(NT_DEPENDENCIES) scheme.h prims.h osfs.h
+cmpauxmd.obj : cmpauxmd.asm
+ntexcp.obj : ntexcp.h ntsys.h ntinsn.h
+ntgui.obj : ntgui.c $(NT_DEPENDENCIES) scheme.tch ntscreen.h
+ntkbd.obj : ntkbd.h ntsys.h ntinsn.h
+ntasutl.obj : ntasutl.asm
+ntkbutl.obj : ntkbutl.asm
+ntcmp386.obj : ntcmp386.c $(NT_DEPENDENCIES) scheme.tch
+ntscreen.obj : ntscreen.c ntscreen.h
+
+# mswload.exe: mswload.obj mswload.def mswload.res
+#   link /codeview /linenumbers /map mswload.obj,mswload.exe,mswload.map,,mswload.def
+#   rc mswload
+# 
+#   blinkx /CO /MO /LI /MAP mswload.obj,mswload.exe,mswload.map,,mswload.def,mswload.res
+# 
+# mswload.res: mswload.rc
+#   rc -r mswload.rc
+#
+# mswload.obj: mswload.c mswload.h
+#   cl /GA /AS /Od /G2 /Zi /Zp1 /c /f /W2 mswload.c
+# 
+# mswload.res: mswload.rc
+#   zrc -V mswload.rc
+# 
+# mswload.obj: mswload.c mswload.h
+#   ztc -2 -ml -W1 -v2 -c -C -g -a1 -o-all mswload.c
+
+unconfig:
+  del cmpintmd.h
+  del cmpauxmd.asm
+  del float.h
+  del limits.h
+  del makefile
+  del *.lst
+
+
+
diff --git a/v7/src/microcode/ntutl/scm-cl3.lst b/v7/src/microcode/ntutl/scm-cl3.lst
new file mode 100644
index 000000000..a27a95ac1
--- /dev/null
+++ b/v7/src/microcode/ntutl/scm-cl3.lst
@@ -0,0 +1,86 @@
+artutl.obj
+bignum.obj
+bigprm.obj
+bitstr.obj
+boot.obj
+char.obj
+cmpauxmd.obj
+cmpint.obj
+comutl.obj
+daemon.obj
+debug.obj
+dfloat.obj
+error.obj
+extern.obj
+fasload.obj
+fixnum.obj
+flonum.obj
+generic.obj
+hooks.obj
+hunk.obj
+intern.obj
+interp.obj
+intext.obj
+intprm.obj
+list.obj
+lookprm.obj
+lookup.obj
+missing.obj
+obstack.obj
+option.obj
+osscheme.obj
+ostty.obj
+outf.obj
+prim.obj
+primutl.obj
+prmcon.obj
+ptrvec.obj
+purutl.obj
+regex.obj
+rgxprim.obj
+step.obj
+storage.obj
+string.obj
+syntax.obj
+sysprim.obj
+term.obj
+tparam.obj
+transact.obj
+utils.obj
+vector.obj
+wind.obj
+
+prosenv.obj
+prosfile.obj
+prosfs.obj
+prosio.obj
+prosterm.obj
+prostty.obj
+
+prntenv.obj
+prntfs.obj
+
+ntasutl.obj
+ntconio.obj
+ntenv.obj
+ntfile.obj
+ntfs.obj
+ntgui.obj
+ntgui.rbj
+ntio.obj
+ntsig.obj
+ntsys.obj
+nttop.obj
+nttrap.obj
+ntscreen.obj
+nttterm.obj
+nttty.obj
+ntutil.obj
+ntcmp386.obj
+
+fasdump.obj
+gcloop.obj
+memmag.obj
+purify.obj
+usrdef.obj
+
diff --git a/v7/src/microcode/ntutl/scm-p-nt.lst b/v7/src/microcode/ntutl/scm-p-nt.lst
new file mode 100644
index 000000000..a9f620401
--- /dev/null
+++ b/v7/src/microcode/ntutl/scm-p-nt.lst
@@ -0,0 +1,109 @@
+;;; -*-Fundamental-*-
+;;;
+;;;	$Id: scm-p-nt.lst,v 1.1 1993/06/24 07:46:19 gjr Exp $
+;;;
+;;;	Copyright (c) 1993 Massachusetts Institute of Technology
+;;;
+;;;	This material was developed by the Scheme project at the
+;;;	Massachusetts Institute of Technology, Department of
+;;;	Electrical Engineering and Computer Science.  Permission to
+;;;	copy this software, to redistribute it, and to use it for any
+;;;	purpose is granted, subject to the following restrictions and
+;;;	understandings.
+;;;
+;;;	1. Any copy made of this software must include this copyright
+;;;	notice in full.
+;;;
+;;;	2. Users of this software agree to make their best efforts (a)
+;;;	to return to the MIT Scheme project any improvements or
+;;;	extensions that they make, so that these may be included in
+;;;	future releases; and (b) to inform MIT of noteworthy uses of
+;;;	this software.
+;;;
+;;;	3. All materials developed as a consequence of the use of this
+;;;	software shall duly acknowledge such use, in accordance with
+;;;	the usual standards of acknowledging credit in academic
+;;;	research.
+;;;
+;;;	4. MIT has made no warrantee or representation that the
+;;;	operation of this software will be error-free, and MIT is
+;;;	under no obligation to provide any services, by way of
+;;;	maintenance, update, or otherwise.
+;;;
+;;;	5. In conjunction with products arising from the use of this
+;;;	material, there shall be no use of the name of the
+;;;	Massachusetts Institute of Technology nor of any adaptation
+;;;	thereof in any advertising, promotional, or sales literature
+;;;	without prior written consent from MIT in each case.
+;;;
+;;;;	Shared files (Unix and DOS)
+artutl.c
+bignum.c
+bigprm.c
+bitstr.c
+boot.c
+char.c
+comutl.c
+daemon.c
+debug.c
+dfloat.c
+error.c
+extern.c
+fasload.c
+fixnum.c
+flonum.c
+generic.c
+hooks.c
+hunk.c
+intern.c
+interp.c
+intprm.c
+list.c
+lookprm.c
+lookup.c
+missing.c
+obstack.c
+option.c
+osscheme.c
+ostty.c
+prim.c
+primutl.c
+prmcon.c
+ptrvec.c
+purutl.c
+regex.c
+rgxprim.c
+step.c
+storage.c
+string.c
+syntax.c
+sysprim.c
+term.c
+transact.c
+utils.c
+vector.c
+wind.c
+;;;;	Generic OS primitive files
+prosenv.c
+prosfile.c
+prosfs.c
+prosio.c
+prosterm.c
+prostty.c
+;;;;	NT OS primitive files
+prntenv.c
+prntfs.c
+;;;;	Bizarre NT primitive files
+ntcmp386.c
+ntconio.c
+ntgui.c
+;dosint10.c
+;dosprm.c
+nttterm.c
+ntscreen.c
+
+;;;;	GC files
+fasdump.c
+gcloop.c
+memmag.c
+purify.c
-- 
2.25.1