openbios/fcode-utils/testsuite/TokeErrs/MacTest.fth

• Show log

  Commit

• Hash : acf5213f
  Author :
  Date : 2006-10-14T20:31:53
  

  testsuite 1.0.0 git-svn-id: svn://coreboot.org/openbios/fcode-utils@91 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokeErrs/MacTest.fth

• \ MacTest.fth
  \    Updated Thu, 17 Mar 2005 at 19:24 by David L. Paktor
  
  
  fcode-version2
  
  
  : veber ( n3 n2 n1 -- alloc-addr size $addr,len )
       3dup (.) type
       .d
      ?dup if exit  then
      spaces
  ;
  
  : ordinary ( -- )
     123 456 789 veber
  ;
   
  fcode-end
  
  

Download