version 1.67, 2010/04/18 06:18:36
|
version 1.68, 2010/04/18 13:02:09
|
Line 706 Defer discode ( addr u -- ) \ gforth
|
Line 706 Defer discode ( addr u -- ) \ gforth
|
then |
then |
over - discode |
over - discode |
." end-code" cr ; |
." end-code" cr ; |
|
: seeabicode ( xt -- ) |
|
dup s" ABI-Code" .defname |
|
>body dup dup next-head |
|
swap - discode |
|
." end-code" cr ; |
: seevar ( xt -- ) |
: seevar ( xt -- ) |
s" Variable" .defname cr ; |
s" Variable" .defname cr ; |
: seeuser ( xt -- ) |
: seeuser ( xt -- ) |
Line 771 Defer discode ( addr u -- ) \ gforth
|
Line 776 Defer discode ( addr u -- ) \ gforth
|
[IFDEF] dofield: |
[IFDEF] dofield: |
dofield: of seefield endof |
dofield: of seefield endof |
[THEN] |
[THEN] |
|
[IFDEF] doabicode: |
|
doabicode: of seeabicode endof |
|
[THEN] |
over of seecode endof \ direct threaded code words |
over of seecode endof \ direct threaded code words |
over >body of seecode endof \ indirect threaded code words |
over >body of seecode endof \ indirect threaded code words |
2drop abort" unknown word type" |
2drop abort" unknown word type" |