File:  [gforth] / gforth / arch / 386 / testasm.fs
Revision 1.1: download - view: text, annotated - select for diffs
Thu Jul 13 16:05:38 2000 UTC (21 years, 5 months ago) by anton
Branches: MAIN
CVS tags: HEAD
ported 386 asm

\ this code works with the following register assignments:
\ epb=sp, edi=tos

code my+ ( n1 n2 -- n )
    4 [ebp] edi add
    4 # ebp add
    ' noop >code-address jmp \ next
end-code

\ see my+
\ 3 5 my+ .

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>