\ DataMgr 99.1.1 5:59 pm NAB

base @  hex
0001 constant dmModeReadOnly
0002 constant dmModeWrite
0003 constant dmModeReadWrite
0004 constant dmModeLeaveOpen
0008 constant dmModeExclusive
0010 constant dmModeShowSecret
base !

variable cardnum
: UseCard ( n -- )  cardnum ! ;
0 UseCard

: OpenDB ( mode zaddr len -- dbr. )
  drop >abs
    cardnum @ DmFindDatabase
  2dup or 0= -38 and throw
  cardnum @ DmOpenDatabase ;

: CloseDB ( dbr. -- )
  dmCloseDatabase throw ;

: CreateDB
( resDB? type. creator. &zname zlen -- )
\ Note: &zname must be a zstring.
  drop  >abs  cardnum @
  DmCreateDatabase throw ;