openbios/fcode-utils/testsuite/TokeErrs/TooLargeBranch_off08.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/TooLargeBranch_off08.fth

• \  Test case of a branch going over too large a range
  \  Body generated by the "Verbal Bottles of Beer" script,
  \ (Argument of 1 is enough to do it.)
  
  
  fcode-version1          \  Eight-bit offsets.
  
  headers
  
  : too-large-case ( n -- )
  
      ." Let's give it a large back-reference too."
      begin  ." We've just begun"
       ." 1 0 do " cr 1 0 do
      dup  ." if " cr
      if
          dup ." case"
  	case
  	0 of  ."  Just a short case" cr endof
  	." default.  The Big One!" cr
  
      fload  TooLargeBranch_off08_body.fth
  
          endcase
      ." then"
      then
         ." Loop back and forward" cr loop
  
     ."  And here we are!"
     exit
     ."  Well, we needed some way out!"
  
      again  ."  Back to the fuchsia."
  ;
  
  \  Let's make a small jump, just to see what normal looks like
  : control-example
        ."  Here's the beguine"
   begin
      dup  ." if "
      if
          dup ." case"
  	case
  	0 of  ."  Short case" cr endof
  	."  No default." cr
          endcase
      ." then"
      then
  
         ." Way out"
     exit
         ." Jump back"
      again   ."  Never do this"
  ;
  
  
  \  Let's make a do-loop that straddles the limit
  \  (I.e., the "outer" branch is just too large,
  \      but the "inner" branch just fits.)
  : straddle-loop
      ." 1 0 do" cr  1 0 do
  
  ." Take it down and pass it around..." cr
  ." How dry I am!  How dry I am!" cr
  ." No body knows" cr
  ." How ... Dry I ... Aaaammm."  cr
  
      ." Loop." cr  loop
      ." Here we go!" cr
  ;
  
  fcode-end
  

Download