Return to testasm.fs CVS log

Up to [gforth] / gforth / arch / 386

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+ .