Return to testasm.fs CVS log | Up to [gforth] / gforth / arch / 386 |
1.1 ! anton 1: \ this code works with the following register assignments: ! 2: \ epb=sp, edi=tos ! 3: ! 4: code my+ ( n1 n2 -- n ) ! 5: 4 [ebp] edi add ! 6: 4 # ebp add ! 7: ' noop >code-address jmp \ next ! 8: end-code ! 9: ! 10: \ see my+ ! 11: \ 3 5 my+ .