fl

{
PropForth3.4

2010.10/3
Add SDHC's process


}
: MBR
."  MBR(Master Boot Record)" ."  Sector:0x0 " ." Address:0x0" cr cr
0 Block
;
: BTB
."  BTB(BIOS Parameter Block)" ."  Sector:0x" first_sector W@ dup . 
." Address:0x" 
sdhc W@ if dup ccs W@ 1 = if 200 * . else . then 
        else drop BTB_addr L@ dup .
        then
 cr cr Block
;
: FAT
."  FAT(File Allocation Table)" ."  Sector:0x" first_sector W@ reserve_sector W@ + dup .
." Address:0x" 
sdhc W@ if dup ccs W@ 1 = if 200 * . else . then 
        else drop FAT_addr L@ dup .
        then
cr cr Block
;
: RDE
."  RDE(Root Directory Entry)" ."  Sector:0x" first_sector W@ reserve_sector W@ + num_fat W@ sector/fat W@ * + dup .
." Address:0x" 
sdhc W@ if dup ccs W@ 1 = if 200 * . else . then
        else drop RDE_addr L@ dup .
        then
cr cr Block
;

: info
." SD-card Information"  cr
."  type               "
sdhc W@ if ." SDHC" else ." SDSC" then cr
."  firstSectorNumbers 0x" first_sector W@ . cr
."  bytePerSector      0x" byte/sector W@ . cr
."  sectorsPerCluster  0x" sector/cluster W@ . cr
."  reservedSectors    0x" reserve_sector W@ . cr
."  numberOfFATS       0x" num_fat W@ . cr
sdhc W@ if ."  rootDirCluster     0x" rootCluster L@ . cr
        else  ."  rootEntries        0x" root_entry W@ . cr              
        then
."  sectorsPerFAT      0x" sector/fat W@ . cr
."  bigTotalSectors    0x" total_sector L@ . cr

;