sys.f

   1 S" :" CREATE ] DOCOL
   2   READ-WORD CREATE
   3   LIT DOCOL ,
   4   ]
   5 EXIT [
   6
   7 : ;
   8   LIT EXIT ,
   9   [ S" [" FIND >CFA , ]
  10   EXIT
  11 [ IMMEDIATE
  12
  13 : IF IMMEDIATE
  14   ' 0BRANCH ,
  15   HERE @
  16   0 ,
  17 ;
  18
  19 : THEN IMMEDIATE
  20   DUP
  21   HERE @ SWAP -
  22   SWAP !
  23 ;
  24
  25 : ELSE IMMEDIATE
  26   ' BRANCH ,
  27   HERE @
  28   0 ,
  29   SWAP DUP HERE @ SWAP - SWAP !
  30 ;
  31
  32 : BEGIN IMMEDIATE
  33   HERE @
  34 ;
  35
  36 : AGAIN IMMEDIATE
  37   ' BRANCH ,
  38   HERE @ - , ;
  39
  40 : ( IMMEDIATE
  41   BEGIN
  42     READ-WORD
  43     1 = IF
  44       C@ 41 = IF
  45         EXIT
  46       THEN
  47     ELSE
  48       DROP
  49     THEN
  50   AGAIN ;
  51
  52 : UNTIL IMMEDIATE
  53   ' 0BRANCH ,
  54   HERE @ - ,
  55 ;
  56
  57 ( Compile a literal value into the current word. )
  58 : LIT, IMMEDIATE ( x -- )
  59   ' LIT , , ;
  60
  61 : / /MOD DROP ;
  62 : MOD /MOD SWAP DROP ;
  63 : NEG 0 SWAP - ;
  64
  65 : C,
  66   HERE @ C!
  67   HERE @ 1 +
  68   HERE ! ;
  69
  70 : OVER ( a b -- a b a ) SWAP DUP ROT ;
  71
  72 ( Compile the given string into the current word directly. )
  73 : STORE-STRING ( str len -- )
  74   BEGIN
  75     OVER C@ C,
  76     SWAP 1 + SWAP
  77   1 - DUP 0 = UNTIL
  78   DROP DROP ;
  79
  80 : NEWLINE 10 EMIT ;
  81 : SPACE 32 EMIT ;
  82
  83 ( Read a number from standard input. )
  84 : READ-NUMBER READ-WORD PARSE-NUMBER ;
  85
  86 S" Ready." TELL NEWLINE
  87
  88 ( vim: syntax=forth
  89 )