forth-x86

A jonesforth derivative
git clone git://git.electrosoup.com/forth-x86
Log | Files | Refs

base.forth (758B)

      1 
      2 : [COMPILE] IMMEDIATE
      3     WORD FIND
      4     >CFA ,
      5 ;
      6 
      7 
      8 \ -----------------------------------------------------------------------------
      9 \
     10 \ Section X - Defining Primitives
     11 \
     12 
     13 : CODE
     14     WORD CREATE
     15     LATEST @ >CFA 8 + ,
     16     LATEST @ HIDDEN
     17     ]
     18 ;
     19 
     20 : NEXT IMMEDIATE
     21     48 C,
     22     AD C,
     23     FF C,
     24     20 C,
     25 ;
     26 
     27 : ;CODE IMMEDIATE
     28     [COMPILE] NEXT
     29     ALIGN
     30     LATEST @ HIDDEN
     31     [COMPILE] [
     32 ;
     33 
     34 : RAX IMMEDIATE 0 ;
     35 : RCX IMMEDIATE 1 ;
     36 : RDX IMMEDIATE 3 ;
     37 : RBX IMMEDIATE 4 ;
     38 : R8  IMMEDIATE 41 C, 0 ;
     39 : R9  IMMEDIATE 41 C, 1 ;
     40 
     41 : PUSH IMMEDIATE 50 + C, ;
     42 : POP  IMMEDIATE 58 + C, ;
     43 
     44 : DEC-RSP IMMEDIATE
     45     48 C,
     46     83 C,
     47     EC C,
     48     20 C,
     49 ;
     50 
     51 : INC-RSP IMMEDIATE
     52     48 C,
     53     83 C,
     54     C4 C,
     55     20 C,
     56 ;
     57 
     58 : CALL-INDIRECT IMMEDIATE
     59     FF C,
     60     10 + C,
     61 ;
     62