where SIZE-USED could be:

: SIZE-USED ( addr -- n )
  CELL+ @ CELL - TEMPSEC ! TEMPSEC @ORG @ TEMPSEC >LO @ -
;

-----Original Message-----
From: swiftx-bounce_at_forth.com [mailto:swiftx-bounce_at_forth.com] On Behalf
Of Bulgrien, Dennis
Sent: Tuesday, December 07, 2004 15:50

...
: (/SIZE-USED-CDATA) ( -- )
  [ SAVE-SECTIONS ]
  [ CDATA HOST @SECTION SIZE-USED TARGET ] LITERAL SIZE-USED-CDATA !
  [ RESTORE-SECTIONS ]
;
...
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
For list command help, send subject "help" to swiftx-request_at_forth.com
Message archives are located at http://www.forth.com/archive/swiftx
----------------------------------------------------------------------
This list is a forum for SwiftX users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Tue Dec 07 2004 - 14:00:14 PST