#
#	G. Feldmann	30.12.96
#
	.section ".text"
	.align 2
	.globl CallOberon
	.type  CallOberon,@function
CallOberon:
	mflr	0
	stw	0,8(1)
	stmw	2,-120(1)
	stwu	1,-176(1)

#
	mtlr 3
	mr   2,4
	mr   3,5
	mr   4,6
	mr   5,7
	blrl
#
	lwz	0,184(1)
	mtlr	0
	mr	0,3
	lmw	2,56(1)
	mr	3,0
	la	1,176(1)
	blr
	

#
# PROCEDURE SaveF(r12 = startadr-8)
	.align 8
	.global SaveF
SaveF:
	stfdu	0, 8(12) 
	stfdu	1, 8(12)
	stfdu	2, 8(12)
	stfdu	3, 8(12)
	stfdu	4, 8(12)
	stfdu	5, 8(12)
	stfdu	6, 8(12)
	stfdu	7, 8(12)
	stfdu	8, 8(12)
	stfdu	9, 8(12)
	stfdu	10, 8(12)
	stfdu	11, 8(12)
	stfdu	12, 8(12)
	stfdu	13, 8(12)
	stfdu	14, 8(12)
	stfdu	15, 8(12)
	stfdu	16, 8(12)
	stfdu	17, 8(12)
	stfdu	18, 8(12)
	stfdu	19, 8(12)
	stfdu	20, 8(12)
	stfdu	21, 8(12)
	stfdu	22, 8(12)
	stfdu	23, 8(12)
	stfdu	24, 8(12)
	stfdu	25, 8(12)
	stfdu	26, 8(12)
	stfdu	27, 8(12)
	stfdu	28, 8(12)
	stfdu	29, 8(12)
	stfdu	30, 8(12)
	stfdu	31, 8(12)
	blr
#
# PROCEDURE RestF(r12 = startadr-8)
       .align 8
       .global RestF
RestF:
	lfdu	0, 8(12)
	lfdu	1, 8(12)
	lfdu	2, 8(12)
	lfdu	3, 8(12)
	lfdu	4, 8(12)
	lfdu	5, 8(12)
	lfdu	6, 8(12)
	lfdu	7, 8(12)
	lfdu	8, 8(12)
	lfdu	9, 8(12)
	lfdu	10, 8(12)
	lfdu	11, 8(12)
	lfdu	12, 8(12)
	lfdu	13, 8(12)
	lfdu	14, 8(12)
	lfdu	15, 8(12)
	lfdu	16, 8(12)
	lfdu	17, 8(12)
	lfdu	18, 8(12)
	lfdu	19, 8(12)
	lfdu	20, 8(12)
	lfdu	21, 8(12)
	lfdu	22, 8(12)
	lfdu	23, 8(12)
	lfdu	24, 8(12)
	lfdu	25, 8(12)
	lfdu	26, 8(12)
	lfdu	27, 8(12)
	lfdu	28, 8(12)
	lfdu	29, 8(12)
	lfdu	30, 8(12)
	lfdu	31, 8(12)
	blr
#
#	<EOF>
#

