// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// This stage is the begginings of a FAT system and gives a basic
// directory listing using the geomerty of the device discoverd
// with the words in fat-1-a.
// Because fat-2 shares many words with fat-1 the SID numbers
// should be made the same, in other words fat-2 is an extension
// of fat-1
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// REQUIRES:
// #URL-lib "http://pin1.org/forthlib/flb/General/soft1.flb" sid=99
// #URL-lib "http://pin1.org/forthlib/flb/General/pinsel.flb" sid=100
// #URL-lib "http://pin1.org/forthlib/flb/General/SPI.flb" sid=101
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/MMC.flb" sid=102
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-1.flb" sid=200
// #URL-lib "http://pin1.org/forthlib/flb/SD-Card/fat-2.flb"  sid=200
//
// dump is used for debug and so is included in its entirity
// #URL-lib "http://pin1.org/forthlib/flb/General/dump.flb" sid=103


  
: start // mounts device 0 csel 3 at 4mhz
  4000000 spi.speed // 4Mhz card
  3 0 mmc.mount 
;

// display device geometry
: gx f.geo. ;

: disp ( sector -- ) // displays a sector
  f.sec@
  f.fb bdump bdump drop
;  

: dir f.ls ;