version 1.9, 1994/07/21 10:52:37
|
version 1.10, 1994/08/25 15:25:20
|
Line 84 Variable tdp
|
Line 84 Variable tdp
|
|
|
\ Parameter for target systems 06oct92py |
\ Parameter for target systems 06oct92py |
|
|
include machine.fs |
include-file |
|
|
>TARGET |
>TARGET |
|
|
Line 104 include machine.fs
|
Line 104 include machine.fs
|
-3 Constant :docon |
-3 Constant :docon |
-4 Constant :dovar |
-4 Constant :dovar |
-5 Constant :douser |
-5 Constant :douser |
-6 Constant :dodoes |
-6 Constant :dodefer |
-7 Constant :doesjump |
-7 Constant :dodoes |
|
-8 Constant :doesjump |
|
|
>CROSS |
>CROSS |
|
|
Line 295 variable ResolveFlag
|
Line 296 variable ResolveFlag
|
Ghostnames |
Ghostnames |
BEGIN @ dup |
BEGIN @ dup |
WHILE dup ?resolved |
WHILE dup ?resolved |
REPEAT drop ResolveFlag @ 0= IF ." Nothing!" THEN cr ; |
REPEAT drop ResolveFlag @ |
|
IF |
|
1 (bye) |
|
ELSE |
|
." Nothing!" |
|
THEN |
|
cr ; |
|
|
>CROSS |
>CROSS |
\ Header states 12dec92py |
\ Header states 12dec92py |
Line 574 Builder Value
|
Line 581 Builder Value
|
Build: ( -- ) compile noop ; |
Build: ( -- ) compile noop ; |
DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO |
DO: ( ghost -- ) ABORT" CROSS: Don't execute" ;DO |
Builder Defer |
Builder Defer |
|
by Defer :dodefer resolve |
|
|
\ structural conditionals 17dec92py |
\ structural conditionals 17dec92py |
|
|