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

Branch - branch -master

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

• \ showspac.fth 2.2 90/09/03
  \ Copyright 1985-1990 Bradley Forthware
  
  \ show-space  ( -- )	displays the amount of remaining space in the
  \			resident and transient dictionaries
  
  : show-space  ( -- )
     base @ >r decimal
     ." Bytes available (decimal): Resident: " limit here - .
     ."  Transient " hedge there - .  cr
     r> base !
  ;
  

Download