openbios/openboot/obp/fm/lib/savedstk.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/savedstk.fth

• \ savedstk.fth 2.2 90/09/03
  \ Copyright 1985-1990 Bradley Forthware
  
  \ Converts stack addresses to the address of the corresponding location
  \ in the stack save areas.
  
  decimal
  only forth also hidden also forth definitions
  
  headerless
  : rssave-end  ( -- adr )  rssave rs-size +  ;
  : pssave-end  ( -- adr )  pssave ps-size +  ;
  
  : in-return-stack?  ( adr -- flag )  rp0 @ rs-size -  rp0 @   between  ;
  : in-data-stack?  ( adr -- flag )  sp0 @ ps-size -  sp0 @   between  ;
  
  headers
  \ Given an address within the stack, translate it to the corresponding
  \ address within the saved stack area.
  : >saved  ( adr -- save-adr )
     dup  in-data-stack?               ( adr flag )
     if  sp0 @ -  pssave-end +  then   ( adr' )
     dup  in-return-stack?             ( adr flag )
     if  rp0 @ -  rssave-end +  then   ( adr'' )
  ;
  

Download