!fp %l1
	!cp %l2
	!ap %l3
	!ac %l4
	!t1 %l5
	!t2 %l6
	!t3 %l7

.section	".text"
	
	.align 4
	.global call_scheme
call_scheme:
	save %sp,-112,%sp	
	!incoming params are stack in %i0 and heap in %i1
	mov %i0, %l1
	mov %i1, %l3
	set return_from_scheme, %l0
	st %l0, [%l1+0]
	call _scheme_entry
	nop
	
	.align 4
return_from_scheme:			
	mov %l4, %i0
	ret
	restore	!delay slot