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

Branch - branch -master- tag -v1.0.3v1.0.2v1.0.1v1.0.0

• 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/LocalTest1.fth

• \ LocalTest1.fth
  \    Updated Thu, 12 Jan 2006 at 13:35 PST by David L. Paktor
  
  fcode-version2
  	\  Deliberately omitting inclusion of  LocalValuesSupport
  	\  Correct inclusion is in  TokoLoco/SupportedLocalTest.fth
  : ducksoup ( n1 n2 n3 -- m1 m2 )
  	{ _harpo _chico _groucho | _zeppo _karl }
      _groucho _harpo *  -> _zeppo  dup
      _chico _zeppo +  -> _karl     dup
      _groucho _zeppo = if  swap exit then
      _groucho + swap _zeppo + 
  ;
  
  : coconuts ( m1 m2 -- m3 m4 m5 )
      { ; q _gummo _karl }
      2dup < if swap then
      2dup / -> _gummo
      2dup - -> _karl
      * -> q
      _karl _gummo q
  ;
  
  fcode-end
  

Download