openbios/openboot/obp/fm/lib/fastspac.fth

• Show log

  Commit

• Hash : 1a08f436
  Author :
  Date : 2010-08-25T09:23:17
  

  change to well-formed svn directory structure. git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb

Download

• obp/fm/lib/fastspac.fth

• \ fastspac.fth 2.4 94/09/01
  \ Copyright 1985-1994 Bradley Forthware
  
  \ Version of "spaces" which uses "type" instead of "emit", for systems
  \ where "type" is significantly faster than "emit".
  
  headerless
  create spacebuf  here 80 allot  80 blank
  headers
  : spaces  ( #spaces -- )
     begin  dup  0>  while
        dup 80 min            ( #remaining #thistime )
        spacebuf over type -  ( #remaining )
     repeat                   ( #remaining )
     drop
  ;
  

Download