![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / misc|
Return to prim.fs CVS log | Up to [gforth] / gforth / arch / misc |
| version 1.6, 2002/03/21 13:06:06 | version 1.7, 2002/03/21 13:10:37 |
|---|---|
| Line 1 | Line 1 |
| \ FIXME: Find a place where this compiler extetions should go | |
| UNLOCK | UNLOCK |
| >ENVIRON | >ENVIRON |
| Line 755 Label >d2*+ *accu , t0 , | Line 754 Label >d2*+ *accu , t0 , |
| "Next" , jmp , | "Next" , jmp , |
| end-code | end-code |
| Label res1 0 , | |
| Label "d2*+" >d2*+ , | Label "d2*+" >d2*+ , |
| Code /modstep ( ud c R: u -- ud-?u 0/1 ) | Code /modstep ( ud c R: u -- ud-?u 0/1 ) |
| sym /modstep | sym /modstep |