openbios/fcode-utils/toke/examples/fract.fs

• Show log

  Commit

• Hash : 837b7737
  Author :
  Date : 2006-08-18T09:07:34
  

  moving fcode suite to an extra directory git-svn-id: svn://coreboot.org/openbios/fcode-utils@74 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• toke/examples/fract.fs

• \ This example even fits in a signature ;-)
  
  \ hex 4666 dup negate do i 4000 dup 2* negate do 2a 0 dup 2dup 1e 0 do
  \ 2swap * d >>a 4 pick + -rot - j + dup dup * e >>a rot dup dup * e >>a 
  \ rot swap 2dup + 10000 > if 3drop 2drop 20 0 dup 2dup leave then loop 
  \ 2drop 2drop type 268 +loop cr drop 5de +loop
  
  fcode-version2
  
  hex 4666 dup negate
  do
      i 4000 dup 2* negate
      do
          2a 0 dup 2dup 1e 0
  	do
  	    2swap * d >>a 4 pick +
  	    -rot - j +
  	    dup dup * e >>a rot
  	    dup dup * e >>a rot
  	    swap
  	    2dup + 10000 > if
  	        3drop 2drop 20 0 dup 2dup leave
  	    then
  	loop
  	2drop 2drop
  	emit
      268 +loop
      cr drop
  5de +loop
  
  fcode-end
  
  

Download