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