[gforth] / gforth / abi-code-test.fs

gforth: gforth/abi-code-test.fs

1 :	dvdkhlng	1.1	abi-code my+ ( n1 n2 -- n3 )
2 :	anton	1.2	\ ABI: SP passed in di, returned in ax, address of FP passed in si
3 :			\ Caller-saved: ax,cx,dx,si,di,r8-r11,xmm0-xmm15
4 :			8 di d) ax lea \ compute new sp in result reg
5 :			di ) dx mov \ get old tos
6 :			dx ax ) add \ add to new tos
7 :			ret
8 :	dvdkhlng	1.1	end-code
9 :
10 :			: my+-compiled ( n1 n2 -- n3 ) my+ ;
11 :
12 :	anton	1.2	12 34 my+ 46 <> throw
13 :			12 34 my+-compiled 46 <> throw
14 :	anton	1.3
15 :
16 :			abi-code my-f+ ( r1 r2 -- r )
17 :			\ ABI: SP passed in di, returned in ax, address of FP passed in si
18 :			si ) dx mov \ load fp
19 :			.fl dx ) fld \ r2
20 :			8 # dx add \ update fp
21 :			.fl dx ) fadd \ r1+r2
22 :			.fl dx ) fstp \ store r
23 :			dx si ) mov \ store new fp
24 :			di ax mov \ sp into return reg
25 :			ret \ return from my-f+
26 :			end-code
27 :
28 :
29 :			: my-constant ( w "name" -- )
30 :			create ,
31 :			;abi-code ( -- w )
32 :			\ sp in di, address of fp in si, body address in dx
33 :			-8 di d) ax lea \ compute new sp in result reg
34 :			dx ) cx mov \ load w
35 :			cx ax ) mov \ put it in TOS
36 :			ret
37 :			end-code
38 :
39 :			5 my-constant foo
40 :
41 :			: foo-compiled foo ;
42 :
43 :			foo 5 <> throw
44 :			foo-compiled 5 <> throw
45 :	anton	1.4
46 :			: my-constant2 ( w "name" -- )
47 :			create ,
48 :			;code ( -- w )
49 :			\ sp=r15, tos=r14, ip=bx
50 :			8 # bx add
51 :			r14 r15 ) mov
52 :			$10 r9 d) r14 mov
53 :			8 # r15 sub
54 :			-8 bx d) jmp
55 :			end-code
56 :
57 :			7 my-constant2 bar
58 :			: bar-compiled bar ;