forth.forth

   1 \ This program is free software: you can redistribute it and/or modify
   2 \ it under the terms of the GNU General Public License as published by
   3 \ the Free Software Foundation, either version 3 of the License, or
   4 \ (at your option) any later version.
   5 \
   6 \ This program is distributed in the hope that it will be useful,
   7 \ but WITHOUT ANY WARRANTY; without even the implied warranty of
   8 \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   9 \ GNU General Public License for more details.
  10 \
  11 \ You should have received a copy of the GNU General Public License
  12 \ along with this program.  If not, see <http://www.gnu.org/licenses/>.
  13
  14 word ' here define
  15 word word find , word find find , word ; find ,
  16 word : here define
  17 ' word , ' here , ' define , ' ; ,
  18 : IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
  19 ' 2dup , ' find , ' dup , ' JZ: , here 16 + , ' , , ' 2drop , ' ; ,
  20 ' drop , ' LIT , ' LIT , ' , , 16720 , ' , , ' ; ,
  21 : ^i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
  22 : ^e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
  23 : test \^i 20 20 + ; \^e
  24 test .
  25 5 .