X-Forth Definitions#

?#

: ? ( addr -- )
  @ . ;

Alias#

: ALIAS ( xt -- )
  <BUILDS CFA , DOES> @ EXECUTE ;

Align#

: ALIGN ( -- )
  HERE 1 AND ALLOT ;

Aligned#

: ALIGNED ( addr -- a-addr )
  DUP 1 AND + ;

Cell+#

: CELL+ ( a-addr1 -- a-addr2 )
  2 + ;

Cells#

: CELLS ( n1 -- n2 )
  2 * ;

CVariable#

:  CVARIABLE ( b -- )
  <BUILDS C, DOES> C@ ;

Defer#

: DEFER ( -- )
  <BUILDS 0 , DOES> @ DUP IF EXECUTE ELSE DROP THEN ;

IS#

: IS ( xt -- )
  ~[COMPILE] ' ! ;

To#

: TO ( x -- )
  ~[COMPILE] ' CELL+ ! ;

Value#

: VALUE ( x -- )
  <BUILDS , DOES> @ ;

Add new attachment

Only authorized users are allowed to upload new attachments.
« This page (revision-1) was last changed on 03-Feb-2023 16:21 by Carsten Strotmann  
G’day (anonymous guest) My Prefs
© 2010-2021 AtariWiki
All content in the Wiki is licensed under Creative Commons Share Alike License, unless otherwise noted.
JSPWiki v2.8.3