Annotation of gforth/arch/386/testasm.fs, revision 1.2

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

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