1# mach: bfin
2
3.include "testutils.inc"
4	start
5
6	FP = SP;
7	CALL _foo;
8	pass
9
10___main:
11	RTS;
12
13_m1:
14	LINK 0;
15	R7 = [ FP + 8 ];
16	DBGA ( R0.L , 1 );
17	DBGA ( R1.L , 2 );
18	DBGA ( R7.L , 3 );
19	UNLINK;
20	RTS;
21
22_m2:
23	LINK 0;
24	R7 = [ FP + 8 ];
25	DBGA ( R0.L , 1 );
26	DBGA ( R1.L , 2 );
27	DBGA ( R7.L , 3 );
28	[ -- SP ] = R7;
29	CALL _m1;
30	SP += 4;
31	UNLINK;
32	RTS;
33
34_foo:
35	LINK 0;
36	CALL ___main;
37	R7 = 3;
38	[ -- SP ] = R7;
39	R0 = 1;
40	R1 = 2;
41	CALL _m2;
42	SP += 4;
43	UNLINK;
44	RTS;
45