| Variable tdp |
Variable tdp |
| : there tdp @ ; |
: there tdp @ ; |
| |
|
| \ Constants 06apr93py |
|
| |
|
| -2 Constant :docol |
|
| -3 Constant :docon |
|
| -4 Constant :dovar |
|
| -5 Constant :dodoes |
|
| |
|
| \ Parameter for target systems 06oct92py |
\ Parameter for target systems 06oct92py |
| |
|
| include machine.fs |
include machine.fs |
| -2 Constant :docol |
-2 Constant :docol |
| -3 Constant :docon |
-3 Constant :docon |
| -4 Constant :dovar |
-4 Constant :dovar |
| -5 Constant :dodoes |
-5 Constant :douser |
| |
-6 Constant :dodoes |
| |
-7 Constant :doesjump |
| |
|
| >CROSS |
>CROSS |
| |
|
| : >body ( cfa -- pfa ) T cell+ cell+ H ; |
: >body ( cfa -- pfa ) T cell+ cell+ H ; |
| >CROSS |
>CROSS |
| |
|
| : dodoes, ( -- ) T 0 , 0 , H ; |
: dodoes, ( -- ) T :doesjump A, 0 , H ; |
| |
|
| \ Ghost Builder 06oct92py |
\ Ghost Builder 06oct92py |
| |
|
| by Create |
by Create |
| Builder AVariable |
Builder AVariable |
| |
|
| Build: T 0 , H ; |
\ User variables 04may94py |
| by Create |
|
| |
>CROSS |
| |
Variable tup 0 tup ! |
| |
Variable tudp 0 tudp ! |
| |
: u, ( n -- udp ) |
| |
tup @ tudp @ + T ! H |
| |
tudp @ dup cell+ tudp ! ; |
| |
: au, ( n -- udp ) |
| |
tup @ tudp @ + T A! H |
| |
tudp @ dup cell+ tudp ! ; |
| |
>TARGET |
| |
|
| |
Build: T 0 u, , H ; |
| |
DO: ( ghost -- up-addr ) T @ H tup @ + ;DO |
| Builder User |
Builder User |
| |
by User :douser resolve |
| |
|
| Build: T 0 , 0 , H ; |
Build: T 0 u, , 0 u, drop H ; |
| by Create |
by User |
| Builder 2User |
Builder 2User |
| |
|
| Build: T 0 A, H ; |
Build: T 0 au, , H ; |
| by Create |
by User |
| Builder AUser |
Builder AUser |
| |
|
| Build: ( n -- ) T , H ; |
Build: ( n -- ) T , H ; |
| : decimal decimal ; |
: decimal decimal ; |
| : hex hex ; |
: hex hex ; |
| |
|
| |
: tudp T tudp H ; |
| |
: tup T tup H ; minimal |
| |
|
| \ for debugging... |
\ for debugging... |
| : order order ; |
: order order ; |
