--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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
--- /dev/null
+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 .
--- /dev/null
+/* 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
+
--- /dev/null
+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
--- /dev/null
+;;; -*-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
--- /dev/null
+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 .
--- /dev/null
+/* 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
+
--- /dev/null
+/* 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
--- /dev/null
+### -*- 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
+
+
+
--- /dev/null
+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
+
--- /dev/null
+;;; -*-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
projects / mit-scheme.git / commitdiff