\ VP-features
\ PalmOS system capabilities
\ 
\ $Id: VP-features.txt,v 1.1 2000/10/25 00:17:43 kris_johnson Exp $

\ Copyright 2000
\ Kristopher D. Johnson
\ 
\ See LICENSE-JacksOrBetter for the
\ conditions under which you may
\ use, redistribute, or modify this 
\ code, or create derived works.

needs ids

.( VP features... )

\ Feature Manager constants
(id) psys 2constant sysFtrCreator 
1 constant sysFtrNumROMVersion 
 
\ Return value of specified feature
: get-feature ( featureNum creator. -- value. ) 
  2>r >r 0. sp@ r> 2r> FtrGet drop ; 
 
\ Return ROM version
: romversion ( -- version. ) 
  sysFtrNumROMVersion 
  sysFtrCreator 
  get-feature
; 
 
\ Determine whether OS supports
\ Palm OS 2.0 feature set
: 2.0-feature-set? ( -- f ) 
  romversion
  (hex) 02003000. d< 0=
; 
 