Oh, need to be sure that the forth call is last (or preserve registers such
as A0 appropriately).

TARGET
: TESTT 0 DROP ;
LABEL <TESTL> ' TESTT BRA END-CODE
INTERPRETER
: TESTI CREATE 0 ,
  ;CODE { asm words } <TESTL> BRA END-CODE

PS. I agree that DOES> is better.
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/swiftx -- check them out!
----------------------------------------------------------------------
THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
Received on Thu Apr 25 2002 - 11:29:18 PDT