![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to asm.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / 386|
Return to asm.fs CVS log | Up to [gforth] / gforth / arch / 386 |
| version 1.8, 2000/12/02 21:31:48 | version 1.9, 2001/08/25 21:12:24 |
|---|---|
| Line 54 base @ get-current ALSO ASSEMBLER DEFINI | Line 54 base @ get-current ALSO ASSEMBLER DEFINI |
| Variable >codes | Variable >codes |
| : (+rel ; | : (+rel ; |
| Create nrc ] c, here allot c! (+rel [ | Create nrc ' c, A, ' here A, ' allot A, ' c! A, ' (+rel A, |
| : nonrelocate nrc >codes ! ; nonrelocate | : nonrelocate nrc >codes ! ; nonrelocate |