| |
|
| 12 34 my+ 46 <> throw |
12 34 my+ 46 <> throw |
| 12 34 my+-compiled 46 <> throw |
12 34 my+-compiled 46 <> throw |
| |
|
| |
|
| |
abi-code my-f+ ( r1 r2 -- r ) |
| |
\ ABI: SP passed in di, returned in ax, address of FP passed in si |
| |
si ) dx mov \ load fp |
| |
.fl dx ) fld \ r2 |
| |
8 # dx add \ update fp |
| |
.fl dx ) fadd \ r1+r2 |
| |
.fl dx ) fstp \ store r |
| |
dx si ) mov \ store new fp |
| |
di ax mov \ sp into return reg |
| |
ret \ return from my-f+ |
| |
end-code |
| |
|
| |
|
| |
: my-constant ( w "name" -- ) |
| |
create , |
| |
;abi-code ( -- w ) |
| |
\ sp in di, address of fp in si, body address in dx |
| |
-8 di d) ax lea \ compute new sp in result reg |
| |
dx ) cx mov \ load w |
| |
cx ax ) mov \ put it in TOS |
| |
ret |
| |
end-code |
| |
|
| |
5 my-constant foo |
| |
|
| |
: foo-compiled foo ; |
| |
|
| |
foo 5 <> throw |
| |
foo-compiled 5 <> throw |
