From d906c9156f2a6f877311a01f0f9338fbb8d35f6d Mon Sep 17 00:00:00 2001
From: John van Groningen
Date: Wed, 14 Mar 2012 12:08:46 +0000
Subject: add thread safe version for 32 bit windows

---
 thread/iap.s             | 2886 ++++++++++++++++++++++++++
 thread/icompact.s        | 1303 ++++++++++++
 thread/icompact_rmark.s  |  955 +++++++++
 thread/icompact_rmarkr.s |  976 +++++++++
 thread/icopy.s           | 1215 +++++++++++
 thread/ifileIO3.s        |  738 +++++++
 thread/imark.s           | 1927 +++++++++++++++++
 thread/istartup.s        | 5165 ++++++++++++++++++++++++++++++++++++++++++++++
 thread/ithread.s         |  294 +++
 9 files changed, 15459 insertions(+)
 create mode 100644 thread/iap.s
 create mode 100644 thread/icompact.s
 create mode 100644 thread/icompact_rmark.s
 create mode 100644 thread/icompact_rmarkr.s
 create mode 100644 thread/icopy.s
 create mode 100644 thread/ifileIO3.s
 create mode 100644 thread/imark.s
 create mode 100644 thread/istartup.s
 create mode 100644 thread/ithread.s

(limited to 'thread')

diff --git a/thread/iap.s b/thread/iap.s
new file mode 100644
index 0000000..06ea0c2
--- /dev/null
+++ b/thread/iap.s
@@ -0,0 +1,2886 @@
+
+	.text
+
+	.globl	ap_2
+	.globl	ap_3
+	.globl	ap_4
+	.globl	ap_5
+	.globl	ap_6
+	.globl	ap_7
+	.globl	ap_8
+	.globl	ap_9
+	.globl	ap_10
+	.globl	ap_11
+	.globl	ap_12
+	.globl	ap_13
+	.globl	ap_14
+	.globl	ap_15
+	.globl	ap_16
+	.globl	ap_17
+	.globl	ap_18
+	.globl	ap_19
+	.globl	ap_20
+	.globl	ap_21
+	.globl	ap_22
+	.globl	ap_23
+	.globl	ap_24
+	.globl	ap_25
+	.globl	ap_26
+	.globl	ap_27
+	.globl	ap_28
+	.globl	ap_29
+	.globl	ap_30
+	.globl	ap_31
+	.globl	ap_32
+
+	.globl	add_empty_node_2
+	.globl	add_empty_node_3
+	.globl	add_empty_node_4
+	.globl	add_empty_node_5
+	.globl	add_empty_node_6
+	.globl	add_empty_node_7
+	.globl	add_empty_node_8
+	.globl	add_empty_node_9
+	.globl	add_empty_node_10
+	.globl	add_empty_node_11
+	.globl	add_empty_node_12
+	.globl	add_empty_node_13
+	.globl	add_empty_node_14
+	.globl	add_empty_node_15
+	.globl	add_empty_node_16
+	.globl	add_empty_node_17
+	.globl	add_empty_node_18
+	.globl	add_empty_node_19
+	.globl	add_empty_node_20
+	.globl	add_empty_node_21
+	.globl	add_empty_node_22
+	.globl	add_empty_node_23
+	.globl	add_empty_node_24
+	.globl	add_empty_node_25
+	.globl	add_empty_node_26
+	.globl	add_empty_node_27
+	.globl	add_empty_node_28
+	.globl	add_empty_node_29
+	.globl	add_empty_node_30
+	.globl	add_empty_node_31
+	.globl	add_empty_node_32
+
+	.globl	yet_args_needed_5
+	.globl	yet_args_needed_6
+	.globl	yet_args_needed_7
+	.globl	yet_args_needed_8
+	.globl	yet_args_needed_9
+	.globl	yet_args_needed_10
+	.globl	yet_args_needed_11
+	.globl	yet_args_needed_12
+	.globl	yet_args_needed_13
+	.globl	yet_args_needed_14
+	.globl	yet_args_needed_15
+	.globl	yet_args_needed_16
+	.globl	yet_args_needed_17
+	.globl	yet_args_needed_18
+	.globl	yet_args_needed_19
+	.globl	yet_args_needed_20
+	.globl	yet_args_needed_21
+	.globl	yet_args_needed_22
+	.globl	yet_args_needed_23
+	.globl	yet_args_needed_24
+	.globl	yet_args_needed_25
+	.globl	yet_args_needed_26
+	.globl	yet_args_needed_27
+	.globl	yet_args_needed_28
+	.globl	yet_args_needed_29
+	.globl	yet_args_needed_30
+	.globl	yet_args_needed_31
+
+ap_32:
+	movl	(a1),a2
+	movl	$32*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_31:
+	movl	(a1),a2
+	movl	$31*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_30:
+	movl	(a1),a2
+	movl	$30*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_29:
+	movl	(a1),a2
+	movl	$29*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_28:
+	movl	(a1),a2
+	movl	$28*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_27:
+	movl	(a1),a2
+	movl	$27*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_26:
+	movl	(a1),a2
+	movl	$26*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_25:
+	movl	(a1),a2
+	movl	$25*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_24:
+	movl	(a1),a2
+	movl	$24*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_23:
+	movl	(a1),a2
+	movl	$23*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_22:
+	movl	(a1),a2
+	movl	$22*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_21:
+	movl	(a1),a2
+	movl	$21*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_20:
+	movl	(a1),a2
+	movl	$20*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_19:
+	movl	(a1),a2
+	movl	$19*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_18:
+	movl	(a1),a2
+	movl	$18*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_17:
+	movl	(a1),a2
+	movl	$17*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_16:
+	movl	(a1),a2
+	movl	$16*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_15:
+	movl	(a1),a2
+	movl	$15*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_14:
+	movl	(a1),a2
+	movl	$14*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_13:
+	movl	(a1),a2
+	movl	$13*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_12:
+	movl	(a1),a2
+	movl	$12*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_11:
+	movl	(a1),a2
+	movl	$11*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_10:
+	movl	(a1),a2
+	movl	$10*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_9:
+	movl	(a1),a2
+	movl	$9*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_8:
+	movl	(a1),a2
+	movl	$8*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_7:
+	movl	(a1),a2
+	movl	$7*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_6:
+	movl	(a1),a2
+	movl	$6*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_5:
+	movl	(a1),a2
+	movl	$5*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_4:
+	movl	(a1),a2
+	movl	$4*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_3:
+	movl	(a1),a2
+	movl	$3*8,d1
+	cmpw	d1w,(a2)
+	je	fast_ap
+
+	call	*2(a2)
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+
+ap_2:
+	movl	(a1),a2
+	movl	$2*8,d1
+	cmpw	d1w,(a2)
+	jne	no_fast_ap2
+
+fast_ap:
+	addl	a2,d1
+	movzwl	-2(a2),d0
+	movl	-6(d1),a2
+#ifdef PROFILE
+	subl	$20,a2
+#else
+	subl	$12,a2
+#endif
+	cmpl	$1,d0
+	jb	repl_args_0
+	je	repl_args_1
+
+	movl	a0,(a3)
+	addl	$4,a3
+	movl	8(a1),a0
+
+	cmpl	$3,d0
+	jb	repl_args_2
+
+	movl	4(a1),a1
+	je	repl_args_3
+
+	cmpl	$5,d0
+	jb	repl_args_4
+	je	repl_args_5
+
+	cmpl	$7,d0
+	jb	repl_args_6
+
+	push	d1
+
+repl_args_7_:
+	movl	-8(a0,d0,4),d1
+	movl	d1,(a3)
+	subl	$1,d0
+	addl	$4,a3
+	cmpl	$6,d0
+	jne	repl_args_7_
+
+	pop	d1
+
+repl_args_6:
+	movl	16(a0),d0
+	movl	d0,(a3)
+	movl	12(a0),d0
+	movl	d0,4(a3)
+	movl	8(a0),d0
+	movl	d0,8(a3)
+	movl	4(a0),d0
+	movl	(a0),a0
+	movl	d0,12(a3)
+	addl	$16,a3
+	jmp	*a2
+
+repl_args_0:
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+	jmp	*a2
+
+repl_args_1:
+	movl	4(a1),a1
+	jmp	*a2
+
+repl_args_2:
+	movl	4(a1),a1
+	jmp	*a2
+
+repl_args_3:
+	movl	4(a0),d0
+	movl	(a0),a0
+	movl	d0,(a3)
+	addl	$4,a3
+	jmp	*a2
+
+repl_args_4:
+	movl	8(a0),d0
+	movl	d0,(a3)
+	movl	4(a0),d0
+	movl	(a0),a0
+	movl	d0,4(a3)
+	addl	$8,a3
+	jmp	*a2
+
+repl_args_5:
+	movl	12(a0),d0
+	movl	d0,(a3)
+	movl	8(a0),d0
+	movl	d0,4(a3)
+	movl	4(a0),d0
+	movl	(a0),a0
+	movl	d0,8(a3)
+	addl	$12,a3
+	jmp	*a2
+
+no_fast_ap2:
+	call	*2(a2)
+	movl	(a0),a2
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+	jmp	*2(a2)
+
+
+add_empty_node_2:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_2_gc
+add_empty_node_2_gc_:
+	movl	a2,(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_2_gc:
+	call	collect_2
+	jmp	add_empty_node_2_gc_
+
+add_empty_node_3:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_3_gc
+add_empty_node_3_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-4(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_3_gc:
+	call	collect_2
+	jmp	add_empty_node_3_gc_
+
+add_empty_node_4:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_4_gc
+add_empty_node_4_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-8(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_4_gc:
+	call	collect_2
+	jmp	add_empty_node_4_gc_
+
+add_empty_node_5:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_5_gc
+add_empty_node_5_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	-12(a3),a2
+	movl	a2,-8(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-12(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_5_gc:
+	call	collect_2
+	jmp	add_empty_node_5_gc_
+
+add_empty_node_6:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_6_gc
+add_empty_node_6_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	-12(a3),a2
+	movl	a2,-8(a3)
+	movl	-16(a3),a2
+	movl	a2,-12(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-16(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_6_gc:
+	call	collect_2
+	jmp	add_empty_node_6_gc_
+
+add_empty_node_7:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_7_gc
+add_empty_node_7_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	-12(a3),a2
+	movl	a2,-8(a3)
+	movl	-16(a3),a2
+	movl	a2,-12(a3)
+	movl	-20(a3),a2
+	movl	a2,-16(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-20(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_7_gc:
+	call	collect_2
+	jmp	add_empty_node_7_gc_
+
+add_empty_node_8:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_8_gc
+add_empty_node_8_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	-12(a3),a2
+	movl	a2,-8(a3)
+	movl	-16(a3),a2
+	movl	a2,-12(a3)
+	movl	-20(a3),a2
+	movl	a2,-16(a3)
+	movl	-24(a3),a2
+	movl	a2,-20(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-24(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_8_gc:
+	call	collect_2
+	jmp	add_empty_node_8_gc_
+
+add_empty_node_9:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_9_gc
+add_empty_node_9_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	-12(a3),a2
+	movl	a2,-8(a3)
+	movl	-16(a3),a2
+	movl	a2,-12(a3)
+	movl	-20(a3),a2
+	movl	a2,-16(a3)
+	movl	-24(a3),a2
+	movl	a2,-20(a3)
+	movl	-28(a3),a2
+	movl	a2,-24(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-28(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_9_gc:
+	call	collect_2
+	jmp	add_empty_node_9_gc_
+
+add_empty_node_10:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_10_gc
+add_empty_node_10_gc_:
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	-12(a3),a2
+	movl	a2,-8(a3)
+	movl	-16(a3),a2
+	movl	a2,-12(a3)
+	movl	-20(a3),a2
+	movl	a2,-16(a3)
+	movl	-24(a3),a2
+	movl	a2,-20(a3)
+	movl	-28(a3),a2
+	movl	a2,-24(a3)
+	movl	-32(a3),a2
+	movl	a2,-28(a3)
+	movl	free_heap_offset(a4),a2
+	movl	a2,-32(a3)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_10_gc:
+	call	collect_2
+	jmp	add_empty_node_10_gc_
+
+add_empty_node_31:
+	movl	$7,d1
+	jmp	add_empty_node_11_
+add_empty_node_27:
+	movl	$6,d1
+	jmp	add_empty_node_11_
+add_empty_node_23:
+	movl	$5,d1
+	jmp	add_empty_node_11_
+add_empty_node_19:
+	movl	$4,d1
+	jmp	add_empty_node_11_
+add_empty_node_15:
+	movl	$3,d1
+	jmp	add_empty_node_11_
+add_empty_node_11:
+	movl	$2,d1
+add_empty_node_11_:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_11_gc
+add_empty_node_11_gc_:
+	movl	a3,d0
+	movl	-4(a3),a2
+	movl	a2,(a3)
+add_empty_node_11_lp:
+	movl	-8(d0),a2
+	movl	a2,-4(d0)
+	movl	-12(d0),a2
+	movl	a2,-8(d0)
+	movl	-16(d0),a2
+	movl	a2,-12(d0)
+	movl	-20(d0),a2
+	movl	a2,-16(d0)
+	subl	$16,d0
+	subl	$1,d1
+	jne	add_empty_node_11_lp
+	movl	free_heap_offset(a4),a2
+	movl	a2,-4(d0)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_11_gc:
+	call	collect_2
+	jmp	add_empty_node_11_gc_
+
+add_empty_node_32:
+	movl	$7,d1
+	jmp	add_empty_node_12_
+add_empty_node_28:
+	movl	$6,d1
+	jmp	add_empty_node_12_
+add_empty_node_24:
+	movl	$5,d1
+	jmp	add_empty_node_12_
+add_empty_node_20:
+	movl	$4,d1
+	jmp	add_empty_node_12_
+add_empty_node_16:
+	movl	$3,d1
+	jmp	add_empty_node_12_
+add_empty_node_12:
+	movl	$2,d1
+add_empty_node_12_:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_12_gc
+add_empty_node_12_gc_:
+	movl	a3,d0
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+add_empty_node_12_lp:
+	movl	-12(d0),a2
+	movl	a2,-8(d0)
+	movl	-16(d0),a2
+	movl	a2,-12(d0)
+	movl	-20(d0),a2
+	movl	a2,-16(d0)
+	movl	-24(d0),a2
+	movl	a2,-20(d0)
+	subl	$16,d0
+	subl	$1,d1
+	jne	add_empty_node_12_lp
+	movl	free_heap_offset(a4),a2
+	movl	a2,-8(d0)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_12_gc:
+	call	collect_2
+	jmp	add_empty_node_12_gc_
+
+add_empty_node_29:
+	movl	$6,d1
+	jmp	add_empty_node_13_
+add_empty_node_25:
+	movl	$5,d1
+	jmp	add_empty_node_13_
+add_empty_node_21:
+	movl	$4,d1
+	jmp	add_empty_node_13_
+add_empty_node_17:
+	movl	$3,d1
+	jmp	add_empty_node_13_
+add_empty_node_13:
+	movl	$2,d1
+add_empty_node_13_:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_13_gc
+add_empty_node_13_gc_:
+	movl	a3,d0
+	movl	-4(a3),a2
+	movl	a2,(a3)
+	movl	-8(a3),a2
+	movl	a2,-4(a3)
+	movl	-12(a3),a2
+	movl	a2,-8(a3)
+add_empty_node_13_lp:
+	movl	-16(d0),a2
+	movl	a2,-12(d0)
+	movl	-20(d0),a2
+	movl	a2,-16(d0)
+	movl	-24(d0),a2
+	movl	a2,-20(d0)
+	movl	-28(d0),a2
+	movl	a2,-24(d0)
+	subl	$16,d0
+	subl	$1,d1
+	jne	add_empty_node_13_lp
+	movl	free_heap_offset(a4),a2
+	movl	a2,-12(d0)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_13_gc:
+	call	collect_2
+	jmp	add_empty_node_13_gc_
+
+add_empty_node_30:
+	movl	$7,d1
+	jmp	add_empty_node_14_
+add_empty_node_26:
+	movl	$6,d1
+	jmp	add_empty_node_14_
+add_empty_node_22:
+	movl	$5,d1
+	jmp	add_empty_node_14_
+add_empty_node_18:
+	movl	$4,d1
+	jmp	add_empty_node_14_
+add_empty_node_14:
+	movl	$3,d1
+	jmp	add_empty_node_14_
+add_empty_node_14_:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	add_empty_node_14_gc
+add_empty_node_14_gc_:
+	movl	a3,d0
+add_empty_node_14_lp:
+	movl	-4(d0),a2
+	movl	a2,(d0)
+	movl	-8(d0),a2
+	movl	a2,-4(d0)
+	movl	-12(d0),a2
+	movl	a2,-8(d0)
+	movl	-16(d0),a2
+	movl	a2,-12(d0)
+	subl	$16,d0
+	subl	$1,d1
+	jne	add_empty_node_14_lp
+	movl	free_heap_offset(a4),a2
+	movl	a2,(d0)
+	movl	$__cycle__in__spine,(a2)
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	addl	$4,a3
+	ret
+add_empty_node_14_gc:
+	call	collect_2
+	jmp	add_empty_node_14_gc_
+
+yet_args_needed_0:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	yet_args_needed_0_gc
+yet_args_needed_0_gc_r:
+	mov	a0,4(a2)
+	mov	(a1),d0
+	mov	a2,a0
+	add	$8,d0
+	mov	d0,(a2)
+	add	$8,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+yet_args_needed_0_gc:
+	call	collect_2
+	jmp	yet_args_needed_0_gc_r
+
+
+	align	(2)
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jmp	build_node_2
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_1:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	yet_args_needed_1_gc
+yet_args_needed_1_gc_r:
+	mov	a0,8(a2)
+	mov	(a1),d0
+	mov	a2,a0
+	add	$8,d0
+	mov	d0,(a2)
+	mov	4(a1),d1
+	mov	d1,4(a2)
+	add	$12,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+yet_args_needed_1_gc:
+	call	collect_2
+	jmp	yet_args_needed_1_gc_r
+
+build_node_2:
+	jae	build_node_2_gc
+build_node_2_gc_r:
+	movl	d1,(a2)
+	movl	a1,4(a2)
+	movl	a0,8(a2)
+	movl	a2,a0
+	addl	$12,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+build_node_2_gc:
+	call	collect_2
+	jmp	build_node_2_gc_r
+
+
+	align	(2)
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jmp	build_node_3
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_2:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	gc_22
+gc_r_22:
+	mov	(a1),d0
+	mov	a0,4(a2)
+	add	$8,d0
+	mov	4(a1),d1
+	mov	d0,8(a2)
+	lea	8(a2),a0
+	mov	d1,12(a2)
+	mov	8(a1),d1
+	mov	d1,(a2)
+	mov	a2,16(a2)
+	add	$20,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+gc_22:	call	collect_2
+	jmp	gc_r_22
+
+build_node_3:
+	jae	build_node_3_gc
+build_node_3_gc_r:
+	movl	d1,(a2)
+	lea	12(a2),d1
+	movl	a1,4(a2)
+	movl	d1,8(a2)
+	movl	a0,12(a2)
+	movl	a2,a0
+	movl	-4(a3),d1
+	subl	$4,a3
+	movl	d1,16(a2)
+	addl	$20,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+build_node_3_gc:
+	call	collect_2
+	jmp	build_node_3_gc_r
+
+
+	align	(2)
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jmp	build_node_4
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_3:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	gc_23
+gc_r_23:
+	mov	(a1),d0
+	mov	a0,8(a2)
+	add	$8,d0
+	mov	4(a1),d1
+	mov	d0,12(a2)
+	mov	8(a1),a1
+	mov	d1,16(a2)
+	mov	(a1),d1
+	mov	a2,20(a2)
+	mov	d1,(a2)
+	mov	4(a1),d1
+	lea	12(a2),a0
+	mov	d1,4(a2)
+	add	$24,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+gc_23:	call	collect_2
+	jmp	gc_r_23
+
+build_node_4:
+	jae	build_node_4_gc
+build_node_4_gc_r:
+	movl	d1,(a2)
+	lea	12(a2),d1
+	movl	a1,4(a2)
+	movl	d1,8(a2)
+	movl	a0,12(a2)
+	movl	a2,a0
+	movl	-4(a3),d1
+	movl	d1,16(a2)
+	movl	-8(a3),d1
+	subl	$8,a3
+	movl	d1,20(a2)
+	addl	$24,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+build_node_4_gc:
+	call	collect_2
+	jmp	build_node_4_gc_r
+
+
+	align	(2)
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jmp	build_node_5
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_4:
+	movl	free_heap_offset(a4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	gc_24
+gc_r_24:
+	mov	(a1),d0
+	mov	a0,12(a2)
+	add	$8,d0
+	mov	4(a1),d1
+	mov	d0,16(a2)
+	mov	8(a1),a1
+	mov	d1,20(a2)
+	mov	(a1),d1
+	mov	a2,24(a2)
+	mov	d1,(a2)
+	mov	4(a1),d1
+	lea	16(a2),a0
+	mov	d1,4(a2)
+	mov	8(a1),d1
+	mov	d1,8(a2)
+	add	$28,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+gc_24:	call	collect_2
+	jmp	gc_r_24
+
+build_node_5:
+	jae	build_node_5_gc
+build_node_5_gc_r:
+	movl	d1,(a2)
+	lea	12(a2),d1
+	movl	a1,4(a2)
+	movl	d1,8(a2)
+	movl	a0,12(a2)
+	movl	a2,a0
+	movl	-4(a3),d1
+	movl	d1,16(a2)
+	movl	-8(a3),d1
+	movl	d1,20(a2)
+	movl	-12(a3),d1
+	subl	$12,a3
+	movl	d1,24(a2)
+	addl	$28,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+build_node_5_gc:
+	call	collect_2
+	jmp	build_node_5_gc_r
+
+
+	align	(2)
+	movl	$6,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_5:
+	mov	(a1),d1
+	movl	$8,d0
+	jmp	yet_args_needed_
+
+
+	align	(2)
+	movl	$7,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_6:
+	mov	(a1),d1
+	movl	$9,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$8,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_7:
+	mov	(a1),d1
+	movl	$10,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$9,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_8:
+	mov	(a1),d1
+	movl	$11,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$10,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_9:
+	mov	(a1),d1
+	movl	$12,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$11,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_10:
+	mov	(a1),d1
+	movl	$13,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$12,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_11:
+	mov	(a1),d1
+	movl	$14,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$13,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_12:
+	mov	(a1),d1
+	movl	$15,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$14,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_13:
+	mov	(a1),d1
+	movl	$16,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$15,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_14:
+	mov	(a1),d1
+	movl	$17,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$16,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_15:
+	mov	(a1),d1
+	movl	$18,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$17,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_16:
+	mov	(a1),d1
+	movl	$19,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$18,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_17:
+	mov	(a1),d1
+	movl	$20,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$19,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_18:
+	mov	(a1),d1
+	movl	$21,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$20,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_19:
+	mov	(a1),d1
+	movl	$22,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$21,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_20:
+	mov	(a1),d1
+	movl	$23,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$22,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_21:
+	mov	(a1),d1
+	movl	$24,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$23,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_22:
+	mov	(a1),d1
+	movl	$25,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$24,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_23:
+	mov	(a1),d1
+	movl	$26,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$25,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_24:
+	mov	(a1),d1
+	movl	$27,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$26,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_25:
+	mov	(a1),d1
+	movl	$28,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$27,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_26:
+	mov	(a1),d1
+	movl	$29,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$28,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_27:
+	mov	(a1),d1
+	movl	$30,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$29,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_28:
+	mov	(a1),d1
+	movl	$31,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$30,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_29:
+	mov	(a1),d1
+	movl	$32,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$31,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_30:
+	mov	(a1),d1
+	movl	$33,d0
+	jmp	yet_args_needed_
+
+	align	(2)
+	movl	$32,d0
+	jmp	build_node_
+	nop
+	nop
+	align	(2)	
+#ifdef PROFILE
+	nop
+	nop
+	nop
+	nop	
+	nop
+	nop
+	nop
+	nop	
+#endif
+yet_args_needed_31:
+	mov	(a1),d1
+	movl	$34,d0
+	jmp	yet_args_needed_
+
+yet_args_needed:
+/ for more than 4 arguments
+	mov	(a1),d1
+	movzwl	-2(d1),d0
+	add	$3,d0
+yet_args_needed_:
+	movl	free_heap_offset(a4),a2
+	lea	-32(a2,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	yet_args_needed_gc
+yet_args_needed_gc_r:
+	sub	$3+1+4,d0
+	push	d1
+	push	a0
+	mov	4(a1),d1
+	mov	8(a1),a1
+	movl	free_heap_offset(a4),a2
+	mov	(a1),a0
+	mov	a0,(a2)
+	mov	4(a1),a0
+	mov	a0,4(a2)
+	mov	8(a1),a0
+	mov	a0,8(a2)
+	add	$12,a1
+	add	$12,a2
+
+yet_args_needed_cp_a:
+	mov	(a1),a0
+	add	$4,a1
+	mov	a0,(a2)
+	add	$4,a2
+	subl	$1,d0
+	jge	yet_args_needed_cp_a
+
+	pop	a0
+	mov	a0,(a2)
+	pop	d0
+	add	$8,d0
+	mov	d0,4(a2)
+	lea	4(a2),a0
+	mov	d1,8(a2)
+	movl	free_heap_offset(a4),d1
+	mov	d1,12(a2)
+	add	$16,a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+yet_args_needed_gc:
+	call	collect_2l
+	jmp	yet_args_needed_gc_r
+
+build_node_:
+	movl	free_heap_offset(a4),a2
+	lea	-32+8(a2,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	build_node_gc
+build_node_gc_r:
+	movl	free_heap_offset(a4),a2
+	movl	d1,(a2)
+	lea	12(a2),d1
+	movl	a1,4(a2)
+	movl	d1,8(a2)
+	movl	a0,12(a2)
+	movl	a2,a0
+	movl	-4(a3),d1
+	movl	d1,16(a2)
+	movl	-8(a3),d1
+	movl	d1,20(a2)
+	movl	-12(a3),d1
+	subl	$12,a3
+	movl	d1,24(a2)
+	addl	$28,a2
+
+	subl	$5,d0
+build_node_cp_a:
+	movl	-4(a3),d1
+	subl	$4,a3
+	movl	d1,(a2)
+	addl	$4,a2
+	subl	$1,d0
+	jne	build_node_cp_a
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+build_node_gc:
+	call	collect_2l
+	jmp	build_node_gc_r
+
+	.globl	apupd_1
+	.globl	apupd_2
+	.globl	apupd_3
+	.globl	apupd_4
+	.globl	apupd_5
+	.globl	apupd_6
+	.globl	apupd_7
+	.globl	apupd_8
+	.globl	apupd_9
+	.globl	apupd_10
+	.globl	apupd_11
+	.globl	apupd_12
+	.globl	apupd_13
+	.globl	apupd_14
+	.globl	apupd_15
+	.globl	apupd_16
+	.globl	apupd_17
+	.globl	apupd_18
+	.globl	apupd_19
+	.globl	apupd_20
+	.globl	apupd_21
+	.globl	apupd_22
+	.globl	apupd_23
+	.globl	apupd_24
+	.globl	apupd_25
+	.globl	apupd_26
+	.globl	apupd_27
+	.globl	apupd_28
+	.globl	apupd_29
+	.globl	apupd_30
+	.globl	apupd_31
+	.globl	apupd_32
+	.globl	__indirection
+
+apupd_1:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_1,a2
+	jne	ap_upd
+
+	movl	-4(a3),a2
+	movl	-8(a3),d0
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+ap_1:
+	movl	(a1),a2
+	jmp	*2(a2)
+
+apupd_2:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_2,a2
+	jne	ap_upd
+
+	movl	-8(a3),a2
+	movl	-12(a3),d0
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_2
+
+apupd_3:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_3,a2
+	jne	ap_upd
+
+	movl	-12(a3),a2
+	movl	-16(a3),d0
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_3
+
+apupd_4:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_4,a2
+	jne	ap_upd
+
+	movl	-16(a3),a2
+	movl	-20(a3),d0
+	movl	-12(a3),d1
+	movl	d1,-16(a3)
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_4
+
+apupd_5:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_5,a2
+	jne	ap_upd
+
+	movl	-20(a3),a2
+	movl	-24(a3),d0
+	movl	-16(a3),d1
+	movl	d1,-20(a3)
+	movl	-12(a3),d1
+	movl	d1,-16(a3)
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_5
+
+apupd_6:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_6,a2
+	jne	ap_upd
+
+	movl	-24(a3),a2
+	movl	-28(a3),d0
+	movl	-20(a3),d1
+	movl	d1,-24(a3)
+	movl	-16(a3),d1
+	movl	d1,-20(a3)
+	movl	-12(a3),d1
+	movl	d1,-16(a3)
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_6
+
+apupd_7:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_7,a2
+	jne	ap_upd
+
+	movl	-28(a3),a2
+	movl	-32(a3),d0
+	call	move_8
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_7
+
+apupd_8:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_8,a2
+	jne	ap_upd
+
+	movl	-32(a3),a2
+	movl	-36(a3),d0
+	call	move_9
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_8
+
+apupd_9:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_9,a2
+	jne	ap_upd
+
+	movl	-36(a3),a2
+	movl	-40(a3),d0
+	call	move_10
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_9
+
+apupd_10:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_10,a2
+	jne	ap_upd
+
+	movl	-40(a3),a2
+	movl	-44(a3),d0
+	call	move_11
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_10
+
+apupd_11:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_11,a2
+	jne	ap_upd
+
+	movl	-44(a3),a2
+	movl	-48(a3),d0
+	call	move_12
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_11
+
+apupd_12:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_12,a2
+	jne	ap_upd
+
+	movl	-48(a3),a2
+	movl	-52(a3),d0
+	call	move_13
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_12
+
+apupd_13:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_13,a2
+	jne	ap_upd
+
+	movl	-52(a3),a2
+	movl	-56(a3),d0
+	call	move_14
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_13
+
+apupd_14:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_14,a2
+	jne	ap_upd
+
+	movl	-56(a3),a2
+	movl	-60(a3),d0
+	call	move_15
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_14
+
+apupd_15:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_15,a2
+	jne	ap_upd
+
+	movl	-60(a3),a2
+	movl	-64(a3),d0
+	call	move_16
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_15
+
+apupd_16:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_16,a2
+	jne	ap_upd
+
+	movl	-64(a3),a2
+	movl	-68(a3),d0
+	call	move_17
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_16
+
+apupd_17:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_17,a2
+	jne	ap_upd
+
+	movl	-68(a3),a2
+	movl	-72(a3),d0
+	call	move_18
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_17
+
+apupd_18:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_18,a2
+	jne	ap_upd
+
+	movl	-72(a3),a2
+	movl	-76(a3),d0
+	call	move_19
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_18
+
+apupd_19:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_19,a2
+	jne	ap_upd
+
+	movl	-76(a3),a2
+	movl	-80(a3),d0
+	call	move_20
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_19
+
+apupd_20:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_20,a2
+	jne	ap_upd
+
+	movl	-80(a3),a2
+	movl	-84(a3),d0
+	call	move_21
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_20
+
+apupd_21:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_21,a2
+	jne	ap_upd
+
+	movl	-84(a3),a2
+	movl	-88(a3),d0
+	call	move_22
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_21
+
+apupd_22:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_22,a2
+	jne	ap_upd
+
+	movl	-88(a3),a2
+	movl	-92(a3),d0
+	call	move_23
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_22
+
+apupd_23:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_23,a2
+	jne	ap_upd
+
+	movl	-92(a3),a2
+	movl	-96(a3),d0
+	call	move_24
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_23
+
+apupd_24:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_24,a2
+	jne	ap_upd
+
+	movl	-96(a3),a2
+	movl	-100(a3),d0
+	call	move_25
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_24
+
+apupd_25:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_25,a2
+	jne	ap_upd
+
+	movl	-100(a3),a2
+	movl	-104(a3),d0
+	call	move_26
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_25
+
+apupd_26:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_26,a2
+	jne	ap_upd
+
+	movl	-104(a3),a2
+	movl	-108(a3),d0
+	call	move_27
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_26
+
+apupd_27:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_27,a2
+	jne	ap_upd
+
+	movl	-108(a3),a2
+	movl	-112(a3),d0
+	call	move_28
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_27
+
+apupd_28:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_28,a2
+	jne	ap_upd
+
+	movl	-112(a3),a2
+	movl	-116(a3),d0
+	call	move_29
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_28
+
+apupd_29:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_29,a2
+	jne	ap_upd
+
+	movl	-116(a3),a2
+	movl	-120(a3),d0
+	call	move_30
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_29
+
+apupd_30:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_30,a2
+	jne	ap_upd
+
+	movl	-120(a3),a2
+	movl	-124(a3),d0
+	call	move_31
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_30
+
+apupd_31:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_31,a2
+	jne	ap_upd
+
+	movl	-124(a3),a2
+	movl	-128(a3),d0
+	call	move_32
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_31
+
+apupd_32:
+	cmpl	$apupd_upd,(sp)
+	lea	ap_32,a2
+	jne	ap_upd
+
+	movl	-128(a3),a2
+	movl	-132(a3),d0
+	call	move_33
+	subl	$4,a3
+	movl	$__indirection,(a2)
+	movl	d0,4(a2)
+	jmp	ap_32
+
+	nop
+
+ap_upd:
+	call	*a2
+apupd_upd:
+	movl	-4(a3),a1
+	subl	$4,a3
+	movl	(a0),d0
+	movl	d0,(a1)
+	movl	4(a0),d0
+	movl	d0,4(a1)
+	movl	8(a0),d0
+	movl	a1,a0
+	movl	d0,8(a1)	
+	ret
+
+	.globl	jmpupd_0
+	.globl	jmpupd_1
+	.globl	jmpupd_2
+	.globl	jmpupd_3
+	.globl	jmpupd_4
+	.globl	jmpupd_5
+	.globl	jmpupd_6
+	.globl	jmpupd_7
+	.globl	jmpupd_8
+	.globl	jmpupd_9
+	.globl	jmpupd_10
+	.globl	jmpupd_11
+	.globl	jmpupd_12
+	.globl	jmpupd_13
+	.globl	jmpupd_14
+	.globl	jmpupd_15
+	.globl	jmpupd_16
+	.globl	jmpupd_17
+	.globl	jmpupd_18
+	.globl	jmpupd_19
+	.globl	jmpupd_20
+	.globl	jmpupd_21
+	.globl	jmpupd_22
+	.globl	jmpupd_23
+	.globl	jmpupd_24
+	.globl	jmpupd_25
+	.globl	jmpupd_26
+	.globl	jmpupd_27
+	.globl	jmpupd_28
+	.globl	jmpupd_29
+	.globl	jmpupd_30
+	.globl	jmpupd_31
+	.globl	jmpupd_32
+
+jmpupd_0:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-4(a3),d0
+	movl	-8(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_1:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-4(a3),d0
+	movl	-8(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_2:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-4(a3),d0
+	movl	-8(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_3:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-8(a3),d0
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	movl	-12(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_4:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-12(a3),d0
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	movl	-16(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_5:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-16(a3),d0
+	movl	-12(a3),d1
+	movl	d1,-16(a3)
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	movl	-20(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_6:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-20(a3),d0
+	movl	-16(a3),d1
+	movl	d1,-20(a3)
+	movl	-12(a3),d1
+	movl	d1,-16(a3)
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	movl	-24(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_7:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-24(a3),d0
+	call	move_7
+	movl	-28(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_8:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-28(a3),d0
+	call	move_8
+	movl	-32(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_9:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-32(a3),d0
+	call	move_9
+	movl	-36(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_10:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-36(a3),d0
+	call	move_10
+	movl	-40(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_11:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-40(a3),d0
+	call	move_11
+	movl	-44(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_12:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-44(a3),d0
+	call	move_12
+	movl	-48(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_13:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-48(a3),d0
+	call	move_13
+	movl	-52(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_14:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-52(a3),d0
+	call	move_14
+	movl	-56(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_15:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-56(a3),d0
+	call	move_15
+	movl	-60(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_16:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-60(a3),d0
+	call	move_16
+	movl	-64(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_17:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-64(a3),d0
+	call	move_17
+	movl	-68(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_18:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-68(a3),d0
+	call	move_18
+	movl	-72(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_19:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-72(a3),d0
+	call	move_19
+	movl	-76(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_20:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-76(a3),d0
+	call	move_20
+	movl	-80(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_21:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-80(a3),d0
+	call	move_21
+	movl	-84(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_22:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-84(a3),d0
+	call	move_22
+	movl	-88(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_23:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-88(a3),d0
+	call	move_23
+	movl	-92(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_24:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-92(a3),d0
+	call	move_24
+	movl	-96(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_25:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-96(a3),d0
+	call	move_25
+	movl	-100(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_26:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-100(a3),d0
+	call	move_26
+	movl	-104(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_27:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-104(a3),d0
+	call	move_27
+	movl	-108(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_28:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-108(a3),d0
+	call	move_28
+	movl	-112(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_29:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-112(a3),d0
+	call	move_29
+	movl	-116(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_30:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-116(a3),d0
+	call	move_30
+	movl	-120(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_31:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-120(a3),d0
+	call	move_31
+	movl	-124(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+jmpupd_32:
+	cmpl	$apupd_upd,(sp)
+	jne	ap_upd
+
+	movl	-124(a3),d0
+	call	move_32
+	movl	-128(a3),d1
+	subl	$4,a3
+	movl	$__indirection,(d0)
+	movl	d1,4(d0)
+	jmp	*a2
+
+move_33:
+	movl	-124(a3),d1
+	movl	d1,-128(a3)
+move_32:
+	movl	-120(a3),d1
+	movl	d1,-124(a3)
+move_31:
+	movl	-116(a3),d1
+	movl	d1,-120(a3)
+move_30:
+	movl	-112(a3),d1
+	movl	d1,-116(a3)
+move_29:
+	movl	-108(a3),d1
+	movl	d1,-112(a3)
+move_28:
+	movl	-104(a3),d1
+	movl	d1,-108(a3)
+move_27:
+	movl	-100(a3),d1
+	movl	d1,-104(a3)
+move_26:
+	movl	-96(a3),d1
+	movl	d1,-100(a3)
+move_25:
+	movl	-92(a3),d1
+	movl	d1,-96(a3)
+move_24:
+	movl	-88(a3),d1
+	movl	d1,-92(a3)
+move_23:
+	movl	-84(a3),d1
+	movl	d1,-88(a3)
+move_22:
+	movl	-80(a3),d1
+	movl	d1,-84(a3)
+move_21:
+	movl	-76(a3),d1
+	movl	d1,-80(a3)
+move_20:
+	movl	-72(a3),d1
+	movl	d1,-76(a3)
+move_19:
+	movl	-68(a3),d1
+	movl	d1,-72(a3)
+move_18:
+	movl	-64(a3),d1
+	movl	d1,-68(a3)
+move_17:
+	movl	-60(a3),d1
+	movl	d1,-64(a3)
+move_16:
+	movl	-56(a3),d1
+	movl	d1,-60(a3)
+move_15:
+	movl	-52(a3),d1
+	movl	d1,-56(a3)
+move_14:
+	movl	-48(a3),d1
+	movl	d1,-52(a3)
+move_13:
+	movl	-44(a3),d1
+	movl	d1,-48(a3)
+move_12:
+	movl	-40(a3),d1
+	movl	d1,-44(a3)
+move_11:
+	movl	-36(a3),d1
+	movl	d1,-40(a3)
+move_10:
+	movl	-32(a3),d1
+	movl	d1,-36(a3)
+move_9:
+	movl	-28(a3),d1
+	movl	d1,-32(a3)
+move_8:
+	movl	-24(a3),d1
+	movl	d1,-28(a3)
+move_7:
+	movl	-20(a3),d1
+	movl	d1,-24(a3)
+	movl	-16(a3),d1
+	movl	d1,-20(a3)
+	movl	-12(a3),d1
+	movl	d1,-16(a3)
+	movl	-8(a3),d1
+	movl	d1,-12(a3)
+	movl	-4(a3),d1
+	movl	d1,-8(a3)
+	ret
diff --git a/thread/icompact.s b/thread/icompact.s
new file mode 100644
index 0000000..5a6558b
--- /dev/null
+++ b/thread/icompact.s
@@ -0,0 +1,1303 @@
+
+/ mark used nodes and pointers in argument parts and link backward pointers
+
+	movl	heap_vector_offset(a4),d0
+	shrl	$2,d0
+	movl	d0,heap_vector_d4_offset(a4)
+
+	movl	heap_size_33_offset(a4),d0
+	shl	$5,d0
+	movl	d0,heap_size_32_33_offset(a4)
+
+	lea	-8000(sp),a3
+
+	movl	caf_list,d0
+	movl	a3,end_stack_offset(a4)
+
+	test	d0,d0
+	je	end_mark_cafs
+
+mark_cafs_lp:
+	pushl	-4(d0)
+
+	lea	4(d0),a3
+	movl	(d0),d0
+	lea	(a3,d0,4),a0
+
+	movl	a0,end_vector_offset(a4)
+
+	call	rmark_stack_nodes
+	
+	popl	d0
+	test	d0,d0
+	jne	mark_cafs_lp
+
+end_mark_cafs:
+	movl	stack_p_offset(a4),a3
+
+	movl	stack_top_offset(a4),a0
+	movl	a0,end_vector_offset(a4)
+	call	rmark_stack_nodes
+	
+	jmp	compact_heap
+
+#include "icompact_rmark.s"
+#include "icompact_rmarkr.s"
+
+/ compact the heap
+
+compact_heap:
+
+#ifdef FINALIZERS
+	movl	$finalizer_list,a0
+	movl	$free_finalizer_list,a1
+
+	movl	(a0),a2
+determine_free_finalizers_after_compact1:
+	cmpl	$__Nil-4,a2
+	je	end_finalizers_after_compact1
+
+	movl	neg_heap_p3_offset(a4),d1
+	movl	heap_vector_offset(a4),a3
+	addl	a2,d1
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+
+	movl	bit_set_table(d0),d0
+	testl	(a3,d1,4),d0
+	je	finalizer_not_used_after_compact1
+
+	movl	(a2),d0
+	movl	a2,a3
+	jmp	finalizer_find_descriptor
+
+finalizer_find_descriptor_lp:
+	andl	$-4,d0
+	movl	d0,a3
+	movl	(d0),d0
+finalizer_find_descriptor:
+	test	$1,d0
+	jne	finalizer_find_descriptor_lp
+
+	movl	$e____system__kFinalizerGCTemp+2,(a3)
+
+	cmpl	a0,a2
+	ja	finalizer_no_reverse
+
+	movl	(a2),d0
+	leal	1(a0),a3
+	movl	a3,(a2)
+	movl	d0,(a0)
+
+finalizer_no_reverse:
+	lea	4(a2),a0
+	movl	4(a2),a2
+	jmp	determine_free_finalizers_after_compact1
+
+finalizer_not_used_after_compact1:
+	movl	$e____system__kFinalizerGCTemp+2,(a2)
+
+	movl	a2,(a1)
+	lea	4(a2),a1
+
+	movl	4(a2),a2
+	movl	a2,(a0)
+
+	jmp	determine_free_finalizers_after_compact1
+
+end_finalizers_after_compact1:
+	movl	a2,(a1)	
+
+	movl	finalizer_list,a0
+	cmpl	$__Nil-4,a0
+	je	finalizer_list_empty
+	testl	$3,a0
+	jne	finalizer_list_already_reversed
+	movl	(a0),d0
+	movl	$finalizer_list+1,(a0)
+	movl	d0,finalizer_list
+finalizer_list_already_reversed:
+finalizer_list_empty:
+
+	movl	$free_finalizer_list,a3
+	cmpl	$__Nil-4,(a3)
+
+	je	free_finalizer_list_empty
+
+	movl	$free_finalizer_list+4,end_vector_offset(a4)
+
+	call	rmark_stack_nodes
+free_finalizer_list_empty:
+#endif
+
+a4_compact_sp_offset		= 0
+heap_p3_compact_sp_offset	= 4
+heap_vector_compact_sp_offset	= 8
+neg_heap_p3_compact_sp_offset	= 12
+neg_heap_vector_plus_4_compact_sp_offset = 16
+vector_counter_compact_sp_offset = 20
+vector_p_compact_sp_offset	= 24
+end_heap_p3_compact_sp_offset	= 28
+compact_sp_offset_2		= 32
+compact_sp_offset_1		= 36
+
+	lea	-40(sp),sp
+	movl	a4,a4_compact_sp_offset(sp)
+
+	movl	heap_p3_offset(a4),d0
+	movl	d0,heap_p3_compact_sp_offset(sp)
+
+	movl	neg_heap_p3_offset(a4),d0
+	movl	d0,neg_heap_p3_compact_sp_offset(sp)
+
+	movl	heap_vector_offset(a4),d0
+	movl	d0,heap_vector_compact_sp_offset(sp)
+
+	movl	heap_size_33_offset(a4),d0
+
+	movl	d0,d1
+	shl	$5,d1
+
+	addl	heap_p3_compact_sp_offset(sp),d1
+
+	movl	d1,end_heap_p3_compact_sp_offset(sp)
+
+	addl	$3,d0
+	shr	$2,d0
+	
+	movl	heap_vector_compact_sp_offset(sp),a0
+
+	lea	4(a0),d1
+	negl	d1
+	movl	d1,neg_heap_vector_plus_4_compact_sp_offset(sp)
+
+	movl	heap_p3_compact_sp_offset(sp),a4
+	xorl	a3,a3
+	jmp	skip_zeros
+
+/ d0,a0,a2: free
+find_non_zero_long:
+	movl	vector_counter_compact_sp_offset(sp),d0
+	movl	vector_p_compact_sp_offset(sp),a0
+skip_zeros:
+	subl	$1,d0
+	jc	end_copy
+	movl	(a0),a3
+	addl	$4,a0
+	testl	a3,a3
+	je	skip_zeros
+/ a2: free
+end_skip_zeros:
+	movl	neg_heap_vector_plus_4_compact_sp_offset(sp),a2
+	movl	d0,vector_counter_compact_sp_offset(sp)
+
+	addl	a0,a2
+	movl	a0,vector_p_compact_sp_offset(sp)
+
+	shl	$5,a2
+	addl	heap_p3_compact_sp_offset(sp),a2
+
+#ifdef NO_BIT_INSTRUCTIONS
+bsf_and_copy_nodes:
+	movl	a3,d0
+	movl	a3,a0
+	andl	$0xff,d0
+	jne	found_bit1
+	andl	$0xff00,a0
+	jne	found_bit2
+	movl	a3,d0
+	movl	a3,a0
+	andl	$0xff0000,d0
+	jne	found_bit3
+	shrl	$24,a0
+	movzbl	first_one_bit_table(,a0,1),d1
+	addl	$24,d1
+	jmp	copy_nodes
+
+found_bit3:
+	shrl	$16,d0
+	movzbl	first_one_bit_table(,d0,1),d1
+	addl	$16,d1
+	jmp	copy_nodes
+
+found_bit2:
+	shrl	$8,a0
+	movzbl	first_one_bit_table(,a0,1),d1
+	addl	$8,d1
+	jmp	copy_nodes
+
+found_bit1:	
+	movzbl	first_one_bit_table(,d0,1),d1
+#else
+	bsf	a3,d1
+#endif
+
+copy_nodes:
+	movl	(a2,d1,4),d0
+#ifdef NO_BIT_INSTRUCTIONS
+	andl	bit_clear_table(,d1,4),a3
+#else
+	btr	d1,a3
+#endif
+	leal	4(a2,d1,4),a0
+	dec	d0
+
+	test	$2,d0
+	je	begin_update_list_2
+
+	movl	-10(d0),d1
+	subl	$2,d0
+
+	test	$1,d1
+	je	end_list_2
+find_descriptor_2:
+	andl	$-4,d1
+	movl	(d1),d1
+	test	$1,d1
+	jne	find_descriptor_2
+
+end_list_2:
+	movl	d1,a1
+	movzwl	-2(d1),d1
+	cmpl	$256,d1
+	jb	no_record_arguments
+
+	movzwl	-2+2(a1),a1
+	subl	$2,a1
+	jae	copy_record_arguments_aa
+
+	subl	$256+3,d1
+
+copy_record_arguments_all_b:
+	movl	d1,compact_sp_offset_1(sp)
+
+	movl	heap_vector_compact_sp_offset(sp),d1
+
+update_up_list_1r:
+	movl	d0,a1
+	addl	neg_heap_p3_compact_sp_offset(sp),d0
+
+#ifdef NO_BIT_INSTRUCTIONS
+	pushl	a0
+	movl	d0,a0
+
+	shrl	$7,d0
+	andl	$31*4,a0
+
+	movl	bit_set_table(,a0,1),a0
+	movl	(d1,d0,4),d0
+
+	andl	a0,d0
+
+	popl	a0
+	je	copy_argument_part_1r
+#else
+	shrl	$2,d0
+	bt	d0,(d1)
+	jnc	copy_argument_part_1r
+#endif
+	movl	(a1),d0
+	movl	a4,(a1)
+	subl	$3,d0
+	jmp	update_up_list_1r
+
+copy_argument_part_1r:
+	movl	(a1),d0
+	movl	a4,(a1)
+	movl	d0,(a4)
+	addl	$4,a4
+
+	movl	neg_heap_p3_compact_sp_offset(sp),d0
+	addl	a0,d0
+	shr	$2,d0
+	
+	mov	d0,d1
+	andl	$31,d1
+	cmp	$1,d1
+	jae	bit_in_this_word
+
+	movl	vector_counter_compact_sp_offset(sp),d0
+	movl	vector_p_compact_sp_offset(sp),a1
+	dec	d0
+	movl	(a1),a3
+	addl	$4,a1
+
+	movl	neg_heap_vector_plus_4_compact_sp_offset(sp),a2
+	addl	a1,a2
+	shl	$5,a2
+	addl	heap_p3_compact_sp_offset(sp),a2
+
+	movl	a1,vector_p_compact_sp_offset(sp)
+	movl	d0,vector_counter_compact_sp_offset(sp)
+
+bit_in_this_word:
+#ifdef NO_BIT_INSTRUCTIONS
+	andl	bit_clear_table(,d1,4),a3
+#else
+	btr	d1,a3
+#endif
+
+	movl	compact_sp_offset_1(sp),d1
+
+copy_b_record_argument_part_arguments:
+	movl	(a0),d0
+	addl	$4,a0
+	movl	d0,(a4)
+	addl	$4,a4
+	subl	$1,d1
+	jnc	copy_b_record_argument_part_arguments
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+copy_record_arguments_aa:
+	subl	$256+2,d1
+	subl	a1,d1
+	
+	movl	d1,compact_sp_offset_1(sp)
+	mov	a1,compact_sp_offset_2(sp)
+
+update_up_list_2r:
+	movl	d0,a1
+	movl	(a1),d0
+	movl	$3,d1
+	andl	d0,d1
+	subl	$3,d1
+	jne	copy_argument_part_2r
+
+	movl	a4,(a1)
+	subl	$3,d0
+	jmp	update_up_list_2r
+
+copy_argument_part_2r:
+	movl	a4,(a1)
+	cmpl	a0,d0
+	jb	copy_record_argument_2
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),d0
+	jae	copy_record_argument_2
+
+	movl	d0,a1
+	movl	(a1),d0
+	lea	1(a4),d1
+	movl	d1,(a1)
+copy_record_argument_2:
+	movl	d0,(a4)
+	addl	$4,a4
+
+	movl	compact_sp_offset_2(sp),d1
+	subl	$1,d1
+	jc	no_pointers_in_record
+
+copy_record_pointers:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jb	copy_record_pointers_2
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jae	copy_record_pointers_2
+
+	movl	(a1),d0
+	inc	a4
+	movl	a4,(a1)
+	dec	a4
+	movl	d0,a1
+copy_record_pointers_2:
+	movl	a1,(a4)
+	addl	$4,a4
+	subl	$1,d1
+	jnc	copy_record_pointers
+
+no_pointers_in_record:
+	movl	compact_sp_offset_1(sp),d1
+	
+	subl	$1,d1
+	jc	no_non_pointers_in_record
+
+copy_non_pointers_in_record:
+	movl	(a0),d0
+	addl	$4,a0
+	movl	d0,(a4)
+	addl	$4,a4
+	subl	$1,d1
+	jnc	copy_non_pointers_in_record
+
+no_non_pointers_in_record:
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+no_record_arguments:
+	subl	$3,d1
+update_up_list_2:
+	movl	d0,a1
+	movl	(d0),d0
+	inc	d0
+	movl	a4,(a1)
+	testb	$3,d0b
+	jne	copy_argument_part_2
+
+	subl	$4,d0
+	jmp	update_up_list_2
+
+copy_argument_part_2:
+	dec	d0
+	cmpl	a0,d0
+	jc	copy_arguments_1
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),d0
+	jnc	copy_arguments_1
+
+	movl	d0,a1
+	movl	(d0),d0
+	inc	a4
+	movl	a4,(a1)
+	dec	a4
+copy_arguments_1:
+	movl	d0,(a4)
+	addl	$4,a4
+
+copy_argument_part_arguments:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	copy_arguments_2
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	copy_arguments_2
+
+	movl	(a1),d0
+	inc	a4
+	movl	a4,(a1)
+	dec	a4
+	movl	d0,a1
+copy_arguments_2:
+	movl	a1,(a4)
+	addl	$4,a4
+	subl	$1,d1
+	jnc	copy_argument_part_arguments
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+update_list_2_:
+	dec	d0
+update_list_2:
+	movl	a4,(a1)
+begin_update_list_2:
+	movl	d0,a1
+	movl	(d0),d0
+update_list__2:
+	test	$1,d0
+	jz	end_update_list_2
+	test	$2,d0
+	jz	update_list_2_
+	lea	-3(d0),a1
+	movl	-3(d0),d0
+	jmp	update_list__2
+
+end_update_list_2:
+	movl	a4,(a1)
+
+	movl	d0,(a4)
+	addl	$4,a4
+
+	testb	$2,d0b
+	je	move_lazy_node
+
+	movzwl	-2(d0),d1
+	testl	d1,d1
+	je	move_hnf_0
+
+	cmp	$256,d1
+	jae	move_record
+
+	subl	$2,d1
+	jc	move_hnf_1
+	je	move_hnf_2
+
+move_hnf_3:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_hnf_3_1
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_hnf_3_1
+
+	lea	1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_hnf_3_1:
+	movl	a1,(a4)
+	
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_hnf_3_2
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_hnf_3_2
+
+	lea	4+2+1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_hnf_3_2:
+	movl	a1,4(a4)
+	addl	$8,a4
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_hnf_2:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_hnf_2_1
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_hnf_2_1
+
+	lea	1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_hnf_2_1:
+	movl	a1,(a4)
+	
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_hnf_2_2
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_hnf_2_2
+
+	lea	4+1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_hnf_2_2:
+	movl	a1,4(a4)
+	addl	$8,a4
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_hnf_1:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_hnf_1_
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_hnf_1_
+
+	lea	1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_hnf_1_:
+	movl	a1,(a4)
+	addl	$4,a4
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_record:
+	subl	$258,d1
+	jb	move_record_1
+	je	move_record_2
+
+move_record_3:
+	movzwl	-2+2(d0),d1
+	subl	$1,d1
+	ja	move_hnf_3
+
+	movl	(a0),a1
+	lea	4(a0),a0
+	jb	move_record_3_1b
+
+move_record_3_1a:
+	cmpl	a0,a1
+	jb	move_record_3_1b
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jae	move_record_3_1b
+
+	lea	1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_record_3_1b:
+	movl	a1,(a4)
+	addl	$4,a4
+
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jb	move_record_3_2
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jae	move_record_3_2
+
+	movl	neg_heap_p3_compact_sp_offset(sp),d0
+#ifdef NO_BIT_INSTRUCTIONS
+	movl	a2,compact_sp_offset_1(sp)
+#endif
+	addl	a1,d0
+
+#ifdef NO_BIT_INSTRUCTIONS
+	movl	heap_vector_compact_sp_offset(sp),d1
+	addl	$4,d0
+	movl	d0,a2
+	andl	$31*4,a2
+	shrl	$7,d0
+	movl	bit_set_table(a2),a2
+	testl	(d1,d0,4),a2
+	je	not_linked_record_argument_part_3_b
+#else
+	shr	$2,d0
+	inc	d0
+
+	movl	heap_vector_compact_sp_offset(sp),d1
+	bts	d0,(d1)
+	jnc	not_linked_record_argument_part_3_b
+#endif
+
+	movl	neg_heap_p3_compact_sp_offset(sp),d0
+	addl	a4,d0
+
+#ifdef NO_BIT_INSTRUCTIONS
+	movl	d0,a2
+	andl	$31*4,a2
+	shrl	$7,d0
+	movl	bit_set_table(a2),a2
+	orl	a2,(d1,d0,4)
+	movl	compact_sp_offset_1(sp),a2
+#else
+	shr	$2,d0
+	bts	d0,(d1)
+#endif
+	jmp	linked_record_argument_part_3_b
+
+not_linked_record_argument_part_3_b:
+#ifdef NO_BIT_INSTRUCTIONS
+	orl	a2,(d1,d0,4)
+#endif
+	movl	neg_heap_p3_compact_sp_offset(sp),d0
+	addl	a4,d0
+
+#ifdef NO_BIT_INSTRUCTIONS
+	movl	d0,a2
+	andl	$31*4,a2
+	shrl	$7,d0
+	movl	bit_clear_table(a2),a2
+	andl	a2,(d1,d0,4)
+	movl	compact_sp_offset_1(sp),a2
+#else
+	shr	$2,d0
+	btr	d0,(d1)
+#endif
+
+linked_record_argument_part_3_b:
+	movl	(a1),d1
+	lea	2+1(a4),d0
+	movl	d0,(a1)
+	movl	d1,a1
+move_record_3_2:
+	movl	a1,(a4)
+	addl	$4,a4
+
+	movl	neg_heap_p3_compact_sp_offset(sp),d1
+	addl	a0,d1
+	shr	$2,d1
+	dec	d1
+	andl	$31,d1
+	cmp	$2,d1
+	jb	bit_in_next_word
+	
+#ifdef NO_BIT_INSTRUCTIONS
+	andl	bit_clear_table(,d1,4),a3
+#else
+	btr	d1,a3
+#endif
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+	
+bit_in_next_word:
+	movl	vector_counter_compact_sp_offset(sp),d0
+	movl	vector_p_compact_sp_offset(sp),a0
+	dec	d0
+	movl	(a0),a3
+	addl	$4,a0
+
+#ifdef NO_BIT_INSTRUCTIONS
+	andl	bit_clear_table(,d1,4),a3
+#else
+	btr	d1,a3
+#endif
+	testl	a3,a3
+	je	skip_zeros
+	jmp	end_skip_zeros
+
+move_record_2:
+	cmpw	$1,-2+2(d0)
+	ja	move_hnf_2
+	jb	move_real_or_file
+
+move_record_2_ab:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jb	move_record_2_1
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jae	move_record_2_1
+
+	lea	1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_record_2_1:
+	movl	a1,(a4)
+	movl	(a0),d1
+	addl	$4,a0
+	movl	d1,4(a4)
+	addl	$8,a4
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_record_1:
+	movzwl	-2+2(d0),d1
+	test	d1,d1
+	jne	move_hnf_1
+	jmp	move_int_bool_or_char
+
+move_real_or_file:
+	movl	(a0),d0
+	addl	$4,a0
+	movl	d0,(a4)
+	addl	$4,a4
+move_int_bool_or_char:
+	movl	(a0),d0
+	addl	$4,a0
+	movl	d0,(a4)
+	addl	$4,a4
+copy_normal_hnf_0:
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_hnf_0:
+	cmpl	$INT+2,d0
+	jb	move_real_file_string_or_array
+	cmpl	$CHAR+2,d0
+	jbe	move_int_bool_or_char
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_real_file_string_or_array:
+	cmpl	$__STRING__+2,d0
+	ja	move_real_or_file
+	jne	move_array
+
+	movl	(a0),d0
+	addl	$3,d0
+	shr	$2,d0
+
+cp_s_arg_lp3:
+	movl	(a0),d1
+	addl	$4,a0
+	movl	d1,(a4)
+	addl	$4,a4
+	subl	$1,d0
+	jnc	cp_s_arg_lp3
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_array:
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_end_array_bit
+#else
+	bsf	a3,d1
+	jne	end_array_bit
+#endif
+	movl	a0,compact_sp_offset_1(sp)
+
+	movl	vector_counter_compact_sp_offset(sp),d0
+	movl	vector_p_compact_sp_offset(sp),a0
+
+skip_zeros_a:
+	subl	$1,d0
+	movl	(a0),a3
+	addl	$4,a0
+	testl	a3,a3
+	je	skip_zeros_a
+
+	movl	neg_heap_vector_plus_4_compact_sp_offset(sp),a2
+	addl	a0,a2
+	movl	d0,vector_counter_compact_sp_offset(sp)
+
+	shl	$5,a2
+	movl	a0,vector_p_compact_sp_offset(sp)
+
+	addl	heap_p3_compact_sp_offset(sp),a2
+
+	movl	compact_sp_offset_1(sp),a0
+
+#ifdef NO_BIT_INSTRUCTIONS
+bsf_and_end_array_bit:
+	movl	a3,d0
+	movl	a3,a1
+	andl	$0xff,d0
+	jne	a_found_bit1
+	andl	$0xff00,a1
+	jne	a_found_bit2
+	movl	a3,d0
+	movl	a3,a1
+	andl	$0xff0000,d0
+	jne	a_found_bit3
+	shrl	$24,a1
+	movzbl	first_one_bit_table(,a1,1),d1
+	addl	$24,d1
+	jmp	end_array_bit
+a_found_bit3:
+	shrl	$16,d0
+	movzbl	first_one_bit_table(,d0,1),d1
+	addl	$16,d1
+	jmp	end_array_bit
+a_found_bit2:
+	shrl	$8,a1
+	movzbl	first_one_bit_table(,a1,1),d1
+	addl	$8,d1
+	jmp	end_array_bit
+a_found_bit1:
+	movzbl	first_one_bit_table(,d0,1),d1
+
+#else
+	bsf	a3,d1
+#endif
+
+end_array_bit:
+#ifdef NO_BIT_INSTRUCTIONS
+	andl	bit_clear_table(,d1,4),a3
+#else
+	btr	d1,a3
+#endif
+	leal	(a2,d1,4),d1
+
+	cmpl	d1,a0
+	jne	move_a_array
+
+move_b_array:
+	movl	(a0),a1
+	movl	a1,(a4)
+	movl	4(a0),d1
+	addl	$4,a0
+	movzwl	-2(d1),d0
+	addl	$4,a4
+	test	d0,d0
+	je	move_strict_basic_array
+
+	subl	$256,d0
+	imull	d0,a1
+	movl	a1,d0
+	jmp	cp_s_arg_lp3
+
+move_strict_basic_array:
+	movl	a1,d0
+	cmpl	$INT+2,d1
+	je	cp_s_arg_lp3
+
+	cmpl	$BOOL+2,d1
+	je	move_bool_array
+
+	addl	d0,d0
+	jmp	cp_s_arg_lp3
+
+move_bool_array:
+	addl	$3,d0
+	shr	$2,d0
+	jmp	cp_s_arg_lp3
+
+move_a_array:
+	movl	d1,a1
+	subl	a0,d1
+	shr	$2,d1
+
+	pushl	a3
+
+	subl	$1,d1
+	jb	end_array
+
+	movl	(a0),a3
+	movl	-4(a1),d0
+	movl	a3,-4(a1)
+	movl	d0,(a4)
+	movl	(a1),d0
+	movl	4(a0),a3
+	addl	$8,a0
+	movl	a3,(a1)
+	movl	d0,4(a4)
+	addl	$8,a4
+	test	d0,d0
+	je	st_move_array_lp
+
+	movzwl	-2+2(d0),a3
+	movzwl	-2(d0),d0
+	subl	$256,d0
+	cmpl	a3,d0
+	je	st_move_array_lp
+
+move_array_ab:
+	pushl	a0
+
+	movl	-8(a4),a1
+	movl	a3,d1
+	imull	d0,a1
+	shl	$2,a1
+
+	subl	d1,d0
+	addl	a0,a1
+	call	reorder
+
+	popl	a0
+	subl	$1,d1
+	subl	$1,d0
+
+	pushl	d1
+	pushl	d0
+	pushl	-8(a4)
+	jmp	st_move_array_lp_ab
+
+move_array_ab_lp1:
+	movl	8(sp),d0
+move_array_ab_a_elements:
+	movl	(a0),d1
+	addl	$4,a0
+	cmpl	a0,d1
+	jb	move_array_element_ab
+
+	cmpl	end_heap_p3_compact_sp_offset+16(sp),d1
+	jnc	move_array_element_ab
+
+	movl	d1,a1
+	movl	(a1),d1
+	inc	a4
+	movl	a4,(a1)
+	dec	a4
+move_array_element_ab:
+	movl	d1,(a4)
+	addl	$4,a4
+	subl	$1,d0
+	jnc	move_array_ab_a_elements
+
+	movl	4(sp),d0
+move_array_ab_b_elements:
+	movl	(a0),d1
+	addl	$4,a0
+	movl	d1,(a4)
+	addl	$4,a4
+	subl	$1,d0
+	jnc	move_array_ab_b_elements
+
+st_move_array_lp_ab:
+	subl	$1,(sp)
+	jnc	move_array_ab_lp1
+
+	addl	$12,sp
+	jmp	end_array	
+
+move_array_lp1:
+	movl	(a0),d0
+	addl	$4,a0
+	addl	$4,a4
+	cmpl	a0,d0
+	jb	move_array_element
+
+	cmpl	end_heap_p3_compact_sp_offset+4(sp),d0
+	jnc	move_array_element
+
+	movl	(d0),a3
+	movl	d0,a1
+	movl	a3,-4(a4)
+	leal	-4+1(a4),d0
+	movl	d0,(a1)
+
+	subl	$1,d1
+	jnc	move_array_lp1
+
+	jmp	end_array
+
+move_array_element:
+	movl	d0,-4(a4)
+st_move_array_lp:
+	subl	$1,d1
+	jnc	move_array_lp1
+
+end_array:
+	popl	a3
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_lazy_node:
+	movl	d0,a1
+	movl	-4(a1),d1
+	test	d1,d1
+	je	move_lazy_node_0
+
+	subl	$1,d1
+	jle	move_lazy_node_1
+
+	cmpl	$256,d1
+	jge	move_closure_with_unboxed_arguments
+
+move_lazy_node_arguments:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_lazy_node_arguments_
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_lazy_node_arguments_
+
+	movl	(a1),d0
+	movl	d0,(a4)
+	lea	1(a4),d0
+	addl	$4,a4
+	movl	d0,(a1)
+	subl	$1,d1
+	jnc	move_lazy_node_arguments
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_lazy_node_arguments_:
+	movl	a1,(a4)
+	addl	$4,a4
+	subl	$1,d1
+	jnc	move_lazy_node_arguments
+	
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_lazy_node_1:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_lazy_node_1_
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_lazy_node_1_
+
+	lea	1(a4),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,a1
+move_lazy_node_1_:
+	movl	a1,(a4)
+	addl	$8,a4
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_lazy_node_0:
+	addl	$8,a4
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_closure_with_unboxed_arguments:
+	je	move_closure_with_unboxed_arguments_1
+	addl	$1,d1
+	movl	d1,d0
+	andl	$255,d1
+	shrl	$8,d0
+	subl	d0,d1
+	je	move_non_pointers_of_closure
+
+	movl	d0,compact_sp_offset_1(sp)
+
+move_closure_with_unboxed_arguments_lp:
+	movl	(a0),a1
+	addl	$4,a0
+	cmpl	a0,a1
+	jc	move_closure_with_unboxed_arguments_
+
+	cmpl	end_heap_p3_compact_sp_offset(sp),a1
+	jnc	move_closure_with_unboxed_arguments_
+
+	movl	(a1),d0
+	movl	d0,(a4)
+	lea	1(a4),d0
+	addl	$4,a4
+	movl	d0,(a1)
+	subl	$1,d1
+	jne	move_closure_with_unboxed_arguments_lp
+
+	movl	compact_sp_offset_1(sp),d0
+	jmp	move_non_pointers_of_closure
+
+move_closure_with_unboxed_arguments_:
+	movl	a1,(a4)
+	addl	$4,a4
+	subl	$1,d1
+	jne	move_closure_with_unboxed_arguments_lp
+
+	movl	compact_sp_offset_1(sp),d0
+
+move_non_pointers_of_closure:
+	movl	(a0),d1
+	addl	$4,a0
+	movl	d1,(a4)
+	addl	$4,a4
+	subl	$1,d0
+	jne	move_non_pointers_of_closure
+
+#ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+#else
+	bsf	a3,d1
+	jne	copy_nodes
+#endif
+	jmp	find_non_zero_long
+
+move_closure_with_unboxed_arguments_1:
+	movl	(a0),d0
+	movl	d0,(a4)
+	addl	$8,a4
+# ifdef NO_BIT_INSTRUCTIONS
+	test	a3,a3
+	jne	bsf_and_copy_nodes
+# else
+	bsf	a3,d1
+	jne	copy_nodes
+# endif
+	jmp	find_non_zero_long	
+
+end_copy:
+
+#ifdef FINALIZERS
+	movl	finalizer_list,a0
+
+restore_finalizer_descriptors:
+	cmpl	$__Nil-4,a0
+	je	end_restore_finalizer_descriptors
+
+	movl	$e____system__kFinalizer+2,(a0)
+	movl	4(a0),a0
+	jmp	restore_finalizer_descriptors
+
+end_restore_finalizer_descriptors:
+#endif
+
+	movl	a4,a2
+	movl	a4_compact_sp_offset(sp),a4
+	lea	40(sp),sp
diff --git a/thread/icompact_rmark.s b/thread/icompact_rmark.s
new file mode 100644
index 0000000..f61535f
--- /dev/null
+++ b/thread/icompact_rmark.s
@@ -0,0 +1,955 @@
+
+rmark_stack_nodes1:
+	movl	(a0),d1
+	lea	1(a3),d0
+	movl	d1,(a3)
+	movl	d0,(a0)
+
+rmark_next_stack_node:
+	addl	$4,a3
+
+rmark_stack_nodes:
+	cmpl	end_vector_offset(a4),a3
+	je	end_rmark_nodes
+
+rmark_more_stack_nodes:
+	movl	(a3),a0
+	movl	neg_heap_p3_offset(a4),d1
+	movl	heap_vector_d4_offset(a4),a2
+
+	addl	a0,d1
+	cmpl	heap_size_32_33_offset(a4),d1
+	jnc	rmark_next_stack_node
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	a2,d1
+
+	movl	bit_set_table(d0),d0
+	movl	(,d1,4),a2
+	test	d0,a2
+	jne	rmark_stack_nodes1
+
+	orl	d0,a2
+	movl	a2,(,d1,4)
+
+	movl	(a0),d0
+	call	rmark_stack_node
+
+	addl	$4,a3
+	cmpl	end_vector_offset(a4),a3
+	jne	rmark_more_stack_nodes
+	ret
+
+rmark_stack_node:
+	subl	$8,sp
+	movl	d0,(a3)
+	lea	1(a3),a2
+	movl	a3,4(sp)
+	movl	$-1,d1
+	movl	$0,(sp)
+	movl	a2,(a0)
+	jmp	rmark_no_reverse
+
+rmark_node_d1:
+	movl	neg_heap_p3_offset(a4),d0
+	movl	heap_vector_d4_offset(a4),a2
+	addl	a0,d0
+	cmpl	heap_size_32_33_offset(a4),d0
+	jnc	rmark_next_node
+
+	jmp	rmark_node_
+
+rmark_hnf_2:
+	leal	4(a0),d1
+	movl	4(a0),d0
+	subl	$8,sp
+
+	movl	a0,a3
+	movl	(a0),a0
+
+	movl	d1,4(sp)
+	movl	d0,(sp)	
+
+	cmpl	end_stack_offset(a4),sp
+	jb	rmark_using_reversal
+
+rmark_node:
+	movl	neg_heap_p3_offset(a4),d0
+	movl	heap_vector_d4_offset(a4),a2
+	addl	a0,d0
+	cmpl	heap_size_32_33_offset(a4),d0
+	jnc	rmark_next_node
+
+	movl	a3,d1
+
+rmark_node_:
+	movl	$31*4,a1
+	andl	d0,a1
+	shrl	$7,d0
+	addl	a2,d0
+
+	movl	bit_set_table(a1),a1
+	movl	(,d0,4),a2
+	test	a1,a2
+	jne	rmark_reverse_and_mark_next_node
+
+	orl	a1,a2
+	movl	a2,(,d0,4)
+
+	movl	(a0),d0
+rmark_arguments:
+	cmpl	d1,a0
+	ja	rmark_no_reverse
+
+	lea	1(a3),a2
+	movl	d0,(a3)
+	movl	a2,(a0)
+
+rmark_no_reverse:
+	test	$2,d0
+	je	rmark_lazy_node
+
+	movzwl	-2(d0),a2
+	test	a2,a2
+	je	rmark_hnf_0
+
+	addl	$4,a0
+
+	cmp	$256,a2
+	jae	rmark_record
+
+	subl	$2,a2
+	je	rmark_hnf_2
+	jc	rmark_hnf_1
+
+rmark_hnf_3:
+	movl	4(a0),a1
+rmark_hnf_3_:
+	cmpl	end_stack_offset(a4),sp
+	jb	rmark_using_reversal_
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a1,d1
+
+	movl	$31*4,d0
+	andl	d1,d0	
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(d0),d0
+	test	(,d1,4),d0
+	jne	rmark_shared_argument_part
+
+	orl	d0,(,d1,4)	
+
+rmark_no_shared_argument_part:
+	subl	$8,sp
+	movl	a0,4(sp)
+	lea	4(a0),a3
+	movl	(a0),a0
+	lea	(a1,a2,4),a1
+	movl	a0,(sp)
+
+rmark_push_hnf_args:
+	movl	(a1),d1
+	subl	$8,sp
+	movl	a1,4(sp)
+	subl	$4,a1
+	movl	d1,(sp)
+
+	subl	$1,a2
+	jg	rmark_push_hnf_args
+
+	movl	(a1),a0
+
+	cmpl	a3,a1
+	ja	rmark_no_reverse_argument_pointer
+
+	lea	3(a3),a2
+	movl	a0,(a3)
+	movl	a2,(a1)
+
+	movl	neg_heap_p3_offset(a4),d0
+	movl	heap_vector_d4_offset(a4),a2
+	addl	a0,d0
+	cmpl	heap_size_32_33_offset(a4),d0
+	jnc	rmark_next_node
+
+	movl	a1,d1
+	jmp	rmark_node_
+
+rmark_no_reverse_argument_pointer:
+	movl	a1,a3
+	jmp	rmark_node
+
+rmark_shared_argument_part:
+	cmpl	a0,a1
+	ja	rmark_hnf_1
+
+	movl	(a1),d1
+	leal	4+2+1(a0),d0
+	movl	d0,(a1)
+	movl	d1,4(a0)
+	jmp	rmark_hnf_1
+
+rmark_record:
+	subl	$258,a2
+	je	rmark_record_2
+	jb	rmark_record_1
+
+rmark_record_3:
+	movzwl	-2+2(d0),a2
+	movl	4(a0),a1
+	subl	$1,a2
+	jb	rmark_record_3_bb
+	je	rmark_record_3_ab
+	subl	$1,a2
+	je	rmark_record_3_aab
+	jmp	rmark_hnf_3_
+
+rmark_record_3_bb:
+	subl	$4,a0
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a1,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	cmpl	a0,a1
+	ja	rmark_next_node
+
+	add	d0,d0
+	jne	rmark_bit_in_same_word1
+	inc	a2
+	mov	$1,d0
+rmark_bit_in_same_word1:
+	testl	(,a2,4),d0
+	je	rmark_not_yet_linked_bb
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a0,a2
+
+	addl	$2*4,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	movl	(a1),a2
+	lea	8+2+1(a0),d0
+	movl	a2,8(a0)
+	movl	d0,(a1)
+	jmp	rmark_next_node
+
+rmark_not_yet_linked_bb:
+	orl	d0,(,a2,4)
+	movl	(a1),a2
+	lea	8+2+1(a0),d0
+	movl	a2,8(a0)
+	movl	d0,(a1)
+	jmp	rmark_next_node
+
+rmark_record_3_ab:
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a1,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	cmpl	a0,a1
+	ja	rmark_hnf_1
+
+	add	d0,d0
+	jne	rmark_bit_in_same_word2
+	inc	a2
+	mov	$1,d0
+rmark_bit_in_same_word2:
+	testl	(,a2,4),d0
+	je	rmark_not_yet_linked_ab
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a0,a2
+
+	addl	$4,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	movl	(a1),a2
+	lea	4+2+1(a0),d0
+	movl	a2,4(a0)
+	movl	d0,(a1)
+	jmp	rmark_hnf_1
+
+rmark_not_yet_linked_ab:
+	orl	d0,(,a2,4)
+	movl	(a1),a2
+	lea	4+2+1(a0),d0
+	movl	a2,4(a0)
+	movl	d0,(a1)
+	jmp	rmark_hnf_1
+
+rmark_record_3_aab:
+	cmpl	end_stack_offset(a4),sp
+	jb	rmark_using_reversal_
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a1,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	testl	(,a2,4),d0
+	jne	rmark_shared_argument_part
+
+	orl	d0,(,a2,4)
+
+	subl	$8,sp
+	movl	a0,4(sp)
+	lea	4(a0),a3
+	movl	(a0),a0
+	movl	a0,(sp)
+
+	movl	(a1),a0
+
+	cmpl	a3,a1
+	ja	rmark_no_reverse_argument_pointer
+
+	lea	3(a3),a2
+	movl	a0,(a3)
+	movl	a2,(a1)
+
+	movl	neg_heap_p3_offset(a4),d0
+	movl	heap_vector_d4_offset(a4),a2
+	addl	a0,d0
+	cmpl	heap_size_32_33_offset(a4),d0
+	jnc	rmark_next_node
+
+	movl	a1,d1
+	jmp	rmark_node_
+
+rmark_record_2:
+	cmpw	$1,-2+2(d0)
+	ja	rmark_hnf_2
+	je	rmark_hnf_1
+	jmp	rmark_next_node
+
+rmark_record_1:
+	cmpw	$0,-2+2(d0)
+	jne	rmark_hnf_1
+	jmp	rmark_next_node
+
+rmark_lazy_node_1:
+/ selectors:
+	jne	rmark_selector_node_1
+
+rmark_hnf_1:
+	movl	a0,a3
+	movl	(a0),a0
+	jmp	rmark_node
+
+/ selectors
+rmark_indirection_node:
+	movl	neg_heap_p3_offset(a4),a1
+
+	subl	$4,a0
+
+	addl	a0,a1
+
+	movl	$31*4,a2
+	andl	a1,a2
+	shrl	$7,a1
+	addl	heap_vector_d4_offset(a4),a1
+
+	movl	bit_clear_table(a2),a2
+	andl	a2,(,a1,4)
+
+	movl	a0,a1
+	cmpl	d1,a0
+	movl	4(a0),a0
+	movl	a0,(a3)
+	ja	rmark_node_d1
+	movl	d0,(a1)
+	jmp	rmark_node_d1
+
+rmark_selector_node_1:
+	addl	$3,a2
+	je	rmark_indirection_node
+
+	movl	(a0),a1
+	movl	d1,pointer_compare_address
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a1,d1
+
+	addl	$1,a2
+	jle	rmark_record_selector_node_1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,a2),a2
+	movl	(,d1,4),d1
+	andl	a2,d1
+	jne	rmark_hnf_1
+
+	movl	(a1),d1
+	testb	$2,d1b
+	je	rmark_hnf_1
+
+	cmpw	$2,-2(d1)
+	jbe	rmark_small_tuple_or_record
+
+rmark_large_tuple_or_record:
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,a2),a2
+	movl	(,d1,4),d1
+	andl	a2,d1
+	jne	rmark_hnf_1
+
+	movl	neg_heap_p3_offset(a4),d1
+	lea	-4(a0,d1),d1
+
+	pushl	a0
+
+	movl	-8(d0),d0
+
+	movl	$31*4,a0
+	andl	d1,a0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(a0),a0
+	andl	a0,(,d1,4)
+
+	movzwl	4(d0),d0
+	movl	pointer_compare_address,d1
+
+	cmpl	$8,d0
+	jl	rmark_tuple_or_record_selector_node_2
+	movl	8(a1),a1
+	je	rmark_tuple_selector_node_2
+	movl	-12(a1,d0),a0
+	pop	a1
+	movl	a0,(a3)
+	movl	$__indirection,-4(a1)
+	movl	a0,(a1)
+	jmp	rmark_node_d1
+
+rmark_tuple_selector_node_2:
+	movl	(a1),a0
+	pop	a1
+	movl	a0,(a3)
+	movl	$__indirection,-4(a1)
+	movl	a0,(a1)
+	jmp	rmark_node_d1
+
+rmark_record_selector_node_1:
+	je	rmark_strict_record_selector_node_1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,a2),a2
+	movl	(,d1,4),d1
+	andl	a2,d1
+	jne	rmark_hnf_1
+
+	movl	(a1),d1
+	testb	$2,d1b
+	je	rmark_hnf_1
+
+	cmpw	$258,-2(d1)
+	jbe	rmark_small_tuple_or_record
+
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,a2),a2
+	movl	(,d1,4),d1
+	andl	a2,d1
+	jne	rmark_hnf_1
+
+rmark_small_tuple_or_record:
+	movl	neg_heap_p3_offset(a4),d1
+	lea	-4(a0,d1),d1
+
+	pushl	a0
+
+	movl	-8(d0),d0
+
+	movl	$31*4,a0
+	andl	d1,a0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(a0),a0
+	andl	a0,(,d1,4)
+
+	movzwl	4(d0),d0
+	movl	pointer_compare_address,d1
+
+	cmpl	$8,d0
+	jle	rmark_tuple_or_record_selector_node_2
+	movl	8(a1),a1
+	subl	$12,d0
+rmark_tuple_or_record_selector_node_2:
+	movl	(a1,d0),a0
+	pop	a1
+	movl	a0,(a3)
+	movl	$__indirection,-4(a1)
+	movl	a0,(a1)
+	jmp	rmark_node_d1
+
+rmark_strict_record_selector_node_1:
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,a2),a2
+	movl	(,d1,4),d1
+	andl	a2,d1
+	jne	rmark_hnf_1
+
+	movl	(a1),d1
+	testb	$2,d1b
+	je	rmark_hnf_1
+
+	cmpw	$258,-2(d1)
+	jbe	rmark_select_from_small_record
+
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(a2),a2
+	movl	(,d1,4),d1
+	andl	a2,d1
+	jne	rmark_hnf_1
+
+rmark_select_from_small_record:
+	movl	-8(d0),d1
+	subl	$4,a0
+
+	cmpl	pointer_compare_address,a0
+	ja	rmark_selector_pointer_not_reversed
+
+	movzwl	4(d1),d0
+	cmpl	$8,d0
+	jle	rmark_strict_record_selector_node_2
+	addl	8(a1),d0
+	movl	-12(d0),d0
+	jmp	rmark_strict_record_selector_node_3
+rmark_strict_record_selector_node_2:
+	movl	(a1,d0),d0
+rmark_strict_record_selector_node_3:
+	movl	d0,4(a0)
+
+	movzwl	6(d1),d0
+	testl	d0,d0
+	je	rmark_strict_record_selector_node_5
+	cmpl	$8,d0
+	jle	rmark_strict_record_selector_node_4
+	movl	8(a1),a1
+	subl	$12,d0
+rmark_strict_record_selector_node_4:
+	movl	(a1,d0),d0
+	movl	d0,8(a0)
+rmark_strict_record_selector_node_5:
+
+	movl	-4(d1),d0
+
+	addl	$1,a3
+	movl	a3,(a0)
+	movl	d0,-1(a3)
+	jmp	rmark_next_node
+
+rmark_selector_pointer_not_reversed:
+	movzwl	4(d1),d0
+	cmpl	$8,d0
+	jle	rmark_strict_record_selector_node_6
+	addl	8(a1),d0
+	movl	-12(d0),d0
+	jmp	rmark_strict_record_selector_node_7
+rmark_strict_record_selector_node_6:
+	movl	(a1,d0),d0
+rmark_strict_record_selector_node_7:
+	movl	d0,4(a0)
+
+	movzwl	6(d1),d0
+	testl	d0,d0
+	je	rmark_strict_record_selector_node_9
+	cmpl	$8,d0
+	jle	rmark_strict_record_selector_node_8
+	movl	8(a1),a1
+	subl	$12,d0
+rmark_strict_record_selector_node_8:
+	movl	(a1,d0),d0
+	movl	d0,8(a0)
+rmark_strict_record_selector_node_9:
+
+	movl	-4(d1),d0
+	movl	d0,(a0)
+	jmp	rmark_next_node
+
+rmark_reverse_and_mark_next_node:
+	cmpl	d1,a0
+	ja	rmark_next_node
+
+	movl	(a0),d0
+	movl	d0,(a3)
+	addl	$1,a3
+	movl	a3,(a0)
+
+/ a2,d1: free
+
+rmark_next_node:
+	movl	(sp),a0
+	movl	4(sp),a3
+	addl	$8,sp
+
+	cmpl	$1,a0
+	ja	rmark_node
+
+rmark_next_node_:
+end_rmark_nodes:
+	ret
+
+rmark_lazy_node:
+	movl	-4(d0),a2
+	test	a2,a2
+	je	rmark_next_node
+
+	addl	$4,a0
+
+	subl	$1,a2
+	jle	rmark_lazy_node_1
+
+	cmpl	$255,a2
+	jge	rmark_closure_with_unboxed_arguments
+
+rmark_closure_with_unboxed_arguments_:
+	lea	(a0,a2,4),a0
+
+rmark_push_lazy_args:
+	movl	(a0),d1
+	subl	$8,sp
+	movl	a0,4(sp)
+	subl	$4,a0
+	movl	d1,(sp)
+	subl	$1,a2
+	jg	rmark_push_lazy_args
+
+	movl	a0,a3
+	movl	(a0),a0
+	cmpl	end_stack_offset(a4),sp
+	jae	rmark_node
+
+	jmp	rmark_using_reversal
+
+rmark_closure_with_unboxed_arguments:
+/ (a_size+b_size)+(b_size<<8)
+/	addl	$1,a2
+	movl	a2,d0
+	andl	$255,a2
+	shrl	$8,d0
+	subl	d0,a2
+/	subl	$1,a2
+	jg	rmark_closure_with_unboxed_arguments_
+	je	rmark_hnf_1
+	jmp	rmark_next_node
+
+rmark_hnf_0:
+	cmpl	$INT+2,d0
+	je	rmark_int_3
+
+	cmpl	$CHAR+2,d0
+ 	je	rmark_char_3
+
+	jb	rmark_no_normal_hnf_0
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a0,a2
+
+	movl	$31*4,a1
+	andl	a2,a1
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_clear_table(a1),a1
+	andl	a1,(,a2,4)
+
+	lea	ZERO_ARITY_DESCRIPTOR_OFFSET-2(d0),a1
+	movl	a1,(a3)
+	cmpl	d1,a0
+	ja	rmark_next_node
+	movl	d0,(a0)
+	jmp	rmark_next_node
+
+rmark_int_3:
+	movl	4(a0),a2
+	cmpl	$33,a2
+	jnc	rmark_next_node
+
+	lea	small_integers(,a2,8),a1
+	movl	neg_heap_p3_offset(a4),a2
+	movl	a1,(a3)
+	addl	a0,a2
+
+	movl	$31*4,a1
+	andl	a2,a1
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_clear_table(a1),a1
+	andl	a1,(,a2,4)
+
+	cmpl	d1,a0
+	ja	rmark_next_node
+	movl	d0,(a0)
+	jmp	rmark_next_node
+
+rmark_char_3:
+	movzbl	4(a0),a1
+	movl	neg_heap_p3_offset(a4),a2
+
+	lea	static_characters(,a1,8),a1
+	addl	a0,a2
+
+	movl	a1,(a3)
+
+	movl	$31*4,a1
+	andl	a2,a1
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_clear_table(a1),a1
+	andl	a1,(,a2,4)
+
+	cmpl	d1,a0
+	ja	rmark_next_node
+	movl	d0,(a0)
+	jmp	rmark_next_node
+
+rmark_no_normal_hnf_0:
+	cmpl	$__ARRAY__+2,d0
+	jne	rmark_next_node
+
+	movl	8(a0),d0
+	test	d0,d0
+	je	rmark_lazy_array
+
+	movzwl	-2+2(d0),a1
+	test	a1,a1
+	je	rmark_b_array
+
+	movzwl	-2(d0),d0
+	test	d0,d0
+	je	rmark_b_array
+
+	cmpl	end_stack_offset(a4),sp
+	jb	rmark_array_using_reversal
+
+	subl	$256,d0
+	cmpl	d0,a1
+	movl	a1,d1
+	je	rmark_a_record_array
+
+rmark_ab_record_array:
+	movl	4(a0),a1
+	addl	$8,a0
+	pushl	a0
+
+	imull	d0,a1
+	shl	$2,a1
+
+	subl	d1,d0
+	addl	$4,a0
+	addl	a0,a1
+	call	reorder
+	
+	popl	a0
+	movl	d1,d0
+	imull	-4(a0),d0	
+	jmp	rmark_lr_array
+
+rmark_b_array:
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a0,a2
+
+	addl	$4,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+	jmp	rmark_next_node
+
+rmark_a_record_array:
+	movl	4(a0),d0
+	addl	$8,a0
+	cmpl	$2,d1
+	jb	rmark_lr_array
+
+	imull	d1,d0
+	jmp	rmark_lr_array
+
+rmark_lazy_array:
+	cmpl	end_stack_offset(a4),sp
+	jb	rmark_array_using_reversal
+
+	movl	4(a0),d0
+	addl	$8,a0
+
+rmark_lr_array:
+	movl	neg_heap_p3_offset(a4),a1
+	addl	a0,a1
+	shrl	$2,a1
+	addl	d0,a1
+
+	movl	$31,d1
+	andl	a1,d1
+	shrl	$5,a1
+	addl	heap_vector_d4_offset(a4),a1
+
+	movl	bit_set_table(,d1,4),d1
+	orl	d1,(,a1,4)
+
+	cmpl	$1,d0
+	jbe	rmark_array_length_0_1
+	movl	a0,a1
+	lea	(a0,d0,4),a0
+
+	movl	(a0),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,(a0)
+
+	movl	-4(a0),d0
+	subl	$4,a0
+	movl	-4(a1),d1
+	subl	$4,a1
+	movl	d1,(a0)
+	movl	d0,(a1)
+	pushl	a0
+	movl	a1,a3
+	jmp	rmark_array_nodes
+
+rmark_array_nodes1:
+	cmpl	a3,a0
+	ja	rmark_next_array_node
+
+	movl	(a0),d1
+	lea	1(a3),d0
+	movl	d1,(a3)
+	movl	d0,(a0)
+
+rmark_next_array_node:
+	addl	$4,a3
+	cmpl	(sp),a3
+	je	end_rmark_array_node
+
+rmark_array_nodes:
+	movl	(a3),a0
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a0,d1
+	cmpl	heap_size_32_33_offset(a4),d1
+	jnc	rmark_next_array_node
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(d0),d0
+	movl	(,d1,4),a2
+	test	d0,a2
+	jne	rmark_array_nodes1
+
+	orl	d0,a2
+	movl	a2,(,d1,4)
+
+	movl	(a0),d0
+	call	rmark_array_node
+
+	addl	$4,a3
+	cmpl	(sp),a3
+	jne	rmark_array_nodes
+
+end_rmark_array_node:
+	addl	$4,sp
+	jmp	rmark_next_node
+
+rmark_array_node:
+	subl	$8,sp
+	movl	a3,4(sp)
+	movl	a3,d1
+	movl	$1,(sp)
+	jmp	rmark_arguments
+
+rmark_array_length_0_1:
+	lea	-8(a0),a0
+	jb	rmark_next_node
+
+	movl	12(a0),d1
+	movl	8(a0),a2
+	movl	a2,12(a0)
+	movl	4(a0),a2
+	movl	a2,8(a0)
+	movl	d1,4(a0)
+	addl	$4,a0
+	jmp	rmark_hnf_1
+
+	.data
+pointer_compare_address:	.long	0
+	.text
diff --git a/thread/icompact_rmarkr.s b/thread/icompact_rmarkr.s
new file mode 100644
index 0000000..6488eac
--- /dev/null
+++ b/thread/icompact_rmarkr.s
@@ -0,0 +1,976 @@
+
+rmark_using_reversal:
+	pushl	a3
+	pushl	a3
+	movl	$1,a3
+	jmp	rmarkr_node
+
+rmark_using_reversal_:
+	subl	$4,a0
+	pushl	d1
+	pushl	a3
+	cmpl	d1,a0
+	ja	rmark_no_undo_reverse_1
+	movl	a0,(a3)
+	movl	d0,(a0)
+rmark_no_undo_reverse_1:
+	movl	$1,a3
+	jmp	rmarkr_arguments
+
+rmark_array_using_reversal:
+	pushl	d1
+	pushl	a3
+	cmpl	d1,a0
+	ja	rmark_no_undo_reverse_2
+	movl	a0,(a3)
+	movl	$__ARRAY__+2,(a0)
+rmark_no_undo_reverse_2:
+	movl	$1,a3
+	jmp	rmarkr_arguments
+
+rmarkr_hnf_2:
+	orl	$2,(a0)
+	movl	4(a0),a2
+	movl	a3,4(a0)
+	leal	4(a0),a3
+	movl	a2,a0
+
+rmarkr_node:
+	movl	neg_heap_p3_offset(a4),d1
+	movl	heap_vector_d4_offset(a4),a2
+	addl	a0,d1
+	cmpl	heap_size_32_33_offset(a4),d1
+	jnc	rmarkr_next_node_after_static
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	a2,d1
+
+	movl	bit_set_table(d0),d0
+	movl	(,d1,4),a2
+	test	d0,a2
+	jne	rmarkr_next_node
+
+	orl	d0,a2
+	movl	a2,(,d1,4)
+
+rmarkr_arguments:
+	movl	(a0),d0
+	testb	$2,d0b
+	je	rmarkr_lazy_node
+
+	movzwl	-2(d0),a2
+	test	a2,a2
+	je	rmarkr_hnf_0
+
+	addl	$4,a0
+
+	cmp	$256,a2
+	jae	rmarkr_record
+
+	subl	$2,a2
+	je	rmarkr_hnf_2
+	jc	rmarkr_hnf_1
+
+rmarkr_hnf_3:
+	movl	4(a0),a1
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a1,d1
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(d0),d0		
+	test	(,d1,4),d0
+	jne	rmarkr_shared_argument_part
+
+	orl	d0,(,d1,4)
+
+rmarkr_no_shared_argument_part:
+	orl	$2,(a0)
+	movl	a3,4(a0)
+	addl	$4,a0
+
+	orl	$1,(a1)
+	leal	(a1,a2,4),a1
+
+	movl	(a1),a2
+	movl	a0,(a1)
+	movl	a1,a3
+	movl	a2,a0
+	jmp	rmarkr_node
+
+rmarkr_shared_argument_part:
+	cmpl	a0,a1
+	ja	rmarkr_hnf_1
+
+	movl	(a1),d1
+	leal	4+2+1(a0),d0
+	movl	d0,(a1)
+	movl	d1,4(a0)
+	jmp	rmarkr_hnf_1
+
+rmarkr_record:
+	subl	$258,a2
+	je	rmarkr_record_2
+	jb	rmarkr_record_1
+
+rmarkr_record_3:
+	movzwl	-2+2(d0),a2
+	subl	$1,a2
+	jb	rmarkr_record_3_bb
+	je	rmarkr_record_3_ab
+	dec	a2
+	je	rmarkr_record_3_aab
+	jmp	rmarkr_hnf_3
+
+rmarkr_record_3_bb:
+	movl	8-4(a0),a1
+	subl	$4,a0
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a1,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	cmpl	a0,a1
+	ja	rmarkr_next_node
+
+	add	d0,d0
+	jne	rmarkr_bit_in_same_word1
+	inc	a2
+	mov	$1,d0
+rmarkr_bit_in_same_word1:
+	testl	(,a2,4),d0
+	je	rmarkr_not_yet_linked_bb
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a0,a2
+
+	addl	$2*4,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	movl	(a1),a2
+	lea	8+2+1(a0),d0
+	movl	a2,8(a0)
+	movl	d0,(a1)
+	jmp	rmarkr_next_node
+
+rmarkr_not_yet_linked_bb:
+	orl	d0,(,a2,4)
+	movl	(a1),a2
+	lea	8+2+1(a0),d0
+	movl	a2,8(a0)
+	movl	d0,(a1)
+	jmp	rmarkr_next_node
+
+rmarkr_record_3_ab:
+	movl	4(a0),a1
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a1,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	cmpl	a0,a1
+	ja	rmarkr_hnf_1
+
+	add	d0,d0
+	jne	rmarkr_bit_in_same_word2
+	inc	a2
+	mov	$1,d0
+rmarkr_bit_in_same_word2:
+	testl	(,a2,4),d0
+	je	rmarkr_not_yet_linked_ab
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a0,a2
+
+	addl	$4,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+
+	movl	(a1),a2
+	lea	4+2+1(a0),d0
+	movl	a2,4(a0)
+	movl	d0,(a1)
+	jmp	rmarkr_hnf_1
+
+rmarkr_not_yet_linked_ab:
+	orl	d0,(,a2,4)
+	movl	(a1),a2
+	lea	4+2+1(a0),d0
+	movl	a2,4(a0)
+	movl	d0,(a1)
+	jmp	rmarkr_hnf_1
+
+rmarkr_record_3_aab:
+	movl	4(a0),a1
+
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a1,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	testl	(,a2,4),d0
+	jne	rmarkr_shared_argument_part
+	orl	d0,(,a2,4)
+
+	addl	$2,(a0)
+	movl	a3,4(a0)
+	addl	$4,a0
+	
+	movl	(a1),a3
+	movl	a0,(a1)
+	movl	a3,a0
+	lea	1(a1),a3
+	jmp	rmarkr_node
+
+rmarkr_record_2:
+	cmpw	$1,-2+2(d0)
+	ja	rmarkr_hnf_2
+	je	rmarkr_hnf_1
+	subl	$4,a0
+	jmp	rmarkr_next_node
+
+rmarkr_record_1:
+	cmpw	$0,-2+2(d0)
+	jne	rmarkr_hnf_1
+	subl	$4,a0
+	jmp	rmarkr_next_node
+
+rmarkr_lazy_node_1:
+/ selectors:
+	jne	rmarkr_selector_node_1
+
+rmarkr_hnf_1:
+	movl	(a0),a2
+	movl	a3,(a0)
+
+	leal	2(a0),a3
+	movl	a2,a0
+	jmp	rmarkr_node
+
+/ selectors
+rmarkr_indirection_node:
+	movl	neg_heap_p3_offset(a4),d1
+	leal	-4(a0,d1),d1
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(d0),d0
+	andl	d0,(,d1,4)
+
+	movl	(a0),a0
+	jmp	rmarkr_node
+
+rmarkr_selector_node_1:
+	addl	$3,a2
+	je	rmarkr_indirection_node
+
+	movl	(a0),a1
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a1,d1
+
+	addl	$1,a2
+	jle	rmarkr_record_selector_node_1
+
+	push	d0
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,d0),d0
+	andl	(,d1,4),d0
+	pop	d0
+	jne	rmarkr_hnf_1
+
+	movl	(a1),d1
+	testb	$2,d1b
+	je	rmarkr_hnf_1
+
+	cmpw	$2,-2(d1)
+	jbe	rmarkr_small_tuple_or_record
+
+rmarkr_large_tuple_or_record:
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	push	d0
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,d0),d0
+	andl	(,d1,4),d0
+	pop	d0
+	jne	rmarkr_hnf_1
+
+	movl	neg_heap_p3_offset(a4),d1
+	lea	-4(a0,d1),d1
+
+	push	a0
+
+	movl	-8(d0),d0
+
+	movl	$31*4,a0
+	andl	d1,a0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(a0),a0
+	andl	a0,(,d1,4)
+
+	movzwl	4(d0),d0
+	cmpl	$8,d0
+	jl	rmarkr_tuple_or_record_selector_node_2
+	movl	8(a1),a1
+	je	rmarkr_tuple_selector_node_2
+	movl	-12(a1,d0),a0
+	pop	a1
+	movl	$__indirection,-4(a1)
+	movl	a0,(a1)
+	jmp	rmarkr_node
+
+rmarkr_tuple_selector_node_2:
+	movl	(a1),a0
+	pop	a1
+	movl	$__indirection,-4(a1)
+	movl	a0,(a1)
+	jmp	rmarkr_node
+
+rmarkr_record_selector_node_1:
+	je	rmarkr_strict_record_selector_node_1
+
+	push	d0
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,d0),d0
+	movl	(,d1,4),d1
+	andl	d0,d1
+	pop	d0
+	jne	rmarkr_hnf_1
+
+	movl	(a1),d1
+	testb	$2,d1b
+	je	rmarkr_hnf_1
+
+	cmpw	$258,-2(d1)
+	jbe	rmarkr_small_tuple_or_record
+
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	push	d0
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,d0),d0
+	andl	(,d1,4),d0
+	pop	d0
+	jne	rmarkr_hnf_1
+
+rmarkr_small_tuple_or_record:
+	movl	neg_heap_p3_offset(a4),d1
+	lea	-4(a0,d1),d1
+
+	push	a0
+
+	movl	-8(d0),d0
+
+	movl	$31*4,a0
+	andl	d1,a0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(a0),a0
+	andl	a0,(,d1,4)
+
+	movzwl	4(d0),d0
+	cmpl	$8,d0
+	jle	rmarkr_tuple_or_record_selector_node_2
+	movl	8(a1),a1
+	subl	$12,d0
+rmarkr_tuple_or_record_selector_node_2:
+	movl	(a1,d0),a0
+	pop	a1
+	movl	$__indirection,-4(a1)
+	movl	a0,(a1)
+	jmp	rmarkr_node
+
+rmarkr_strict_record_selector_node_1:
+	push	d0
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(,d0),d0
+	andl	(,d1,4),d0
+	pop	d0
+	jne	rmarkr_hnf_1
+
+	movl	(a1),d1
+	testb	$2,d1b
+	je	rmarkr_hnf_1
+
+	cmpw	$258,-2(d1)
+	jbe	rmarkr_select_from_small_record
+
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	push	d0
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(d0),d0
+	andl	(,d1,4),d0
+	pop	d0
+	jne	rmarkr_hnf_1
+
+rmarkr_select_from_small_record:
+	movl	-8(d0),d0
+	subl	$4,a0
+
+	movzwl	4(d0),d1
+	cmpl	$8,d1
+	jle	rmarkr_strict_record_selector_node_2
+	addl	8(a1),d1
+	movl	-12(d1),d1
+	jmp	rmarkr_strict_record_selector_node_3
+rmarkr_strict_record_selector_node_2:
+	movl	(a1,d1),d1
+rmarkr_strict_record_selector_node_3:
+	movl	d1,4(a0)
+
+	movzwl	6(d0),d1
+	testl	d1,d1
+	je	rmarkr_strict_record_selector_node_5
+	cmpl	$8,d1
+	jle	rmarkr_strict_record_selector_node_4
+	movl	8(a1),a1
+	subl	$12,d1
+rmarkr_strict_record_selector_node_4:
+	movl	(a1,d1),d1
+	movl	d1,8(a0)
+rmarkr_strict_record_selector_node_5:
+
+	movl	-4(d0),d0
+	movl	d0,(a0)
+	jmp	rmarkr_next_node
+
+/ a2,d1: free
+
+rmarkr_next_node:
+	test	$3,a3
+	jne	rmarkr_parent
+
+	movl	-4(a3),a2
+	movl	$3,d1
+	
+	andl	a2,d1
+	subl	$4,a3
+
+	cmpl	$3,d1
+	je	rmarkr_argument_part_cycle1
+
+	movl	4(a3),a1
+	movl	a1,(a3)
+
+rmarkr_c_argument_part_cycle1:
+	cmpl	a3,a0
+	ja	rmarkr_no_reverse_1
+
+	movl	(a0),a1
+	leal	4+1(a3),d0
+	movl	a1,4(a3)
+	movl	d0,(a0)
+	
+	orl	d1,a3
+	movl	a2,a0
+	xorl	d1,a0
+	jmp	rmarkr_node
+
+rmarkr_no_reverse_1:
+	movl	a0,4(a3)
+	movl	a2,a0
+	orl	d1,a3
+	xorl	d1,a0
+	jmp	rmarkr_node
+
+rmarkr_lazy_node:
+	movl	-4(d0),a2
+	test	a2,a2
+	je	rmarkr_next_node
+
+	addl	$4,a0
+
+	subl	$1,a2
+	jle	rmarkr_lazy_node_1
+
+	cmpl	$255,a2
+	jge	rmarkr_closure_with_unboxed_arguments
+
+rmarkr_closure_with_unboxed_arguments_:
+	orl	$2,(a0)
+	leal	(a0,a2,4),a0
+
+	movl	(a0),a2
+	movl	a3,(a0)
+	movl	a0,a3
+	movl	a2,a0
+	jmp	rmarkr_node
+
+rmarkr_closure_with_unboxed_arguments:
+/ (a_size+b_size)+(b_size<<8)
+/	addl	$1,a2
+	movl	a2,d0
+	andl	$255,a2
+	shrl	$8,d0
+	subl	d0,a2
+/	subl	$1,a2
+	jg	rmarkr_closure_with_unboxed_arguments_
+	je	rmarkr_hnf_1
+	subl	$4,a0
+	jmp	rmarkr_next_node
+
+rmarkr_hnf_0:
+	cmpl	$INT+2,d0
+	je	rmarkr_int_3
+
+	cmpl	$CHAR+2,d0
+ 	je	rmarkr_char_3
+
+	jb	rmarkr_no_normal_hnf_0
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a0,d1
+
+	movl	$31*4,a0
+	andl	d1,a0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(a0),a0
+	andl	a0,(,d1,4)
+
+	lea	ZERO_ARITY_DESCRIPTOR_OFFSET-2(d0),a0
+	jmp	rmarkr_next_node_after_static
+
+rmarkr_int_3:
+	movl	4(a0),a2
+	cmpl	$33,a2
+	jnc	rmarkr_next_node
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a0,d1
+
+	movl	$31*4,a0
+	andl	d1,a0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(a0),a0
+	andl	a0,(,d1,4)
+
+	lea	small_integers(,a2,8),a0
+	jmp	rmarkr_next_node_after_static
+
+rmarkr_char_3:
+	movl	neg_heap_p3_offset(a4),d1
+
+	movzbl	4(a0),d0
+	addl	a0,d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_clear_table(a2),a2
+	andl	a2,(,d1,4)
+
+	lea	static_characters(,d0,8),a0
+	jmp	rmarkr_next_node_after_static
+
+rmarkr_no_normal_hnf_0:
+	cmpl	$__ARRAY__+2,d0
+	jne	rmarkr_next_node
+
+	movl	8(a0),d0
+	test	d0,d0
+	je	rmarkr_lazy_array
+
+	movzwl	-2+2(d0),d1
+	test	d1,d1
+	je	rmarkr_b_array
+
+	movzwl	-2(d0),d0
+	test	d0,d0
+	je	rmarkr_b_array
+
+	subl	$256,d0
+	cmpl	d0,d1
+	je	rmarkr_a_record_array
+
+rmarkr_ab_record_array:
+	movl	4(a0),a1
+	addl	$8,a0
+	pushl	a0
+
+	imull	d0,a1
+	shl	$2,a1
+
+	subl	d1,d0
+	addl	$4,a0
+	addl	a0,a1
+	call	reorder
+	
+	popl	a0
+	movl	d1,d0
+	imull	-4(a0),d0	
+	jmp	rmarkr_lr_array
+
+rmarkr_b_array:
+	movl	neg_heap_p3_offset(a4),a2
+	addl	a0,a2
+
+	addl	$4,a2
+
+	movl	$31*4,d0
+	andl	a2,d0
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	movl	bit_set_table(d0),d0
+	orl	d0,(,a2,4)
+	jmp	rmarkr_next_node
+
+rmarkr_a_record_array:
+	movl	4(a0),d0
+	addl	$8,a0
+	cmpl	$2,d1
+	jb	rmarkr_lr_array
+
+	imull	d1,d0
+	jmp	rmarkr_lr_array
+
+rmarkr_lazy_array:
+	movl	4(a0),d0
+	addl	$8,a0
+
+rmarkr_lr_array:
+	movl	neg_heap_p3_offset(a4),a1
+	addl	a0,a1
+	shrl	$2,a1
+	addl	d0,a1
+
+	movl	$31,d1
+	andl	a1,d1
+	shrl	$5,a1
+	addl	heap_vector_d4_offset(a4),a1
+
+	movl	bit_set_table(,d1,4),d1
+	orl	d1,(,a1,4)
+
+	cmpl	$1,d0
+	jbe	rmarkr_array_length_0_1
+
+	movl	a0,a1
+	lea	(a0,d0,4),a0
+
+	movl	(a0),d0
+	movl	(a1),d1
+	movl	d0,(a1)
+	movl	d1,(a0)
+	
+	movl	-4(a0),d0
+	subl	$4,a0
+	addl	$2,d0
+	movl	-4(a1),d1
+	subl	$4,a1
+	movl	d1,(a0)
+	movl	d0,(a1)
+
+	movl	-4(a0),d0
+	subl	$4,a0
+	movl	a3,(a0)
+	movl	a0,a3
+	movl	d0,a0
+	jmp	rmarkr_node
+
+rmarkr_array_length_0_1:
+	lea	-8(a0),a0
+	jb	rmarkr_next_node
+
+	movl	12(a0),d1
+	movl	8(a0),a2
+	movl	a2,12(a0)
+	movl	4(a0),a2
+	movl	a2,8(a0)
+	movl	d1,4(a0)
+	addl	$4,a0
+	jmp	rmarkr_hnf_1
+
+/ a2: free
+
+rmarkr_parent:
+	movl	a3,d1
+	andl	$3,d1
+
+	andl	$-4,a3
+	je	end_rmarkr
+
+	subl	$1,d1
+	je	rmarkr_argument_part_parent
+
+	movl	(a3),a2
+	
+	cmpl	a3,a0
+	ja	rmarkr_no_reverse_2
+
+	movl	a0,a1
+	leal	1(a3),d0
+	movl	(a1),a0
+	movl	d0,(a1)
+
+rmarkr_no_reverse_2:
+	movl	a0,(a3)
+	leal	-4(a3),a0
+	movl	a2,a3
+	jmp	rmarkr_next_node
+
+rmarkr_argument_part_parent:
+	movl	(a3),a2
+
+	movl	a3,a1
+	movl	a0,a3
+	movl	a1,a0
+
+rmarkr_skip_upward_pointers:
+	movl	a2,d0
+	andl	$3,d0
+	cmpl	$3,d0
+	jne	rmarkr_no_upward_pointer
+
+	leal	-3(a2),a1
+	movl	-3(a2),a2
+	jmp	rmarkr_skip_upward_pointers
+
+rmarkr_no_upward_pointer:
+	cmpl	a0,a3
+	ja	rmarkr_no_reverse_3
+
+	movl	a3,d1
+	movl	(a3),a3
+	leal	1(a0),d0
+	movl	d0,(d1)
+	
+rmarkr_no_reverse_3:
+	movl	a3,(a1)
+	lea	-4(a2),a3
+
+	andl	$-4,a3
+
+	movl	a3,a1
+	movl	$3,d1
+
+	movl	(a3),a2
+
+	andl	a2,d1
+	movl	4(a1),d0
+
+	orl	d1,a3
+	movl	d0,(a1)
+
+	cmpl	a1,a0
+	ja	rmarkr_no_reverse_4
+
+	movl	(a0),d0
+	movl	d0,4(a1)
+	leal	4+2+1(a1),d0
+	movl	d0,(a0)
+	movl	a2,a0
+	andl	$-4,a0
+	jmp	rmarkr_node
+
+rmarkr_no_reverse_4:
+	movl	a0,4(a1)
+	movl	a2,a0
+	andl	$-4,a0
+	jmp	rmarkr_node
+
+rmarkr_argument_part_cycle1:
+	movl	4(a3),d0
+	push	a1
+
+rmarkr_skip_pointer_list1:
+	movl	a2,a1
+	andl	$-4,a1
+	movl	(a1),a2
+	movl	$3,d1
+	andl	a2,d1
+	cmpl	$3,d1
+	je	rmarkr_skip_pointer_list1
+
+	movl	d0,(a1)
+	pop	a1
+	jmp	rmarkr_c_argument_part_cycle1
+
+rmarkr_next_node_after_static:
+	test	$3,a3
+	jne	rmarkr_parent_after_static
+
+	movl	-4(a3),a2
+	movl	$3,d1
+	
+	andl	a2,d1
+	subl	$4,a3
+
+	cmpl	$3,d1
+	je	rmarkr_argument_part_cycle2
+	
+	movl	4(a3),d0
+	movl	d0,(a3)
+
+rmarkr_c_argument_part_cycle2:
+	movl	a0,4(a3)
+	movl	a2,a0
+	orl	d1,a3
+	xorl	d1,a0
+	jmp	rmarkr_node
+
+rmarkr_parent_after_static:
+	movl	a3,d1
+	andl	$3,d1
+
+	andl	$-4,a3
+	je	end_rmarkr_after_static
+
+	subl	$1,d1
+	je	rmarkr_argument_part_parent_after_static
+
+	movl	(a3),a2
+	movl	a0,(a3)
+	leal	-4(a3),a0
+	movl	a2,a3
+	jmp	rmarkr_next_node
+	
+rmarkr_argument_part_parent_after_static:
+	movl	(a3),a2
+
+	movl	a3,a1
+	movl	a0,a3
+	movl	a1,a0
+
+/	movl	(a1),a2
+rmarkr_skip_upward_pointers_2:
+	movl	a2,d0
+	andl	$3,d0
+	cmpl	$3,d0
+	jne	rmarkr_no_reverse_3
+
+/	movl	a2,a1
+/	andl	$-4,a1
+/	movl	(a1),a2
+	lea	-3(a2),a1
+	movl	-3(a2),a2
+	jmp	rmarkr_skip_upward_pointers_2
+
+rmarkr_argument_part_cycle2:
+	movl	4(a3),d0
+	push	a1
+
+rmarkr_skip_pointer_list2:
+	movl	a2,a1
+	andl	$-4,a1
+	movl	(a1),a2
+	movl	$3,d1
+	andl	a2,d1
+	cmpl	$3,d1
+	je	rmarkr_skip_pointer_list2
+
+	movl	d0,(a1)
+	pop	a1
+	jmp	rmarkr_c_argument_part_cycle2
+
+end_rmarkr_after_static:
+	movl	(sp),a3
+	addl	$8,sp
+	movl	a0,(a3)
+	jmp	rmarkr_next_stack_node
+
+end_rmarkr:
+	popl	a3
+	popl	d1
+
+	cmpl	d1,a0
+	ja	rmark_no_reverse_4
+
+	movl	a0,a1
+	leal	1(a3),d0
+	movl	(a0),a0
+	movl	d0,(a1)
+
+rmark_no_reverse_4:
+	movl	a0,(a3)
+
+rmarkr_next_stack_node:
+	cmpl	end_stack_offset(a4),sp
+	jae	rmark_next_node
+
+	movl	(sp),a0
+	movl	4(sp),a3
+	addl	$8,sp
+	
+	cmpl	$1,a0
+	ja	rmark_using_reversal
+
+	jmp	rmark_next_node_
diff --git a/thread/icopy.s b/thread/icopy.s
new file mode 100644
index 0000000..e9a4b76
--- /dev/null
+++ b/thread/icopy.s
@@ -0,0 +1,1215 @@
+
+a4_copy_sp_offset	= 0
+heap_p1_copy_sp_offset	= 4
+heap_p2_copy_sp_offset	= 8
+semi_space_size_sp_offset = 12
+stack_p_copy_sp_offset	= 16
+heap_copied_vector_copy_sp_offset = 20
+copy_sp_offset_5	= 24
+copy_sp_offset_4	= 28
+copy_sp_offset_3	= 32
+copy_sp_offset_2	= 36
+copy_sp_offset_1	= 40
+
+	push	a3
+
+	lea	-44(sp),sp
+	movl	a4,a4_copy_sp_offset(sp)
+
+	movl	heap_p1_offset(a4),d0
+	movl	d0,heap_p1_copy_sp_offset(sp)
+
+	movl	stack_p_offset(a4),d0
+	movl	d0,stack_p_copy_sp_offset(sp)
+
+	movl	heap_copied_vector_offset(a4),d0
+	movl	d0,heap_copied_vector_copy_sp_offset(sp)
+
+	movl	heap_size_129_offset(a4),d0
+	shl	$6,d0
+
+	movl	heap_p2_offset(a4),a4
+	movl	a4,heap_p2_copy_sp_offset(sp)
+
+	movl	d0,semi_space_size_sp_offset(sp)
+	lea	(a4,d0),a3
+
+#ifdef WRITE_HEAP
+	movl	a3,heap2_begin_and_end+4
+#endif
+
+	movl	caf_list,d0
+	test	d0,d0
+	je	end_copy_cafs
+
+copy_cafs_lp:
+	movl	-4(d0),a1
+	movl	(d0),d1
+	lea	4(d0),a2
+
+	movl	a1,copy_sp_offset_1(sp)
+
+	subl	$1,d1
+	call	copy_lp2
+
+	movl	copy_sp_offset_1(sp),d0
+	test	d0,d0
+	jne	copy_cafs_lp
+
+end_copy_cafs:
+	movl	44(sp),d1
+
+	mov	stack_p_copy_sp_offset(sp),a2
+	sub	a2,d1
+	shr	$2,d1
+
+	sub	$1,d1
+	jb	end_copy0
+	call	copy_lp2
+end_copy0:
+	movl	heap_p2_copy_sp_offset(sp),a2
+
+	jmp	copy_lp1
+/
+/	Copy all referenced nodes to the other semi space
+/
+
+in_hnf_1_2:
+	dec	d1
+copy_lp2_lp1:
+	call	copy_lp2
+copy_lp1:
+	cmp	a4,a2
+	jae	end_copy1
+
+	mov	(a2),d0
+	add	$4,a2
+	testb	$2,d0b
+	je	not_in_hnf_1
+in_hnf_1:
+	movzwl	-2(d0),d1
+
+	test	d1,d1
+	je	copy_array_21
+
+	cmp	$2,d1
+	jbe	in_hnf_1_2
+
+	cmp	$256,d1
+	jae	copy_record_21
+	
+	mov	4(a2),d0
+	testb	$1,d0b
+	jne	node_without_arguments_part
+
+	movl	d1,copy_sp_offset_2(sp)
+	xorl	d1,d1
+	
+	call	copy_lp2
+
+	movl	copy_sp_offset_2(sp),d1
+	add	$4,a2
+
+	sub	$2,d1
+	jmp	copy_lp2_lp1
+
+node_without_arguments_part:
+	dec	d0
+	xorl	d1,d1
+
+	mov	d0,4(a2)
+	call	copy_lp2
+	
+	add	$4,a2
+	jmp	copy_lp1
+
+copy_record_21:
+	subl	$258,d1
+	ja	copy_record_arguments_3
+
+	movzwl	-2+2(d0),d1
+	jb	copy_record_arguments_1
+
+	subl	$1,d1
+	ja	copy_lp2_lp1
+	jmp	copy_node_arity1
+
+copy_record_arguments_1:
+	dec	d1
+	jmp	copy_lp2_lp1
+
+copy_record_arguments_3:
+	testb	$1,4(a2)
+	jne	record_node_without_arguments_part
+
+	movzwl	-2+2(d0),a1
+	subl	$1,a1
+
+	lea	3*4(a2,d1,4),a0
+	movl	a0,copy_sp_offset_2(sp)
+	movl	a1,copy_sp_offset_3(sp)
+
+	sub	d1,d1
+	call	copy_lp2
+
+	addl	$4,a2
+	movl	copy_sp_offset_3(sp),d1
+	dec	d1
+	call	copy_lp2
+
+	movl	copy_sp_offset_2(sp),a2
+	jmp	copy_lp1
+
+record_node_without_arguments_part:
+	andl	$-2,4(a2)
+
+	sub	d1,d1
+	call	copy_lp2
+	
+	addl	$4,a2
+	jmp	copy_lp1
+
+not_in_hnf_1:
+	mov	-4(d0),d1
+	cmpl	$257,d1
+	jge	copy_unboxed_closure_arguments
+	sub	$1,d1
+	jg	copy_lp2_lp1
+
+copy_node_arity1:
+	xorl	d1,d1
+	call	copy_lp2
+
+	add	$4,a2
+	jmp	copy_lp1
+
+copy_unboxed_closure_arguments:
+	je	copy_unboxed_closure_arguments1
+
+	xorl	d0,d0
+	movb	d1hb,d0lb
+	andl	$255,d1
+	sub	d0,d1
+
+	subl	$1,d1
+	jl	copy_unboxed_closure_arguments_without_pointers
+	
+	movl	d0,copy_sp_offset_2(sp)
+	call	copy_lp2
+	movl	copy_sp_offset_2(sp),d0
+
+copy_unboxed_closure_arguments_without_pointers:
+	lea	(a2,d0,4),a2
+	jmp	copy_lp1
+
+copy_unboxed_closure_arguments1:
+	addl	$8,a2
+	jmp	copy_lp1
+
+copy_array_21:
+	movl	4(a2),d1
+	addl	$8,a2
+	test	d1,d1
+	je	copy_array_21_a
+
+	movzwl	-2(d1),d0
+	movzwl	-2+2(d1),d1
+	subl	$256,d0
+	test	d1,d1
+	je	copy_array_21_b
+
+	cmpl	d0,d1
+	je	copy_array_21_r_a
+
+copy_array_21_ab:
+	cmpl	$0,-8(a2)
+	je	copy_lp1
+
+	subl	d1,d0
+	shl	$2,d0
+	subl	$1,d1
+
+	movl	d1,copy_sp_offset_2(sp)
+	movl	d0,copy_sp_offset_3(sp)
+	movl	-8(a2),d1
+	subl	$1,d1
+	movl	d1,copy_sp_offset_4(sp)
+
+copy_array_21_lp_ab:
+	movl	copy_sp_offset_2(sp),d1
+	call	copy_lp2
+
+	addl	copy_sp_offset_3(sp),a2
+	subl	$1,copy_sp_offset_4(sp)
+	jnc	copy_array_21_lp_ab
+	
+	jmp	copy_lp1
+
+copy_array_21_b:
+	movl	-8(a2),d1
+	imull	d0,d1
+	lea	(a2,d1,4),a2
+	jmp	copy_lp1
+
+copy_array_21_r_a:
+	movl	-8(a2),d1
+	imull	d0,d1
+	subl	$1,d1
+	jc	copy_lp1
+	jmp	copy_lp2_lp1
+
+copy_array_21_a:
+	movl	-8(a2),d1
+	subl	$1,d1
+	jc	copy_lp1
+	jmp	copy_lp2_lp1
+
+/
+/	Copy nodes to the other semi-space
+/
+
+copy_lp2:
+	movl	(a2),a1
+
+/ selectors:
+continue_after_selector_2:
+	movl	(a1),a0
+	testb	$2,a0b
+	je	not_in_hnf_2
+
+in_hnf_2:
+	movzwl	-2(a0),d0
+	test	d0,d0
+	je	copy_arity_0_node2
+
+	cmp	$256,d0
+	jae	copy_record_2
+
+	sub	$2,d0
+	mov	a4,(a2)
+
+	lea	4(a2),a2
+	ja	copy_hnf_node2_3
+
+	mov	a0,(a4)
+	jb	copy_hnf_node2_1
+
+	inc	a4
+	mov	4(a1),a0
+
+	mov	a4,(a1)
+	mov	8(a1),d0
+
+	sub	$1,d1
+	mov	a0,4-1(a4)
+
+	mov	d0,8-1(a4)
+	lea	12-1(a4),a4
+
+	jae	copy_lp2
+	ret
+
+copy_hnf_node2_1:
+	inc	a4
+	mov	4(a1),d0
+
+	sub	$1,d1
+	mov	a4,(a1)
+
+	mov	d0,4-1(a4)
+	lea	8-1(a4),a4
+
+	jae	copy_lp2
+	ret
+
+copy_hnf_node2_3:
+	mov	a0,(a4)
+	inc	a4
+
+	mov	a4,(a1)
+	mov	4(a1),a0
+
+	mov	a0,4-1(a4)
+	mov	8(a1),a0
+
+	add	$12-1,a4
+	mov	(a0),a1
+	
+	testb	$1,a1b
+	jne	arguments_already_copied_2
+
+	mov	a4,-4(a4)
+	add	$4,a0
+
+	mov	a1,(a4)
+	inc	a4
+
+	mov	a4,-4(a0)
+	add	$4-1,a4
+
+cp_hnf_arg_lp2:
+	mov	(a0),a1
+	add	$4,a0
+
+	mov	a1,(a4)
+	add	$4,a4
+
+	dec	d0
+	jne	cp_hnf_arg_lp2
+
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+arguments_already_copied_2:
+	mov	a1,-4(a4)
+
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_arity_0_node2:
+	cmp	$INT+2,a0
+	jb	copy_real_file_or_string_2
+
+	cmp	$CHAR+2,a0
+	ja	copy_normal_hnf_0_2
+
+	mov	4(a1),d0
+
+	je	copy_char_2
+
+	cmp	$INT+2,a0
+	jne	no_small_int_or_char_2
+
+copy_int_2:
+	cmp	$33,d0
+	jae	no_small_int_or_char_2
+
+	shl	$3,d0
+	add	$4,a2
+
+	add	$small_integers,d0
+	sub	$1,d1
+
+	mov	d0,-4(a2)
+	jae	copy_lp2
+
+	ret
+
+copy_char_2:	
+	andl	$255,d0
+
+	shl	$3,d0
+	add	$4,a2
+
+	add	$static_characters,d0
+	sub	$1,d1
+
+	mov	d0,-4(a2)
+	jae	copy_lp2
+	ret
+	
+no_small_int_or_char_2:
+
+copy_record_node2_1_b:
+	mov	a0,-8(a3)
+	add	$4,a2
+
+	mov	d0,-4(a3)
+	sub	$7,a3
+
+	mov	a3,(a1)
+	dec	a3
+	
+	mov	a3,-4(a2)
+
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_normal_hnf_0_2:
+	sub	$2-ZERO_ARITY_DESCRIPTOR_OFFSET,a0
+	sub	$1,d1
+
+	mov	a0,(a2)
+	lea	4(a2),a2
+
+	jae	copy_lp2
+	ret
+
+copy_real_file_or_string_2:
+	cmpl	$__STRING__+2,a0
+	jbe	copy_string_or_array_2
+
+copy_real_or_file_2:
+	mov	a0,-12(a3)
+	sub	$12-1,a3
+
+	mov	a3,(a1)
+	dec	a3
+
+	mov	4(a1),d0
+	mov	8(a1),a0
+
+	mov	a3,(a2)
+	add	$4,a2
+
+	mov	d0,4(a3)
+	sub	$1,d1
+
+	mov	a0,8(a3)
+
+	jae	copy_lp2
+	ret
+
+already_copied_2:
+	dec	a0
+	sub	$1,d1
+
+	mov	a0,(a2)
+	lea	4(a2),a2
+	
+	jae	copy_lp2
+	ret
+
+copy_record_2:
+	subl	$258,d0
+	ja	copy_record_node2_3
+	jb	copy_record_node2_1
+
+	cmpw	$0,-2+2(a0)
+	je	copy_real_or_file_2
+
+	movl	a4,(a2)
+	movl	a0,(a4)
+
+	lea	1(a4),a0
+	movl	4(a1),d0
+
+	movl	a0,(a1)
+
+	movl	d0,4(a4)
+	movl	8(a1),d0
+
+	addl	$4,a2
+	movl	d0,8(a4)
+
+	addl	$12,a4	
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_record_node2_1:
+	movl	4(a1),d0
+
+	cmpw	$0,-2+2(a0)
+	je	copy_record_node2_1_b
+
+	movl	a4,(a2)
+	movl	a0,(a4)
+
+	lea	1(a4),a0
+	movl	d0,4(a4)
+
+	movl	a0,(a1)
+	addl	$4,a2
+
+	addl	$8,a4
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_record_node2_3:
+	cmpw	$1,-2+2(a0)
+	jbe	copy_record_node2_3_ab_or_b
+
+	movl	d0,copy_sp_offset_5+4(sp)
+	lea	1(a4),d0
+	
+	movl	d0,(a1)
+	movl	8(a1),d0
+
+	movl	a0,(a4)
+	movl	4(a1),a1
+
+	movl	a1,4(a4)
+	movl	a4,(a2)
+	addl	$4,a2
+
+	movl	d0,a0
+	testl	$1,(d0)
+	jne	record_arguments_already_copied_2
+
+	lea	12(a4),a1
+
+	movl	copy_sp_offset_5+4(sp),d0
+
+	movl	a1,8(a4)
+
+	addl	$13,a4
+	movl	(a0),a1
+
+	movl	a4,(a0)
+	addl	$4,a0
+
+	movl	a1,-1(a4)
+	addl	$3,a4
+
+cp_record_arg_lp2:
+	movl	(a0),a1
+	addl	$4,a0
+
+	movl	a1,(a4)
+	addl	$4,a4
+
+	subl	$1,d0
+	jne	cp_record_arg_lp2
+
+	subl	$1,d1
+	jae	copy_lp2
+	ret
+
+record_arguments_already_copied_2:
+	movl	(a0),a1
+
+	movl	copy_sp_offset_5+4(sp),d0
+
+	movl	a1,8(a4)
+	addl	$12,a4
+
+	subl	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_record_node2_3_ab_or_b:
+	jb	copy_record_node2_3_b
+
+copy_record_node2_3_ab:
+	movl	d0,copy_sp_offset_5+4(sp)
+
+	lea	1(a4),d0
+	
+	movl	d0,(a1)
+	movl	8(a1),d0
+
+	movl	a0,(a4)
+	movl	4(a1),a1
+
+	movl	d0,a0
+	subl	heap_p1_copy_sp_offset+4(sp),d0
+
+	shr	$3,d0
+	movl	a1,4(a4)
+
+	mov	d0,a1
+	and	$31,d0
+
+	shr	$3,a1
+	movl	a4,(a2)
+
+	andl	$-4,a1
+	mov	bit_set_table(,d0,4),d0
+
+	addl	heap_copied_vector_copy_sp_offset+4(sp),a1
+	addl	$4,a2
+
+	test	(a1),d0
+	jne	record_arguments_already_copied_2
+
+	or	d0,(a1)
+	movl	copy_sp_offset_5+4(sp),d0
+
+	subl	$4,a3
+
+	shl	$2,d0
+	subl	d0,a3
+
+	movl	a3,copy_sp_offset_5+4(sp)
+	addl	$1,a3
+
+	movl	a3,8(a4)
+	addl	$12,a4
+
+	movl	(a0),a1
+	jmp	cp_record_arg_lp3_c
+
+copy_record_node2_3_b:
+	movl	d0,copy_sp_offset_5+4(sp)
+	lea	-12+1(a3),d0
+	
+	movl	d0,(a1)
+	movl	8(a1),d0
+
+	movl	a0,-12(a3)
+	movl	4(a1),a1
+
+	movl	d0,a0
+	subl	heap_p1_copy_sp_offset+4(sp),d0
+
+	shr	$3,d0
+	movl	a1,-8(a3)
+
+	mov	d0,a1
+	and	$31,d0
+	subl	$12,a3
+
+	shr	$3,a1
+	movl	a3,(a2)
+
+	andl	$-4,a1
+	mov	bit_set_table(,d0,4),d0
+
+	addl	heap_copied_vector_copy_sp_offset+4(sp),a1
+	addl	$4,a2
+
+	test	(a1),d0
+	jne	record_arguments_already_copied_3_b
+
+	or	d0,(a1)
+	movl	copy_sp_offset_5+4(sp),d0
+
+	movl	a3,a1
+	subl	$4,a3
+
+	shl	$2,d0
+	subl	d0,a3
+
+	movl	a3,8(a1)
+
+	movl	(a0),a1
+
+	movl	a3,copy_sp_offset_5+4(sp)
+	addl	$1,a3
+
+cp_record_arg_lp3_c:
+	movl	a3,(a0)
+	addl	$4,a0
+	movl	a1,-1(a3)
+
+	addl	$3,a3
+
+cp_record_arg_lp3:
+	movl	(a0),a1
+	addl	$4,a0
+
+	movl	a1,(a3)
+	addl	$4,a3
+
+	subl	$4,d0
+	jne	cp_record_arg_lp3
+
+	movl	copy_sp_offset_5+4(sp),a3
+
+	subl	$1,d1
+	jae	copy_lp2
+	ret
+
+record_arguments_already_copied_3_b:
+	movl	(a0),a1
+
+	movl	d0,copy_sp_offset_5+4(sp)
+
+	subl	$1,a1
+	movl	a1,8(a3)
+
+	subl	$1,d1
+	jae	copy_lp2
+	ret
+
+not_in_hnf_2:
+	testb	$1,a0b
+	jne	already_copied_2
+
+	mov	-4(a0),d0
+	test	d0,d0
+	jle	copy_arity_0_node2_
+
+copy_node2_1_:
+	andl	$255,d0
+	sub	$2,d0
+	jl	copy_arity_1_node2
+copy_node2_3:
+	mov	a4,(a2)
+	add	$4,a2
+	mov	a0,(a4)
+	inc	a4
+	mov	a4,(a1)
+	mov	4(a1),a0
+	add	$8,a1
+	mov	a0,4-1(a4)
+	add	$8-1,a4
+
+cp_arg_lp2:
+	mov	(a1),a0
+	add	$4,a1
+	mov	a0,(a4)
+	add	$4,a4
+	sub	$1,d0
+	jae	cp_arg_lp2
+	
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_arity_1_node2__:
+	movl	copy_sp_offset_5+4(sp),d1
+
+copy_arity_1_node2:
+copy_arity_1_node2_:
+	mov	a4,(a2)
+	inc	a4
+
+	add	$4,a2
+	mov	a4,(a1)
+
+	mov	4(a1),d0
+	mov	a0,-1(a4)
+
+	mov	d0,4-1(a4)
+	add	$12-1,a4
+
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_indirection_2:
+	mov	a1,d0
+	mov	4(a1),a1
+
+	mov	(a1),a0
+	testb	$2,a0b
+	jne	in_hnf_2
+
+	testb	$1,a0b
+	jne	already_copied_2
+
+	cmpl	$-2,-4(a0)
+	je	skip_indirections_2
+
+	mov	-4(a0),d0
+	test	d0,d0
+	jle	copy_arity_0_node2_
+	jmp	copy_node2_1_
+
+skip_indirections_2:
+	mov	4(a1),a1
+
+	mov	(a1),a0
+	testb	$2,a0b
+	jne	update_indirection_list_2
+	testb	$1,a0b
+	jne	update_indirection_list_2
+
+	cmpl	$-2,-4(a0)
+	je	skip_indirections_2
+
+update_indirection_list_2:
+	lea	4(d0),a0
+	mov	4(d0),d0
+	mov	a1,(a0)
+	cmp	d0,a1
+	jne	update_indirection_list_2
+
+	jmp	continue_after_selector_2
+
+copy_selector_2:
+	cmpl	$-2,d0
+	je	copy_indirection_2
+	jl	copy_record_selector_2
+
+	mov	4(a1),d0
+
+	movl	d1,copy_sp_offset_5+4(sp)
+
+	mov	(d0),d1
+ 	testb	$2,d1b
+	je	copy_arity_1_node2__
+
+	cmpw	$2,-2(d1)
+	jbe	copy_selector_2_
+
+	movl	8(d0),d1
+	testb	$1,(d1)
+	jne	copy_arity_1_node2__
+
+	movl	-8(a0),a0
+
+	movzwl	4(a0),a0
+	movl	$__indirection,(a1)
+
+	cmpl	$8,a0
+	jl	copy_selector_2_1
+	je	copy_selector_2_2
+
+	movl	-12(d1,a0),a0
+
+	movl	copy_sp_offset_5+4(sp),d1
+
+	movl	a0,4(a1)
+	movl	a0,a1
+	jmp	continue_after_selector_2
+
+copy_selector_2_1:
+	movl	4(d0),a0
+
+	movl	copy_sp_offset_5+4(sp),d1
+
+	movl	a0,4(a1)
+	movl	a0,a1
+	jmp	continue_after_selector_2
+
+copy_selector_2_2:
+	movl	(d1),a0
+
+	movl	copy_sp_offset_5+4(sp),d1
+
+	movl	a0,4(a1)
+	movl	a0,a1
+	jmp	continue_after_selector_2
+	
+copy_selector_2_:
+	movl	-8(a0),a0
+
+	movl	copy_sp_offset_5+4(sp),d1
+
+	movzwl	4(a0),a0
+	movl	$__indirection,(a1)
+
+	movl	(d0,a0),a0
+	movl	a0,4(a1)
+	movl	a0,a1
+	jmp	continue_after_selector_2
+
+copy_record_selector_2:
+	cmpl	$-3,d0
+ 	movl	4(a1),d0
+	movl	(d0),d0
+	je	copy_strict_record_selector_2
+
+ 	testb	$2,d0b
+	je	copy_arity_1_node2_
+
+	cmpw	$258,-2(d0)
+	jbe	copy_record_selector_2_
+
+	cmpw	$2,-2+2(d0)
+	jae	copy_selector_2__
+
+ 	movl	4(a1),d0
+	movl	a1,copy_sp_offset_5+4(sp)
+
+	movl	8(d0),a1
+	subl	heap_p1_copy_sp_offset+4(sp),a1
+
+	mov	$31*8,d0
+	and	a1,d0
+	shr	$6,a1
+	
+	shr	$1,d0
+	andl	$-4,a1
+
+	addl	heap_copied_vector_copy_sp_offset+4(sp),a1
+
+	mov	bit_set_table(d0),d0
+	andl	(a1),d0
+
+	movl	copy_sp_offset_5+4(sp),a1
+
+	je	copy_record_selector_2_
+	jmp	copy_arity_1_node2_
+
+copy_selector_2__:
+	mov	4(a1),d0
+	mov	8(d0),d0
+	testb	$1,(d0)
+	jne	copy_arity_1_node2_
+
+copy_record_selector_2_:
+	movl	-8(a0),d0
+	movl	4(a1),a0
+	movl	$__indirection,(a1)
+
+	movzwl	4(d0),d0
+	cmpl	$8,d0
+	jle	copy_record_selector_3
+	movl	8(a0),a0
+	subl	$12,d0
+copy_record_selector_3:
+	movl	(a0,d0),a0
+
+	movl	a0,4(a1)
+
+	movl	a0,a1
+	jmp	continue_after_selector_2
+
+copy_strict_record_selector_2:
+	testb	$2,d0b
+	je	copy_arity_1_node2_
+
+	cmpw	$258,-2(d0)
+	jbe	copy_strict_record_selector_2_
+
+	cmpw	$2,-2+2(d0)
+	jb	copy_strict_record_selector_2_b
+
+ 	movl	4(a1),d0
+	movl	8(d0),d0
+	testb	$1,(d0)
+	jne	copy_arity_1_node2_
+
+	jmp	copy_strict_record_selector_2_
+
+copy_strict_record_selector_2_b:
+ 	movl	4(a1),d0
+	movl	a1,copy_sp_offset_5+4(sp)
+
+	movl	8(d0),d0
+	subl	heap_p1_copy_sp_offset+4(sp),d0
+
+	mov	d0,a1
+	and	$31*8,d0
+
+	shr	$6,a1
+
+	shr	$1,d0
+	andl	$-4,a1
+
+	addl	heap_copied_vector_copy_sp_offset+4(sp),a1
+
+	mov	bit_set_table(d0),d0
+	
+	and	(a1),d0
+	movl	copy_sp_offset_5+4(sp),a1
+
+	jne	copy_arity_1_node2_
+
+copy_strict_record_selector_2_:
+	movl	-8(a0),d0
+
+	movl	d1,copy_sp_offset_5+4(sp)
+
+	movl	4(a1),a0
+
+	movzwl	4(d0),d1
+	cmpl	$8,d1
+	jle	copy_strict_record_selector_3
+	addl	8(a0),d1
+	movl	-12(d1),d1
+	jmp	copy_strict_record_selector_4
+copy_strict_record_selector_3:
+	movl	(a0,d1),d1
+copy_strict_record_selector_4:
+	movl	d1,4(a1)
+
+	movzwl	6(d0),d1
+	testl	d1,d1
+	je	copy_strict_record_selector_6
+	cmpl	$8,d1
+	jle	copy_strict_record_selector_5
+	movl	8(a0),a0
+	subl	$12,d1
+copy_strict_record_selector_5:
+	movl	(a0,d1),d1
+	movl	d1,8(a1)
+copy_strict_record_selector_6:
+
+	movl	-4(d0),a0
+	movl	a0,(a1)
+
+	movl	copy_sp_offset_5+4(sp),d1
+
+	testb	$2,a0b
+	jne	in_hnf_2
+	hlt
+
+copy_arity_0_node2_:
+	jl	copy_selector_2
+
+	mov	a0,-12(a3)
+	sub	$12,a3
+	mov	a3,(a2)
+	lea	1(a3),d0
+
+	add	$4,a2
+	mov	d0,(a1)
+
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_string_or_array_2:
+	movl	a1,a0
+	jne	copy_array_2
+
+	sub	heap_p1_copy_sp_offset+4(sp),a1
+	cmp	semi_space_size_sp_offset+4(sp),a1
+	jae	copy_string_or_array_constant
+
+	mov	4(a0),a1
+	add	$4,a2
+
+	add	$3,a1
+
+	movl	d1,copy_sp_offset_5+4(sp)
+
+	mov	a1,d0
+	and	$-4,a1
+	
+	shr	$2,d0
+	sub	a1,a3
+
+	mov	(a0),d1
+	add	$4,a0
+
+	mov	d1,-8(a3)
+	sub	$8,a3
+
+	mov	a3,-4(a2)
+	lea	1(a3),a1
+	
+	mov	a1,-4(a0)
+	lea	4(a3),a1
+
+cp_s_arg_lp2:
+	mov	(a0),d1
+	add	$4,a0
+
+	mov	d1,(a1)
+	add	$4,a1
+
+	subl	$1,d0
+	jge	cp_s_arg_lp2
+
+	movl	copy_sp_offset_5+4(sp),d1
+
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+copy_array_2:
+	sub	heap_p1_copy_sp_offset+4(sp),a1
+	cmp	semi_space_size_sp_offset+4(sp),a1
+	jae	copy_string_or_array_constant
+
+	movl	d1,copy_sp_offset_5+4(sp)
+
+	movl	8(a0),d0
+	test	d0,d0
+	je	copy_array_a2
+
+	movzwl 	-2(d0),d1
+
+	test	d1,d1
+	je	copy_strict_basic_array_2
+	
+	subl	$256,d1
+	imull	4(a0),d1
+	jmp	copy_array_a3
+
+copy_array_a2:
+	movl	4(a0),d1
+copy_array_a3:
+	movl	a4,a1
+	lea	12(a4,d1,4),a4
+
+	movl	a1,(a2)
+	movl	(a0),d0
+
+	addl	$4,a2
+	movl	d0,(a1)
+
+	lea	1(a1),d0
+	addl	$4,a1
+
+	movl	d0,(a0)
+	addl	$4,a0
+
+	lea	1(d1),d0
+	jmp	cp_s_arg_lp2
+
+copy_strict_basic_array_2:
+	movl	4(a0),d1
+	cmpl	$INT+2,d0
+	je	copy_int_array_2
+
+	cmpl	$BOOL+2,d0
+	je	copy_bool_array_2
+
+	addl	d1,d1
+copy_int_array_2:
+	shl	$2,d1
+	lea	-12(a3),a1
+
+	subl	d1,a1
+	movl	(a0),d0
+
+	shr	$2,d1	
+	movl	a1,(a2)
+
+	addl	$4,a2
+	movl	a1,a3
+	
+	movl	d0,(a1)
+	lea	1(a1),d0
+
+	addl	$4,a1
+	movl	d0,(a0)
+
+	addl	$4,a0
+	lea	1(d1),d0
+	jmp	cp_s_arg_lp2
+
+copy_bool_array_2:
+	add	$3,d1
+	shr	$2,d1
+	jmp	copy_int_array_2
+
+copy_string_or_array_constant:
+	movl	a0,(a2)
+	add	$4,a2
+
+	sub	$1,d1
+	jae	copy_lp2
+	ret
+
+end_copy1:
+#ifdef FINALIZERS
+	movl	$finalizer_list,a0
+	movl	$free_finalizer_list,a1
+	movl	finalizer_list,a2
+
+determine_free_finalizers_after_copy:
+	movl	(a2),d0
+	testb	$1,d0b
+	je	finalizer_not_used_after_copy
+
+	movl	4(a2),a2
+	subl	$1,d0
+	movl	d0,(a0)
+	lea	4(d0),a0
+	jmp	determine_free_finalizers_after_copy
+
+finalizer_not_used_after_copy:
+	cmpl	$__Nil-4,a2
+	je	end_finalizers_after_copy
+
+	movl	a2,(a1)
+	lea	4(a2),a1
+	movl	4(a2),a2
+	jmp	determine_free_finalizers_after_copy	
+
+end_finalizers_after_copy:
+	movl	a2,(a0)
+	movl	a2,(a1)
+#endif
+
+	lea	-32(a3),a1
+
+	movl	a4,a2
+	movl	a4_copy_sp_offset(sp),a4
+	lea	44(sp),sp
+
+	movl	a2,free_heap_offset(a4)
+	movl	a3,heap_end_after_gc_offset(a4)
+	movl	a1,end_heap_offset(a4)
diff --git a/thread/ifileIO3.s b/thread/ifileIO3.s
new file mode 100644
index 0000000..5027477
--- /dev/null
+++ b/thread/ifileIO3.s
@@ -0,0 +1,738 @@
+
+#define d0 %eax
+#define d1 %ebx
+#define a0 %ecx
+#define a1 %edx
+#define a2 %ebp
+#define a3 %esi
+#define a4 %edi
+#define a5 %esp
+#define sp %esp
+
+// # saved registers: %ebx %esi %edi %ebp
+// #                   d1   a3   a4   a2
+
+	.data
+#if defined (DOS) || defined (_WINDOWS_) || defined (ELF)
+	.align	8
+#else
+	.align	3
+#endif
+
+tmp_real:	.double	0
+freadstring_error:
+	.ascii	"Error in freadsubstring parameters."
+	.byte	10,0
+	.byte	0,0,0
+fwritestring_error:
+	.ascii	"Error in fwritesubstring parameters."
+	.byte	10,0
+	.byte	0,0
+	.text
+
+	.globl	stdioF
+	.globl	stderrF
+	.globl	openF
+	.globl	closeF
+	.globl	reopenF
+	.globl	readFC
+	.globl	readFI
+	.globl	readFR
+	.globl	readFS
+	.globl	readFString
+	.globl	readLineF
+	.globl	writeFC
+	.globl	writeFI
+	.globl	writeFR
+	.globl	writeFS
+	.globl	writeFString
+	.globl	endF
+	.globl	errorF
+	.globl	positionF
+	.globl	seekF
+	.globl	shareF
+#ifndef LINUX
+	.globl	flushF
+#endif	
+	.globl	openSF
+	.globl	readSFC
+	.globl	readSFI
+	.globl	readSFR
+	.globl	readSFS
+	.globl	readLineSF
+	.globl	endSF
+	.globl	positionSF
+	.globl	seekSF
+
+// # imports
+
+	.globl	@open_file
+	.globl	@open_stdio
+	.globl	@open_stderr
+	.globl	@re_open_file
+	.globl	@close_file
+	.globl	@file_read_char
+	.globl	@file_read_int
+	.globl	@file_read_real
+	.globl	@file_read_characters
+	.globl	@file_read_line
+	.globl	@file_write_char
+	.globl	@file_write_int
+	.globl	@file_write_real
+	.globl	@file_write_characters
+	.globl	@file_end
+	.globl	@file_error
+	.globl	@file_position
+	.globl	@file_seek
+	.globl	@file_share
+#ifndef LINUX
+	.globl	@flush_file_buffer
+#endif
+	.globl	@open_s_file
+	.globl	@file_read_s_char
+	.globl	@file_read_s_int
+	.globl	@file_read_s_real
+	.globl	@file_read_s_string
+	.globl	@file_read_s_line
+	.globl	@file_s_end
+	.globl	@file_s_position
+	.globl	@file_s_seek
+
+	.globl	collect_0
+	.globl	collect_1
+
+	.globl	__STRING__
+
+stdioF:	call	@open_stdio
+	movl	d0,d1
+	movl	$-1,d0
+	ret
+
+stderrF:	call	@open_stderr
+	movl	d0,d1
+	movl	$-1,d0
+	ret
+
+openF:	pushl	d0
+	addl	$4,a0
+	pushl	a0
+	call	@open_file
+	addl	$8,sp
+
+	xorl	d1,d1
+	testl	d0,d0
+	setns	%bl
+	movl	(sp),a2
+	movl	$-1,(sp)
+	jmp	*a2
+
+closeF:	pushl	d1
+	call	@close_file
+	addl	$4,sp
+	ret
+
+reopenF:
+// #	popl	d0
+// #	pushl	d0
+	pushl	d1
+	call	@re_open_file
+	addl	$8,sp
+
+	xchg	d0,d1
+	
+	movl	(sp),a2
+	movl	$-1,(sp)
+	jmp	*a2
+
+readFC:
+	pushl	d1
+
+	pushl	d1
+	call	@file_read_char
+	addl	$4,sp
+
+	movl	4(sp),a2
+	movl	$-1,4(sp)
+
+	cmpl	$-1,d0
+	je	readFC_eof
+
+	movl	$1,d1
+	jmp	*a2
+
+readFC_eof:
+	xorl	d0,d0
+	xorl	d1,d1
+	jmp	*a2
+
+readFI:
+	pushl	d1
+
+	subl	$8,sp
+	lea	4(sp),a2
+	movl	a2,(sp)
+	pushl	d1
+	call	@file_read_int
+	addl	$8,sp
+
+	movl	d0,d1
+	popl	d0
+
+	movl	4(sp),a2
+	movl	$-1,4(sp)
+	jmp	*a2
+
+readFR:
+	pushl	$tmp_real
+	pushl	d1
+	finit
+	call	@file_read_real
+	addl	$8,sp
+
+	fldl	tmp_real
+	fstp	%st(1)
+	
+	xchg	d0,d1
+
+	movl	(sp),a2
+	movl	$-1,(sp)	
+	jmp	*a2
+
+readFString:
+	movl	4(a0),a2
+	cmpl	a2,d1
+	jae	readFString_error
+
+	subl	d1,a2
+	cmpl	a2,d0
+	ja	readFString_error
+
+	movl	(sp),a1
+	pushl	a0
+
+	pushl	d0
+	movl	sp,a2
+	lea	8(a0,d1),a0
+
+	pushl	a0
+	pushl	a2
+	pushl	a1
+	call	@file_read_characters
+	addl	$12+4,sp
+
+	popl	a0
+	
+	movl	d0,d1
+	popl	d0
+	
+	addl	$4,sp
+	popl	a2
+	pushl	$-1
+	jmp	*a2
+
+readFString_error:
+	movl	$freadstring_error,a2
+	jmp	print_error
+
+readFS:	popl	a1
+	movl	(a4),a2
+	lea	3(a1),d0
+	andl	$-4,d0
+	lea	-32+8(a2,d0),d0
+	cmpl	4(a4),d0
+	ja	readFS_gc
+readFS_r_gc:
+	movl	$__STRING__+2,(a2)
+
+	lea	8(a2),d0
+	addl	$4,a2
+
+	pushl	d0
+	movl	a1,(a2)
+	pushl	a2	
+	pushl	d1
+	call	@file_read_characters
+	addl	$12,sp	
+
+readFS_end:
+	lea	-4(a2),a0
+
+	addl	$3,d0
+	andl	$-4,d0
+	lea	4(a2,d0),a2
+	movl	a2,(a4)
+
+	movl	$-1,d0
+	ret
+
+readFS_gc:	pushl	a1
+	movl	d0,a2
+	call	collect_0l
+	popl	a1
+	jmp	readFS_r_gc
+
+readLineF:
+	movl	(a4),a2
+	lea	-32+(4*(32+2))(a2),d0
+	cmpl	4(a4),d0
+	ja	readLineF_gc
+
+readLineF_r_gc:
+	movl	$__STRING__+2,(a2)
+	lea	8(a2),a0
+	addl	$4,a2
+
+	pushl	a0
+	movl	4(a4),a1
+	addl	$32-4,a1
+	subl	a2,a1
+	pushl	a1
+	pushl	d1
+	call	@file_read_line
+	addl	$12,sp
+
+	movl	d0,(a2)
+
+	testl	d0,d0
+	jns	readFS_end
+
+	lea	-4(a2),a0
+
+readLineF_again:
+	movl	4(a4),a1
+	addl	$32,a1
+	lea	-8(a1),d0
+	subl	a0,d0
+	movl	d0,4(a0)
+	movl	a1,(a4)
+
+	lea	-32+4*(32+2)(a1,d0),a2
+	call	collect_1l
+
+	movl	4(a0),d0
+	lea	8(a0),a1
+	
+	pushl	a2
+
+	movl	$__STRING__+2,(a2)
+
+	lea	3(d0),a0
+	shr	$2,a0
+
+	movl	d0,4(a2)
+	addl	$8,a2
+	jmp	st_copy_string1
+
+copy_st_lp1:
+	movl	(a1),d0
+	addl	$4,a1
+	movl	d0,(a2)
+	addl	$4,a2
+st_copy_string1:
+	subl	$1,a0
+	jnc	copy_st_lp1
+
+	pushl	a2
+	movl	4(a4),d0
+	addl	$32,d0
+	subl	a2,d0
+	pushl	d0
+	pushl	d1
+	call	@file_read_line
+	addl	$12,sp
+
+	popl	a0
+
+	testl	d0,d0
+	js	readLineF_again
+
+	addl	d0,4(a0)
+	addl	$3,d0
+	andl	$-4,d0
+	addl	d0,a2
+	movl	a2,(a4)
+
+	movl	$-1,d0
+	ret
+
+readLineF_gc:
+	movl	d0,a2
+	call	collect_0l
+	jmp	readLineF_r_gc
+
+writeFC:
+	movl	d0,(sp)
+	pushl	d1
+	movl	d0,d1
+	call	@file_write_char
+	addl	$8,sp
+
+	movl	$-1,d0
+	ret
+
+writeFI:
+	movl	d0,(sp)
+	pushl	d1
+	movl	d0,d1
+	call	@file_write_int
+	addl	$8,sp
+
+	movl	$-1,d0
+	ret
+
+writeFR:
+	pushl	d1
+	subl	$8,sp
+	fstpl	(sp)
+	finit
+ 	call	@file_write_real
+	addl	$12,sp
+
+	movl	$-1,d0
+	ret
+
+writeFS:
+	pushl	d1
+	pushl	4(a0)
+	addl	$8,a0
+	pushl	a0
+	call	@file_write_characters
+	addl	$12,sp
+	movl	$-1,d0
+	ret
+
+writeFString:
+	movl	4(a0),a2
+	cmpl	a2,d1
+	jae	writeFString_error
+
+	subl	d1,a2
+	cmpl	a2,d0
+	ja	writeFString_error
+
+	lea	8(a0,d1),a0
+	movl	(sp),d1
+
+	pushl	d0
+	pushl	a0
+	call	@file_write_characters
+	addl	$12+4,sp
+
+	movl	$-1,d0
+
+	ret
+
+writeFString_error:
+	movl	$fwritestring_error,a2
+	jmp	print_error
+
+endF:
+	pushl	d1
+	call	@file_end
+	addl	$4,sp
+
+	xchg	d0,d1
+
+	movl	(sp),a2
+	movl	$-1,(sp)
+	jmp	*a2
+
+errorF:
+	pushl	d1
+	call	@file_error
+	addl	$4,sp
+
+	xchg	d0,d1
+
+	movl	(sp),a2
+	movl	$-1,(sp)
+	jmp	*a2
+
+positionF:
+	pushl	d1
+	call	@file_position
+	addl	$4,sp
+
+	xchg	d0,d1
+
+	movl	(sp),a2
+	movl	$-1,(sp)
+	jmp	*a2
+
+seekF:
+	pushl	d1
+	call	@file_seek
+	addl	$12,sp
+
+	xchg	d0,d1
+
+	movl	(sp),a2
+	movl	$-1,(sp)
+	jmp	*a2
+
+shareF:
+	pushl	d1
+	call	@file_share
+	addl	$4,sp
+	
+	movl	$-1,d0
+	ret
+
+#ifndef LINUX
+flushF:
+	pushl	d1
+	call	@flush_file_buffer
+	movl	4(sp),a2
+	xchg	d0,d1
+	movl	$-1,4(sp)
+	movl	a2,(sp)
+	ret
+#endif
+
+openSF:	pushl	d0
+	addl	$4,a0
+	pushl	a0
+	call	@open_s_file
+	addl	$8,sp
+
+	xorl	d1,d1
+	testl	d0,d0
+	setns	%bl
+
+	movl	(sp),a2
+	movl	$0,(sp)
+	jmp	*a2
+
+readSFC:
+	pushl	d0
+	movl	sp,a2
+	pushl	a2
+	pushl	d1
+	call	@file_read_s_char
+	addl	$8,sp
+
+	popl	a0
+	popl	a2
+
+	pushl	a0
+	pushl	d1
+
+	cmpl	$-1,d0
+	je	readSFC_eof
+
+	movl	$1,d1
+	jmp	*a2
+
+readSFC_eof:
+	xorl	d0,d0
+	xorl	d1,d1
+	jmp	*a2
+
+readSFI:
+	pushl	d0
+	movl	sp,a2
+	subl	$4,sp
+	pushl	a2
+	subl	$4,a2
+	pushl	a2
+	pushl	d1
+	call	@file_read_s_int
+	addl	$12,sp
+
+	popl	a0
+	popl	a1
+	popl	a2
+
+	pushl	a1
+	pushl	d1
+	movl	d0,d1
+	movl	a0,d0
+	jmp	*a2
+
+readSFR:
+	pushl	d0
+	movl	sp,a2
+	pushl	a2
+	pushl	$tmp_real
+	pushl	d1
+	finit
+	call	@file_read_s_real
+	addl	$12,sp
+
+	fldl	tmp_real
+	xchg	d0,d1
+	fstp	%st(1)
+
+	popl	a0
+	movl	(sp),a2
+	movl	a0,(sp)
+	jmp	*a2
+
+readSFS:
+	popl	a1
+	movl	(a4),a2
+	lea	3(a1),a0
+	andl	$-4,a0
+	lea	-32+8(a2,a0),a0
+	cmpl	4(a4),a0
+	ja	readSFS_gc
+
+readSFS_r_gc:
+	movl	$__STRING__+2,(a2)
+	addl	$4,a2
+
+	pushl	d0
+	movl	sp,a0
+	pushl	a0
+	pushl	a2
+	pushl	a1
+	pushl	d1
+	call	@file_read_s_string
+	addl	$16,sp
+
+readSFS_end:
+	lea	-4(a2),a0
+
+	addl	$3,d0
+	andl	$-4,d0
+	lea	4(a2,d0),a2
+	movl	a2,(a4)
+
+	popl	d0
+	ret
+
+readSFS_gc:
+	pushl	a1
+	movl	a0,a2
+	call	collect_0l
+	popl	a1
+	jmp	readSFS_r_gc
+
+readLineSF:
+	movl	(a4),a2
+	lea	-32+(4*(32+2))(a2),a1
+	cmpl	4(a4),a1
+	ja	readLineSF_gc
+
+readLineSF_r_gc:
+	movl	$__STRING__+2,(a2)
+	lea	8(a2),a0
+	addl	$4,a2
+
+	pushl	d0
+	movl	sp,a1
+	pushl	a1
+	pushl	a0
+	movl	4(a2),a1
+	addl	$32-4,a1
+	subl	a2,a1
+	pushl	a1
+	pushl	d1
+	call	@file_read_s_line
+	addl	$16,sp
+
+	movl	d0,(a2)
+
+	testl	d0,d0
+	jns	readSFS_end
+
+	lea	-4(a2),a0
+
+readLineSF_again:
+	movl	4(a4),a1
+	addl	$32,a1
+	lea	-8(a1),d0
+	subl	a0,d0
+	movl	d0,(a2)
+	movl	a1,(a4)
+
+	lea	-32+4*(32+2)(a1,d0),a2
+	call	collect_1l
+
+	movl	4(a0),d0
+	lea	8(a0),a1
+
+	pushl	a2
+
+	movl	$__STRING__+2,(a2)
+
+	lea	3(d0),a0
+	shr	$2,a0
+
+	movl	d0,4(a2)
+	addl	$8,a2
+	jmp	st_copy_string2
+
+copy_st_lp2:
+	movl	(a1),d0
+	addl	$4,a1
+	movl	d0,(a2)
+	addl	$4,a2
+st_copy_string2:
+	subl	$1,a0
+	jnc	copy_st_lp2
+
+	lea	4(sp),d0
+	pushl	d0
+	pushl	a2
+	movl	4(a4),d0
+	addl	$32,d0
+	subl	a2,d0
+	pushl	d0
+	pushl	d1
+	call	@file_read_s_line
+	addl	$16,sp
+
+	popl	a0
+
+	testl	d0,d0
+	js	readLineSF_again
+	
+	addl	d0,4(a0)
+	addl	$3,d0
+	andl	$-4,d0
+	addl	d0,a2
+	movl	a2,(a4)
+
+	popl	d0
+	ret
+
+readLineSF_gc:
+	movl	a1,a2
+	call	collect_0l
+	jmp	readLineSF_r_gc
+
+endSF:
+	pushl	d0
+	pushl	d1
+	call	@file_s_end
+	addl	$8,sp
+	ret
+
+positionSF:
+	pushl	d0
+	pushl	d1
+	call	@file_s_position
+	addl	$8,sp
+	ret
+
+seekSF:
+	popl	a1
+	popl	a0
+
+	pushl	d0
+	movl	sp,a2
+	pushl	a2
+	pushl	a0
+	pushl	a1
+	pushl	d1
+	call	@file_s_seek
+	addl	$16,sp
+
+	popl	a0
+
+	xchg	d0,d1
+
+	movl	(sp),a2
+	movl	a0,(sp)
+	jmp	*a2
diff --git a/thread/imark.s b/thread/imark.s
new file mode 100644
index 0000000..5db23ec
--- /dev/null
+++ b/thread/imark.s
@@ -0,0 +1,1927 @@
+
+#define d0 %eax
+#define d1 %ebx
+#define a0 %ecx
+#define a1 %edx
+#define a2 %ebp
+#define a3 %esi
+#define a4 %edi
+#define sp %esp
+
+	movl	heap_vector_offset(a4),d0
+	shrl	$2,d0
+	movl	d0,heap_vector_d4_offset(a4)
+
+#undef MARK_USING_REVERSAL
+
+	movl	heap_size_33_offset(a4),d0
+	xorl	d1,d1
+
+	movl	d1,n_marked_words_offset(a4)
+	shl	$5,d0
+
+	movl	d0,heap_size_32_33_offset(a4)
+	movl	d1,lazy_array_list_offset(a4)
+
+	lea	-2000(sp),a3
+
+	movl	caf_list,d0
+
+	movl	a3,end_stack_offset(a4)
+
+	test	d0,d0
+	je	_end_mark_cafs
+
+_mark_cafs_lp:
+	movl	(d0),d1
+	movl	-4(d0),a2
+
+	pushl	a2
+	lea	4(d0),a2
+	lea	4(d0,d1,4),d0
+	movl	d0,end_vector_offset(a4)
+
+	call	_mark_stack_nodes
+
+	popl	d0
+	test	d0,d0
+	jne	_mark_cafs_lp
+
+_end_mark_cafs:
+	movl	stack_top_offset(a4),a3
+	movl	stack_p_offset(a4),a2
+
+	movl	a3,end_vector_offset(a4)	
+	call	_mark_stack_nodes
+
+	movl	lazy_array_list_offset(a4),a0
+
+	test	a0,a0
+	je	no_restore_arrays
+
+	push	a4
+
+restore_arrays:
+	movl	(a0),d1
+	movl	$__ARRAY__+2,(a0)
+
+	cmpl	$1,d1
+	je	restore_array_size_1
+
+	lea	(a0,d1,4),a1	
+	movl	8(a1),d0
+	test	d0,d0
+	je	restore_lazy_array
+
+	movl	d0,a2
+	push	a1
+
+	xorl	a1,a1
+	movl	d1,d0
+	movzwl	-2+2(a2),d1
+
+	div	d1
+	movl	d0,d1
+
+	pop	a1
+	movl	a2,d0
+
+restore_lazy_array:
+	movl	8(a0),a4
+	movl	4(a0),a2
+	movl	d1,4(a0)
+	movl	4(a1),a3
+	movl	d0,8(a0)
+	movl	a2,4(a1)
+	movl	a4,8(a1)
+
+	test	d0,d0
+	je	no_reorder_array
+
+	movzwl	-2(d0),a1
+	subl	$256,a1
+	movzwl	-2+2(d0),a2
+	cmpl	a1,a2
+	je	no_reorder_array
+
+	addl	$12,a0
+	imull	a1,d1
+	movl	a1,d0
+	lea	(a0,d1,4),a1
+	movl	a2,d1
+	subl	a2,d0
+
+	call	reorder	
+
+no_reorder_array:
+	movl	a3,a0
+	testl	a0,a0
+	jne	restore_arrays
+
+	jmp	end_restore_arrays
+
+restore_array_size_1:
+	movl	4(a0),a2
+	movl	8(a0),a1
+	movl	d1,4(a0)
+	movl	12(a0),d0	
+	movl	a2,12(a0)
+	movl	d0,8(a0)
+
+	movl	a1,a0
+	testl	a0,a0
+	jne	restore_arrays
+
+end_restore_arrays:
+	pop	a4
+
+no_restore_arrays:
+
+#ifdef FINALIZERS
+	movl	$finalizer_list,a0
+	movl	$free_finalizer_list,a1
+
+	movl	(a0),a2
+determine_free_finalizers_after_mark:
+	cmpl	$__Nil-4,a2
+	je	end_finalizers_after_mark
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a2,d1
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+	movl	bit_set_table(d0),a3
+	testl	(,d1,4),a3
+	je	finalizer_not_used_after_mark
+
+	lea	4(a2),a0
+	movl	4(a2),a2
+	jmp	determine_free_finalizers_after_mark
+
+finalizer_not_used_after_mark:
+	movl	a2,(a1)
+	lea	4(a2),a1
+
+	movl	4(a2),a2
+	movl	a2,(a0)
+	jmp	determine_free_finalizers_after_mark
+
+end_finalizers_after_mark:
+	movl	a2,(a1)
+#endif
+
+	call	add_garbage_collect_time
+
+#ifndef ADJUST_HEAP_SIZE
+	movl	heap_size_33_offset(a4),d0
+	shl	$3,d0
+#else
+	movl	bit_vector_size_offset(a4),d0
+	movl	d0,a3
+	shl	$2,a3
+	
+	push	a1
+	push	d0
+
+	movl	n_allocated_words_offset(a4),d0
+	addl	n_marked_words_offset(a4),d0
+	shl	$2,d0
+
+	mull	@heap_size_multiple
+	shrd	$8,a1,d0
+	shrl	$8,a1
+
+	movl	d0,d1
+	testl	a1,a1
+	
+	pop	d0
+	pop	a1
+	
+	je	not_largest_heap
+	
+	movl	heap_size_33_offset(a4),d1
+	shl	$5,d1
+
+not_largest_heap:
+	cmpl	a3,d1
+	jbe	no_larger_heap
+
+	movl	heap_size_33_offset(a4),a3
+	shl	$5,a3
+	cmpl	a3,d1
+	jbe	not_larger_then_heap
+	movl	a3,d1
+not_larger_then_heap:
+	movl	d1,d0
+	shr	$2,d0
+	movl	d0,bit_vector_size_offset(a4)
+no_larger_heap:
+#endif
+	movl	d0,a2
+
+	movl	heap_vector_offset(a4),a3
+
+	shrl	$5,a2
+
+	testb	$31,d0b
+	je	no_extra_word
+	movl	$0,(a3,a2,4)
+no_extra_word:
+
+	subl	n_marked_words_offset(a4),d0
+	shl	$2,d0
+	movl	d0,n_last_heap_free_bytes_offset(a4)
+
+	testl	$2,@flags
+	je	_no_heap_use_message2
+
+	pushl	$marked_gc_string_1
+	call	@ew_print_string
+	addl	$4,sp
+
+	movl	n_marked_words_offset(a4),d0
+	shll	$2,d0
+	pushl	d0
+	call	@ew_print_int
+	addl	$4,sp
+
+	pushl	$heap_use_after_gc_string_2
+	call	@ew_print_string
+	addl	$4,sp
+
+_no_heap_use_message2:
+
+#ifdef FINALIZERS
+	call	call_finalizers
+#endif
+
+	movl	n_allocated_words_offset(a4),a3
+	xorl	d1,d1
+
+	movl	heap_vector_offset(a4),a0
+	movl	d1,n_free_words_after_mark_offset(a4)
+
+_scan_bits:
+	cmpl	(a0),d1
+	je	_zero_bits
+	movl	d1,(a0)
+	addl	$4,a0
+	subl	$1,a2
+	jne	_scan_bits
+
+	jmp	_end_scan
+
+_zero_bits:
+	lea	4(a0),a1
+	addl	$4,a0
+	subl	$1,a2
+	jne	_skip_zero_bits_lp1
+	jmp	_end_bits
+
+_skip_zero_bits_lp:
+	test	d0,d0
+	jne	_end_zero_bits
+_skip_zero_bits_lp1:
+	movl	(a0),d0
+	addl	$4,a0
+	subl	$1,a2
+	jne	_skip_zero_bits_lp
+
+	test	d0,d0
+	je	_end_bits
+	movl	a0,d0
+	movl	d1,-4(a0)
+	subl	a1,d0
+	jmp	_end_bits2	
+
+_end_zero_bits:
+	movl	a0,d0
+	subl	a1,d0
+	shl	$3,d0
+	addl	d0,n_free_words_after_mark_offset(a4)
+	movl	d1,-4(a0)
+
+	cmpl	a3,d0
+	jb	_scan_bits
+
+_found_free_memory:
+	movl	a2,bit_counter_offset(a4)
+	movl	a0,bit_vector_p_offset(a4)
+
+	lea	-4(a1),d1
+	subl	heap_vector_offset(a4),d1
+	shl	$5,d1
+
+	movl	heap_p3_offset(a4),a2
+	addl	d1,a2
+	movl	a2,free_heap_offset(a4)
+
+	movl	stack_top_offset(a4),a3
+
+	lea	(a2,d0,4),d1
+	movl	d1,heap_end_after_gc_offset(a4)
+	subl	$32,d1
+	movl	d1,end_heap_offset(a4)
+
+	pop	d1
+	pop	d0
+	ret
+
+_end_bits:
+	movl	a0,d0
+	subl	a1,d0
+	addl	$4,d0
+_end_bits2:
+	shl	$3,d0
+	addl	d0,n_free_words_after_mark_offset(a4)
+	cmpl	a3,d0
+	jae	_found_free_memory
+
+_end_scan:
+	movl	a2,bit_counter_offset(a4)
+	jmp	compact_gc
+
+/ a2: pointer to stack element
+/ a4: heap_vector
+/ d0,d1,a0,a1,a3: free
+
+_mark_stack_nodes:
+	cmpl	end_vector_offset(a4),a2
+	je	_end_mark_nodes
+
+_mark_stack_nodes_:
+	movl	(a2),a0
+	movl	neg_heap_p3_offset(a4),d1
+	movl	heap_vector_d4_offset(a4),d0
+
+	addl	$4,a2
+
+	addl	a0,d1
+	cmpl	heap_size_32_33_offset(a4),d1
+	jnc	_mark_stack_nodes
+
+	movl	$31*4,a1
+	andl	d1,a1	
+	shrl	$7,d1
+	addl	d0,d1
+
+	movl	bit_set_table(a1),a3
+	testl	(,d1,4),a3
+	jne	_mark_stack_nodes
+
+	pushl	a2
+
+#ifdef MARK_USING_REVERSAL
+	movl	$1,a3
+	jmp	__mark_node
+
+__end_mark_using_reversal:
+	popl	a2
+	movl	a0,-4(a2)
+	jmp	_mark_stack_nodes
+#else
+	pushl	$0
+
+	jmp	_mark_arguments
+
+_mark_hnf_2:
+	cmpl	$0x20000000,a3
+	jbe	fits_in_word_6
+	orl	$1,4(,d1,4)
+fits_in_word_6:
+	addl	$3,n_marked_words_offset(a4)
+
+_mark_record_2_c:
+	movl	4(a0),d1
+	push	d1
+
+	cmpl	end_stack_offset(a4),sp
+	jb	__mark_using_reversal
+
+_mark_node2:
+_shared_argument_part:
+	movl	(a0),a0
+
+_mark_node:
+	movl	neg_heap_p3_offset(a4),d1
+	movl	heap_vector_d4_offset(a4),d0
+
+	addl	a0,d1
+	cmpl	heap_size_32_33_offset(a4),d1
+	jnc	_mark_next_node
+
+	movl	$31*4,a1
+	andl	d1,a1	
+	shrl	$7,d1
+	addl	d0,d1
+	movl	bit_set_table(a1),a3		
+	testl	(,d1,4),a3
+	jne	_mark_next_node
+
+_mark_arguments:
+	movl	(a0),d0
+	test	$2,d0
+	je	_mark_lazy_node
+	
+	movzwl	-2(d0),a2
+	test	a2,a2
+	je	_mark_hnf_0
+
+	orl	a3,(,d1,4)
+	addl	$4,a0
+
+	cmpl	$256,a2
+	jae	_mark_record
+
+	subl	$2,a2
+	je	_mark_hnf_2
+	jb	_mark_hnf_1
+
+_mark_hnf_3:
+	movl	4(a0),a1
+
+	cmpl	$0x20000000,a3
+	jbe	fits_in_word_1
+	orl	$1,4(,d1,4)
+fits_in_word_1:	
+
+	movl	neg_heap_p3_offset(a4),d1
+	movl	heap_vector_d4_offset(a4),a3
+	addl	a1,d1
+
+	addl	$3,n_marked_words_offset(a4)
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	a3,d1
+
+	movl	bit_set_table(d0),a3
+	testl	(,d1,4),a3
+	jne	_shared_argument_part
+
+_no_shared_argument_part:
+	orl	a3,(,d1,4)
+	addl	$1,a2
+
+	addl	a2,n_marked_words_offset(a4)
+	lea	(d0,a2,4),d0
+	lea	-4(a1,a2,4),a1
+
+	cmpl	$32*4,d0
+	jbe	fits_in_word_2
+	orl	$1,4(,d1,4)
+fits_in_word_2:
+
+	movl	(a1),d1
+	subl	$2,a2
+	pushl	d1
+
+_push_hnf_args:
+	movl	-4(a1),d1
+	subl	$4,a1
+	pushl	d1
+	subl	$1,a2
+	jge	_push_hnf_args
+
+	cmpl	end_stack_offset(a4),sp
+	jae	_mark_node2
+
+	jmp	__mark_using_reversal
+
+_mark_hnf_1:
+	cmpl	$0x40000000,a3
+	jbe	fits_in_word_4
+	orl	$1,4(,d1,4)
+fits_in_word_4:
+	addl	$2,n_marked_words_offset(a4)
+	movl	(a0),a0
+	jmp	_mark_node
+
+_mark_lazy_node_1:
+	addl	$4,a0
+	orl	a3,(,d1,4)
+	cmpl	$0x20000000,a3
+	jbe	fits_in_word_3
+	orl	$1,4(,d1,4)
+fits_in_word_3:
+	addl	$3,n_marked_words_offset(a4)
+
+	cmpl	$1,a2
+	je	_mark_node2
+
+_mark_selector_node_1:
+	cmpl	$-2,a2
+	movl	(a0),a1
+	je	_mark_indirection_node
+
+	movl	neg_heap_p3_offset(a4),d1
+	addl	a1,d1
+
+	movl	$31*4,a3
+	andl	d1,a3
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	cmpl	$-3,a2
+
+	movl	bit_set_table(a3),a3
+	jle	_mark_record_selector_node_1
+
+	testl	(,d1,4),a3
+	jne	_mark_node3
+
+	movl	(a1),a2
+	testl	$2,a2
+	je	_mark_node3
+
+	cmpw	$2,-2(a2)
+	jbe	_small_tuple_or_record
+
+_large_tuple_or_record:
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(a2),a2
+	testl	(,d1,4),a2
+	jne	_mark_node3
+
+	movl	-8(d0),d0
+	movl	$__indirection,-4(a0)
+	movl	a0,a2
+
+	movzwl	4(d0),d0
+	cmpl	$8,d0
+	jl	_mark_tuple_selector_node_1
+	movl	8(a1),a1
+	je	_mark_tuple_selector_node_2
+	movl	-12(a1,d0),a0
+	movl	a0,(a2)
+	jmp	_mark_node
+
+_mark_tuple_selector_node_2:
+	movl	(a1),a0
+	movl	a0,(a2)
+	jmp	_mark_node
+
+_small_tuple_or_record:
+	movl	-8(d0),d0
+	movl	$__indirection,-4(a0)
+	movl	a0,a2
+
+	movzwl	4(d0),d0
+_mark_tuple_selector_node_1:
+	movl	(a1,d0),a0
+	movl	a0,(a2)
+	jmp	_mark_node
+
+_mark_record_selector_node_1:
+	je	_mark_strict_record_selector_node_1
+
+	testl	(,d1,4),a3
+	jne	_mark_node3
+
+	movl	(a1),a2
+	testl	$2,a2
+	je	_mark_node3
+
+	cmpw	$258,-2(a2)
+	jbe	_small_tuple_or_record
+
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(a2),a2
+	testl	(,d1,4),a2
+	jne	_mark_node3
+
+	movl	-8(d0),d0
+	movl	$__indirection,-4(a0)
+	movl	a0,a2
+
+	movzwl	4(d0),d0
+	cmpl	$8,d0
+	jle	_mark_record_selector_node_2
+	movl	8(a1),a1
+	subl	$12,d0
+_mark_record_selector_node_2:
+	movl	(a1,d0),a0
+
+	movl	a0,(a2)
+	jmp	_mark_node
+
+_mark_strict_record_selector_node_1:
+	testl	(,d1,4),a3
+	jne	_mark_node3
+
+	movl	(a1),a2
+	testl	$2,a2
+	je	_mark_node3
+
+	cmpw	$258,-2(a2)
+	jbe	_select_from_small_record
+
+	movl	8(a1),d1
+	addl	neg_heap_p3_offset(a4),d1	
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(a2),a2
+	testl	(,d1,4),a2
+	jne	_mark_node3
+	
+_select_from_small_record:
+	movl	-8(d0),d0
+
+	subl	$4,a0
+	
+	movzwl	4(d0),d1
+	cmpl	$8,d1
+	jle	_mark_strict_record_selector_node_2
+	addl	8(a1),d1
+	movl	-12(d1),d1
+	jmp	_mark_strict_record_selector_node_3
+_mark_strict_record_selector_node_2:
+	movl	(a1,d1),d1
+_mark_strict_record_selector_node_3:
+	movl	d1,4(a0)
+
+	movzwl	6(d0),d1
+	testl	d1,d1
+	je	_mark_strict_record_selector_node_5
+	cmpl	$8,d1
+	jle	_mark_strict_record_selector_node_4
+	movl	8(a1),a1
+	subl	$12,d1
+_mark_strict_record_selector_node_4:
+	movl	(a1,d1),d1
+	movl	d1,8(a0)
+_mark_strict_record_selector_node_5:
+
+	movl	-4(d0),d0
+	movl	d0,(a0)
+	jmp	_mark_next_node
+
+_mark_indirection_node:
+_mark_node3:
+	movl	a1,a0
+	jmp	_mark_node
+
+_mark_next_node:
+	popl	a0
+	test	a0,a0
+	jne	_mark_node
+
+	popl	a2
+	cmpl	end_vector_offset(a4),a2
+	jne	_mark_stack_nodes_
+
+_end_mark_nodes:
+	ret
+
+_mark_lazy_node:
+	movl	-4(d0),a2
+	test	a2,a2
+	je	_mark_real_or_file
+
+	cmpl	$1,a2
+	jle	_mark_lazy_node_1
+
+	cmpl	$257,a2
+	jge	_mark_closure_with_unboxed_arguments
+	incl	a2
+	orl	a3,(,d1,4)
+
+	addl	a2,n_marked_words_offset(a4)
+	lea	(a1,a2,4),a1
+	lea	(a0,a2,4),a0
+
+	cmpl	$32*4,a1
+	jbe	fits_in_word_7
+	orl	$1,4(,d1,4)
+fits_in_word_7:
+	subl	$3,a2
+_push_lazy_args:
+	movl	-4(a0),d1
+	subl	$4,a0
+	push	d1
+	subl	$1,a2
+	jge	_push_lazy_args
+
+	subl	$4,a0
+
+	cmpl	end_stack_offset(a4),sp
+	jae	_mark_node2
+	
+	jmp	__mark_using_reversal
+
+_mark_closure_with_unboxed_arguments:
+	je	_mark_real_or_file
+
+	movl	a2,d0
+	andl	$255,a2
+
+	shrl	$8,d0
+	addl	$1,a2
+
+	orl	a3,(,d1,4)
+	addl	a2,n_marked_words_offset(a4)
+	lea	(a1,a2,4),a1
+
+	subl	d0,a2
+
+	cmpl	$32*4,a1
+	jbe	fits_in_word_7_
+	orl	$1,4(,d1,4)
+fits_in_word_7_:
+	subl	$2,a2
+	jl	_mark_next_node
+
+	lea	8(a0,a2,4),a0
+	jne	_push_lazy_args
+
+_mark_closure_with_one_boxed_argument:
+	movl	-4(a0),a0
+	jmp	_mark_node
+
+_mark_hnf_0:
+	cmpl	$INT+2,d0
+	jb	_mark_real_file_or_string
+
+	orl	a3,(,d1,4)
+
+	cmpl	$CHAR+2,d0
+	ja	_mark_normal_hnf_0
+
+_mark_bool:
+	addl	$2,n_marked_words_offset(a4)
+
+	cmpl	$0x40000000,a3
+	jbe	_mark_next_node
+
+	orl	$1,4(,d1,4)
+	jmp	_mark_next_node
+
+_mark_normal_hnf_0:
+	incl	n_marked_words_offset(a4)
+	jmp	_mark_next_node
+
+_mark_real_file_or_string:
+	cmpl	$__STRING__+2,d0
+	jbe	_mark_string_or_array
+
+_mark_real_or_file:
+	orl	a3,(,d1,4)
+	addl	$3,n_marked_words_offset(a4)
+
+	cmpl	$0x20000000,a3
+	jbe	_mark_next_node
+
+	orl	$1,4(,d1,4)
+	jmp	_mark_next_node
+
+_mark_record:
+	subl	$258,a2
+	je	_mark_record_2
+	jl	_mark_record_1
+
+_mark_record_3:
+	addl	$3,n_marked_words_offset(a4)
+
+	cmpl	$0x20000000,a3
+	jbe	fits_in_word_13
+	orl	$1,4(,d1,4)
+fits_in_word_13:
+	movl	4(a0),a1
+	movzwl	-2+2(d0),d1
+
+	movl	neg_heap_p3_offset(a4),d0
+	addl	a1,d0
+
+	movl	$31*4,a3
+	andl	d0,a3
+	shrl	$7,d0
+	addl	heap_vector_d4_offset(a4),d0
+
+	subl	$1,d1
+
+	movl	bit_set_table(a3),a1
+	jb	_mark_record_3_bb
+
+	testl	(,d0,4),a1
+	jne	_mark_node2
+
+	addl	$1,a2
+	orl	a1,(,d0,4)
+	addl	a2,n_marked_words_offset(a4)
+	lea	(a3,a2,4),a3
+
+	cmpl	$32*4,a3
+	jbe	_push_record_arguments
+	orl	$1,4(,d0,4)
+_push_record_arguments:
+	movl	4(a0),a1
+	movl	d1,a2
+	shl	$2,d1
+	addl	d1,a1
+	subl	$1,a2
+	jge	_push_hnf_args
+
+	jmp	_mark_node2
+
+_mark_record_3_bb:
+	testl	(,d0,4),a1
+	jne	_mark_next_node
+
+	addl	$1,a2
+	orl	a1,(,d0,4)
+	addl	a2,n_marked_words_offset(a4)
+	lea	(a3,a2,4),a3
+	
+	cmpl	$32*4,a3
+	jbe	_mark_next_node
+
+	orl	$1,4(,d0,4)
+	jmp	_mark_next_node
+
+_mark_record_2:
+	cmpl	$0x20000000,a3
+	jbe	fits_in_word_12
+	orl	$1,4(,d1,4)
+fits_in_word_12:
+	addl	$3,n_marked_words_offset(a4)
+
+	cmpw	$1,-2+2(d0)
+	ja	_mark_record_2_c
+	je	_mark_node2
+	jmp	_mark_next_node
+
+_mark_record_1:
+	cmpw	$0,-2+2(d0)
+	jne	_mark_hnf_1
+
+	jmp	_mark_bool
+
+_mark_string_or_array:
+	je	_mark_string_
+
+_mark_array:
+	movl	8(a0),a2
+	test	a2,a2
+	je	_mark_lazy_array
+
+	movzwl	-2(a2),d0
+
+	testl	d0,d0
+	je	_mark_strict_basic_array
+
+	movzwl	-2+2(a2),a2
+	testl	a2,a2
+	je	_mark_b_record_array
+
+	cmpl	end_stack_offset(a4),sp
+	jb	_mark_array_using_reversal
+
+	subl	$256,d0
+	cmpl	a2,d0
+	je	_mark_a_record_array
+
+_mark_ab_record_array:
+	orl	a3,(,d1,4)
+	movl	4(a0),a2
+
+	imull	a2,d0
+	addl	$3,d0
+
+	addl	d0,n_marked_words_offset(a4)
+	lea	-4(a0,d0,4),d0
+
+	addl	neg_heap_p3_offset(a4),d0
+	shrl	$7,d0
+	addl	heap_vector_d4_offset(a4),d0
+	
+	cmpl	d0,d1
+	jae	_end_set_ab_array_bits
+
+	incl	d1
+	movl	$1,a2
+	cmpl	d0,d1
+	jae	_last_ab_array_bits
+
+_mark_ab_array_lp:
+	orl	a2,(,d1,4)
+	incl	d1
+	cmpl	d0,d1
+	jb	_mark_ab_array_lp
+
+_last_ab_array_bits:
+	orl	a2,(,d1,4)
+
+_end_set_ab_array_bits:
+	movl	4(a0),d0
+	movl	8(a0),a1
+	movzwl	-2+2(a1),d1
+	movzwl	-2(a1),a1
+	shll	$2,d1
+	lea	-1024(,a1,4),a1
+	pushl	d1
+	pushl	a1
+	lea	12(a0),a2
+	pushl	end_vector_offset(a4)
+	jmp	_mark_ab_array_begin
+	
+_mark_ab_array:
+	movl	8(sp),d1
+	pushl	d0
+	pushl	a2
+	lea	(a2,d1),d0
+
+	movl	d0,end_vector_offset(a4)
+	call	_mark_stack_nodes
+
+	movl	4+8(sp),d1
+	popl	a2
+	popl	d0
+	addl	d1,a2
+_mark_ab_array_begin:
+	subl	$1,d0
+	jnc	_mark_ab_array
+
+	popl	end_vector_offset(a4)
+	addl	$8,sp
+	jmp	_mark_next_node
+
+_mark_a_record_array:
+	orl	a3,(,d1,4)
+	movl	4(a0),a2
+
+	imull	a2,d0
+	movl	d0,a1
+
+	addl	$3,d0
+
+	addl	d0,n_marked_words_offset(a4)
+	lea	-4(a0,d0,4),d0
+
+	addl	neg_heap_p3_offset(a4),d0
+	shrl	$7,d0
+	addl	heap_vector_d4_offset(a4),d0
+	
+	cmpl	d0,d1
+	jae	_end_set_a_array_bits
+
+	incl	d1
+	movl	$1,a2
+	cmpl	d0,d1
+	jae	_last_a_array_bits
+
+_mark_a_array_lp:
+	orl	a2,(,d1,4)
+	incl	d1
+	cmpl	d0,d1
+	jb	_mark_a_array_lp
+
+_last_a_array_bits:
+	orl	a2,(,d1,4)
+
+_end_set_a_array_bits:
+	lea	12(a0),a2
+	lea	12(a0,a1,4),d0
+
+	pushl	end_vector_offset(a4)
+	movl	d0,end_vector_offset(a4)
+	call	_mark_stack_nodes
+	popl	end_vector_offset(a4)
+
+	jmp	_mark_next_node
+
+_mark_lazy_array:
+	cmpl	end_stack_offset(a4),sp
+	jb	_mark_array_using_reversal
+
+	orl	a3,(,d1,4)
+	movl	4(a0),d0
+
+	movl	d0,a1
+	addl	$3,d0
+
+	addl	d0,n_marked_words_offset(a4)
+	lea	-4(a0,d0,4),d0
+
+	addl	neg_heap_p3_offset(a4),d0
+	shrl	$7,d0
+	addl	heap_vector_d4_offset(a4),d0
+	
+	cmpl	d0,d1
+	jae	_end_set_lazy_array_bits
+
+	incl	d1
+	movl	$1,a2
+	cmpl	d0,d1
+	jae	_last_lazy_array_bits
+
+_mark_lazy_array_lp:
+	orl	a2,(,d1,4)
+	incl	d1
+	cmpl	d0,d1
+	jb	_mark_lazy_array_lp
+
+_last_lazy_array_bits:
+	orl	a2,(,d1,4)
+
+_end_set_lazy_array_bits:
+	lea	12(a0),a2
+	lea	12(a0,a1,4),d0
+
+	pushl	end_vector_offset(a4)
+	movl	d0,end_vector_offset(a4)
+	call	_mark_stack_nodes
+	popl	end_vector_offset(a4)
+
+	jmp	_mark_next_node
+
+_mark_array_using_reversal:
+	pushl	$0
+	movl	$1,a3
+	jmp	__mark_node
+
+_mark_strict_basic_array:
+	movl	4(a0),d0
+	cmpl	$INT+2,a2
+	je	_mark_strict_int_array
+	cmpl	$BOOL+2,a2
+	je	_mark_strict_bool_array
+_mark_strict_real_array:
+	addl	d0,d0
+_mark_strict_int_array:
+	addl	$3,d0
+	jmp	_mark_basic_array_
+_mark_strict_bool_array:
+	addl	$12+3,d0
+	shrl	$2,d0
+	jmp	_mark_basic_array_
+
+_mark_b_record_array:
+	movl	4(a0),a2
+	subl	$256,d0
+	imull	a2,d0
+	addl	$3,d0
+	jmp	_mark_basic_array_
+
+_mark_string_:
+	movl	4(a0),d0
+	addl	$8+3,d0
+	shrl	$2,d0
+
+_mark_basic_array_:
+	orl	a3,(,d1,4)
+
+	addl	d0,n_marked_words_offset(a4)
+	lea	-4(a0,d0,4),d0
+
+	addl	neg_heap_p3_offset(a4),d0
+	shrl	$7,d0
+	addl	heap_vector_d4_offset(a4),d0
+
+	cmpl	d0,d1
+	jae	_mark_next_node
+
+	incl	d1
+	movl	$1,a2
+	cmpl	d0,d1
+	jae	_last_string_bits
+
+_mark_string_lp:
+	orl	a2,(,d1,4)
+	incl	d1
+	cmpl	d0,d1
+	jb	_mark_string_lp
+
+_last_string_bits:
+	orl	a2,(,d1,4)
+	jmp	_mark_next_node
+
+__end_mark_using_reversal:
+	popl	a1
+	test	a1,a1
+	je	_mark_next_node
+	movl	a0,(a1)
+	jmp	_mark_next_node
+#endif
+
+__mark_using_reversal:
+	pushl	a0
+	movl	$1,a3
+	movl	(a0),a0
+	jmp	__mark_node
+
+__mark_arguments:
+	movl	(a0),d0
+	test	$2,d0
+	je	__mark_lazy_node
+
+	movzwl	-2(d0),a2
+	testl	a2,a2
+	je	__mark_hnf_0
+
+	addl	$4,a0
+
+	cmpl	$256,a2
+	jae	__mark__record
+
+	subl	$2,a2
+	je	__mark_hnf_2
+	jb	__mark_hnf_1
+
+__mark_hnf_3:
+	movl	bit_set_table(a1),a1
+	addl	$3,n_marked_words_offset(a4)
+
+	orl	a1,(,d1,4)
+
+	cmpl	$0x20000000,a1
+
+	movl	heap_vector_d4_offset(a4),a1
+
+	jbe	fits__in__word__1
+	orl	$1,4(,d1,4)
+fits__in__word__1:
+	movl	4(a0),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,d0
+	andl	d1,d0
+	shrl	$7,d1
+	addl	a1,d1
+
+	movl	bit_set_table(d0),a1
+	testl	(,d1,4),a1
+	jne	__shared_argument_part
+
+__no_shared_argument_part:
+	orl	a1,(,d1,4)
+	movl	4(a0),a1
+
+	addl	$1,a2
+	movl	a3,4(a0)
+
+	addl	a2,n_marked_words_offset(a4)
+	addl	$4,a0
+
+	shl	$2,a2
+	orl	$1,(a1)
+
+	addl	a2,d0
+	addl	a2,a1
+
+	cmpl	$32*4,d0
+	jbe	fits__in__word__2
+	orl	$1,4(,d1,4)
+fits__in__word__2:
+
+	movl	-4(a1),a2
+	movl	a0,-4(a1)
+	lea	-4(a1),a3
+	movl	a2,a0
+	jmp	__mark_node
+
+__mark_hnf_1:
+	movl	bit_set_table(a1),a1
+	addl	$2,n_marked_words_offset(a4)
+	orl	a1,(,d1,4)
+	cmpl	$0x40000000,a1
+	jbe	__shared_argument_part
+	orl	$1,4(,d1,4)
+__shared_argument_part:
+	movl	(a0),a2
+	movl	a3,(a0)
+	lea	2(a0),a3
+	movl	a2,a0
+	jmp	__mark_node
+
+__mark_no_selector_2:
+	popl	d1
+__mark_no_selector_1:
+	movl	bit_set_table(a1),a1
+	addl	$3,n_marked_words_offset(a4)
+	orl	a1,(,d1,4)	
+	cmpl	$0x20000000,a1
+	jbe	__shared_argument_part
+
+	orl	$1,4(,d1,4)
+	jmp	__shared_argument_part
+
+__mark_lazy_node_1:
+	je	__mark_no_selector_1
+
+__mark_selector_node_1:
+	cmpl	$-2,a2
+	je	__mark_indirection_node
+
+	cmpl	$-3,a2
+
+	pushl	d1
+	movl	(a0),a2
+	pushl	d0
+	movl	neg_heap_p3_offset(a4),d0
+
+	jle	__mark_record_selector_node_1
+
+	addl	a2,d0
+
+	movl	d0,d1
+	andl	$31*4,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(d0),d0
+	testl	(,d1,4),d0
+	popl	d0
+	jne	__mark_no_selector_2
+
+	movl	(a2),d1
+	testb	$2,d1b
+	je	__mark_no_selector_2
+
+	cmpw	$2,-2(d1)
+	jbe	__small_tuple_or_record
+
+__large_tuple_or_record:	
+	movl	8(a2),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(a2),a2
+	testl	(,d1,4),a2
+	jne	__mark_no_selector_2
+
+	movl	-8(d0),d0
+	movl	(a0),a1
+	movl	$__indirection,-4(a0)
+	movl	a0,a2
+
+	popl	d1
+
+	movzwl	4(d0),d0
+	cmpl	$8,d0
+	jl	__mark_tuple_selector_node_1
+	movl	8(a1),a1
+	je	__mark_tuple_selector_node_2
+	subl	$12,d0
+	movl	(a1,d0),a0
+	movl	a0,(a2)
+	jmp	__mark_node
+
+__mark_tuple_selector_node_2:
+	movl	(a1),a0
+	movl	a0,(a2)
+	jmp	__mark_node
+
+__small_tuple_or_record:
+	movl	-8(d0),d0
+	movl	(a0),a1
+	movl	$__indirection,-4(a0)
+	movl	a0,a2
+
+	popl	d1
+
+	movzwl	4(d0),d0
+__mark_tuple_selector_node_1:
+	movl	(a1,d0),a0
+	movl	a0,(a2)
+	jmp	__mark_node
+
+__mark_record_selector_node_1:
+	je	__mark_strict_record_selector_node_1
+
+	addl	a2,d0
+
+	movl	d0,d1
+	andl	$31*4,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(d0),d0
+	testl	(,d1,4),d0
+	popl	d0
+	jne	__mark_no_selector_2
+
+	movl	(a2),d1
+	testb	$2,d1b
+	je	__mark_no_selector_2
+
+	cmpw	$258,-2(d1)
+	jbe	__small_record
+
+	movl	8(a2),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(a2),a2
+	testl	(,d1,4),a2
+	jne	__mark_no_selector_2
+
+__small_record:
+	movl	-8(d0),d0
+	movl	(a0),a1
+	movl	$__indirection,-4(a0)
+	movl	a0,a2
+
+	popl	d1
+
+	movzwl	4(d0),d0
+	cmpl	$8,d0
+	jle	__mark_record_selector_node_2
+	movl	8(a1),a1
+	subl	$12,d0
+__mark_record_selector_node_2:
+	movl	(a1,d0),a0
+
+	movl	a0,(a2)
+	jmp	__mark_node
+
+__mark_strict_record_selector_node_1:
+	addl	a2,d0
+
+	movl	d0,d1
+	andl	$31*4,d0
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(d0),d0
+	testl	(,d1,4),d0
+	popl	d0
+	jne	__mark_no_selector_2
+
+	movl	(a2),d1
+	testb	$2,d1b
+	je	__mark_no_selector_2
+
+	cmpw	$258,-2(d1)
+	jle	__select_from_small_record
+
+	movl	8(a2),d1
+	addl	neg_heap_p3_offset(a4),d1
+
+	movl	$31*4,a2
+	andl	d1,a2
+	shrl	$7,d1
+	addl	heap_vector_d4_offset(a4),d1
+
+	movl	bit_set_table(a2),a2
+	testl	(,d1,4),a2
+	jne	__mark_no_selector_2
+
+__select_from_small_record:
+	movl	-8(d0),d0
+	movl	(a0),a1
+	popl	d1
+	subl	$4,a0
+
+	movzwl	4(d0),d1
+	cmpl	$8,d1
+	jle	__mark_strict_record_selector_node_2
+	addl	8(a1),d1
+	movl	-12(d1),d1
+	jmp	__mark_strict_record_selector_node_3
+__mark_strict_record_selector_node_2:
+	movl	(a1,d1),d1
+__mark_strict_record_selector_node_3:
+	movl	d1,4(a0)
+	
+	movzwl	6(d0),d1
+	testl	d1,d1
+	je	__mark_strict_record_selector_node_5
+	cmpl	$8,d1
+	jle	__mark_strict_record_selector_node_4
+	movl	8(a1),a1
+	subl	$12,d1
+__mark_strict_record_selector_node_4:
+	movl	(a1,d1),d1
+	movl	d1,8(a0)
+__mark_strict_record_selector_node_5:
+
+	movl	-4(d0),d0
+	movl	d0,(a0)
+	jmp	__mark_node
+
+__mark_indirection_node:
+	movl	(a0),a0
+	jmp	__mark_node
+
+__mark_hnf_2:
+	movl	bit_set_table(a1),a1
+	addl	$3,n_marked_words_offset(a4)
+	orl	a1,(,d1,4)
+	cmpl	$0x20000000,a1
+	jbe	fits__in__word__6
+	orl	$1,4(,d1,4)
+fits__in__word__6:
+
+__mark_record_2_c:
+	movl	(a0),d0
+	movl	4(a0),a2
+	orl	$2,d0
+	movl	a3,4(a0)
+	movl	d0,(a0)
+	lea	4(a0),a3
+	movl	a2,a0
+
+__mark_node:
+	movl	neg_heap_p3_offset(a4),d1
+	movl	heap_vector_d4_offset(a4),d0
+
+	addl	a0,d1
+	cmpl	heap_size_32_33_offset(a4),d1
+	jae	__mark_next_node
+
+	movl	$31*4,a1
+	andl	d1,a1
+	shrl	$7,d1
+	addl	d0,d1
+	movl	bit_set_table(a1),a2
+	testl	(,d1,4),a2
+	je	__mark_arguments
+
+__mark_next_node:
+	testl	$3,a3
+	jne	__mark_parent
+
+	movl	-4(a3),a2
+	movl	(a3),a1
+	movl	a0,(a3)
+	movl	a1,-4(a3)
+	subl	$4,a3
+
+	movl	a2,a0
+	andl	$3,a2
+	andl	$-4,a0
+	orl	a2,a3
+	jmp	__mark_node
+
+__mark_parent:
+	movl	a3,d1
+	andl	$-4,a3
+	je	__end_mark_using_reversal
+
+	andl	$3,d1
+	movl	(a3),a2
+	movl	a0,(a3)
+
+	subl	$1,d1
+	je	__argument_part_parent
+
+	lea	-4(a3),a0
+	movl	a2,a3
+	jmp	__mark_next_node
+	
+__argument_part_parent:
+	andl	$-4,a2
+	movl	a3,a1
+	movl	-4(a2),a0
+	movl	(a2),d1
+	movl	d1,-4(a2)
+	movl	a1,(a2)
+	lea	2-4(a2),a3
+	jmp	__mark_node
+
+__mark_lazy_node:
+	movl	-4(d0),a2
+	testl	a2,a2
+	je	__mark_real_or_file
+
+	addl	$4,a0
+	cmpl	$1,a2
+	jle	__mark_lazy_node_1
+	cmpl	$257,a2
+	jge	__mark_closure_with_unboxed_arguments
+
+	addl	$1,a2
+	movl	a1,d0
+	movl	bit_set_table(a1),a1
+	addl	a2,n_marked_words_offset(a4)
+
+	lea	(d0,a2,4),d0
+	subl	$2,a2
+
+	orl	a1,(,d1,4)
+
+	cmpl	$32*4,d0
+	jbe	fits__in__word__7
+	orl	$1,4(,d1,4)
+fits__in__word__7:
+__mark_closure_with_unboxed_arguments__2:
+	lea	(a0,a2,4),a1
+	movl	(a0),d0
+	orl	$2,d0
+	movl	d0,(a0)	
+	movl	(a1),a0
+	movl	a3,(a1)
+	movl	a1,a3
+	jmp	__mark_node
+
+__mark_closure_with_unboxed_arguments:
+	je	__mark_closure_1_with_unboxed_argument
+
+	movl	bit_set_table(a1),d0
+	orl	d0,(,d1,4)
+
+	movl	a2,d0
+	andl	$255,a2
+
+	addl	$1,a2
+	shrl	$8,d0
+	addl	a2,n_marked_words_offset(a4)
+
+	lea	(a1,a2,4),a1
+	subl	d0,a2
+
+	cmpl	$32*4,a1
+	jbe	fits__in_word_7_
+	orl	$1,4(,d1,4)
+fits__in_word_7_:
+	subl	$2,a2
+	jg	__mark_closure_with_unboxed_arguments__2
+	je	__shared_argument_part
+	subl	$4,a0
+	jmp	__mark_next_node
+
+__mark_closure_1_with_unboxed_argument:
+	subl	$4,a0
+	jmp	__mark_real_or_file
+
+__mark_hnf_0:
+	cmpl	$INT+2,d0
+	jne	__no_int_3
+
+	movl	4(a0),a2
+	cmpl	$33,a2
+	jb	____small_int
+
+__mark_bool_or_small_string:
+	movl	bit_set_table(a1),a1
+	addl	$2,n_marked_words_offset(a4)
+	orl	a1,(,d1,4)
+	cmpl	$0x40000000,a1
+	jbe	__mark_next_node
+	orl	$1,4(,d1,4)
+	jmp	__mark_next_node
+
+____small_int:
+	lea	small_integers(,a2,8),a0
+	jmp	__mark_next_node
+
+__no_int_3:
+	jb	__mark_real_file_or_string
+
+ 	cmpl	$CHAR+2,d0
+ 	jne	__no_char_3
+	movzbl	4(a0),a2
+	lea	static_characters(,a2,8),a0
+	jmp	__mark_next_node
+
+__no_char_3:
+	jb	__mark_bool_or_small_string
+
+	lea	ZERO_ARITY_DESCRIPTOR_OFFSET-2(d0),a0
+	jmp	__mark_next_node
+	
+__mark_real_file_or_string:
+	cmpl	$__STRING__+2,d0
+	jbe	__mark_string_or_array
+
+__mark_real_or_file:
+	movl	bit_set_table(a1),a1
+	addl	$3,n_marked_words_offset(a4)
+
+	orl	a1,(,d1,4)
+	
+	cmpl	$0x20000000,a1
+	jbe	__mark_next_node
+
+	orl	$1,4(,d1,4)
+	jmp	__mark_next_node
+
+__mark__record:
+	subl	$258,a2
+	je	__mark_record_2
+	jl	__mark_record_1
+
+__mark_record_3:
+	movl	bit_set_table(a1),a1
+	addl	$3,n_marked_words_offset(a4)
+	orl	a1,(,d1,4)
+	cmpl	$0x20000000,a1
+	jbe	fits__in__word__13
+	orl	$1,4(,d1,4)
+fits__in__word__13:
+	movzwl	-2+2(d0),d1
+
+	movl	4(a0),d0
+	addl	neg_heap_p3_offset(a4),d0
+
+	movl	$31*4,a1
+	andl	d0,a1
+	shrl	$7,d0
+	addl	heap_vector_d4_offset(a4),d0
+
+	pushl	a3
+
+	movl	bit_set_table(a1),a3
+	testl	(,d0,4),a3
+	jne	__shared_record_argument_part
+
+	addl	$1,a2
+	orl	a3,(,d0,4)
+
+	lea	(a1,a2,4),a1
+	addl	a2,n_marked_words_offset(a4)
+
+	popl	a3
+
+	cmpl	$32*4,a1
+	jbe	fits__in__word__14
+	orl	$1,4(,d0,4)
+fits__in__word__14:
+	subl	$1,d1
+	movl	4(a0),a1
+	jl	__mark_record_3_bb
+	je	__shared_argument_part
+
+	movl	a3,4(a0)
+	addl	$4,a0
+
+	subl	$1,d1
+	je	__mark_record_3_aab
+
+	lea	(a1,d1,4),a3
+	movl	(a1),d0
+	orl	$1,d0
+	movl	(a3),a2
+	movl	d0,(a1)
+	movl	a0,(a3)
+	movl	a2,a0
+	jmp	__mark_node
+
+__mark_record_3_bb:
+	subl	$4,a0
+	jmp	__mark_next_node
+
+__mark_record_3_aab:
+	movl	(a1),a2
+	movl	a0,(a1)
+	lea	1(a1),a3
+	movl	a2,a0
+	jmp	__mark_node
+
+__shared_record_argument_part:
+	movl	4(a0),a1
+
+	popl	a3
+
+	test	d1,d1
+	jne	__shared_argument_part
+	subl	$4,a0
+	jmp	__mark_next_node
+
+__mark_record_2:
+	movl	bit_set_table(a1),a1
+	addl	$3,n_marked_words_offset(a4)
+	orl	a1,(,d1,4)
+	cmpl	$0x20000000,a1
+	jbe	fits__in__word_12
+	orl	$1,4(,d1,4)
+fits__in__word_12:
+	cmpw	$1,-2+2(d0)
+	ja	__mark_record_2_c
+	je	__shared_argument_part
+	subl	$4,a0
+	jmp	__mark_next_node
+
+__mark_record_1:
+	cmpw	$0,-2+2(d0)
+	jne	__mark_hnf_1
+	subl	$4,a0
+	jmp	__mark_bool_or_small_string
+
+__mark_string_or_array:
+	je	__mark_string_
+
+__mark_array:
+	movl	8(a0),a2
+	test	a2,a2
+	je	__mark_lazy_array
+
+	movzwl	-2(a2),d0
+	test	d0,d0
+	je	__mark_strict_basic_array
+
+	movzwl	-2+2(a2),a2
+	test	a2,a2
+	je	__mark_b_record_array
+
+	subl	$256,d0
+	cmpl	a2,d0
+	je	__mark_a_record_array
+
+__mark__ab__record__array:
+	pushl	a1
+	pushl	d1
+	movl	a2,d1
+
+	movl	4(a0),a2
+	addl	$8,a0
+	pushl	a0
+
+	shl	$2,a2
+	movl	d0,a1
+	imull	a2,a1
+
+	subl	d1,d0
+	addl	$4,a0
+	addl	a0,a1
+
+	call	reorder
+	
+	popl	a0
+
+	xchg	d1,d0
+	movl	-4(a0),a2
+	imull	a2,d0
+	imull	a2,d1
+	addl	d1,n_marked_words_offset(a4)
+	addl	d0,d1
+
+	movl	neg_heap_p3_offset(a4),a2
+	shl	$2,d1
+	addl	a0,a2
+	addl	d1,a2
+
+	popl	d1
+	popl	a1
+
+	movl	bit_set_table(a1),a1
+	orl	a1,(,d1,4)
+
+	lea	(a0,d0,4),a1
+	jmp	__mark_r_array
+
+__mark_a_record_array:
+	imull	4(a0),d0
+	addl	$8,a0	
+	jmp	__mark_lr_array
+
+__mark_lazy_array:
+	movl	4(a0),d0
+	addl	$8,a0
+
+__mark_lr_array:
+	movl	bit_set_table(a1),a1
+	movl	neg_heap_p3_offset(a4),a2
+	orl	a1,(,d1,4)
+	lea	(a0,d0,4),a1
+	addl	a1,a2
+__mark_r_array:
+	shrl	$7,a2
+	addl	heap_vector_d4_offset(a4),a2
+
+	cmpl	a2,d1
+	jae	__skip_mark_lazy_array_bits
+
+	inc	d1
+
+__mark_lazy_array_bits:
+	orl	$1,(,d1,4)
+	inc	d1
+	cmpl	a2,d1
+	jbe	__mark_lazy_array_bits
+
+__skip_mark_lazy_array_bits:
+	movl	n_marked_words_offset(a4),a2
+	addl	$3,a2
+	addl	d0,a2
+
+	cmpl	$1,d0
+	movl	a2,n_marked_words_offset(a4)
+	jbe	__mark_array_length_0_1
+
+	movl	(a1),a2
+	movl	(a0),d1
+	movl	d1,(a1)
+	movl	a2,(a0)
+	
+	movl	-4(a1),a2
+	subl	$4,a1
+	movl	lazy_array_list_offset(a4),d1
+	addl	$2,a2
+	movl	d1,(a1)
+	movl	a2,-4(a0)
+	movl	d0,-8(a0)
+	subl	$8,a0
+	movl	a0,lazy_array_list_offset(a4)
+
+	movl	-4(a1),a0
+	movl	a3,-4(a1)
+	lea	-4(a1),a3
+	jmp	__mark_node
+
+__mark_array_length_0_1:
+	lea	-8(a0),a0
+	jb	__mark_next_node
+
+	movl	12(a0),d1
+	movl	8(a0),a2
+	movl	lazy_array_list_offset(a4),a1
+	movl	a2,12(a0)	
+	movl	a1,8(a0)
+	movl	d0,(a0)
+	movl	a0,lazy_array_list_offset(a4)	
+	movl	d1,4(a0)
+	addl	$4,a0
+
+	movl	(a0),a2
+	movl	a3,(a0)
+	lea	2(a0),a3
+	movl	a2,a0
+	jmp	__mark_node
+	
+__mark_b_record_array:
+	movl	4(a0),a2
+	subl	$256,d0
+	imull	a2,d0
+	addl	$3,d0
+	jmp	__mark_basic_array
+
+__mark_strict_basic_array:
+	movl	4(a0),d0
+	cmpl	$INT+2,a2
+	je	__mark__strict__int__array
+	cmpl	$BOOL+2,a2
+	je	__mark__strict__bool__array
+__mark__strict__real__array:
+	addl	d0,d0
+__mark__strict__int__array:
+	addl	$3,d0
+	jmp	__mark_basic_array
+__mark__strict__bool__array:
+	addl	$12+3,d0
+	shrl	$2,d0
+	jmp	__mark_basic_array
+
+__mark_string_:
+	movl	4(a0),d0
+	addl	$8+3,d0
+	shr	$2,d0
+
+__mark_basic_array:
+	movl	bit_set_table(a1),a1
+	addl	d0,n_marked_words_offset(a4)
+
+	orl	a1,(,d1,4)
+	lea	-4(a0,d0,4),d0
+
+	addl	neg_heap_p3_offset(a4),d0
+	shrl	$7,d0
+	addl	heap_vector_d4_offset(a4),d0
+
+	cmpl	d0,d1
+	jae	__mark_next_node
+
+	incl	d1
+	movl	$1,a2
+
+	cmpl	d0,d1
+	jae	__last__string__bits
+
+__mark_string_lp:
+	orl	a2,(,d1,4)
+	incl	d1
+	cmpl	d0,d1
+	jb	__mark_string_lp
+
+__last__string__bits:
+	orl	a2,(,d1,4)
+	jmp	__mark_next_node
diff --git a/thread/istartup.s b/thread/istartup.s
new file mode 100644
index 0000000..63a6376
--- /dev/null
+++ b/thread/istartup.s
@@ -0,0 +1,5165 @@
+/
+/	File:	istartup.s
+/	Author:	John van Groningen
+/	Machine:	Intel 386
+
+#define K6_0 0
+
+#define d0 %eax
+#define d1 %ebx
+#define a0 %ecx
+#define a1 %edx
+#define a2 %ebp
+#define a3 %esi
+#define a4 %edi
+#define sp %esp
+
+#define d0w %ax
+#define d1w %bx
+#define a0w %cx
+#define a1w %dx
+#define a2w %bp
+#define a3w %si
+#define a4w %di
+
+#define d0b %al
+#define d1b %bl
+#define a0b %cl
+#define a1b %dl
+
+#define d0lb %al
+#define d0hb %ah
+#define d1lb %bl
+#define d1hb %bh
+
+#define SHARE_CHAR_INT
+#define MY_ITOS
+#define FINALIZERS
+#undef STACK_OVERFLOW_EXCEPTION_HANDLER
+#define WRITE_HEAP
+
+#undef MEASURE_GC
+#undef DEBUG
+#undef PREFETCH2
+
+#define NO_BIT_INSTRUCTIONS
+#define ADJUST_HEAP_SIZE
+#define MARK_GC
+#define MARK_AND_COPY_GC
+
+#define NEW_DESCRIPTORS
+
+/ #define PROFILE
+#define MODULE_NAMES_IN_TIME_PROFILER
+
+#undef COMPACT_GC_ONLY
+
+#define MINIMUM_HEAP_SIZE 8000
+#define MINIMUM_HEAP_SIZE_2 4000
+
+#if defined(_WINDOWS_) || defined (ELF)
+# define	align(n) .align (1<<n)
+#else
+# define	align(n) .align n
+#endif
+
+#ifdef OS2
+# define DLL
+# define NOCLIB
+#endif
+
+#ifdef _WINDOWS_
+# define NOCLIB
+#endif
+
+#ifdef LINUX
+# define section(n) .section    .text.n,"ax"
+#else
+# define section(n) .text
+#endif
+
+#define DESCRIPTOR_ARITY_OFFSET	(-2)
+#ifdef NEW_DESCRIPTORS
+# define ZERO_ARITY_DESCRIPTOR_OFFSET	(-4)
+#else
+# define ZERO_ARITY_DESCRIPTOR_OFFSET	(-8)
+#endif
+
+	.comm	main_thread_local_storage,156
+
+free_heap_offset	= 0
+end_heap_offset		= 4
+
+int_to_real_scratch_offset = 8
+saved_a_stack_p_offset	= 12
+
+heap_p1_offset		= 16
+heap_p2_offset		= 20
+heap_p3_offset		= 24
+heap_vector_offset	= 28
+heap_vector_d4_offset	= 32
+end_vector_offset	= 36
+bit_vector_p_offset	= 40
+bit_vector_size_offset	= 44
+heap_size_129_offset	= 48
+heap_size_33_offset	= 52
+heap_size_32_33_offset	= 56
+heap_copied_vector_offset = 60
+heap_end_after_gc_offset = 64
+stack_p_offset		= 68
+stack_top_offset	= 72
+end_stack_offset	= 76
+n_marked_words_offset	= 80
+n_allocated_words_offset = 84
+n_free_words_after_mark_offset = 88
+bit_counter_offset	= 92
+lazy_array_list_offset	= 96
+neg_heap_p3_offset	= 100
+
+heap_mbp_offset		= 104
+stack_mbp_offset	= 108
+heap_p_offset		= 112
+heap_copied_vector_size_offset = 116
+heap_end_after_copy_gc_offset = 120
+extra_heap_offset	= 124
+extra_heap_size_offset	= 128
+halt_sp_offset		= 132
+
+heap_size_offset	= 136
+a_stack_size_offset	= 140
+
+garbage_collect_flag_offset = 144
+
+#ifdef MARK_GC
+zero_bits_before_mark_offset = 148
+n_last_heap_free_bytes_offset = 152
+#endif
+
+	.globl	tlsp_tls_index
+	.comm	tlsp_tls_index,4
+
+	.comm	basic_only,4
+#if !defined (OS2) && !defined (_WINDOWS_) && !defined (ELF)
+	.comm	last_time,8
+	.comm	execute_time,8
+	.comm	garbage_collect_time,8
+	.comm	IO_time,8
+#else
+	.comm	last_time,4
+	.comm	execute_time,4
+	.comm	garbage_collect_time,4
+	.comm	IO_time,4
+# ifdef MEASURE_GC
+	.comm	compact_garbage_collect_time,4
+	.comm	mark_compact_garbage_collect_time,4
+	.comm	total_gc_bytes_lo,4
+	.comm	total_gc_bytes_hi,4
+	.comm	total_compact_gc_bytes_lo,4
+	.comm	total_compact_gc_bytes_hi,4
+# endif
+#endif
+
+	.comm	dll_initisialised,4
+
+#ifdef WRITE_HEAP
+	.comm	heap_end_write_heap,4
+	.comm	d3_flag_write_heap,4
+	.comm	heap2_begin_and_end,8
+#endif
+
+#ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+	.comm	a_stack_guard_page,4
+#endif
+
+	.globl	profile_stack_pointer
+	.comm	profile_stack_pointer,4
+
+	.data
+	align	(2)
+
+caf_list:
+	.long	0
+	.globl	caf_listp
+caf_listp:
+	.long	0
+	
+zero_length_string:
+	.long	__STRING__+2
+	.long	0
+true_string:
+	.long	__STRING__+2
+	.long	4
+true_c_string:
+	.ascii	"True"
+	.byte	0,0,0,0
+false_string:
+	.long	__STRING__+2
+	.long	5
+false_c_string:
+	.ascii	"False"
+	.byte	0,0,0
+file_c_string:
+	.ascii	"File"
+	.byte	0,0,0,0
+
+	.comm	sprintf_buffer,32
+
+out_of_memory_string_1:
+	.ascii	"Not enough memory to allocate heap and stack"
+	.byte	10,0
+printf_int_string:
+	.ascii	"%d"
+	.byte	0
+printf_real_string:
+	.ascii	"%.15g"
+	.byte	0
+printf_string_string:
+	.ascii	"%s"
+	.byte	0
+printf_char_string:
+	.ascii	"%c"
+	.byte	0
+garbage_collect_string_1:
+	.asciz	"A stack: "
+garbage_collect_string_2:
+	.asciz	" bytes. BC stack: "
+garbage_collect_string_3:
+	.ascii	" bytes."
+	.byte	10,0
+heap_use_after_gc_string_1:
+	.ascii	"Heap use after garbage collection: "
+	.byte	0
+heap_use_after_gc_string_2:
+	.ascii	" Bytes."
+	.byte	10,0
+stack_overflow_string:
+	.ascii	"Stack overflow."
+	.byte	10,0
+out_of_memory_string_4:
+	.ascii	"Heap full."
+	.byte	10,0
+time_string_1:
+	.ascii	"Execution: "
+	.byte	0
+time_string_2:
+	.ascii	"  Garbage collection: "
+	.byte	0
+#ifdef MEASURE_GC
+time_string_3:
+	.ascii	" "
+	.byte	0
+#endif
+time_string_4:
+	.ascii	"  Total: "
+	.byte	0
+high_index_string:
+	.ascii	"Index too high in UPDATE string."
+	.byte	10,0
+low_index_string:
+	.ascii	"Index negative in UPDATE string."
+	.byte	10,0
+IO_error_string:
+	.ascii	"IO error: "
+	.byte	0
+new_line_string:
+	.byte	10,0
+	
+sprintf_time_string:
+	.ascii	"%d.%02d"
+	.byte	0
+
+#ifdef MARK_GC
+marked_gc_string_1:
+	.ascii	"Marked: "
+	.byte	0
+#endif
+tls_alloc_error_string:
+	.ascii	"Could not allocate thread local storage index"
+	.byte	10,0
+#ifdef PROFILE
+	align	(2)
+# ifdef MODULE_NAMES_IN_TIME_PROFILER
+#  ifdef LINUX
+	.globl	m_system
+#  endif
+m_system:
+	.long	6
+	.ascii	"System"
+	.byte	0
+	.byte	0
+	.long	m_system
+
+# endif
+garbage_collector_name:
+	.long	0
+	.asciz	"garbage_collector"
+	align	(2)
+#endif
+
+
+#ifdef NOCLIB
+	align	(3)
+NAN_real:
+	.long	0xffffffff,0x7fffffff
+one_real:
+	.long	0x00000000,0x3ff00000
+zero_real:
+	.long   0x00000000,0x00000000
+#endif
+
+#ifdef NO_BIT_INSTRUCTIONS
+	align	(2)
+bit_set_table:
+	.long	0x00000001,0x00000002,0x00000004,0x00000008
+	.long	0x00000010,0x00000020,0x00000040,0x00000080
+	.long	0x00000100,0x00000200,0x00000400,0x00000800
+	.long	0x00001000,0x00002000,0x00004000,0x00008000
+	.long	0x00010000,0x00020000,0x00040000,0x00080000
+	.long	0x00100000,0x00200000,0x00400000,0x00800000
+	.long	0x01000000,0x02000000,0x04000000,0x08000000
+	.long	0x10000000,0x20000000,0x40000000,0x80000000
+	.long	0
+bit_clear_table:
+	.long	0xfffffffe,0xfffffffd,0xfffffffb,0xfffffff7
+	.long	0xffffffef,0xffffffdf,0xffffffbf,0xffffff7f
+	.long	0xfffffeff,0xfffffdff,0xfffffbff,0xfffff7ff
+	.long	0xffffefff,0xffffdfff,0xffffbfff,0xffff7fff
+	.long	0xfffeffff,0xfffdffff,0xfffbffff,0xfff7ffff
+	.long	0xffefffff,0xffdfffff,0xffbfffff,0xff7fffff
+	.long	0xfeffffff,0xfdffffff,0xfbffffff,0xf7ffffff
+	.long	0xefffffff,0xdfffffff,0xbfffffff,0x7fffffff
+	.long	0xffffffff
+first_one_bit_table:
+	.byte	-1,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	5,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	6,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	5,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	7,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	5,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	6,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	5,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+	.byte	4,0,1,0,2,0,1,0,3,0,1,0,2,0,1,0
+#endif
+
+	align	(2)
+	.comm	sprintf_time_buffer,20
+
+	align	(2)
+#ifdef SHARE_CHAR_INT
+	.globl	small_integers
+	.comm	small_integers,33*8
+	.globl	static_characters
+	.comm	static_characters,256*8
+#endif
+
+	.text
+
+	.globl	@abc_main
+	.globl	print
+	.globl	print_char
+	.globl	print_int
+	.globl	print_real
+	.globl	print__string__
+	.globl	print__chars__sc
+	.globl	print_sc
+	.globl	print_symbol
+	.globl	print_symbol_sc
+	.globl	printD
+	.globl	DtoAC
+	.globl	push_t_r_args
+	.globl	push_a_r_args
+	.globl	halt
+	.globl	dump
+
+	.globl	catAC
+	.globl	sliceAC
+	.globl	updateAC
+	.globl	eqAC
+	.globl	cmpAC
+
+	.globl	string_to_string_node
+	.globl	int_array_to_node
+	.globl	real_array_to_node
+
+	.globl	_create_arrayB
+	.globl	_create_arrayC
+	.globl	_create_arrayI
+	.globl	_create_arrayR
+	.globl	_create_r_array
+	.globl	create_array
+	.globl	create_arrayB
+	.globl	create_arrayC
+	.globl	create_arrayI
+	.globl	create_arrayR
+	.globl	create_R_array
+
+	.globl	BtoAC
+	.globl	ItoAC
+	.globl	RtoAC
+	.globl	eqD
+
+	.globl	collect_0
+	.globl	collect_1
+	.globl	collect_2
+
+	.globl	collect_0l
+	.globl	collect_1l
+	.globl	collect_2l
+
+	.globl	yet_args_needed
+	.globl	yet_args_needed_0
+	.globl	yet_args_needed_1
+	.globl	yet_args_needed_2
+	.globl	yet_args_needed_3
+	.globl	yet_args_needed_4
+
+	.globl	_c3,_c4,_c5,_c6,_c7,_c8,_c9,_c10,_c11,_c12
+	.globl	_c13,_c14,_c15,_c16,_c17,_c18,_c19,_c20,_c21,_c22
+	.globl	_c23,_c24,_c25,_c26,_c27,_c28,_c29,_c30,_c31,_c32
+
+	.globl	e__system__nind
+	.globl	e__system__eaind
+/ old names of the previous two labels for compatibility, remove later
+	.globl	__indirection,__eaind
+	.globl	e__system__dind
+	.globl	eval_fill
+
+	.globl	eval_upd_0,eval_upd_1,eval_upd_2,eval_upd_3,eval_upd_4
+	.globl	eval_upd_5,eval_upd_6,eval_upd_7,eval_upd_8,eval_upd_9
+	.globl	eval_upd_10,eval_upd_11,eval_upd_12,eval_upd_13,eval_upd_14
+	.globl	eval_upd_15,eval_upd_16,eval_upd_17,eval_upd_18,eval_upd_19
+	.globl	eval_upd_20,eval_upd_21,eval_upd_22,eval_upd_23,eval_upd_24
+	.globl	eval_upd_25,eval_upd_26,eval_upd_27,eval_upd_28,eval_upd_29
+	.globl	eval_upd_30,eval_upd_31,eval_upd_32
+
+	.globl	repl_args_b
+	.globl	push_arg_b
+	.globl	del_args
+#if 0
+	.globl	o__S_P2
+	.globl	ea__S_P2
+#endif
+	.globl	add_IO_time
+	.globl	add_execute_time
+	.globl	@IO_error
+	.globl	stack_overflow
+
+	.globl	out_of_memory_4
+	.globl	print_error
+
+	.global	_start
+
+	.globl	tan_real
+	.globl	asin_real
+	.globl	acos_real
+	.globl	atan_real
+	.globl	ln_real
+	.globl	log10_real
+	.globl	exp_real
+	.globl	pow_real
+	.globl	r_to_i_real
+	.globl	truncate_real
+	.globl	entier_real
+	.globl	ceiling_real
+	.globl	round__real64
+	.globl	truncate__real64
+	.globl	entier__real64
+	.globl	ceiling__real64
+	.globl	int64a__to__real
+
+#ifdef NOCLIB
+	.globl	@c_pow
+	.globl	@c_log10
+	.globl	@c_entier
+#endif
+#ifdef PROFILE
+	.globl	init_profiler
+	.globl	profile_s,profile_n,profile_r,profile_t
+	.globl	write_profile_information,write_profile_stack
+#endif
+	.globl	__driver
+
+/ from system.abc:	
+	.global	INT
+	.global	CHAR
+	.global	BOOL
+	.global	REAL
+	.global	FILE
+	.global	__STRING__
+	.global	__ARRAY__
+	.global	__cycle__in__spine
+	.global	__print__graph
+	.global	__eval__to__nf
+
+/ from wcon.c:
+	.globl	@w_print_char
+	.globl	@w_print_string
+	.globl	@w_print_text
+	.globl	@w_print_int
+	.globl	@w_print_real
+	
+	.globl	@ew_print_char
+	.globl	@ew_print_text
+	.globl	@ew_print_string
+	.globl	@ew_print_int
+
+	.global	@ab_stack_size
+	.global	@heap_size
+	.global	@flags
+
+/ from standard c library:
+#ifdef USE_CLIB
+	.globl	@malloc
+	.globl	@free
+	.globl	@sprintf
+	.globl	@strlen
+#else
+	.globl	@allocate_memory
+# ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+	.globl	@allocate_memory_with_guard_page_at_end
+# endif
+	.globl	@free_memory
+#endif
+
+#ifdef ADJUST_HEAP_SIZE
+	.global	@heap_size_multiple
+	.global	@initial_heap_size
+#endif
+#ifdef WRITE_HEAP
+	.global	@min_write_heap_size
+#endif
+#ifdef FINALIZERS
+	.global	__Nil
+	.globl	finalizer_list
+	.comm	finalizer_list,4
+	.globl	free_finalizer_list
+	.comm	free_finalizer_list,4
+#endif
+
+@abc_main:
+	push	d1
+	push	a0
+	push	a1
+	push	a2
+	push	a3
+	push	a4
+
+	finit
+	fldz
+	fldz
+	fldz
+	fldz
+	fldz
+	fldz
+	fldz
+
+	call	init_clean
+	test	%eax,%eax
+	jne	init_error
+
+	call	init_timer
+
+	mov	sp,halt_sp_offset(a4)
+
+#ifdef PROFILE
+	call	init_profiler
+#endif
+
+#ifdef ELF
+	call	__start
+#else
+	call	_start
+#endif
+
+exit:
+	call	exit_clean
+
+init_error:
+	pop	a4
+	pop	a3
+	pop	a2
+	pop	a1
+	pop	a0
+	pop	d1
+	ret
+
+#if defined (_WINDOWS_) || defined (LINUX)
+# ifdef _WINDOWS_
+	.globl	@DllMain?12
+@DllMain?12:
+	cmpl	$1,8(sp)
+	je	DLL_PROCESS_ATTACH
+	jb	DLL_PROCESS_DETACH
+	ret	$12
+
+DLL_PROCESS_ATTACH:
+# else
+	.globl	clean_init
+clean_init:
+# endif
+	push	d1
+	push	a0
+	push	a1
+	push	a2
+	push	a3
+	push	a4
+
+	movl	$1,dll_initisialised
+
+	call	init_clean
+	test	%eax,%eax
+	jne	init_dll_error
+
+	call	init_timer
+
+	mov	sp,halt_sp_offset(a4)
+
+# ifdef PROFILE
+	call	init_profiler
+# endif
+
+	mov	%esi,saved_a_stack_p_offset(a4)
+
+	movl	$1,%eax
+	jmp	exit_dll_init
+
+init_dll_error:
+	xor	%eax,%eax
+	jmp	exit_dll_init
+# ifdef _WINDOWS_
+DLL_PROCESS_DETACH:
+# else
+	.globl	clean_fini
+clean_fini:
+# endif
+	push	d1
+	push	a0
+	push	a1
+	push	a2
+	push	a3
+	push	a4
+	
+	mov	saved_a_stack_p_offset(a4),%esi
+
+	call	exit_clean
+
+exit_dll_init:
+	pop	a4
+	pop	a3
+	pop	a2
+	pop	a1
+	pop	a0
+	pop	d1
+# ifdef _WINDOWS_
+	ret	$12
+# else
+	ret
+# endif
+#endif
+
+	.globl	@TlsAlloc?0
+
+init_clean:
+	call	@TlsAlloc?0
+
+	cmp	$64,d0
+	jae	tls_alloc_error
+
+	movl	d0,tlsp_tls_index
+
+	lea	main_thread_local_storage,a4
+
+	movl	a4,%fs:0x0e10(,d0,4)
+
+	mov	@flags,d0
+	andl	$1,d0
+	mov	d0,basic_only
+
+	movl	@heap_size,d0
+	add	$7,d0
+	andl	$-8,d0
+	movl	d0,@heap_size
+	movl	d0,heap_size_offset(a4)
+#ifdef PREFETCH2
+	sub	$63,d0
+#else
+	sub	$3,d0
+#endif
+	xorl	a1,a1
+	mov	$33,d1
+	div	d1
+	movl	d0,heap_size_33_offset(a4)
+
+	movl	heap_size_offset(a4),d0
+	sub	$3,d0
+	xorl	a1,a1
+	mov	$129,d1
+	div	d1
+	mov	d0,heap_size_129_offset(a4)
+	add	$3,d0
+	andl	$-4,d0
+	movl	d0,heap_copied_vector_size_offset(a4)
+	movl	$0,heap_end_after_copy_gc_offset(a4)
+
+	movl	heap_size_offset(a4),d0
+	add	$7,d0
+
+	push	d0
+#ifdef USE_CLIB
+	call	@malloc
+#else
+	call	@allocate_memory
+#endif
+	add	$4,sp
+	
+	test	d0,d0
+	je	no_memory_2
+
+	mov	d0,heap_mbp_offset(a4)
+	addl	$3,d0
+	and	$-4,d0
+	mov	d0,free_heap_offset(a4)
+	mov	d0,heap_p_offset(a4)
+
+	mov	@ab_stack_size,a2
+	movl	a2,a_stack_size_offset(a4)
+	add	$3,a2
+
+	push	a2
+#ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+	call	@allocate_memory_with_guard_page_at_end
+#else
+# ifdef USE_CLIB
+	call	@malloc
+# else
+	call	@allocate_memory
+# endif
+#endif
+	add	$4,sp
+	
+	test	d0,d0
+	je	no_memory_3
+	
+	mov	d0,stack_mbp_offset(a4)
+#ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+	addl	a_stack_size_offset(a4),d0
+	addl	$3+4095,d0
+	andl	$-4096,d0
+	movl	d0,a_stack_guard_page
+	subl	a_stack_size_offset(a4),d0
+#endif
+	add	$3,d0
+	andl	$-4,d0
+
+	mov	d0,a3
+	mov	d0,stack_p_offset(a4)
+
+#ifdef SHARE_CHAR_INT
+	leal	small_integers,a0
+	xorl	d0,d0
+	leal	INT+2,d1
+
+make_small_integers_lp:
+	mov	d1,(a0)
+	mov	d0,4(a0)
+	inc	d0
+	add	$8,a0
+	cmp	$33,d0
+	jne	make_small_integers_lp
+
+	leal	static_characters,a0
+	xorl	d0,d0
+	leal	CHAR+2,d1
+
+make_static_characters_lp:
+	mov	d1,(a0)
+	mov	d0,4(a0)
+	inc	d0
+	add	$8,a0
+	cmp	$256,d0
+	jne	make_static_characters_lp
+#endif
+
+	lea	caf_list+4,a0
+	movl	a0,caf_listp
+
+#ifdef FINALIZERS
+	movl	$__Nil-4,finalizer_list
+	movl	$__Nil-4,free_finalizer_list
+#endif
+
+	mov	free_heap_offset(a4),a1
+	mov	a1,heap_p1_offset(a4)
+
+	movl	heap_size_129_offset(a4),a2
+	shl	$4,a2
+	lea	(a1,a2,4),d0
+	mov	d0,heap_copied_vector_offset(a4)
+	add	heap_copied_vector_size_offset(a4),d0
+	mov	d0,heap_p2_offset(a4)
+
+	movb	$0,garbage_collect_flag_offset(a4)
+
+# ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	no_mark1
+# endif
+
+# if defined (MARK_GC) || defined (COMPACT_GC_ONLY)
+	movl	heap_size_33_offset(a4),d0
+	movl	a1,heap_vector_offset(a4)
+	addl	d0,a1
+#  ifdef PREFETCH2
+	addl	$63,a1
+	andl	$-64,a1
+#  else
+	addl	$3,a1
+	andl	$-4,a1
+#  endif
+	movl	a1,free_heap_offset(a4)
+	movl	a1,heap_p3_offset(a4)
+	lea	(,d0,8),a2
+	movb	$-1,garbage_collect_flag_offset(a4)
+# endif
+
+# ifdef MARK_AND_COPY_GC
+no_mark1:
+# endif
+
+# ifdef ADJUST_HEAP_SIZE
+	movl	@initial_heap_size,d0
+#  ifdef MARK_AND_COPY_GC
+	movl	$(MINIMUM_HEAP_SIZE_2),d1
+	testb	$64,@flags
+	jne	no_mark9
+	addl	d1,d1
+no_mark9:
+#  else
+#   if defined (MARK_GC) || defined (COMPACT_GC_ONLY)
+	movl	$(MINIMUM_HEAP_SIZE),d1
+#   else
+	movl	$(MINIMUM_HEAP_SIZE_2),d1
+#   endif
+#  endif
+
+	cmpl	d1,d0
+	jle	too_large_or_too_small
+	shr	$2,d0
+	cmpl	a2,d0
+	jge	too_large_or_too_small
+	movl	d0,a2
+too_large_or_too_small:
+# endif
+
+	lea	(a1,a2,4),d0
+	mov	d0,heap_end_after_gc_offset(a4)
+	subl	$32,d0
+	movl	d0,end_heap_offset(a4)
+
+# ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	no_mark2
+# endif
+
+# if defined (MARK_GC) && defined (ADJUST_HEAP_SIZE)
+	movl	a2,bit_vector_size_offset(a4)
+# endif
+
+# ifdef MARK_AND_COPY_GC
+no_mark2:
+# endif
+
+	xor	%eax,%eax
+	ret
+
+tls_alloc_error:
+	push	$tls_alloc_error_string
+	call	@ew_print_string
+	add	$4,sp
+#ifdef _WINDOWS_
+	movl	$1,@execution_aborted
+#endif
+
+	movl	$1,%eax
+	ret
+
+no_memory_2:
+	push	$out_of_memory_string_1
+	call	@ew_print_string
+	add	$4,sp
+#ifdef _WINDOWS_
+	movl	$1,@execution_aborted
+#endif
+	movl	$1,%eax
+	ret
+
+no_memory_3:
+	push	$out_of_memory_string_1
+	call	@ew_print_string
+	add	$4,sp
+#ifdef _WINDOWS_
+	movl	$1,@execution_aborted
+#endif
+
+	push	heap_mbp_offset(a4)
+#ifdef USE_CLIB
+	call	@free
+#else
+	call	@free_memory
+#endif
+	add	$4,sp
+
+	movl	$1,%eax
+	ret
+
+exit_clean:
+	call	add_execute_time
+
+	mov	@flags,d0
+	testb	$8,d0b
+	je	no_print_execution_time
+	
+	push	$time_string_1
+	call	@ew_print_string
+	add	$4,sp
+	
+	mov	execute_time,d0
+#if !defined (OS2) && !defined (_WINDOWS_) && !defined (ELF)
+	mov	execute_time+4,d1
+#endif
+	call	print_time
+	
+	push	$time_string_2
+	call	@ew_print_string
+	add	$4,sp
+
+	mov	garbage_collect_time,d0
+#if !defined (OS2) && !defined (_WINDOWS_) && !defined (ELF)
+	mov	garbage_collect_time+4,d1
+#endif
+	call	print_time
+
+#ifdef MEASURE_GC
+	push	$time_string_3
+	call	@ew_print_string
+	add	$4,sp
+
+	mov	mark_compact_garbage_collect_time,d0
+# if !defined (OS2) && !defined (_WINDOWS_)
+	mov	mark_compact_garbage_collect_time+4,d1
+# endif
+	call	print_time
+
+	push	$time_string_3
+	call	@ew_print_string
+	add	$4,sp
+
+	mov	compact_garbage_collect_time,d0
+# if !defined (OS2) && !defined (_WINDOWS_)
+	mov	compact_garbage_collect_time+4,d1
+# endif
+	call	print_time
+#endif
+
+	push	$time_string_4
+	call	@ew_print_string
+	add	$4,sp
+
+#if !defined (OS2) && !defined (_WINDOWS_) && !defined (ELF)
+	mov	execute_time,d0
+	mov	execute_time+4,d1
+
+	add	garbage_collect_time,d0
+	add	garbage_collect_time+4,d1
+	cmp	$1000000,d1
+	jb	no_usec_overflow_1
+	sub	$1000000,d1
+	inc	d0
+no_usec_overflow_1:
+
+	add	IO_time,d0
+	add	IO_time+4,d1
+	cmp	$1000000,d1
+	jb	no_usec_overflow_2
+	sub	$1000000,d1
+	inc	d0
+no_usec_overflow_2:
+#else
+	mov	execute_time,d0
+	add	garbage_collect_time,d0
+	add	IO_time,d0
+# ifdef MEASURE_GC
+	add	mark_compact_garbage_collect_time,d0
+	add	compact_garbage_collect_time,d0
+# endif
+#endif
+
+	call	print_time
+
+#ifdef MEASURE_GC
+	push	$10
+	call	@ew_print_char
+	addl	$4,sp
+
+	pushl	total_gc_bytes_hi
+	call	@ew_print_int
+	addl	$4,sp
+
+	push	$':'
+	call	@ew_print_char
+	addl	$4,sp
+
+	pushl	total_gc_bytes_lo
+	call	@ew_print_int
+	addl	$4,sp
+
+	push	$32
+	call	@ew_print_char
+	addl	$4,sp
+
+	pushl	total_compact_gc_bytes_hi
+	call	@ew_print_int
+	addl	$4,sp
+
+	push	$':'
+	call	@ew_print_char
+	addl	$4,sp
+
+	pushl	total_compact_gc_bytes_lo
+	call	@ew_print_int
+	addl	$4,sp
+#endif
+
+	push	$10
+	call	@ew_print_char
+	add	$4,sp
+
+no_print_execution_time:
+	push	stack_mbp_offset(a4)
+#ifdef USE_CLIB
+	call	@free
+#else
+	call	@free_memory
+#endif
+	add	$4,sp
+
+	push	heap_mbp_offset(a4)
+#ifdef USE_CLIB
+	call	@free
+#else
+	call	@free_memory
+#endif
+	add	$4,sp
+
+#ifdef PROFILE
+	call	write_profile_information
+#endif
+
+	ret
+
+__driver:
+	mov	@flags,a2
+	test	$16,a2
+	je	__print__graph
+	jmp	__eval__to__nf
+
+
+print_time:
+#if !defined (OS2) && !defined (_WINDOWS_) && !defined (ELF)
+	mov	d0,a0
+	xorl	a1,a1
+	mov	d1,d0
+	mov	$10000,d1
+	div	d1
+#else
+	xorl	a1,a1
+	movl	$1000,d1
+	div	d1
+	movl	d0,a0
+	movl	a1,d0
+	xorl	a1,a1
+	movl	$10,d1
+	div	d1
+#endif
+	push	d0
+	push	a0
+
+#ifdef USE_CLIB
+	push	$sprintf_time_string
+	push	$sprintf_time_buffer
+	call	@sprintf
+	add	$16,sp
+
+	push	$sprintf_time_buffer
+	call	@ew_print_string
+	add	$4,sp
+#else
+	call	@ew_print_int
+
+	add	$4,sp
+	movl	$sprintf_time_buffer,a0
+
+	xorl	a1,a1
+	mov	$10,d1
+
+/	movb	$'.',(a0)
+	movb	$46,(a0)
+	pop	d0
+
+	div	d1
+	add	$48,d0
+	add	$48,a1
+	movb	d0b,1(a0)
+	movb	a1b,2(a0)
+
+	push	$3
+	push	a0
+	call	@ew_print_text
+	add	$8,sp
+#endif
+	ret
+
+print_sc:
+	mov	basic_only,a2
+	test	a2,a2
+	jne	end_print
+
+print:
+	push	d0
+	call	@w_print_string
+	add	$4,sp
+
+end_print:
+	ret
+
+dump:
+	call	print
+	jmp	halt
+
+printD:	testb	$2,d0b
+	jne	printD_
+	
+	mov	d0,a2
+	jmp	print_string_a2
+
+DtoAC_record:
+#ifdef NEW_DESCRIPTORS
+	movl	-6(d0),a2
+#else
+	movl	-4(a2),a2
+#endif
+	jmp	DtoAC_string_a2
+
+DtoAC:	testb	$2,d0b
+	jne	DtoAC_
+
+	mov	d0,a2
+	jmp	DtoAC_string_a2
+
+DtoAC_:
+#ifdef NEW_DESCRIPTORS
+	cmpw	$256,-2(d0)
+	jae	DtoAC_record
+
+  	movzwl	(d0),d1
+  	lea	10(d0,d1),a2
+#else
+	movswl	-2(d0),d1
+	lea	-2(d0),a2
+	cmp	$256,d1
+	jae	DtoAC_record
+
+	shl	$3,d1
+	sub	d1,a2
+
+ 	movzwl	DESCRIPTOR_ARITY_OFFSET(a2),d1
+	lea	4(a2,d1,8),a2
+#endif
+
+DtoAC_string_a2:
+	movl	(a2),d0
+	lea	4(a2),a0
+	jmp	build_string
+
+print_symbol:
+	xorl	d1,d1
+	jmp	print_symbol_2
+
+print_symbol_sc:
+	mov	basic_only,d1
+print_symbol_2:
+	mov	(a0),d0
+	
+	cmp	$INT+2,d0
+	je	print_int_node
+
+	cmp	$CHAR+2,d0
+	je	print_char_denotation
+
+	cmp	$BOOL+2,d0
+	je	print_bool
+
+	cmp	$REAL+2,d0
+	je	print_real_node
+	
+	test	d1,d1
+	jne	end_print_symbol
+
+printD_:
+#ifdef NEW_DESCRIPTORS
+	cmpw	$256,-2(d0)
+	jae	print_record
+
+  	movzwl	(d0),d1
+  	lea	10(d0,d1),a2
+	jmp	print_string_a2
+
+print_record:
+	movl	-6(d0),a2
+	jmp	print_string_a2
+#else
+	movswl	-2(d0),d1
+	lea	-2(d0),a2
+	cmp	$256,d1
+	jae	no_print_record
+
+	shl	$3,d1
+	sub	d1,a2
+
+  	movzwl	DESCRIPTOR_ARITY_OFFSET(a2),d1
+	lea	4(a2,d1,8),a2
+	jmp	print_string_a2
+
+no_print_record:
+	mov	-4(a2),a2
+	jmp	print_string_a2
+#endif
+
+end_print_symbol:
+	ret
+
+print_int_node:
+	push	4(a0)
+	call	@w_print_int
+	add	$4,sp
+	ret
+
+print_int:
+	push	d0
+	call	@w_print_int
+	add	$4,sp
+	ret
+
+print_char_denotation:
+	test	d1,d1
+	jne	print_char_node
+
+	push	4(a0)
+
+	push	$0x27
+	call	@w_print_char
+	add	$4,sp
+	
+	call	@w_print_char
+	add	$4,sp
+
+	push	$0x27
+	call	@w_print_char
+	add	$4,sp
+
+	ret
+
+print_char_node:
+	push	4(a0)
+	call	@w_print_char
+	add	$4,sp
+	ret
+	
+print_char:
+	push	d0
+	call	@w_print_char
+	add	$4,sp
+	ret
+
+print_bool:
+	movsbl	4(a0),a0
+	test	a0,a0
+	je	print_false
+
+print_true:
+	push	$true_c_string
+	call	@w_print_string
+	add	$4,sp
+	ret
+
+print_false:
+	push	$false_c_string
+	call	@w_print_string
+	add	$4,sp
+	ret
+
+print_real:
+	subl	$8,sp
+	fstpl	0(sp)
+	jmp	print_real_
+print_real_node:
+	push	8(a0)
+	push	4(a0)
+print_real_:
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@w_print_real
+	add	$8,sp
+	ret
+
+print_string_a2:
+	add	$4,a2
+	push	-4(a2)
+	push	a2
+	call	@w_print_text
+	add	$8,sp
+	ret
+
+print__chars__sc:
+	mov	basic_only,a2
+	test	a2,a2
+	jne	no_print_chars
+
+print__string__:
+	push	4(a0)
+	lea	8(a0),a2
+	push	a2
+	call	@w_print_text
+	add	$8,sp
+no_print_chars:
+	ret
+
+push_a_r_args:
+	pushl	a4
+
+	movl	8(a0),a1
+	subl	$2,a1
+	movzwl	(a1),a4
+	subl	$256,a4
+	movzwl	2(a1),d1
+	addl	$4,a1
+	pushl	a1
+		
+	movl	a4,a1
+	subl	d1,a1
+
+	shl	$2,d0
+	lea	12(a0,d1,4),a0
+	dec	a4
+mul_array_size_lp:
+	addl	d0,a0
+	subl	$1,a4
+	jnc	mul_array_size_lp
+
+	lea	(a0,a1,4),a4
+	jmp	push_a_elements
+push_a_elements_lp:
+	movl	-4(a0),d0
+	subl	$4,a0
+	movl	d0,(a3)
+	addl	$4,a3
+push_a_elements:
+	subl	$1,d1
+	jnc	push_a_elements_lp
+
+	movl	a4,a0
+	popl	d0
+	popl	a4
+
+	popl	a2
+	jmp	push_b_elements
+push_b_elements_lp:
+	pushl	-4(a0)
+	subl	$4,a0
+push_b_elements:
+	subl	$1,a1
+	jnc	push_b_elements_lp
+
+	jmp	*a2
+
+push_t_r_args:
+	popl	a2
+
+	movl	(a0),a1
+	addl	$4,a0
+	subl	$2,a1
+	movzwl	(a1),d0
+	subl	$256,d0
+	movzwl	2(a1),d1
+	addl	$4,a1
+
+	movl	a1,(a3)
+	movl	d1,4(a3)
+	
+	subl	d0,d1
+	negl	d1
+
+	lea	(a0,d0,4),a1
+	cmpl	$2,d0
+	jbe	small_record
+	movl	4(a0),a1
+	lea	-4(a1,d0,4),a1
+small_record:
+	jmp	push_r_b_elements
+
+push_r_b_elements_lp:
+	dec	d0
+	jne	not_first_arg_b
+	
+	pushl	(a0)
+	jmp	push_r_b_elements
+not_first_arg_b:
+	pushl	-4(a1)
+	subl	$4,a1
+push_r_b_elements:
+	subl	$1,d1
+	jnc	push_r_b_elements_lp
+
+	movl	4(a3),d1
+	pushl	a2
+	pushl	(a3)
+	jmp	push_r_a_elements
+
+push_r_a_elements_lp:
+	dec	d0
+	jne	not_first_arg_a
+	
+	movl	(a0),a2
+	movl	a2,(a3)
+	addl	$4,a3
+	jmp	push_r_a_elements
+not_first_arg_a:
+	movl	-4(a1),a2
+	subl	$4,a1
+	movl	a2,(a3)
+	addl	$4,a3
+push_r_a_elements:
+	subl	$1,d1
+	jnc	push_r_a_elements_lp
+
+	popl	d0
+	ret
+
+BtoAC:
+	testb	d0b,d0b
+	je	BtoAC_false
+BtoAC_true:
+	mov	$true_string,a0
+	ret
+BtoAC_false:
+	mov	$false_string,a0
+	ret
+
+RtoAC:
+#ifndef USE_CLIB
+	push	$sprintf_buffer	
+#endif
+	subl	$8,sp
+	fstl	0(sp)
+	
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	
+#ifdef USE_CLIB
+	push	$printf_real_string
+	push	$sprintf_buffer	
+	call	@sprintf
+	add	$16,sp
+#else
+	call	@convert_real_to_string
+	add	$12,sp
+#endif
+	jmp	return_sprintf_buffer
+
+ItoAC:
+#ifdef MY_ITOS
+	mov	$sprintf_buffer,a0
+	call	int_to_string
+	
+	movl	a0,d0
+	subl	$sprintf_buffer,d0
+
+	jmp	sprintf_buffer_to_string
+
+# ifdef NOCLIB
+	.globl	@convert_int_to_string
+@convert_int_to_string:
+	push	a0
+	push	a1
+	push	a2
+	push	d1
+	movl	16+4(sp),a0
+	movl	16+8(sp),d0
+	call	int_to_string
+	movl	a0,d0
+	pop	d1
+	pop	a2
+	pop	a1
+	pop	a0
+	ret
+# endif
+
+int_to_string:
+	test	d0,d0
+	jns	no_minus
+	movb	$45,(a0)
+	inc	a0
+	neg	d0
+no_minus:
+	lea	12(a0),a2
+
+	je	zero_digit
+
+#ifdef USE_DIV
+	movl	$10,d1
+#endif
+
+calculate_digits:
+#ifndef USE_DIV
+	cmp	$10,d0
+#else
+	cmp	d1,d0
+#endif
+	jb	last_digit
+
+#ifndef USE_DIV
+	movl	$0xcccccccd,a1 
+	movl	d0,d1
+
+	mull	a1 
+
+	movl	a1,d0 
+	andl	$-8,a1 
+	add	$48,d1
+
+	shrl	$3,d0 
+	subl	a1,d1
+	shrl	$2,a1 
+
+	subl	a1,d1
+	movb	d1b,(a2)
+#else
+	xorl	a1,a1
+	div	d1
+	add	$48,a1
+	movb	a1b,(a2)
+#endif
+	inc	a2
+	jmp	calculate_digits
+
+last_digit:
+	test	d0,d0
+	je	no_zero
+zero_digit:
+	add	$48,d0
+	movb	d0b,(a2)
+	inc	a2
+no_zero:
+	lea	12(a0),a1
+
+reverse_digits:
+	movb	-1(a2),d1b
+	dec	a2
+	movb	d1b,(a0)
+	inc	a0
+	cmp	a2,a1
+	jne	reverse_digits
+
+	movb	$0,(a0)
+	ret
+#else
+	push	d0
+	push	$printf_int_string
+	push	$sprintf_buffer
+	call	@sprintf
+	add	$12,sp
+#endif
+
+return_sprintf_buffer:
+#ifdef USE_CLIB
+	push	$sprintf_buffer
+	call	@strlen
+	add	$4,sp
+#else
+	mov	$sprintf_buffer-1,d0
+skip_characters:
+	inc	d0
+	cmpb	$0,(d0)
+	jne	skip_characters
+
+	sub	$sprintf_buffer,d0
+#endif
+
+#ifdef MY_ITOS
+sprintf_buffer_to_string:
+	mov	$sprintf_buffer,a0
+build_string:
+#endif
+	lea	3(d0),d1
+	shr	$2,d1
+	add	$2,d1
+
+	movl	free_heap_offset(a4),a2
+	lea	-32(a2,d1,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	D_to_S_no_gc
+
+	push	a0
+	call	collect_0l
+	pop	a0
+
+D_to_S_no_gc:
+	movl	free_heap_offset(a4),a2
+	sub	$2,d1
+	mov	a2,a1
+	movl	$__STRING__+2,(a2)
+	mov	d0,4(a2)
+	add	$8,a2
+	jmp	D_to_S_cp_str_2
+
+D_to_S_cp_str_1:
+	mov	(a0),d0
+	add	$4,a0
+	mov	d0,(a2)
+	add	$4,a2
+D_to_S_cp_str_2:
+	sub	$1,d1
+	jnc	D_to_S_cp_str_1
+
+	movl	a2,free_heap_offset(a4)
+	movl	a1,a0
+	ret
+
+eqD:	mov	(a0),d0
+	cmp	(a1),d0
+	jne	eqD_false
+
+	cmp	$INT+2,d0
+	je	eqD_INT
+	cmp	$CHAR+2,d0
+	je	eqD_CHAR
+	cmp	$BOOL+2,d0
+	je	eqD_BOOL
+	cmp	$REAL+2,d0
+	je	eqD_REAL
+
+	mov	$1,d0
+	ret
+
+eqD_CHAR:
+eqD_INT:	mov	4(a0),d1
+	xorl	d0,d0
+	cmp	4(a1),d1
+	sete	%al
+	ret
+
+eqD_BOOL:	movb	4(a0),d1b
+	xorl	d0,d0
+	cmpb	4(a1),d1b
+	sete	d0b
+	ret
+
+eqD_REAL:	
+	fldl	4(a0)
+	fcompl	4(a1)
+	fnstsw	%ax
+	andb	$68,%ah
+	xorb	$64,%ah
+	sete	%al
+	andl	$1,%eax
+	ret
+
+eqD_false:
+	xorl	d0,d0
+	ret
+/
+/	the timer
+/
+
+#if !defined (OS2) && !defined (_WINDOWS_) && !defined (ELF)
+init_timer:
+	sub	$88,sp
+	push	sp
+	push	$0
+	call	@getrusage
+	add	$8,sp
+	
+	mov	(sp),d0
+	mov	4(sp),d1
+	mov	d0,last_time
+	mov	d1,last_time+4
+	xorl	d0,d0
+	mov	d0,execute_time
+	mov	d0,execute_time+4
+	mov	d0,garbage_collect_time
+	mov	d0,garbage_collect_time+4
+	mov	d0,IO_time
+	mov	d0,IO_time+4
+	add	$88,sp
+	ret
+
+get_time_diff:
+	sub	$88,sp
+	push	sp
+	push	$0
+	call	@getrusage
+	add	$8,sp
+
+	mov	(sp),d0
+	mov	4(sp),d1
+
+	mov	$last_time,a0
+	mov	(a0),a1
+	mov	d0,(a0)
+	sub	a1,d0
+
+	mov	4(a0),a1
+	mov	d1,4(a0)
+
+	sub	a1,d1
+	jae	get_time_diff_1
+	add	$1000000,d1
+	dec	d0
+get_time_diff_1:
+	add	$88,sp
+	ret
+	
+add_execute_time:
+	push	d1
+
+	call	get_time_diff
+	
+	mov	$execute_time,a0
+
+add_time:
+	add	(a0),d0
+	add	4(a0),d1
+	cmp	$1000000,d1
+	jb	add_execute_time_1
+	sub	$1000000,d1
+	inc	d0
+add_execute_time_1:
+	mov	d0,(a0)
+	mov	d1,4(a0)
+	pop	d1
+	ret
+
+add_garbage_collect_time:
+	push	d1
+	call	get_time_diff
+
+	mov	$garbage_collect_time,a0
+	jmp	add_time
+
+add_IO_time:
+	push	d1
+	call	get_time_diff
+
+	mov	$IO_time,a0
+	jmp	add_time
+#else
+
+init_timer:
+#ifdef _WINDOWS_
+	call	_GetTickCount?0
+#else
+# ifdef ELF
+	subl    $20,sp
+	push    sp
+	call    times
+	addl    $4,sp
+	movl    (sp),d0
+	imul    $10,d0
+	addl    $20,sp
+# else
+	subl	$4,sp
+	pushl	$4
+	lea	4(sp),a0
+	pushl	a0
+	pushl	$14
+	pushl	$14
+	call	_DosQuerySysInfo
+	addl	$16,sp
+	popl	d0
+# endif
+#endif
+	mov	d0,last_time
+	xorl	d0,d0
+	mov	d0,execute_time
+	mov	d0,garbage_collect_time
+	mov	d0,IO_time
+#ifdef MEASURE_GC
+	mov	d0,mark_compact_garbage_collect_time
+	mov	d0,compact_garbage_collect_time
+#endif
+	ret
+
+get_time_diff:
+#ifdef _WINDOWS_
+	call	_GetTickCount?0
+#else
+# ifdef ELF
+	subl    $20,sp
+	push    sp
+	call    times
+	addl    $4,sp
+	movl    (sp),d0
+	imul    $10,d0
+	addl    $20,sp
+# else
+	subl	$4,sp
+	pushl	$4
+	lea	4(sp),a0
+	pushl	a0
+	pushl	$14
+	pushl	$14
+	call	_DosQuerySysInfo
+	addl	$16,sp
+	popl	d0
+# endif
+#endif
+	mov	$last_time,a0
+	mov	(a0),a1
+	mov	d0,(a0)
+	sub	a1,d0
+	ret
+	
+add_execute_time:
+	call	get_time_diff
+	mov	$execute_time,a0
+
+add_time:
+	add	(a0),d0
+	mov	d0,(a0)
+	ret
+
+add_garbage_collect_time:
+	call	get_time_diff
+	mov	$garbage_collect_time,a0
+	jmp	add_time
+
+add_IO_time:
+	call	get_time_diff
+	mov	$IO_time,a0
+	jmp	add_time
+
+# ifdef MEASURE_GC
+add_mark_compact_garbage_collect_time:
+	call	get_time_diff
+	mov	$mark_compact_garbage_collect_time,a0
+	jmp	add_time
+
+add_compact_garbage_collect_time:
+	call	get_time_diff
+	mov	$compact_garbage_collect_time,a0
+	jmp	add_time
+# endif
+#endif
+
+/
+/	the garbage collector
+/
+
+collect_2l:
+#ifdef PROFILE
+	pushl	a2
+	movl	$garbage_collector_name,a2
+	call	profile_s
+	popl	a2
+#endif
+	mov	a0,(a3)
+	mov	a1,4(a3)
+	add	$8,a3
+	call	collect_0l_
+	mov	-4(a3),a1
+	mov	-8(a3),a0
+	sub	$8,a3
+#ifdef PROFILE
+	jmp	profile_r
+#else
+	ret
+#endif
+
+collect_1l:
+#ifdef PROFILE
+	pushl	a2
+	movl	$garbage_collector_name,a2
+	call	profile_s
+	popl	a2
+#endif
+	mov	a0,(a3)
+	add	$4,a3
+	call	collect_0l_
+	mov	-4(a3),a0
+	sub	$4,a3
+#ifdef PROFILE
+	jmp	profile_r
+#else
+	ret
+#endif
+
+collect_2:
+#ifdef PROFILE
+	movl	$garbage_collector_name,a2
+	call	profile_s
+#endif
+	mov	a0,(a3)
+	mov	a1,4(a3)
+	add	$8,a3
+	call	collect_0_
+	mov	-4(a3),a1
+	mov	-8(a3),a0
+	sub	$8,a3
+#ifdef PROFILE
+	jmp	profile_r
+#else
+	ret
+#endif
+
+collect_1:
+#ifdef PROFILE
+	movl	$garbage_collector_name,a2
+	call	profile_s
+#endif
+	mov	a0,(a3)
+	add	$4,a3
+	call	collect_0_
+	mov	-4(a3),a0
+	sub	$4,a3
+#ifdef PROFILE
+	jmp	profile_r
+#else
+	ret
+#endif
+
+#ifdef PROFILE
+collect_0:
+	movl	$garbage_collector_name,a2
+	call	profile_s
+	call	collect_0_
+	jmp	profile_r
+collect_0l:
+	pushl	a2
+	movl	$garbage_collector_name,a2
+	call	profile_s
+	popl	a2
+	call	collect_0l_
+	jmp	profile_r	
+#endif
+
+#ifndef PROFILE
+collect_0:
+#endif
+collect_0_:
+	movl	free_heap_offset(a4),a2
+#ifndef PROFILE
+collect_0l:
+#endif
+collect_0l_:
+	push	d0
+	push	d1
+
+	add	$32,a2
+	sub	free_heap_offset(a4),a2
+	shr	$2,a2
+	mov	a2,n_allocated_words_offset(a4)
+
+#ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	no_mark3
+#endif
+
+#ifdef MARK_GC
+	movl	bit_counter_offset(a4),a2
+	testl	a2,a2
+	je	no_scan
+
+	xorl	d1,d1
+	pushl	a3
+
+	movl	n_allocated_words_offset(a4),a3
+	movl	bit_vector_p_offset(a4),a0
+
+scan_bits:
+	cmpl	(a0),d1
+	je	zero_bits
+	movl	d1,(a0)
+	addl	$4,a0
+	subl	$1,a2
+	jne	scan_bits
+
+	jmp	end_scan
+
+zero_bits:
+	lea	4(a0),a1
+	addl	$4,a0
+	subl	$1,a2
+	jne	skip_zero_bits_lp1
+	jmp	end_bits
+
+skip_zero_bits_lp:
+	testl	d0,d0
+	jne	end_zero_bits
+skip_zero_bits_lp1:
+	movl	(a0),d0
+	addl	$4,a0
+	subl	$1,a2
+	jne	skip_zero_bits_lp
+
+	testl	d0,d0
+	je	end_bits
+	movl	d1,-4(a0)
+	movl	a0,d0
+	subl	a1,d0
+	jmp	end_bits2
+
+end_zero_bits:
+	movl	a0,d0
+	subl	a1,d0
+	shll	$3,d0
+	addl	d0,n_free_words_after_mark_offset(a4)
+	movl	d1,-4(a0)
+
+	cmpl	a3,d0
+	jb	scan_bits
+
+found_free_memory:
+	movl	a2,bit_counter_offset(a4)
+	movl	a0,bit_vector_p_offset(a4)
+
+	lea	-4(a1),a2
+	subl	heap_vector_offset(a4),a2
+	shll	$5,a2
+	movl	heap_p3_offset(a4),d1
+	addl	d1,a2
+	movl	a2,free_heap_offset(a4)
+
+	lea	(a2,d0,4),d1
+	movl	d1,heap_end_after_gc_offset(a4)
+	subl	$32,d1
+	movl	d1,end_heap_offset(a4)
+
+	popl	a3
+	popl	d1
+	popl	d0
+	ret
+
+end_bits:
+	movl	a0,d0
+	subl	a1,d0
+	addl	$4,d0
+end_bits2:
+	shll	$3,d0
+	addl	d0,n_free_words_after_mark_offset(a4)
+	cmpl	a3,d0
+	jae	found_free_memory
+
+end_scan:
+	popl	a3
+	movl	a2,bit_counter_offset(a4)
+
+no_scan:
+#endif
+
+#ifdef MARK_AND_COPY_GC
+no_mark3:
+#endif
+
+	movsbl	garbage_collect_flag_offset(a4),d0
+	test	d0,d0
+	jle	collect
+
+	subl	$2,d0
+	movb	d0b,garbage_collect_flag_offset(a4)
+
+	movl	extra_heap_size_offset(a4),d1
+	cmpl	d1,a2
+	ja	collect
+
+	movl	extra_heap_offset(a4),a2
+	movl	a2,free_heap_offset(a4)
+	lea	(a2,d1,4),d1
+	movl	d1,heap_end_after_gc_offset(a4)
+	subl	$32,d1
+	movl	d1,end_heap_offset(a4)
+
+	pop	d1
+	pop	d0
+	ret
+
+collect:
+	call	add_execute_time
+
+	testl	$4,@flags
+	je	no_print_stack_sizes
+
+	push	$garbage_collect_string_1
+	call	@ew_print_string
+	add	$4,sp
+
+	mov	a3,d0
+	sub	stack_p_offset(a4),d0
+	push	d0
+	call	@ew_print_int
+	add	$4,sp
+
+	push	$garbage_collect_string_2
+	call	@ew_print_string
+	add	$4,sp
+
+	mov	halt_sp_offset(a4),d0
+	sub	sp,d0
+	push	d0
+	call	@ew_print_int
+	add	$4,sp
+
+	push	$garbage_collect_string_3
+	call	@ew_print_string
+	add	$4,sp
+
+no_print_stack_sizes:
+	mov	stack_p_offset(a4),d0
+	add	a_stack_size_offset(a4),d0
+	cmp	d0,a3
+	ja	stack_overflow
+
+#ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	jne	compacting_collector
+#else
+# ifdef MARK_GC
+	jmp	compacting_collector
+# endif
+#endif
+
+#if defined (MARK_AND_COPY_GC) || !defined (MARK_GC)
+	cmpb	$0,garbage_collect_flag_offset(a4)
+	jne	compacting_collector
+
+	mov	heap_copied_vector_offset(a4),a2
+
+	cmpl	$0,heap_end_after_copy_gc_offset(a4)
+	je	zero_all
+
+	movl	free_heap_offset(a4),d0
+	subl	heap_p1_offset(a4),d0
+	addl	$63*4,d0
+	shr	$8,d0
+	call	zero_bit_vector
+
+	movl	heap_end_after_copy_gc_offset(a4),a1
+	subl	heap_p1_offset(a4),a1
+	shr	$6,a1
+	andl	$-4,a1
+
+	movl	heap_copied_vector_offset(a4),a2
+	movl	heap_copied_vector_size_offset(a4),d0
+	addl	a1,a2
+	subl	a1,d0
+	shr	$2,d0
+
+	movl	$0,heap_end_after_copy_gc_offset(a4)
+
+	call	zero_bit_vector
+	jmp	end_zero_bit_vector
+
+zero_all:
+	mov	heap_copied_vector_size_offset(a4),d0
+	shr	$2,d0
+	call	zero_bit_vector
+
+end_zero_bit_vector:
+
+#include "icopy.s"
+
+#ifdef WRITE_HEAP
+	movl	a3,heap2_begin_and_end
+#endif
+
+	neg	a2
+	add	a3,a2
+	shr	$2,a2
+
+#ifdef MEASURE_GC
+	addl	a2,total_gc_bytes_lo
+	jnc	no_total_gc_bytes_carry1
+	incl	total_gc_bytes_hi
+no_total_gc_bytes_carry1:
+#endif
+
+	pop	a3
+
+	call	add_garbage_collect_time
+
+	subl	n_allocated_words_offset(a4),a2
+	jc	switch_to_mark_scan
+
+	lea	(a2,a2,4),d0
+	shl	$5,d0
+	movl	heap_size_offset(a4),d1
+	mov	d1,a0
+	shl	$2,d1
+	add	a0,d1
+	add	d1,d1
+	add	a0,d1
+	cmp	d1,d0
+	jnc	no_mark_scan
+/	jmp	no_mark_scan
+
+switch_to_mark_scan:
+	movl	heap_size_33_offset(a4),d0
+	shl	$5,d0
+	movl	heap_p_offset(a4),d1
+
+	movl	heap_p1_offset(a4),a0
+	cmpl	heap_p2_offset(a4),a0
+	jc	vector_at_begin
+	
+vector_at_end:
+	movl	d1,heap_p3_offset(a4)
+	add	d0,d1
+	movl	d1,heap_vector_offset(a4)
+	
+	movl	heap_p1_offset(a4),d0
+	movl	d0,extra_heap_offset(a4)
+	subl	d0,d1
+	shr	$2,d1
+	movl	d1,extra_heap_size_offset(a4)
+	jmp	switch_to_mark_scan_2
+
+vector_at_begin:
+	movl	d1,heap_vector_offset(a4)
+	addl	heap_size_offset(a4),d1
+	subl	d0,d1
+	movl	d1,heap_p3_offset(a4)
+	
+	movl	d1,extra_heap_offset(a4)
+	movl	heap_p2_offset(a4),a0
+	subl	d1,a0
+	shr	$2,a0
+	movl	a0,extra_heap_size_offset(a4)
+
+switch_to_mark_scan_2:
+	movl	heap_size_offset(a4),d0
+	shr	$3,d0
+	sub	a2,d0
+	shl	$2,d0
+	
+	movb	$1,garbage_collect_flag_offset(a4)
+	
+	test	a2,a2
+	jns	end_garbage_collect
+	
+	movb	$-1,garbage_collect_flag_offset(a4)
+
+	movl	extra_heap_size_offset(a4),d1
+	movl	d1,d0
+	subl	n_allocated_words_offset(a4),d0
+	js	out_of_memory_4
+
+	movl	extra_heap_offset(a4),a2
+	shl	$2,d1
+	movl	a2,free_heap_offset(a4)
+	addl	a2,d1
+	movl	d1,heap_end_after_gc_offset(a4)
+#ifdef WRITE_HEAP
+	movl	a2,heap_end_write_heap
+#endif
+	subl	$32,d1
+	movl	d1,end_heap_offset(a4)
+#ifdef WRITE_HEAP
+	movl	$1,d3_flag_write_heap
+	jmp	end_garbage_collect_
+#else
+	jmp	end_garbage_collect
+#endif
+no_mark_scan:
+/ exchange the semi_spaces
+	mov	heap_p1_offset(a4),d0
+	mov	heap_p2_offset(a4),d1
+	mov	d0,heap_p2_offset(a4)
+	mov	d1,heap_p1_offset(a4)
+
+	mov	heap_size_129_offset(a4),d0
+	shl	$6-2,d0
+
+# ifdef MUNMAP
+	mov	heap_p2_offset(a4),d1
+	lea	(d1,d0,4),a0
+	add	$4095,d1
+	andl	$-4096,d1
+	andl	$-4096,a0
+	sub	d1,a0
+	jbe	no_pages
+	push	d0
+
+	push	a0
+	push	d1
+	call	_munmap
+	add	$8,sp
+
+	pop	d0
+no_pages:
+# endif
+
+# ifdef ADJUST_HEAP_SIZE
+	movl	d0,d1
+# endif
+	sub	a2,d0
+
+# ifdef ADJUST_HEAP_SIZE
+	movl	d0,a0
+	imull	@heap_size_multiple
+	shrd	$9,a1,d0
+	shr	$9,a1
+	jne	no_small_heap1
+
+	cmpl	$(MINIMUM_HEAP_SIZE_2),d0
+	jae	not_too_small1
+	movl	$(MINIMUM_HEAP_SIZE_2),d0
+not_too_small1:
+	subl	d0,d1
+	jb	no_small_heap1
+
+	shl	$2,d1
+	movl	heap_end_after_gc_offset(a4),a2
+	subl	d1,end_heap_offset(a4)
+	movl	a2,heap_end_after_copy_gc_offset(a4)
+	subl	d1,a2
+	movl	a2,heap_end_after_gc_offset(a4)
+
+no_small_heap1:
+	movl	a0,d0
+# endif
+
+	shl	$2,d0
+#endif
+
+end_garbage_collect:
+#ifdef WRITE_HEAP
+	movl	a4,heap_end_write_heap
+	movl	$0,d3_flag_write_heap
+end_garbage_collect_:
+#endif
+
+	pushl	d0
+
+	testl	$2,@flags
+	je	no_heap_use_message
+
+	pushl	d0
+	
+	push	$heap_use_after_gc_string_1
+	call	@ew_print_string
+	add	$4,sp
+	
+	call	@ew_print_int
+	add	$4,sp
+	
+	push	$heap_use_after_gc_string_2
+	call	@ew_print_string
+	add	$4,sp
+
+no_heap_use_message:
+
+#ifdef FINALIZERS
+	call	call_finalizers
+#endif
+
+	popl	d0
+
+#ifdef WRITE_HEAP
+	/* Check whether memory profiling is on or off */
+	testb	$32,@flags
+	je	no_write_heap
+
+	cmpl	@min_write_heap_size,d0
+	jb	no_write_heap
+
+	pushl	a0
+	pushl 	a1
+	pushl	a2
+	pushl	a3
+	pushl	a4
+	
+	subl	$64,sp
+
+	movl	d3_flag_write_heap,d0
+	test	d0,d0
+	jne	copy_to_compact_with_alloc_in_extra_heap	
+	
+	movsbl	garbage_collect_flag_offset(a4),d0
+	
+	movl	heap2_begin_and_end,a0
+	movl	heap2_begin_and_end+4,a1
+
+	lea	heap_p1_offset(a4),d1
+	
+	testl	d0,d0
+	je	gc0
+	
+	lea	heap_p2_offset(a4),d1
+	jg	gc1
+
+	lea	heap_p3_offset(a4),d1
+	xor	a0,a0
+	xor	a1,a1
+	
+gc0:
+gc1:
+	movl	(d1),d1
+	
+	/* fill record */
+
+	movl	sp,d0
+	
+	movl	d1,0(d0)
+	movl	a4,4(d0)			// klop dit?
+	
+	movl	a0,8(d0)			// heap2_begin
+	movl	a1,12(d0)			// heap2_end
+
+	movl	stack_p_offset(a4),d1
+	movl	d1,16(d0)			// stack_begin
+
+	movl	a3,20(d0)			// stack_end
+	movl	$0,24(d0)			// text_begin
+	movl	$0,28(d0)			// data_begin
+	
+	movl	$small_integers,32(d0)	// small_integers
+	movl	$static_characters,36(d0)	// small_characters
+	
+	movl	$INT+2,40(d0)		// INT-descP
+	movl	$CHAR+2,44(d0)		// CHAR-descP
+	movl	$REAL+2,48(d0)		// REAL-descP
+	movl	$BOOL+2,52(d0)		// BOOL-descP
+	movl	$__STRING__+2,56(d0)	// STRING-descP
+	movl	$__ARRAY__+2,60(d0)		// ARRAY-descP
+	
+	pushl	d0
+	call	@write_heap
+	
+	addl	$68,sp
+	
+	popl	a4
+	popl	a3
+	popl	a2
+	popl	a1
+	popl	a0
+no_write_heap:
+	
+#endif
+
+	movl	free_heap_offset(a4),a2
+
+	pop	d1
+	pop	d0
+	ret
+
+#ifdef FINALIZERS
+call_finalizers:
+	movl	free_finalizer_list,d0
+
+call_finalizers_lp:
+	cmpl	$__Nil-4,d0
+	je	end_call_finalizers
+	pushl	4(d0)
+	movl	8(d0),d1
+	pushl	4(d1)
+	call	*(d1)
+	addl	$4,sp
+	pop	d0
+	jmp	call_finalizers_lp
+end_call_finalizers:
+
+	movl	$__Nil-4,free_finalizer_list
+	ret
+#endif
+
+#ifdef WRITE_HEAP
+copy_to_compact_with_alloc_in_extra_heap:
+	movl	heap2_begin_and_end,a0
+	movl	heap2_begin_and_end+4,a1
+	lea	heap_p2_offset(a4),d1
+	jmp	gc1
+#endif
+
+out_of_memory_4:
+	call	add_garbage_collect_time
+	
+	mov	$out_of_memory_string_4,a2
+	jmp	print_error
+
+zero_bit_vector:
+	xorl	a1,a1
+	testb	$1,d0b
+	je	zero_bits1_1
+	mov	a1,(a2)
+	add	$4,a2
+zero_bits1_1:
+	shr	$1,d0
+
+	mov	d0,d1
+	shr	$1,d0
+	testb	$1,d1b
+	je	zero_bits1_5
+
+	sub	$8,a2
+	jmp	zero_bits1_2
+
+zero_bits1_4:
+	mov	a1,(a2)
+	mov	a1,4(a2)
+zero_bits1_2:
+	mov	a1,8(a2)
+	mov	a1,12(a2)
+	add	$16,a2
+zero_bits1_5:
+	sub	$1,d0
+	jae	zero_bits1_4
+	ret
+
+reorder:
+	pushl	a3
+	pushl	a2
+
+	movl	d0,a2
+	shl	$2,a2
+	movl	d1,a3
+	shl	$2,a3
+	addl	a3,a0
+	subl	a2,a1
+
+	pushl	a3
+	pushl	a2
+	pushl	d1
+	pushl	d0
+	jmp	st_reorder_lp
+
+reorder_lp:
+	movl	(a0),a2
+	movl	-4(a1),a3
+	movl	a2,-4(a1)
+	subl	$4,a1
+	movl	a3,(a0)
+	addl	$4,a0
+	
+	dec	d0
+	jne	next_b_in_element
+	movl	(sp),d0
+	addl	12(sp),a0
+next_b_in_element:
+	dec	d1
+	jne	next_a_in_element
+	movl	4(sp),d1
+	subl	8(sp),a1
+next_a_in_element:
+st_reorder_lp:
+	cmpl	a0,a1
+	ja	reorder_lp
+
+	popl	d0
+	popl	d1
+	addl	$8,sp
+	popl	a2
+	popl	a3
+	ret
+
+/
+/	the sliding compacting garbage collector
+/
+
+compacting_collector:
+/ zero all mark bits
+
+	movl	heap_p3_offset(a4),d0
+	negl	d0
+	movl	d0,neg_heap_p3_offset(a4)
+
+	movl	a3,stack_top_offset(a4)
+
+#ifdef MARK_GC
+# ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	no_mark4
+# endif
+	cmpl	$0,zero_bits_before_mark_offset(a4)
+	je	no_zero_bits
+
+	movl	$0,zero_bits_before_mark_offset(a4)
+
+# ifdef MARK_AND_COPY_GC
+no_mark4:
+# endif
+#endif
+
+	movl	heap_vector_offset(a4),a2
+	movl	heap_size_33_offset(a4),d0
+	addl	$3,d0
+	shr	$2,d0
+
+	xorl	d1,d1
+
+	testb	$1,d0b
+	je	zero_bits_1
+	movl	d1,(a2)
+	addl	$4,a2
+zero_bits_1:
+	movl	d0,a0
+	shr	$2,d0
+
+	testb	$2,a0b
+	je	zero_bits_5
+
+	subl	$8,a2
+	jmp	zero_bits_2
+
+zero_bits_4:
+	movl	d1,(a2)
+	movl	d1,4(a2)
+zero_bits_2:
+	movl	d1,8(a2)
+	movl	d1,12(a2)
+	addl	$16,a2
+zero_bits_5:
+	subl	$1,d0
+	jnc	zero_bits_4
+
+#ifdef MARK_GC
+# ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	no_mark5
+# endif
+no_zero_bits:
+	movl	n_last_heap_free_bytes_offset(a4),d0
+	movl	n_free_words_after_mark_offset(a4),d1
+
+#if 1
+	shrl	$2,d0
+#else
+	shll	$2,d1
+#endif
+
+	movl	d1,a2
+	shll	$3,a2
+	addl	d1,a2
+	shrl	$2,a2
+
+	cmpl	a2,d0
+	jg	compact_gc
+
+# ifdef ADJUST_HEAP_SIZE
+	movl	bit_vector_size_offset(a4),d1
+	shl	$2,d1
+
+	subl	d1,d0
+	negl	d0
+
+	imull	@heap_size_multiple
+	shrd	$7,a1,d0
+	shr	$7,a1
+	jne	no_smaller_heap
+	
+	cmpl	d1,d0
+	jae	no_smaller_heap
+	
+	cmpl	$(MINIMUM_HEAP_SIZE),d1
+	jbe	no_smaller_heap
+	
+	jmp	compact_gc
+no_smaller_heap:
+# endif
+
+#include "imark.s"
+
+compact_gc:
+	movl	$1,zero_bits_before_mark_offset(a4)
+	movl	$0,n_last_heap_free_bytes_offset(a4)
+	movl	$1000,n_free_words_after_mark_offset(a4)
+# ifdef MARK_AND_COPY_GC
+no_mark5:
+# endif
+#endif
+
+#include "icompact.s"
+
+	movl	stack_top_offset(a4),a3
+
+	movl	heap_size_33_offset(a4),d1
+	shl	$5,d1
+	addl	heap_p3_offset(a4),d1
+
+	movl	a2,free_heap_offset(a4)
+	movl	d1,heap_end_after_gc_offset(a4)
+	lea	-32(d1),d0
+	movl	d0,end_heap_offset(a4)
+
+	subl	a2,d1
+	shr	$2,d1
+
+	subl	n_allocated_words_offset(a4),d1
+	jc	out_of_memory_4
+
+	cmpl	$107374182,d1
+	jae	not_out_of_memory
+	movl	d1,d0
+	shl	$2,d0
+	addl	d1,d0
+	shl	$3,d0
+	cmpl	heap_size_offset(a4),d0
+	jc	out_of_memory_4
+not_out_of_memory:
+
+#if defined (MARK_GC) || defined (COMPACT_GC_ONLY)
+# if defined (MARK_GC) && defined (ADJUST_HEAP_SIZE)
+#  ifdef MARK_AND_COPY_GC
+ 	testb	$64,@flags
+	je	no_mark_6
+#  endif
+
+	movl	neg_heap_p3_offset(a4),d0
+	addl	a2,d0
+	movl	n_allocated_words_offset(a4),d1
+	lea	(d0,d1,4),d0
+
+	movl	heap_size_33_offset(a4),d1
+	shl	$5,d1
+	
+	imull	@heap_size_multiple
+	shrd	$8,a1,d0
+	shr	$8,a1
+	jne	no_small_heap2
+
+	andl	$-4,d0
+	
+	cmpl	$(MINIMUM_HEAP_SIZE),d0
+	jae	not_too_small2
+	movl	$(MINIMUM_HEAP_SIZE),d0
+not_too_small2:
+	movl	d1,a0
+	subl	d0,a0
+	jb	no_small_heap2
+	
+	subl	a0,heap_end_after_gc_offset(a4)
+	subl	a0,end_heap_offset(a4)	
+
+	movl	d0,d1
+
+no_small_heap2:
+	shr	$2,d1
+	movl	d1,bit_vector_size_offset(a4)
+
+#  ifdef MARK_AND_COPY_GC
+no_mark_6:
+#  endif
+# endif
+	jmp	no_copy_garbage_collection
+#else
+	shl	$2,d0
+	movl	heap_size_offset(a4),a0
+	shl	$5,a0
+	subl	heap_size_offset(a4),a0
+	cmpl	a0,d0
+	jle	no_copy_garbage_collection
+
+	movl	heap_p_offset(a4),d0
+	movl	d0,heap_p1_offset(a4)
+
+	movl	heap_size_129_offset(a4),d1
+	shl	$6,d1
+	addl	d1,d0
+	movl	d0,heap_copied_vector_offset(a4)
+	movl	d0,heap_end_after_gc_offset(a4)
+	lea	-32(d0),d1
+	movl	d1,end_heap_offset(a4)
+	movl	heap_copied_vector_size_offset(a4),d1
+	addl	d0,d1
+	movl	d1,heap_p2_offset(a4)
+
+	movl	heap_p3_offset(a4),d0
+	cmpl	heap_vector_offset(a4),d0
+	jle	vector_at_end_2
+
+	movl	heap_vector_offset(a4),d1
+	movl	d1,extra_heap_offset(a4)
+	subl	d1,d0
+	shr	$2,d0
+	movl	d0,extra_heap_size_offset(a4)
+
+	movb	$2,garbage_collect_flag_offset(a4)
+	jmp	no_copy_garbage_collection
+
+vector_at_end_2:
+	movb	$0,garbage_collect_flag_offset(a4)
+#endif
+
+no_copy_garbage_collection:
+#ifdef MEASURE_GC
+	call	add_compact_garbage_collect_time
+
+	movl	free_heap_offset(a4),d0
+	subl	heap_p3_offset(a4),d0
+
+	addl	d0,total_compact_gc_bytes_lo
+	jnc	no_total_compact_gc_bytes_carry
+	incl	total_compact_gc_bytes_hi
+no_total_compact_gc_bytes_carry:
+#else
+	call	add_garbage_collect_time
+#endif
+
+	movl	free_heap_offset(a4),d0
+	subl	heap_p3_offset(a4),d0
+	movl	n_allocated_words_offset(a4),d1
+	lea	(d0,d1,4),d0
+	jmp	end_garbage_collect
+
+#if defined (_WINDOWS_) && defined (STACK_OVERFLOW_EXCEPTION_HANDLER)
+	.globl	_clean_exception_handler?4
+_clean_exception_handler?4:
+	movl	4(%esp),%eax
+	movl	(%eax),%eax
+	cmpl	$0xc00000fd,(%eax)	//	EXCEPTION_STACK_OVERFLOW
+	je  	stack_overflow_exception
+
+	cmpl	$0x80000001,(%eax)	//	EXCEPTION_GUARD_PAGE
+	je  	guard_page_or_access_violation_exception
+
+	cmpl	$0xc0000005,(%eax)	//	EXCEPTION_ACCESS_VIOLATION
+	je  	guard_page_or_access_violation_exception
+
+no_stack_overflow_exception:
+	movl	$0,%eax			//	EXCEPTION_CONTINUE_SEARCH
+	ret 	$4
+
+guard_page_or_access_violation_exception:
+	movl	0x18(%eax),%eax
+	andl	$-4096,%eax
+	cmpl	%eax,a_stack_guard_page
+	jne 	no_stack_overflow_exception
+	
+	cmpl	$0,a_stack_guard_page
+	je  	no_stack_overflow_exception
+
+stack_overflow_exception:
+	movl	4(%esp),%eax
+	movl	4(%eax),%eax
+	movl	$stack_overflow,0xb8(%eax)
+
+	movl	$-1,%eax			//	EXCEPTION_CONTINUE_EXECUTION
+	ret 	$4
+#endif
+
+stack_overflow:
+	call	add_execute_time
+
+	mov	$stack_overflow_string,a2
+	jmp	print_error
+
+@IO_error:
+	addl	$4,sp
+	
+	pushl	$IO_error_string
+	call	@ew_print_string
+	addl	$4,sp
+	
+	call	@ew_print_string
+	addl	$4,sp
+
+	pushl	$new_line_string
+	call	@ew_print_string
+	addl	$4,sp
+
+	jmp	halt
+
+print_error:
+	push	a2
+	call	@ew_print_string
+	add	$4,sp
+
+halt:
+	mov	halt_sp_offset(a4),sp
+
+#ifdef PROFILE
+	call	write_profile_stack
+#endif
+
+#ifdef _WINDOWS_
+# if 0
+	testb	$8,@flags
+	jne	exit
+	testb	$16,@flags
+	je	exit
+	call	@wait_for_key_press
+# endif
+#endif
+
+#ifdef _WINDOWS_
+	movl	$1,@execution_aborted
+
+	cmpl	$0,dll_initisialised
+	je	exit
+
+	cmpl	$0,@return_code
+	jne	return_code_set
+	movl	$-1,@return_code
+return_code_set:
+	pushl	@return_code
+	call	_ExitProcess?4
+	jmp	return_code_set
+#else
+	jmp	exit
+#endif
+
+e__system__eaind:
+__eaind:
+eval_fill:
+	mov	a0,(a3)
+	add	$4,a3
+	mov	a1,a0
+	call	*(a1)
+	mov	a0,a1
+	mov	-4(a3),a0
+	sub	$4,a3
+	
+	mov	(a1),a2
+	mov	a2,(a0)
+	mov	4(a1),a2
+	mov	a2,4(a0)
+	mov	8(a1),a2
+	mov	a2,8(a0)
+	ret
+
+	align	(2)
+	movl	$e__system__eaind,d0
+	jmp	*d0
+	.space	5
+	.long	e__system__dind
+	.long	-2
+e__system__nind:
+__indirection:
+	mov	4(a0),a1
+	mov	(a1),d0
+	testb	$2,d0b
+#ifdef MARK_GC
+	je	eval_fill2
+#else
+	je	__cycle__in__spine
+#endif
+	mov	d0,(a0)
+	mov	4(a1),a2
+	mov	a2,4(a0)
+	mov	8(a1),a2
+	mov	a2,8(a0)
+	ret
+
+#ifdef MARK_GC
+eval_fill2:
+	movl	$__cycle__in__spine,(a0)
+	movl	a0,(a3)
+# ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	__cycle__in__spine	
+# endif
+	addl	$4,a3
+	movl	a1,a0
+	call	*d0
+	movl	a0,a1
+	movl	-4(a3),a0
+	subl	$4,a3
+	
+	mov	(a1),a2
+	mov	a2,(a0)
+	mov	4(a1),a2
+	mov	a2,4(a0)
+	mov	8(a1),a2
+	mov	a2,8(a0)
+	ret
+#endif
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_0:
+	movl	$__indirection,(a1)
+	mov	a0,4(a1)
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_1:
+	movl	$__indirection,(a1)
+	mov	4(a1),d0
+	mov	a0,4(a1)
+	mov	d0,a1
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_2:
+	movl	$__indirection,(a1)
+	mov	4(a1),d0
+	mov	a0,4(a1)
+	mov	a0,(a3)
+	add	$4,a3
+	mov	8(a1),a0
+	mov	d0,a1
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_3:
+	movl	$__indirection,(a1)
+	mov	4(a1),d0
+	mov	a0,4(a1)
+	mov	a0,(a3)
+	mov	12(a1),d1
+	mov	d1,4(a3)
+	add	$8,a3
+	mov	8(a1),a0
+	mov	d0,a1
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_4:
+	movl	$__indirection,(a1)
+	mov	4(a1),d0
+	mov	a0,4(a1)
+	mov	a0,(a3)
+	mov	16(a1),d1
+	mov	d1,4(a3)
+	mov	12(a1),d1
+	mov	d1,8(a3)
+	add	$12,a3
+	mov	8(a1),a0
+	mov	d0,a1
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_5:
+	movl	$__indirection,(a1)
+	mov	4(a1),d0
+	mov	a0,(a3)
+	mov	a0,4(a1)
+	mov	20(a1),d1
+	mov	d1,4(a3)
+	mov	16(a1),d1
+	mov	d1,8(a3)
+	mov	12(a1),d1
+	mov	d1,12(a3)
+	add	$16,a3
+	mov	8(a1),a0
+	mov	d0,a1
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_6:
+	movl	$__indirection,(a1)
+	mov	4(a1),d0
+	mov	a0,(a3)
+	mov	a0,4(a1)
+	mov	24(a1),d1
+	mov	d1,4(a3)
+	mov	20(a1),d1
+	mov	d1,8(a3)
+	mov	16(a1),d1
+	mov	d1,12(a3)
+	mov	12(a1),d1
+	mov	d1,16(a3)
+	add	$20,a3
+	mov	8(a1),a0
+	mov	d0,a1
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_7:
+	mov	$0,d0
+	mov	$20,d1
+eval_upd_n:
+	movl	$__indirection,(a1)
+	push	4(a1)
+	mov	a0,(a3)
+	mov	a0,4(a1)
+	add	d1,a1
+	mov	8(a1),d1
+	mov	d1,4(a3)
+	mov	4(a1),d1
+	mov	d1,8(a3)
+	mov	(a1),d1
+	mov	d1,12(a3)
+	add	$16,a3
+
+eval_upd_n_lp:
+	mov	-4(a1),d1
+	sub	$4,a1
+	mov	d1,(a3)
+	add	$4,a3
+	sub	$1,d0
+	jnc	eval_upd_n_lp
+
+	mov	-4(a1),d1
+	mov	d1,(a3)
+	add	$4,a3
+	mov	-8(a1),a0
+	pop	a1
+	jmp	*a2
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_8:
+	mov	$1,d0
+	mov	$24,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_9:
+	mov	$2,d0
+	mov	$28,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_10:
+	mov	$3,d0
+	mov	$32,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_11:
+	mov	$4,d0
+	mov	$36,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_12:
+	mov	$5,d0
+	mov	$40,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_13:
+	mov	$6,d0
+	mov	$44,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_14:
+	mov	$7,d0
+	mov	$48,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_15:
+	mov	$8,d0
+	mov	$52,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_16:
+	mov	$9,d0
+	mov	$56,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_17:
+	mov	$10,d0
+	mov	$60,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_18:
+	mov	$11,d0
+	mov	$64,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_19:
+	mov	$12,d0
+	mov	$68,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_20:
+	mov	$13,d0
+	mov	$72,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_21:
+	mov	$14,d0
+	mov	$76,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_22:
+	mov	$15,d0
+	mov	$80,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_23:
+	mov	$16,d0
+	mov	$84,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_24:
+	mov	$17,d0
+	mov	$88,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_25:
+	mov	$18,d0
+	mov	$92,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_26:
+	mov	$19,d0
+	mov	$96,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_27:
+	mov	$20,d0
+	mov	$100,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_28:
+	mov	$21,d0
+	mov	$104,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_29:
+	mov	$22,d0
+	mov	$108,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_30:
+	mov	$23,d0
+	mov	$112,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_31:
+	mov	$24,d0
+	mov	$116,d1
+	jmp	eval_upd_n
+
+#ifdef PROFILE
+	call	profile_n
+	movl	d0,a2
+#endif
+eval_upd_32:
+	mov	$25,d0
+	mov	$120,d1
+	jmp	eval_upd_n
+
+/
+/	STRINGS
+/
+
+	section	(catAC)
+catAC:
+	mov	4(a0),a2
+	add	4(a1),a2
+	add	$8+3,a2
+	shr	$2,a2
+
+	movl	free_heap_offset(a4),d0
+	lea	-32(d0,a2,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	gc_3
+gc_r_3:
+	push	a4
+	movl	free_heap_offset(a4),a4
+	push	a4
+
+	mov	4(a0),d0
+	mov	4(a1),d1
+	add	$8,a0
+	add	$8,a1
+
+	movl	$__STRING__+2,(a4)
+
+/ store length
+
+	mov	d0,a2
+	add	d1,a2
+	mov	a2,4(a4)
+	add	$8,a4
+
+/ copy string 1
+
+	lea	3(d1),a2
+	shr	$2,a2
+	add	a4,d1
+
+	xchg	a2,%ecx
+	xchg	a1,%esi
+	cld
+	rep
+	movsl
+	mov	a1,%esi
+	mov	a2,%ecx
+
+	mov	d1,a4
+
+/ copy_string 2
+
+cat_string_6:
+	mov	d0,a2
+	shr	$2,a2
+	je	cat_string_9
+
+cat_string_7:
+	mov	(a0),d1
+	add	$4,a0
+	mov	d1,(a4)
+	add	$4,a4
+	dec	a2
+	jne	cat_string_7
+	
+cat_string_9:
+	testb	$2,d0b
+	je	cat_string_10
+	movw	(a0),d1w
+	add	$2,a0
+	movw	d1w,(a4)
+	add	$2,a4
+cat_string_10:
+	testb	$1,d0b
+	je	cat_string_11
+	movb	(a0),d1b
+	movb	d1b,(a4)
+	inc	a4
+cat_string_11:
+	lea	3(a4),a2
+	pop	a0
+	pop	a4
+	andl	$-4,a2
+	mov	a2,free_heap_offset(a4)
+	ret
+	
+gc_3:	call	collect_2l
+	jmp	gc_r_3
+
+empty_string:
+	movl	$zero_length_string,a0
+	ret
+
+	section	(sliceAC)
+sliceAC:
+	mov	4(a0),a2
+	test	d1,d1
+	jns	slice_string_1
+	xorl	d1,d1
+slice_string_1:
+	cmp	a2,d1
+	jge	empty_string
+	cmp	d1,d0
+	jl	empty_string
+	inc	d0
+	cmp	a2,d0
+	jle	slice_string_2
+	mov	a2,d0
+slice_string_2:
+	sub	d1,d0
+
+	lea	8+3(d0),a2
+	shr	$2,a2
+
+	movl	free_heap_offset(a4),a1
+	lea	-32(a1,a2,4),a1
+	cmpl	end_heap_offset(a4),a1
+	jae	gc_4
+r_gc_4:
+	lea	8(a0,d1),a1
+	movl	a4,d1
+	movl	free_heap_offset(a4),a4
+	sub	$2,a2
+
+	movl	$__STRING__+2,(a4)
+	mov	d0,4(a4)
+
+/ copy part of string
+	mov	a2,%ecx
+	movl	a4,a2
+	add	$8,a4
+
+	xchg	a1,%esi
+	cld
+	rep
+	movsl
+	mov	a1,%esi
+	mov	a2,a0
+
+	movl	a4,free_heap_offset(d1)
+	movl	d1,a4
+	ret
+
+gc_4:
+	movl	a1,a2
+	call	collect_1l
+	lea	8+3(d0),a2
+	shr	$2,a2
+	jmp	r_gc_4
+
+	section	(updateAC)
+updateAC:
+	mov	4(a0),a2
+	cmp	a2,d1
+	jae	update_string_error
+
+	add	$8+3,a2
+	shr	$2,a2
+
+	movl	free_heap_offset(a4),a1
+	lea	-32(a1,a2,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	gc_5
+r_gc_5:
+	lea	8(a0),a1
+	mov	4(a0),a0
+
+	movl	a4,a2
+	movl	free_heap_offset(a4),a4
+
+	movl	$__STRING__+2,(a4)
+	mov	a0,4(a4)
+	add	$8,a4
+
+	add	a4,d1
+
+	add	$3,a0
+	shr	$2,a0
+
+	xchg	a1,%esi
+	cld
+	rep
+	movsl
+	mov	a1,%esi
+
+	movb	d0b,(d1)
+
+	movl	free_heap_offset(a2),a0
+	movl	a4,free_heap_offset(a2)
+	movl	a2,a4
+	ret
+
+gc_5:	call	collect_1l
+	jmp	r_gc_5
+
+update_string_error:
+	movl	$high_index_string,a2
+	test	d0,d0
+	jns	update_string_error_2
+	movl	$low_index_string,a2
+update_string_error_2:
+	jmp	print_error
+
+	section	(eqAC)
+eqAC:
+	mov	4(a0),d0
+	cmp	4(a1),d0
+	jne	equal_string_ne
+	add	$8,a0
+	add	$8,a1
+	mov	d0,d1
+	andl	$3,d1
+	shr	$2,d0
+	je	equal_string_b
+equal_string_1:
+	mov	(a0),a2
+	cmp	(a1),a2
+	jne	equal_string_ne
+	add	$4,a0
+	add	$4,a1
+	dec	d0
+	jne	equal_string_1
+equal_string_b:
+	testb	$2,d1b
+	je	equal_string_2
+	movw	(a0),d0w
+	cmpw	(a1),d0w
+	jne	equal_string_ne
+	add	$2,a0
+	add	$2,a1
+equal_string_2:
+	testb	$1,d1b
+	je	equal_string_eq
+	movb	(a0),d1b
+	cmpb	(a1),d1b
+	jne	equal_string_ne
+equal_string_eq:
+	mov	$1,d0
+	ret
+equal_string_ne:
+	xorl	d0,d0
+	ret
+
+	section	(cmpAC)
+cmpAC:
+	mov	4(a0),d1
+	mov	4(a1),a2
+	add	$8,a0
+	add	$8,a1
+	cmp	d1,a2
+	jb	cmp_string_less
+	ja	cmp_string_more
+	xorl	d0,d0
+	jmp	cmp_string_chars
+cmp_string_more:
+	mov	$1,d0
+	jmp	cmp_string_chars
+cmp_string_less:
+	mov	$-1,d0
+	mov	a2,d1
+	jmp	cmp_string_chars
+
+cmp_string_1:
+	mov	(a1),a2
+	cmp	(a0),a2
+	jne	cmp_string_ne4
+	add	$4,a1
+	add	$4,a0
+cmp_string_chars:
+	sub	$4,d1
+	jnc	cmp_string_1
+cmp_string_b:
+	testb	$2,d1b
+	je	cmp_string_2
+	movb	(a1),%bh
+	cmpb	(a0),%bh
+	jne	cmp_string_ne
+	movb	1(a1),%bh
+	cmpb	1(a0),%bh
+	jne	cmp_string_ne
+	add	$2,a1
+	add	$2,a0
+cmp_string_2:
+	testb	$1,d1b
+	je	cmp_string_eq
+	movb	(a1),d1b
+	cmpb	(a0),d1b
+	jne	cmp_string_ne
+cmp_string_eq:
+	ret
+cmp_string_ne4:
+	movb	(a1),d1b
+	cmpb	(a0),d1b
+	jne	cmp_string_ne
+	movb	1(a1),d1b
+	cmpb	1(a0),d1b
+	jne	cmp_string_ne
+	movb	2(a1),d1b
+	cmpb	2(a0),d1b
+	jne	cmp_string_ne
+	movb	3(a1),d1b
+	cmpb	3(a0),d1b
+cmp_string_ne:
+	ja	cmp_string_r1
+	mov	$-1,d0
+	ret
+cmp_string_r1:
+	mov	$1,d0
+	ret
+
+	section	(string_to_string_node)
+string_to_string_node:
+	movl	(a0),d0
+	addl	$4,a0
+
+	lea	3(d0),d1
+	shr	$2,d1
+
+	movl	free_heap_offset(a4),a1
+	lea	-32+8(a1,d1,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	string_to_string_node_gc
+
+string_to_string_node_r:
+	movl	free_heap_offset(a4),a2
+	movl	a2,a1
+	movl	$__STRING__+2,(a2)
+	movl	d0,4(a2)
+	addl	$8,a2
+	jmp	string_to_string_node_4
+
+string_to_string_node_2:
+	movl	(a0),d0
+	addl	$4,a0
+	movl	d0,(a2)
+	addl	$4,a2
+string_to_string_node_4:
+	subl	$1,d1
+	jge	string_to_string_node_2
+
+	movl	a2,free_heap_offset(a4)
+	movl	a1,a0
+	ret
+
+string_to_string_node_gc:
+	push	a0
+	call	collect_0l
+	pop	a0
+	jmp	string_to_string_node_r
+
+	section	(int_array_to_node)
+int_array_to_node:
+	movl	-8(a0),d0
+
+	movl	free_heap_offset(a4),a2
+	lea	-32+12(a2,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	int_array_to_node_gc
+
+int_array_to_node_r:
+	movl	free_heap_offset(a4),a2
+	movl	$__ARRAY__+2,(a2)
+	movl	a0,a1
+	movl	d0,4(a2)
+	movl	a2,a0
+	movl	$INT+2,8(a2)
+	addl	$12,a2
+	jmp	int_array_to_node_4
+	
+int_array_to_node_2:
+	movl	(a1),d1
+	addl	$4,a1
+	movl	d1,(a2)
+	addl	$4,a2
+int_array_to_node_4:
+	subl	$1,d0
+	jge	int_array_to_node_2
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+int_array_to_node_gc:
+	push	a0
+	call	collect_0l
+	pop	a0
+	jmp	int_array_to_node_r
+
+	section	(real_array_to_node)
+real_array_to_node:
+	movl	-8(a0),d0
+
+	movl	free_heap_offset(a4),a2
+	lea	-32+12+4(a2,d0,8),a2
+	cmpl	end_heap_offset(a2),a2
+	jae	real_array_to_node_gc
+
+real_array_to_node_r:
+	movl	free_heap_offset(a4),a2
+	orl	$4,a2
+	movl	a0,a1
+	movl	$__ARRAY__+2,(a2)
+	movl	d0,4(a2)
+	movl	a2,a0
+	movl	$REAL+2,8(a2)
+	addl	$12,a2
+	jmp	real_array_to_node_4
+	
+real_array_to_node_2:
+	movl	(a1),d1
+	movl	d1,(a2)
+	movl	4(a1),d1
+	addl	$8,a1
+	movl	d1,4(a2)
+	addl	$8,a2
+real_array_to_node_4:
+	subl	$1,d0
+	jge	real_array_to_node_2
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+real_array_to_node_gc:
+	push	a0
+	call	collect_0l
+	pop	a0
+	jmp	real_array_to_node_r
+
+	align	(2)
+	.long	3
+_c3:	jmp	__cycle__in__spine
+	align	(2)
+
+	.long	4
+_c4:	jmp	__cycle__in__spine
+	align	(2)
+	.long	5
+_c5:	jmp	__cycle__in__spine
+	align	(2)
+	.long	6
+_c6:	jmp	__cycle__in__spine
+	align	(2)
+	.long	7
+_c7:	jmp	__cycle__in__spine
+	align	(2)
+	.long	8
+_c8:	jmp	__cycle__in__spine
+	align	(2)
+	.long	9
+_c9:	jmp	__cycle__in__spine
+	align	(2)
+	.long	10
+_c10:	jmp	__cycle__in__spine
+	align	(2)
+	.long	11
+_c11:	jmp	__cycle__in__spine
+	align	(2)
+	.long	12
+_c12:	jmp	__cycle__in__spine
+	align	(2)
+	.long	13
+_c13:	jmp	__cycle__in__spine
+	align	(2)
+	.long	14
+_c14:	jmp	__cycle__in__spine
+	align	(2)
+	.long	15
+_c15:	jmp	__cycle__in__spine
+	align	(2)
+	.long	16
+_c16:	jmp	__cycle__in__spine
+	align	(2)
+	.long	17
+_c17:	jmp	__cycle__in__spine
+	align	(2)
+	.long	18
+_c18:	jmp	__cycle__in__spine
+	align	(2)
+	.long	19
+_c19:	jmp	__cycle__in__spine
+	align	(2)
+	.long	20
+_c20:	jmp	__cycle__in__spine
+	align	(2)
+	.long	21
+_c21:	jmp	__cycle__in__spine
+	align	(2)
+	.long	22
+_c22:	jmp	__cycle__in__spine
+	align	(2)
+	.long	23
+_c23:	jmp	__cycle__in__spine
+	align	(2)
+	.long	24
+_c24:	jmp	__cycle__in__spine
+	align	(2)
+	.long	25
+_c25:	jmp	__cycle__in__spine
+	align	(2)
+	.long	26
+_c26:	jmp	__cycle__in__spine
+	align	(2)
+	.long	27
+_c27:	jmp	__cycle__in__spine
+	align	(2)
+	.long	28
+_c28:	jmp	__cycle__in__spine
+	align	(2)
+	.long	29
+_c29:	jmp	__cycle__in__spine
+	align	(2)
+	.long	30
+_c30:	jmp	__cycle__in__spine
+	align	(2)
+	.long	31
+_c31:	jmp	__cycle__in__spine
+	align	(2)
+	.long	32
+_c32:	jmp	__cycle__in__spine
+
+/
+/	ARRAYS
+/
+
+_create_arrayB:
+	movl	d0,d1
+	addl	$3,d0
+	shr	$2,d0
+
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4574
+	call	collect_0l
+	movl	free_heap_offset(a4),a0
+no_collect_4574:
+	movl	$__ARRAY__+2,(a0)
+	movl	d1,4(a0)
+	movl	$BOOL+2,8(a0)
+	lea	12(a0,d0,4),a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+_create_arrayC:
+	movl	d0,d1
+	addl	$3,d0
+	shr	$2,d0
+
+	movl	free_heap_offset(a4),a0
+	lea	-32+8(a0,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4573
+	call	collect_0l
+	movl	free_heap_offset(a4),a0
+no_collect_4573:
+	movl	$__STRING__+2,(a0)
+	movl	d1,4(a0)
+	lea	8(a0,d0,4),a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+_create_arrayI:
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4572
+	call	collect_0l
+	movl	free_heap_offset(a4),a0
+no_collect_4572:
+	movl	$__ARRAY__+2,(a0)
+	movl	d0,4(a0)
+	movl	$INT+2,8(a0)
+	lea	12(a0,d0,4),a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+_create_arrayR:
+	movl	free_heap_offset(a4),a0
+	lea	-32+12+4(a0,d0,8),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4580
+	call	collect_0l
+	movl	free_heap_offset(a4),a0
+no_collect_4580:
+	orl	$4,a0
+	movl	$__ARRAY__+2,(a0)
+	movl	d0,4(a0)
+	movl	$REAL+2,8(a0)
+	lea	12(a0,d0,8),a2
+	movl	a2,free_heap_offset(a4)
+	ret
+
+/ vier(sp): number of elements, (sp): element descriptor
+/ d0: element size, d1: element a size a0: a_element-> a0: array
+
+_create_r_array:
+	movl	4(sp),a1
+
+	pushl	d0
+
+	shl	$2,a1
+	movl	free_heap_offset(a4),a2
+	lea	12-32(a2),a2
+_sub_size_lp:
+	addl	a1,a2
+	subl	$1,d0
+	jne	_sub_size_lp
+
+	popl	d0
+	
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4586
+	call	collect_1l
+no_collect_4586:
+	movl	a0,a2
+
+	movl	free_heap_offset(a4),a0
+
+	popl	8(a0)
+	pop	a1
+
+	movl	$__ARRAY__+2,(a0)
+	movl	a1,4(a0)
+	addl	$12,a0
+
+/ a1: number of elements, a0: array
+/ d0: element size, d1: element a size a2:a_element
+
+	test	d1,d1
+	je	_create_r_array_0
+	subl	$2,d1
+	jc	_create_r_array_1
+	je	_create_r_array_2
+	subl	$2,d1
+	jc	_create_r_array_3
+	je	_create_r_array_4
+	jmp	_create_r_array_5
+
+_create_r_array_0:
+	movl	free_heap_offset(a4),d1
+	shl	$2,a1
+	jmp	_st_fillr0_array
+_fillr0_array:
+	addl	a1,a0
+_st_fillr0_array:
+	subl	$1,d0
+	jnc	_fillr0_array
+	movl	a0,free_heap_offset(a4)
+	movl	d1,a0
+	ret
+
+_create_r_array_1:
+	movl	free_heap_offset(a4),d1
+	shl	$2,d0
+	jmp	_st_fillr1_array
+_fillr1_array:
+	movl	a2,(a0)
+	addl	d0,a0
+_st_fillr1_array:
+	subl	$1,a1
+	jnc	_fillr1_array
+	movl	a0,free_heap_offset(a4)
+	movl	d1,a0
+	ret
+
+_create_r_array_2:
+	movl	free_heap_offset(a4),d1
+	shl	$2,d0
+	jmp	_st_fillr2_array
+_fillr2_array:
+	movl	a2,(a0)
+	movl	a2,4(a0)
+	addl	d0,a0
+_st_fillr2_array:
+	subl	$1,a1
+	jnc	_fillr2_array
+	movl	a0,free_heap_offset(a4)
+	movl	d1,a0
+	ret
+
+_create_r_array_3:
+	movl	free_heap_offset(a4),d1
+	shl	$2,d0
+	jmp	_st_fillr3_array
+_fillr3_array:
+	movl	a2,(a0)
+	movl	a2,4(a0)
+	movl	a2,8(a0)
+	addl	d0,a0
+_st_fillr3_array:
+	subl	$1,a1
+	jnc	_fillr3_array
+	movl	free_heap_offset(a4),a0
+	movl	a0,free_heap_offset(a4)
+	movl	d1,a0
+	ret
+
+_create_r_array_4:
+	movl	free_heap_offset(a4),d1
+	shl	$2,d0
+	jmp	_st_fillr4_array
+_fillr4_array:
+	movl	a2,(a0)
+	movl	a2,4(a0)
+	movl	a2,8(a0)
+	movl	a2,12(a0)
+	addl	d0,a0
+_st_fillr4_array:
+	subl	$1,a1
+	jnc	_fillr4_array
+	movl	a0,free_heap_offset(a4)
+	movl	d1,a0
+	ret
+
+_create_r_array_5:
+	push	a3
+	
+	movl	d1,a3
+	subl	$4,d0
+	subl	d1,d0
+
+	subl	$1,a3
+	shl	$2,d0
+	jmp	_st_fillr5_array
+_fillr5_array:
+	movl	a2,(a0)
+	movl	a2,4(a0)
+	movl	a2,8(a0)
+	movl	a2,12(a0)
+	addl	$16,a0
+
+	movl	a3,d1
+_copy_elem_5_lp:
+	movl	a2,(a0)
+	addl	$4,a0
+	subl	$1,d1
+	jnc	_copy_elem_5_lp
+	
+	addl	d0,a0
+_st_fillr5_array:
+	subl	$1,a1
+	jnc	_fillr5_array
+	
+	pop	a3
+
+	movl	free_heap_offset(a4),d1
+	movl	a0,free_heap_offset(a4)
+	movl	d1,a0
+	ret
+
+create_arrayB:
+	movl	d1,a1
+	addl	$3,d1
+	shr	$2,d1
+
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,d1,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4575
+
+	pushl	a1
+	call	collect_0l
+	popl	a1
+	movl	free_heap_offset(a4),a0
+
+no_collect_4575:
+	movl	d0,a2
+	shl	$8,a2
+	orl	a2,d0
+	movl	d0,a2
+	shl	$16,a2
+	orl	a2,d0
+	movl	$__ARRAY__+2,(a0)
+	movl	a1,4(a0)
+	movl	$BOOL+2,8(a0)
+	lea	12(a0),a2
+	jmp	create_arrayBCI
+
+create_arrayC:
+	movl	d1,a1
+	addl	$3,d1
+	shr	$2,d1
+
+	movl	free_heap_offset(a4),a0
+	lea	-32+8(a0,d1,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4578
+
+	pushl	a1
+	call	collect_0l
+	popl	a1
+	movl	free_heap_offset(a4),a0
+
+no_collect_4578:
+	movl	d0,a2
+	shl	$8,a2
+	orl	a2,d0
+	movl	d0,a2
+	shl	$16,a2
+	orl	a2,d0
+	movl	$__STRING__+2,(a0)
+	movl	a1,4(a0)
+	lea	8(a0),a2
+	jmp	create_arrayBCI
+
+create_arrayI:
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,d1,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4577
+
+	call	collect_0l
+	movl	free_heap_offset(a4),a0
+
+no_collect_4577:
+	movl	$__ARRAY__+2,(a0)
+	movl	d1,4(a0)
+	lea	0(,d1,4),a1
+	movl	$INT+2,8(a0)
+	lea	12(a0),a2
+create_arrayBCI:
+	mov	d1,a1
+	shr	$1,d1
+	testb	$1,a1b
+	je	st_filli_array
+
+	movl	d0,(a2)
+	addl	$4,a2
+	jmp	st_filli_array
+
+filli_array:
+	movl	d0,(a2)
+	movl	d0,4(a2)
+	addl	$8,a2
+st_filli_array:
+	subl	$1,d1
+	jnc	filli_array
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+create_arrayR:
+	fstl	-8(sp)
+
+	movl	free_heap_offset(a4),a0
+	lea	-32+12+4(a0,d0,8),a2
+
+	movl	-8(sp),d1
+	movl	-4(sp),a1
+
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4579
+	pushl	a1
+	call	collect_0l
+	popl	a1
+	movl	free_heap_offset(a4),a0
+no_collect_4579:
+	orl	$4,a0
+
+	movl	$__ARRAY__+2,(a0)
+	movl	d0,4(a0)
+	movl	$REAL+2,8(a0)
+	movl	a0,a2
+	addl	$12,a2
+	jmp	st_fillr_array
+fillr_array:
+	movl	d1,(a2)
+	movl	a1,4(a2)
+	addl	$8,a2
+st_fillr_array:
+	subl	$1,d0
+	jnc	fillr_array
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+create_array:
+	movl	free_heap_offset(a4),a1
+	lea	-32+12(a1,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4576
+
+	call	collect_1l
+	movl	free_heap_offset(a4),a1
+
+no_collect_4576:
+	movl	a0,d1
+	movl	a1,a0
+	movl	$__ARRAY__+2,(a1)
+	movl	d0,4(a1)
+	movl	$0,8(a1)
+	lea	12(a1),a2
+	jmp	fillr1_array
+
+/ in 4(sp): number of elements, (sp): element descriptor
+/ d0: element size, d1: element a size -> a0: array
+
+create_R_array:
+	subl	$2,d0
+	jc	create_R_array_1
+	je	create_R_array_2
+	subl	$2,d0
+	jc	create_R_array_3
+	je	create_R_array_4
+	jmp	create_R_array_5
+
+create_R_array_1:
+	pop	a1
+	pop	d0
+
+/ d0: number of elements, a1: element descriptor
+/ d1: element a size
+
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4581
+
+	pushl	a1
+	call	collect_0l
+	popl	a1
+	movl	free_heap_offset(a4),a0
+
+no_collect_4581:
+	movl	$__ARRAY__+2,(a0)
+	movl	d0,4(a0)
+	movl	a1,8(a0)
+	lea	12(a0),a2
+
+	test	d1,d1
+	je	r_array_1_b
+
+	movl	-4(a3),d1
+	jmp	fillr1_array
+
+r_array_1_b:
+	movl	4(sp),d1
+
+fillr1_array:
+	movl	d0,a1
+	shr	$1,d0
+	testb	$1,a1b
+	je	st_fillr1_array_1
+
+	movl	d1,(a2)
+	addl	$4,a2
+	jmp	st_fillr1_array_1
+
+fillr1_array_lp:
+	movl	d1,(a2)
+	movl	d1,4(a2)
+	addl	$8,a2
+st_fillr1_array_1:
+	subl	$1,d0
+	jnc	fillr1_array_lp
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+create_R_array_2:
+	pop	a1
+	pop	d0
+
+/ d0: number of elements, a1: element descriptor
+/ d1: element a size
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,d0,8),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4582
+
+	pushl	a1
+	call	collect_0
+	popl	a1
+	movl	free_heap_offset(a4),a0
+
+no_collect_4582:
+	movl	$__ARRAY__+2,(a0)
+	movl	d0,4(a0)
+	movl	a1,8(a0)
+	lea	12(a0),a2
+
+	cmpl	$1,d1
+	jc	r_array_2_bb
+	movl	-4(a3),d1
+	je	r_array_2_ab
+r_array_2_aa:
+	movl	-8(a3),a1
+	jmp	st_fillr2_array
+r_array_2_ab:
+	movl	4(sp),a1
+	jmp	st_fillr2_array
+r_array_2_bb:
+	movl	4(sp),d1
+	movl	8(sp),a1
+	jmp	st_fillr2_array
+
+fillr2_array_1:
+	movl	d1,(a2)
+	movl	a1,4(a2)
+	addl	$8,a2
+st_fillr2_array:
+	subl	$1,d0
+	jnc	fillr2_array_1
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+create_R_array_3:
+	pop	a1
+	pop	d0
+
+/ d0: number of elements, a1: element descriptor
+/ d1: element a size
+
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,d0,8),a2
+	lea	(a2,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4583
+
+	pushl	a1
+	call	collect_0l
+	popl	a1
+	movl	free_heap_offset(a4),a0
+
+no_collect_4583:
+	movl	$__ARRAY__+2,(a0)
+	movl	d0,4(a0)
+	movl	a1,8(a0)
+	lea	12(a0),a2
+
+	cmpl	$1,d1
+	jc	r_array_3_bbb
+	movl	-4(a3),a0
+	je	r_array_3_abb
+	movl	-8(a3),a1
+	cmpl	$2,d1
+	je	r_array_3_aab
+r_array_3_aaa:
+	movl	-12(a3),d1
+	jmp	st_fillr3_array
+r_array_3_aab:
+	movl	(sp),d1
+	jmp	st_fillr3_array
+r_array_3_abb:
+	movl	(sp),a1
+	movl	4(sp),d1
+	jmp	st_fillr3_array
+r_array_3_bbb:
+	movl	(sp),a0
+	movl	4(sp),a1
+	movl	8(sp),d1
+	jmp	st_fillr3_array
+
+fillr3_array_1:
+	movl	a0,(a2)
+	movl	a1,4(a2)
+	movl	d1,8(a2)
+	addl	$12,a2
+st_fillr3_array:
+	subl	$1,d0
+	jnc	fillr3_array_1
+
+	movl	free_heap_offset(a4),a0
+	movl	a2,free_heap_offset(a4)
+	ret
+
+create_R_array_4:
+	pop	a1
+	pop	d0
+
+/ d0: number of elements, a1: element descriptor
+/ d1: element a size
+
+	movl	d0,a2
+	shl	$4,a2
+	movl	free_heap_offset(a4),a0
+	lea	-32+12(a0,a2),a2
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4584
+
+	pushl	a1
+	call	collect_0l
+	popl	a1
+	movl	free_heap_offset(a4),a0
+
+no_collect_4584:
+	movl	$__ARRAY__+2,(a0)
+	movl	d0,4(a0)
+	movl	a1,8(a0)
+	lea	12(a0),a2
+
+	push	a3
+
+	cmp	$1,d1
+	jc	r_array_4_bbbb
+	movl	-4(a3),a0
+	je	r_array_4_abbb
+	movl	-8(a3),a1
+	cmp	$3,d1
+	jc	r_array_4_aabb
+	movl	-12(a3),d1
+	je	r_array_4_aaab
+r_array_4_aaaa:
+	movl	-16(a3),a3
+	jmp	st_fillr4_array
+r_array_4_aaab:
+	movl	(sp),a3
+	jmp	st_fillr4_array
+r_array_4_aabb:
+	movl	0(sp),d1
+	movl	4(sp),a3
+	jmp	st_fillr4_array
+r_array_4_abbb:
+	movl	(sp),a1
+	movl	4(sp),d1
+	movl	8(sp),a3
+	jmp	st_fillr4_array
+r_array_4_bbbb:
+	movl	(sp),a0
+	movl	4(sp),a1
+	movl	8(sp),d1
+	movl	12(sp),a3
+	jmp	st_fillr4_array
+
+fillr4_array:
+	movl	a0,(a2)
+	movl	a1,4(a2)
+	movl	d1,8(a2)
+	movl	a3,12(a2)
+	addl	$16,a2
+st_fillr4_array:
+	subl	$1,d0
+	jnc	fillr4_array
+
+	pop	a3
+
+	movl	free_heap_offset(a4),a0
+	movl	a2,free_heap_offset(a4)
+	ret
+
+create_R_array_5:
+	pop	a1
+	pop	a0
+
+/ a0: number of elements, a1: element descriptor
+/ d0: element size-4, d1: element a size
+
+	movl	a0,a2
+	shl	$4,a2
+	add	$12-32,a2
+	addl	free_heap_offset(a4),a2
+
+	subl	$1,d0
+
+	pushl	d0
+sub_size_lp:
+	lea	(a2,a0,4),a2
+	subl	$1,d0
+	jnc	sub_size_lp
+	popl	d0
+
+	cmpl	end_heap_offset(a4),a2
+	jb	no_collect_4585
+
+	pushl	a1
+	pushl	a0
+	call	collect_0l
+	popl	a0
+	popl	a1
+
+no_collect_4585:
+	movl	free_heap_offset(a4),a2
+
+	movl	$__ARRAY__+2,(a2)
+	movl	a0,4(a2)
+	movl	a1,8(a2)
+
+	popl	a1
+	movl	sp,4(a3)
+	movl	a1,(a3)
+
+	test	d1,d1
+	je	r_array_5
+
+	movl	d1,a1
+	shl	$2,a1
+	negl	a1
+	addl	a3,a1
+	subl	$1,d1
+
+copy_a_to_b_lp5:
+	pushl	(a1)
+	addl	$4,a1
+	subl	$1,d1
+	jnc	copy_a_to_b_lp5
+
+r_array_5:
+	addl	$12,a2
+
+	pushl	a3
+	jmp	st_fillr5_array
+
+fillr5_array_1:
+	movl	4(sp),d1
+	movl	d1,(a2)
+	movl	8(sp),d1
+	movl	d1,4(a2)
+
+	movl	12(sp),d1
+	movl	d1,8(a2)
+	movl	16(sp),d1
+	movl	d1,12(a2)
+
+	lea	20(sp),a3
+	addl	$16,a2
+	movl	d0,a1
+
+copy_elem_lp5:
+	movl	(a3),d1
+	addl	$4,a3
+	movl	d1,(a2)
+	addl	$4,a2
+	subl	$1,a1
+	jnc	copy_elem_lp5
+
+st_fillr5_array:
+	subl	$1,a0
+	jnc	fillr5_array_1
+
+	popl	a3
+
+	movl	free_heap_offset(a4),a0
+	movl	a2,free_heap_offset(a4)
+
+	movl	4(a3),sp
+	jmp	*(a3)
+
+repl_args_b:
+	test	d0,d0
+	jle	repl_args_b_1
+
+	dec	d0
+	je	repl_args_b_4
+
+	mov	8(a0),a1
+	sub	$2,d1
+	jne	repl_args_b_2
+
+	mov	a1,(a3)
+	add	$4,a3
+	jmp	repl_args_b_4
+
+repl_args_b_2:
+	lea	(a1,d0,4),a1
+
+repl_args_b_3:
+	mov	-4(a1),a2
+	sub	$4,a1
+	mov	a2,(a3)
+	add	$4,a3
+	dec	d0
+	jne	repl_args_b_3
+
+repl_args_b_4:
+	mov	4(a0),a2
+	mov	a2,(a3)
+	add	$4,a3
+repl_args_b_1:
+	ret
+
+push_arg_b:
+	cmp	$2,d1
+	jb	push_arg_b_1
+	jne	push_arg_b_2
+	cmp	d0,d1
+	je	push_arg_b_1
+push_arg_b_2:
+	mov	8(a0),a0
+	sub	$2,d1
+push_arg_b_1:
+	mov	(a0,d1,4),a0
+	ret
+
+del_args:
+	mov	(a0),d1
+	sub	d0,d1
+	movswl	-2(d1),d0
+	sub	$2,d0
+	jge	del_args_2
+
+	mov	d1,(a1)
+	mov	4(a0),a2
+	mov	a2,4(a1)	
+	mov	8(a0),a2
+	mov	a2,8(a1)
+	ret
+
+del_args_2:
+	jne	del_args_3
+
+	mov	d1,(a1)
+	mov	4(a0),a2
+	mov	a2,4(a1)
+	mov	8(a0),a2
+	mov	(a2),a2
+	mov	a2,8(a1)
+	ret
+
+del_args_3:
+	movl	free_heap_offset(a4),a2
+	lea	-32(a2,d0,4),a2
+	cmpl	end_heap_offset(a4),a2
+	jae	del_args_gc
+del_args_r_gc:
+	mov	d1,(a1)
+	mov	a4,8(a1)
+	mov	4(a0),a2
+	mov	8(a0),a0
+	mov	a2,4(a1)
+
+	movl	free_heap_offset(a4),a2
+del_args_copy_args:
+	mov	(a0),d1
+	add	$4,a0
+	mov	d1,(a2)
+	add	$4,a2
+	sub	$1,d0
+	jg	del_args_copy_args
+
+	movl	a2,free_heap_offset(a4)
+	ret
+
+del_args_gc:
+	call	collect_2l
+	jmp	del_args_r_gc
+
+#if 0
+o__S_P2:
+	mov	(a0),d0
+	mov	8(a0),a0
+	cmpw	$2,-2(d0)
+	je	o__S_P2_2
+	mov	(a0),a0
+o__S_P2_2:
+	ret
+
+ea__S_P2:
+	mov	4(a1),d0
+	movl	$__indirection,(a1)
+	mov	a0,4(a1)
+	mov	d0,a1
+	mov	(a1),d0
+	testb	$2,d0
+	jne	ea__S_P2_1
+	
+	mov	a0,(a3)
+	add	$4,a3
+	mov	a1,a0
+	call	*d0
+	mov	a0,a1
+	mov	-4(a3),a0
+	sub	$4,a3
+
+ea__S_P2_1:
+	mov	(a1),d0
+	mov	8(a1),a1
+	cmpw	$2,-2(d0)
+	je	ea__S_P2_2
+	mov	(a1),a1
+ea__S_P2_2:
+	mov	(a1),d0
+	testb	$2,d0
+	jne	ea__S_P2_3
+
+	sub	$20,d0
+	jmp	*d0
+
+ea__S_P2_3:
+	mov	d0,(a0)
+	mov	4(a1),a2
+	mov	a2,4(a0)
+	mov	8(a1),a2
+	mov	a2,8(a0)
+	ret
+#endif
+
+#ifdef NOCLIB
+tan_real:
+	fptan
+	fstsw	%ax
+	testb	$0x04,%ah
+	fstp	%st(0)
+	jnz	tan_real_1
+	ret
+
+tan_real_1:
+	fldl	NAN_real
+	fstp	%st(1)
+	ret
+
+asin_real:
+	fld	%st(0)
+	fmul	%st(0)
+	fsubrl	one_real
+	fsqrt
+	fpatan
+	ret
+
+acos_real:
+	fld	%st(0)
+	fmul	%st(0)
+	fsubrl	one_real
+	fsqrt
+	fxch	%st(1)
+	fpatan
+	ret
+
+atan_real:
+	fldl	one_real
+	fpatan
+	ret
+
+ln_real:
+	fldln2
+	fxch	%st(1)
+	fyl2x
+	ret
+
+@c_log10:
+	fldl	4(sp)
+log10_real:
+	fldlg2
+	fxch	%st(1)
+	fyl2x
+	ret
+
+exp_real:
+	fldl2e
+	subl	$16, sp
+	fmulp	%st(1)
+
+	fstcw	8(sp)
+	movw	8(sp),%ax
+	andw	$0xf3ff,%ax
+	orw	$0x0400,%ax
+	movw	%ax,10(sp)
+
+exp2_real_:
+	fld	%st
+	fldcw	10(sp)
+	frndint
+	fldcw	8(sp)
+
+	fsubr	%st,%st(1)
+	fxch	%st(1)
+	f2xm1
+	faddl	one_real
+	fscale
+	addl	$16,sp
+	fstp	%st(1)
+
+	ret
+
+pow_real:
+	sub	$16,sp
+	fstcw	8(sp)
+	movw	8(sp),%ax
+	andw	$0xf3ff,%ax
+
+	fxch	%st(1)
+
+	movw	%ax,10(sp)
+
+	fcoml	zero_real
+	fnstsw	%ax
+	sahf
+	jz	pow_zero
+	jc	pow_negative
+
+pow_real_:
+	fyl2x
+	jmp	exp2_real_
+
+pow_negative:
+	fld	%st(1)
+	fldcw	10(sp)
+	frndint
+	fistl	12(sp)
+	fldcw	8(sp)
+	fsub	%st(2),%st
+
+	fcompl	zero_real
+	fstsw	%ax
+	sahf
+	jnz	pow_real_
+
+	fchs
+	fyl2x
+
+	fld	%st
+	fldcw	10(sp)
+	frndint
+	fldcw	8(sp)
+
+	fsubr	%st,%st(1)
+	fxch	%st(1)
+	f2xm1
+	faddl	one_real
+	fscale
+
+	testl	$1,12(sp)
+	fstp	%st(1)
+	jz	exponent_even
+	fchs
+exponent_even:
+	add	$16,sp
+	ret
+
+pow_zero:
+	fld	%st(1)
+	fcompl	zero_real
+	fnstsw	%ax
+	sahf
+	jbe	pow_real_
+
+	fldl	zero_real
+	fstp	%st(1)
+	add	$16,sp
+	ret
+
+truncate_real:
+	subl	$8,sp
+	fstcw	(sp)
+	movw	(sp),%ax
+	orw	$0x0c00,%ax
+	movw	%ax,2(sp)
+	fldcw	2(sp)
+	fistl	4(sp)
+	fldcw	(sp)
+	movl	4(sp),d0
+	addl	$8,sp
+	ret
+
+entier_real:
+	subl	$8,sp
+	fstcw	(sp)
+	movw	(sp),%ax
+	andw	$0xf3ff,%ax
+	orw	$0x0400,%ax
+	movw	%ax,2(sp)
+	fldcw	2(sp)
+	fistl	4(sp)
+	fldcw	(sp)
+	movl	4(sp),d0
+	addl	$8,sp
+	ret
+
+ceiling_real:
+	subl	$8,sp
+	fstcw	(sp)
+	movw	(sp),%ax
+	andw	$0xf3ff,%ax
+	orw	$0x0800,%ax
+	movw	%ax,2(sp)
+	fldcw	2(sp)
+	fistl	4(sp)
+	fldcw	(sp)
+	movl	4(sp),d0
+	addl	$8,sp
+	ret
+
+round__real64:
+	fistpll	12(%ecx)
+	fldz
+	ret
+
+truncate__real64:
+	subl	$4,sp
+	fstcw	(sp)
+	movw	(sp),%ax
+	orw	$0x0c00,%ax
+	movw	%ax,2(sp)
+	fldcw	2(sp)
+	fistpll	12(%ecx)
+	fldcw	(sp)
+	addl	$4,sp
+	fldz
+	ret
+
+entier__real64:
+	subl	$4,sp
+	fstcw	(sp)
+	movw	(sp),%ax
+	andw	$0xf3ff,%ax
+	orw	$0x0400,%ax
+	movw	%ax,2(sp)
+	fldcw	2(sp)
+	fistpll	12(%ecx)
+	fldcw	(sp)
+	addl	$4,sp
+	fldz
+	ret
+
+ceiling__real64:
+	subl	$4,sp
+	fstcw	(sp)
+	movw	(sp),%ax
+	andw	$0xf3ff,%ax
+	orw	$0x0800,%ax
+	movw	%ax,2(sp)
+	fldcw	2(sp)
+	fistpll	12(%ecx)
+	fldcw	(sp)
+	addl	$4,sp
+	fldz
+	ret
+
+int64a__to__real:
+	fildll	12(%ecx)
+	fstp	%st(1)
+	ret
+
+@c_pow:
+	fldl	4(sp)
+	fldl	12(sp)
+	call	pow_real
+	fstp	%st(1)
+	ret
+
+@c_entier:
+	fldl	4(sp)
+	call	entier_real
+	fstp	%st(0)
+	ret
+#else
+	section	(tan_real)
+tan_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@tan
+	add	$8,sp
+	ret
+
+	section	(asin_real)	
+asin_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@asin
+	add	$8,sp
+	ret
+
+	section	(acos_real)
+acos_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@acos
+	add	$8,sp
+	ret
+
+	section	(atan_real)
+atan_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@atan
+	add	$8,sp
+	ret
+
+	section	(ln_real)
+ln_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@log
+	add	$8,sp
+	ret
+
+	section	(log10_real)
+log10_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@log10
+	add	$8,sp
+	ret
+
+	section	(exp_real)
+exp_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@exp
+	add	$8,sp
+	ret
+
+	section	(pow_real)
+pow_real:
+	sub	$16,sp
+	fstpl	8(sp)
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@pow
+	add	$16,sp
+	ret
+
+	section	(entier_real)
+entier_real:
+	sub	$8,sp
+	fstpl	(sp)
+	ffree	%st(0)
+	ffree	%st(1)
+	ffree	%st(2)
+	ffree	%st(3)
+	ffree	%st(4)
+	ffree	%st(5)
+	ffree	%st(6)
+	ffree	%st(7)
+	call	@floor
+	add	$8,sp
+#endif
+
+r_to_i_real:
+	subl	$4,sp
+	fistl	(sp)
+	pop	d0
+	ret
+
+#ifdef NEW_DESCRIPTORS
+# include "iap.s"
+#endif
+
+#include "ithread.s"
diff --git a/thread/ithread.s b/thread/ithread.s
new file mode 100644
index 0000000..d5285c9
--- /dev/null
+++ b/thread/ithread.s
@@ -0,0 +1,294 @@
+/
+/	File:	ithread.s
+/	Author:	John van Groningen
+/	Machine:	Intel 386
+
+#define d0 %eax
+#define d1 %ebx
+#define a0 %ecx
+#define a1 %edx
+#define a2 %ebp
+#define a3 %esi
+#define a4 %edi
+#define sp %esp
+
+#define d0w %ax
+#define d1w %bx
+#define a0w %cx
+#define a1w %dx
+#define a2w %bp
+#define a3w %si
+#define a4w %di
+
+#define d0b %al
+#define d1b %bl
+#define a0b %cl
+#define a1b %dl
+
+#define d0lb %al
+#define d0hb %ah
+#define d1lb %bl
+#define d1hb %bh
+
+	.text
+
+	.globl	@GetProcessHeap?0
+	.globl	@HeapAlloc?12
+
+	.globl	@clean_new_thread
+
+@clean_new_thread:
+	call	@GetProcessHeap?0
+
+	pushl	$256
+	pushl	$0
+	push	d0
+	call	@HeapAlloc?12
+
+	movl	d0,a4
+	movl	tlsp_tls_index,d0
+	movl	a4,%fs:0x0e10(,d0,4)
+
+	movl	4(sp),a0
+
+	movl	4(a0),d1
+	test	d1,d1
+	jne	clean_new_thread_1
+	movl	main_thread_local_storage+heap_size_offset,d1
+clean_new_thread_1:
+	movl	d1,heap_size_offset(a4)
+
+	movl	8(a0),d1
+	test	d1,d1
+	jne	clean_new_thread_2
+	movl	main_thread_local_storage+a_stack_size_offset,d1
+clean_new_thread_2:
+	movl	d1,a_stack_size_offset(a4)
+
+	call	init_thread
+
+	movl	a3,saved_a_stack_p_offset(a4)
+	movl	sp,halt_sp_offset (a4)
+
+	movl	4(sp),d0
+	push	d0
+	call	*(d0)
+	addl	$4,sp
+
+	movl	tlsp_tls_index,a4
+	movl	%fs:0x0e10(,a4,4),a4	
+	jmp	exit_thread
+
+init_thread:
+	movl	heap_size_offset(a4),d0
+#ifdef PREFETCH2
+	sub	$63,d0
+#else
+	sub	$3,d0
+#endif
+	xorl	a1,a1
+	mov	$33,d1
+	div	d1
+	movl	d0,heap_size_33_offset(a4)
+
+	movl	heap_size_offset(a4),d0
+	sub	$3,d0
+	xorl	a1,a1
+	mov	$129,d1
+	div	d1
+	mov	d0,heap_size_129_offset(a4)
+	add	$3,d0
+	andl	$-4,d0
+	movl	d0,heap_copied_vector_size_offset(a4)
+	movl	$0,heap_end_after_copy_gc_offset(a4)
+
+	movl	heap_size_offset(a4),d0
+	add	$7,d0
+
+	push	d0
+#ifdef USE_CLIB
+	call	@malloc
+#else
+	call	@allocate_memory
+#endif
+	add	$4,sp
+	
+	test	d0,d0
+	je	init_thread_no_memory_2
+
+	mov	d0,heap_mbp_offset(a4)
+	addl	$3,d0
+	and	$-4,d0
+	mov	d0,free_heap_offset(a4)
+	mov	d0,heap_p_offset(a4)
+
+	movl	a_stack_size_offset(a4),a2
+	add	$3,a2
+
+	push	a2
+#ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+	call	@allocate_memory_with_guard_page_at_end
+#else
+# ifdef USE_CLIB
+	call	@malloc
+# else
+	call	@allocate_memory
+# endif
+#endif
+	add	$4,sp
+	
+	test	d0,d0
+	je	init_thread_no_memory_3
+
+	mov	d0,stack_mbp_offset(a4)
+#ifdef STACK_OVERFLOW_EXCEPTION_HANDLER
+	addl	a_stack_size_offset(a4),d0
+	addl	$3+4095,d0
+	andl	$-4096,d0
+	movl	d0,a_stack_guard_page
+	subl	a_stack_size_offset(a4),d0
+#endif
+	add	$3,d0
+	andl	$-4,d0
+
+	mov	d0,a3
+	mov	d0,stack_p_offset(a4)
+
+/	lea	caf_list+4,a0
+/	movl	a0,caf_listp
+
+/ #ifdef FINALIZERS
+/	movl	$__Nil-4,finalizer_list
+/	movl	$__Nil-4,free_finalizer_list
+/ #endif
+
+	mov	free_heap_offset(a4),a1
+	mov	a1,heap_p1_offset(a4)
+
+	movl	heap_size_129_offset(a4),a2
+	shl	$4,a2
+	lea	(a1,a2,4),d0
+	mov	d0,heap_copied_vector_offset(a4)
+	add	heap_copied_vector_size_offset(a4),d0
+	mov	d0,heap_p2_offset(a4)
+
+	movb	$0,garbage_collect_flag_offset(a4)
+
+# ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	init_thread_no_mark1
+# endif
+
+# if defined (MARK_GC) || defined (COMPACT_GC_ONLY)
+	movl	heap_size_33_offset(a4),d0
+	movl	a1,heap_vector_offset(a4)
+	addl	d0,a1
+#  ifdef PREFETCH2
+	addl	$63,a1
+	andl	$-64,a1
+#  else
+	addl	$3,a1
+	andl	$-4,a1
+#  endif
+	movl	a1,free_heap_offset(a4)
+	movl	a1,heap_p3_offset(a4)
+	lea	(,d0,8),a2
+	movb	$-1,garbage_collect_flag_offset(a4)
+# endif
+
+# ifdef MARK_AND_COPY_GC
+init_thread_no_mark1:
+# endif
+
+# ifdef ADJUST_HEAP_SIZE
+	movl	@initial_heap_size,d0
+#  ifdef MARK_AND_COPY_GC
+	movl	$(MINIMUM_HEAP_SIZE_2),d1
+	testb	$64,@flags
+	jne	init_thread_no_mark9
+	addl	d1,d1
+init_thread_no_mark9:
+#  else
+#   if defined (MARK_GC) || defined (COMPACT_GC_ONLY)
+	movl	$(MINIMUM_HEAP_SIZE),d1
+#   else
+	movl	$(MINIMUM_HEAP_SIZE_2),d1
+#   endif
+#  endif
+
+	cmpl	d1,d0
+	jle	init_thread_too_large_or_too_small
+	shr	$2,d0
+	cmpl	a2,d0
+	jge	init_thread_too_large_or_too_small
+	movl	d0,a2
+init_thread_too_large_or_too_small:
+# endif
+
+	lea	(a1,a2,4),d0
+	mov	d0,heap_end_after_gc_offset(a4)
+	subl	$32,d0
+	movl	d0,end_heap_offset(a4)
+
+# ifdef MARK_AND_COPY_GC
+	testb	$64,@flags
+	je	init_thread_no_mark2
+# endif
+
+# if defined (MARK_GC) && defined (ADJUST_HEAP_SIZE)
+	movl	a2,bit_vector_size_offset(a4)
+# endif
+
+# ifdef MARK_AND_COPY_GC
+init_thread_no_mark2:
+# endif
+
+	movl	$0,bit_counter_offset(a4)
+	movl	$0,zero_bits_before_mark_offset(a4)
+
+	xor	%eax,%eax
+	ret
+
+init_thread_no_memory_2:
+	movl	$1,%eax
+	ret
+
+init_thread_no_memory_3:
+	push	heap_mbp_offset(a4)
+#ifdef USE_CLIB
+	call	@free
+#else
+	call	@free_memory
+#endif
+	add	$4,sp
+
+	movl	$1,%eax
+	ret
+
+exit_thread:
+	call	add_execute_time
+
+	push	stack_mbp_offset(a4)
+#ifdef USE_CLIB
+	call	@free
+#else
+	call	@free_memory
+#endif
+	add	$4,sp
+
+	push	heap_mbp_offset(a4)
+#ifdef USE_CLIB
+	call	@free
+#else
+	call	@free_memory
+#endif
+	add	$4,sp
+
+	call	@GetProcessHeap?0
+
+	pushl	a4
+	pushl	$0
+	push	d0
+	call	@HeapFree?12
+
+	ret
-- 
cgit v1.2.3