; -*- coding: utf-8 -*-
; forthMSP430FR_SD_INIT.asm
-
-; http://patorjk.com/software/taag/#p=display&f=Banner&t=Fast Forth
-
-; Fast Forth For Texas Instrument MSP430FRxxxx FRAM devices
-; Copyright (C) <2017> <J.M. THOORENS>
-;
-; This program is free software: you can redistribute it and/or modify
-; it under the terms of the GNU General Public License as published by
-; the Free Software Foundation, either version 3 of the License, or
-; (at your option) any later version.
-;
-; This program is distributed in the hope that it will be useful,
-; but WITHOUT ANY WARRANTY; without even the implied warranty of
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-; GNU General Public License for more details.
-;
-; You should have received a copy of the GNU General Public License
-; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-; ===========================================================
-; ABOUT INIT SD_CARD AND HOW TO SELECT FAT16/FAT32 FORMATTING
-; ===========================================================
-; FAT16/FAT32 selection is done via the ID of partition in EBP, because SD must be always FAT16 and SDHC must be always FAT32
-; So we assume that the SD_Card FAT16/FAT32 formatting was done well !
-
-
+ .save
+ .listing off
; ===========================================================
-; 1- Init eUSCI dedicated to SD_Card SPI driver
+; ABOUT INIT SD_CARD AND HOW TO SELECT FAT16/FAT32 FORMAT
; ===========================================================
+; FAT16/FAT32 selection is made via the ID of partition in EBP
+; because SD must be always FAT16 and SDHC must be always FAT32
+; this is automatically done when we format the SD_Card !
+
+
+; =====================================================================
+; goal : accept 64 MB up to 64 GB SD_CARD
+; =====================================================================
+; thus FAT and RootClus logical sectors are word addressable.
+
+; FAT is a little endian structure.
+; CMD frame is sent as big endian.
+
+; we assume that SDSC Card (up to 2GB) is FAT16 with a byte addressing
+; and that SDHC Card (4GB up to 64GB) is FAT32 with a sector addressing (sector = 512 bytes)
+; for SDHC Card = 64 GB, cluster = 64 sectors ==> max clusters = 20 0000h ==> FAT size = 16384 sectors
+; ==> FAT1 and FAT2 can be addressed with a single word.
+
+; ref. https://en.wikipedia.org/wiki/Extended_boot_record
+; ref. https://en.wikipedia.org/wiki/Partition_type
+
+; Formatage FA16 d'une SDSC Card 2GB
+; First sector of physical drive (sector 0) content :
+; ---------------------------------------------------
+; dec@| HEX@
+; 446 |0x1BE : partition table first record ==> logical drive 0
+; 462 |0x1CE : partition table 2th record ==> logical drive 1
+; 478 |0x1DE : partition table 3th record ==> logical drive 2
+; 494 |0x1EE : partition table 4th record ==> logical drive 3
+
+; partition of first record content :
+; ---------------------------------------------------
+; 450 |0x1C2 = 0x0E : type FAT16 using LBA addressing
+; 454 |0x1C6 = 89 00 00 00 : FirstSector (of logical drive 0) BS_FirstSector = 137
+
+
+; Partition type Description
+; 0 empty / unused
+; 1 FAT12
+; 4 FAT16 for partitions <= 32 MiB
+; 5 extended partition
+; 6 FAT16 for partitions > 32 MiB
+; 11 FAT32 for partitions <= 2 GiB
+; 12 Same as type 11 (FAT32), but using LBA addressing, which removes size constraints
+; 14 Same as type 6 (FAT16), but using LBA addressing
+; 15 Same as type 5, but using LBA addressing
+; ref. https://www.compuphase.com/mbr_fat.htm#BOOTSECTOR
+
+; FirstSector of logical drive (sector 0) content :
+; -------------------------------------------------
+; dec@| HEX@ = HEX decimal
+; 11 | 0x0B = 00 02 : 512 bytes/sector BPB_BytsPerSec = 512
+; 13 | 0x0D = 40 : 64 sectors/cluster BPB_SecPerClus = 64
+; 14 | 0x0E = 01 00 : 2 reserved sectors BPB_RsvdSecCnt = 1
+; 16 | 0x10 = 02 : 2 FATs BPB_NumFATs = 2 (always 2)
+; 17 | 0x11 = 00 02 : 512 entries/directory BPB_RootEntCnt = 512
+; 19 | 0x13 = 00 00 : BPB_TotSec16 (if < 65535) BPB_TotSec16 = 0
+; 22 | 0x16 = EB 00 : 235 sectors/FAT (FAT16) BPB_FATSize = 235
+; 32 | 0x20 = 77 9F 3A 00 : 3841911 total sectors BPB_TotSec32 = 3841911
+; 54 | 0x36 = "FAT16" BS_FilSysType (not used)
+
+; all values below are evaluated in logical sectors
+; FAT1 = BPB_RsvdSecCnt = 1
+; FAT2 = BPB_RsvdSecCnt + BPB_FATSz32 = 1 + 235 = 236
+; OrgRootDirL = BPB_RsvdSecCnt + (BPB_FATSize * BPB_NumFATs) = 471
+; RootDirSize = BPB_RootEntCnt * 32 / BPB_BytsPerSec = 32 sectors
+; OrgDatas = OrgRootDir + RootDirSize = 503
+; OrgCluster = OrgRootDir - 2*BPB_SecPerClus = 375 (virtual value)
+; FirstSectorOfCluster(n) = OrgCluster + n*BPB_SecPerClus ==> cluster(3) = 705
+
+; ====================================================================================
+
+; Formatage FA32 d'une SDSC Card 8GB
+; First sector of physical drive (sector 0) content :
+; ---------------------------------------------------
+; dec@| HEX@
+; 446 |0x1BE : partition table first record ==> logical drive 0
+; 462 |0x1CE : partition table 2th record ==> logical drive 1
+; 478 |0x1DE : partition table 3th record ==> logical drive 2
+; 494 |0x1EE : partition table 4th record ==> logical drive 3
+
+; partition record content :
+; ---------------------------------------------------
+; 450 |0x1C2 = 0x0C : type FAT32 using LBA addressing
+; 454 |0x1C6 = 00 20 00 00 : FirstSector (of logical drive 0) = BS_FirstSector = 8192
- MOV #0A981h,&SD_CTLW0 ; UCxxCTL1 = CKPH, MSB, MST, SPI_3, SMCLK + UCSWRST
- MOV #FREQUENCY*3,&SD_BRW ; UCxxBRW init SPI CLK = 333 kHz ( < 400 kHz) for SD_Card init
-
-
- .IFDEF MSP_EXP430FR5739
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P2.2 - RF.16 <--- CD SD_CardAdapter (Card Detect)
-SD_CD .equ 4
-SD_CDIN .equ P2IN
-; P2.3 - RF.10 ---> CS SD_CardAdapter (Card Select)
-SD_CS .equ 8
-SD_CSOUT .equ P2OUT
- BIS.B #SD_CS,&P2DIR ; SD_CS output high
-
-; P2.4 - RF.14 UCA1 CLK ---> CLK SD_CardAdapter (SCK)
-; P2.5 - RF.7 UCA1 TXD/SIMO ---> SDI SD_CardAdapter (MOSI)
-; P2.6 - RF.5 UCA1 RXD/SOMI <--- SDO SD_CardAdapter (MISO)
- BIS.B #070h,&P2SEL1 ; Configure UCA1 pins P2.4 as UCA1CLK, P2.5 as UCA1SIMO & P2.6 as UCA1SOMI
- ; P2DIR.x is controlled by eUSCI_A0 module
- BIC.B #070h,&P2REN ; disable pullup resistors for SIMO/SOMI/SCK pins
-
- .ENDIF
- .IFDEF MSP_EXP430FR5969
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P4.2 <--- SD_CD (Card Detect)
-SD_CD .equ 4
-SD_CDIN .equ P4IN
-; P4.3 ---> SD_CS (Card Select)
-SD_CS .equ 8
-SD_CSOUT .equ P4OUT
- BIS.B #SD_CS,&P4DIR ; SD_CS output high
-
-; P2.4 UCA1 CLK ---> SD_CLK
-; P2.5 UCA1 TX/SIMO ---> SD_SDI
-; P2.6 UCA1 RX/SOMI <--- SD_SDO
- BIS.B #070h, &P2SEL1 ; Configure UCA1 pins P2.4 as UCA1CLK, P2.5 as UCA1SIMO & P2.6 as UCA1SOMI
- ; P2DIR.x is controlled by eUSCI_A0 module
- BIC.B #070h, &P2REN ; disable pullup resistors for SIMO/SOMI/SCK pins
-
- .ENDIF
- .IFDEF MSP_EXP430FR5994
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P7.2/UCB2CLK - SD_CD (Card Detect)
-SD_CD .equ 4 ; P7.2
-SD_CDIN .equ P7IN
-; P4.0/A8 - SD_CS (Card Select)
-SD_CS .equ 1 ; P4.0
-SD_CSOUT .equ P4OUT
- BIS.B #SD_CS,&P4DIR ; SD_CS output high
-
-; P2.2/TB0.2/UCB0CLK - SD_CLK
-; P1.6/TB0.3/UCB0SIMO/UCB0SDA/TA0.0 - SD_SDI
-; P1.7/TB0.4/UCB0SOMI/UCB0SCL/TA1.0 - SD_SDO
- BIS #04C0h,&PASEL1 ; Configure UCB0 pins P1.6 as UCB0SIMO, P1.7 as UCB0SOMI& UCB0 pins P2.2 as UCB0CLK
- ; PxDIR.x is controlled by eUSCI_A0 module
- BIC #04C0h,&PAREN ; disable pullup resistors for SIMO/SOMI/SCK pins
-
- .ENDIF
- .IFDEF MSP_EXP430FR6989
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P2.7 <--- SD_CD (Card Detect)
-SD_CD .equ 80h
-SD_CDIN .equ P2IN
-; P2.6 ---> SD_CS (Card Select)
-SD_CS .equ 40h
-SD_CSOUT .equ P2OUT
- BIS.B #SD_CS,&P2DIR ; SD_CS output high
-
-; P2.2 UCA0 CLK ---> SD_CLK
-; P2.0 UCA0 TX/SIMO ---> SD_SDI
-; P2.2 UCA0 RX/SOMI <--- SD_SDO
- BIS.B #007h,&P2SEL0 ; Configure UCA1 pins P2.2 as UCA0CLK, P2.0 as UCA0SIMO & P2.1 as UCA0SOMI
- ; P2DIR.x is controlled by eUSCI_A0 module
- BIC.B #007h,&P2REN ; disable pullup resistors for SIMO/SOMI/SCK pins
-
- .ENDIF
-; .IFDEF MSP_EXP430FR4133
;
-;; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-;
-;; P8.0 <--- SD_CD (Card Detect)
-;SD_CD .equ 1
-;SD_CDIN .equ P8IN
-;; P8.1 ---> SD_CS (Card Select)
-;SD_CS .equ 2
-;SD_CSOUT .equ P8OUT
-; BIS.B #SD_CS,&P8DIR ; SD_CS output high
-;
-;; P5.1 UCB0 CLK ---> SD_CLK
-;; P5.2 UCB0 TX/SIMO ---> SD_SDI
-;; P5.3 UCB0 RX/SOMI <--- SD_SDO
-; BIS.B #00Eh,&P5SEL1 ; Configure UCB0 pins P5.1 as CLK, P5.2 as SIMO & P5.3 as SOMI
-; ; P2DIR.x is controlled by eUSCI_A0 module
-; BIC.B #00Eh,&P5REN ; disable pullup resistors for SIMO/SOMI/SCK pins
-;
-; .ENDIF
- .IFDEF CHIPSTICK_FR2433
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P2.3 <--- SD_CD (Card Detect)
-SD_CD .equ 8
-SD_CDIN .equ P2IN
-; P2.2 ---> SD_CS (Card Select)
-SD_CS .equ 4
-SD_CSOUT .equ P2OUT
- BIS.B #SD_CS,&P2DIR ; SD_CS output high
-
-; P1.1 UCB0 CLK ---> SD_CLK
-; P1.2 UCB0 TX/SIMO ---> SD_SDI
-; P1.3 UCB0 RX/SOMI <--- SD_SDO
- BIS.B #00Eh,&P1SEL0 ; Configure UCB0 pins P1.1 as CLK, P1.2 as SIMO & P1.3 as SOMI
- ; P1DIR.x is controlled by eUSCI_B0 module
- BIC.B #00Eh,&P1REN ; disable pullup resistors for SIMO/SOMI/SCK pins
-
- .ENDIF
- .IFDEF MY_MSP430FR5738
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P2.3 as SD_CD
-SD_CD .equ 08h
-SD_CDIN .equ P2IN
-; P2.4 as SD_CS
-SD_CS .equ 10h
-SD_CSOUT .equ P2OUT
- BIS.B #SD_CS,&P2DIR ; SD_CS output high
+; FirstSector of logical block (sector 0) content :
+; -------------------------------------------------
+; dec@| HEX@ = HEX decimal
+; 11 | 0x0B = 00 02 : 512 bytes/sector BPB_BytsPerSec = 512
+; 13 | 0x0D = 08 : 8 sectors/cluster BPB_SecPerClus = 8
+; 14 | 0x0E = 20 00 : 32 reserved sectors BPB_RsvdSecCnt = 32
+; 16 | 0x10 = 02 : 2 FATs BPB_NumFATs = 2 (always 2)
+; 17 | 0x11 = 00 00 : 0 BPB_RootEntCnt = 0 (always 0 for FAT32)
+
+; 32 | 0x20 = 00 C0 EC 00 : BPB_TotSec32 BPB_TotSec32 = 15515648
+; 36 | 0x24 = 30 3B 00 00 : BPB_FATSz32 BPB_FATSz32 = 15152
+; 40 | 0x28 = 00 00 : BPB_ExtFlags BPB_ExtFlags
+; 44 | 0x2C = 02 00 00 00 : BPB_RootClus BPB_RootClus = 2
+; 48 | 0x30 = 01 00 : BPB_FSInfo BPB_FSInfo = 1
+; 50 | 0x33 = 06 00 : BPB_BkBootSec BPB_BkBootSec = 6
+; 82 | 0x52 = "FAT32" : BS_FilSysType BS_FilSysType (not used)
-; P2.2/UCB0CLK ---> SD_CardAdapter CLK (SCK) default value
-; P1.6/UCB0SIMO/UCB0SDA/TA0.0 ---> SD_CardAdapter SDI (MOSI) default value
-; P1.7/UCB0SOMI/UCB0SCL/TA1.0 <--- SD_CardAdapter SDO (MISO) default value
- BIS #04C0h,&PASEL1 ; Configure UCB0 pins P2.2 as UCB0CLK, P1.6 as UCB0SIMO & P1.7 as UCB0SOMI
- ; P2DIR.x is controlled by eUSCI_B0 module
- BIC #04C0h,&PAREN ; disable pullup resistors for SIMO/SOMI/CLK pins
-
- .ENDIF
- .IFDEF MY_MSP430FR5738_1
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P2.3 as SD_CD
-SD_CD .equ 08h
-SD_CDIN .equ P2IN
-; P2.4 as SD_CS
-SD_CS .equ 10h
-SD_CSOUT .equ P2OUT
- BIS.B #SD_CS,&P2DIR ; SD_CS output high
-
-; P2.2/UCB0CLK ---> SD_CardAdapter CLK (SCK) default value
-; P1.6/UCB0SIMO/UCB0SDA/TA0.0 ---> SD_CardAdapter SDI (MOSI) default value
-; P1.7/UCB0SOMI/UCB0SCL/TA1.0 <--- SD_CardAdapter SDO (MISO) default value
- BIS #04C0h,&PASEL1 ; Configure UCB0 pins P2.2 as UCB0CLK, P1.6 as UCB0SIMO & P1.7 as UCB0SOMI
- ; P2DIR.x is controlled by eUSCI_B0 module
- BIC #04C0h,&PAREN ; disable pullup resistors for SIMO/SOMI/CLK pins
-
- .ENDIF
- .IFDEF MY_MSP430FR5948
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P2.3 <--- SD_CD (Card Detect)
-SD_CD .equ 08h
-SD_CDIN .equ P2IN
-; P2.7 ---> SD_CS (Card Select)
-SD_CS .equ 80h
-SD_CSOUT .equ P2OUT
- BIS.B #SD_CS,&P2DIR ; SD_CS output high
-
-; P2.4 UCA1 CLK ---> SD_CLK
-; P2.5 UCA1 TX/SIMO ---> SD_SDI
-; P2.6 UCA1 RX/SOMI <--- SD_SDO
- BIS.B #070h,&P2SEL1 ; Configure UCA1 pins P2.4 as UCA1CLK, P2.5 as UCA1SIMO & P2.6 as UCA1SOMI
- ; P2DIR.x is controlled by eUSCI_A0 module
- BIC.B #070h,&P2REN ; disable pullup resistors for SIMO/SOMI/SCK pins
-
- .ENDIF
- .IFDEF MY_MSP430FR5948_1 ; = new version of MY_MSP430FR5948
-
-; COLD default state : Px{DIR,SEL0,SEL1,SELC,IE,IFG,IV} = 0 ; PX{OUT,REN} = 1 ; Px{IN,IES} = ?
-
-; P2.7 ---> SD_CD (Card Detect)
-SD_CD .equ 80h
-SD_CDIN .equ P2IN
-; P2.3 <--- SD_CS (Card Select)
-SD_CS .equ 08h
-SD_CSOUT .equ P2OUT
- BIS.B #SD_CS,&P2DIR ; SD_CS output high
-
-; P2.4 UCA1 CLK ---> SD_CLK
-; P2.5 UCA1 TX/SIMO ---> SD_SDI
-; P2.6 UCA1 RX/SOMI <--- SD_SDO
- BIS.B #070h,&P2SEL1 ; Configure UCA1 pins P2.4 as UCA1CLK, P2.5 as UCA1SIMO & P2.6 as UCA1SOMI
- ; P2DIR.x is controlled by eUSCI_A0 module
- BIC.B #070h,&P2REN ; disable pullup resistors for SIMO/SOMI/SCK pins
-
- .ENDIF
+;
+; all values below are evaluated in logical sectors
+; FAT1 = BPB_RsvdSecCnt = 32
+; FAT2 = BPB_RsvdSecCnt + BPB_FATSz32 = 32 + 15152 = 15184
+; OrgRootDirL = BPB_RsvdSecCnt + BPB_FATSz32 * BPB_NumFATs = 32 + 15152*2 = 30336
+; OrgCluster = OrgRootDir - 2*BPB_SecPerClus = 30320
+; RootDirSize = BPB_RootEntCnt * 32 / BPB_BytsPerSec = 0
+; OrgDatas = OrgRootDir + RootDirSize = 30336
+; FirstSectorOfCluster(n) = OrgCluster + n*BPB_SecPerClus ==> cluster(6) = 30368
- BIC #1,&SD_CTLW0 ; release eUSCI from reset
+ .restore
; ===========================================================
-; 2- Init all SD_Card variables, handles and SDIB buffer to 0
+; WARNING! SD_INIT DRAW BIG CURRENT; IF THE SUPPLY IS TOO WEAK
+; THE SD_CARD LOW VOLTAGE THRESHOLD MAY BE REACHED ==> SD_ERROR 4FF !
; ===========================================================
-InitSDdata
- MOV #SD_ORG_DATA,X ;
-InitSDdataLoop ;
- MOV #0,0(X) ;
- ADD #2,X ;
- CMP #SD_END_DATA,X ;
- JNE InitSDdataLoop ;
-
+; ===========================================================
+; Init SD_Card software, called by INIT_FORTH(SOFT_APP)
+; ===========================================================
+;-----------------------------------;
+INIT_SOFT_SD ; called by INI_FORTH common part of ?ABORT|RST
+;-----------------------------------;
+; MOV #HandlesLen,X ; clear all handles
+;ClearHandle SUB #2,X ; 1
+; MOV #0,FirstHandle(X) ; 3
+; JNZ ClearHandle ; 2
+ MOV #0,&CurrentHdl ;
+ MOV #INIT_SOFT,PC ; link to previous INI_SOFT_APP then RET
+;-----------------------------------;
; ===========================================================
-; 3- Init SD_Card
+; Init hardware SD_Card, called by WARM(HARD_APP)
; ===========================================================
-SD_POWER_ON
- MOV #8,X ; send 64 clk on SD_clk
- CALL #SPI_X_GET ;
- BIC.B #SD_CS,&SD_CSOUT ; set SD_CS output low to switch in SPI mode
- MOV #4,S ; preset error 4R1
-SEND_CMD0 ; CMD0 : GO_IDLE_STATE
- MOV #95h,&SD_CMD_FRM ; $(95 00 00 00 00 00)
- MOV #4000h,&SD_CMD_FRM+4 ; $(95 00 00 00 00 40); send CMD0
- MOV #1,W ; expected SPI_R1 response = 1 = idle state
- CALL #sendCommand ;X
- JZ INIT_CMD8 ; if idle state
-SD_INIT_ERROR ;
- MOV #SD_CARD_ERROR,PC ; ReturnError = $04R1, case of defectuous card (or insufficient SD_POWER_ON clk)
+; web search: "SDA simplified specifications"
+
+;-----------------------------------;
+INIT_HARD_SD CALL @PC+ ; link to previous HARD_APP first, because used by ERROR outputs
+ .word INIT_TERM ; which activates all previous I/O settings.
+;-----------------------------------;
+ BIT.B #CD_SD,&SD_CDIN ; SD_memory in SD_Card module ?
+ JNZ INIT_HSD_END ; no
+;-----------------------------------;
+ MOV #0A981h,&SD_CTLW0 ; UCxxCTL1 = CKPH, MSB, MST, SPI_3, SMCLK + UCSWRST
+ MOV #FREQUENCY*3,&SD_BRW; UCxxBRW init SPI CLK = 333 kHz ( <= 400 kHz) for SD_Card initialisation
+ BIS.B #CS_SD,&SD_CSDIR ; SD Chip Select as output high
+ BIS #BUS_SD,&SD_SEL ; Configure pins as SIMO, SOMI & SCK (PxDIR.y are controlled by eUSCI module)
+ BIC #1,&SD_CTLW0 ; release eUSCI from reset
+;-----------------------------------;
+ MOV #SD_LEN,X ; clear all SD datas
+ClearSDdata SUB #2,X ; 1
+ MOV #0,SD_ORG(X) ; 3
+ JNZ ClearSDdata ; 2
+;-----------------------------------;
+ BIC.B #CS_SD,&SD_CSOUT ; preset Chip Select output low to switch in SPI mode
; ----------------------------------;
-INIT_CMD8 ; mandatory if SD_Card >= V2.x [11:8]supply voltage(VHS)
+INIT_CMD0 ; SD_CMD_FRM is zero fullfilled...
; ----------------------------------;
- CALL #SPI_GET ; (needed to pass SanDisk ultra 8GB "HC I")
- CMP.B #-1,W ; FFh expected value <==> MISO = high level
- JNE INIT_CMD8 ; loop back while yet busy
+ MOV #4,S ; preset error 4R1 for CMD0
+ MOV #0095h,&SD_CMD_FRM ; $(95 00 00 00 00 00)
+ MOV #0,&SD_CMD_FRM+2 ;
+ MOV #4000h,&SD_CMD_FRM+4 ; $(95 00 00 00 00 40) = CMD0
+ MOV #8,Y ; CMD0 necessary loop, not documented in "SDA simplified specifications"
+; ----------------------------------;
+SEND_CMD0 ; GO_IDLE_STATE (software reset), expected SPI_R1 response = 1 = idle state
+; ----------------------------------;
+ CALL #sendCommandIdleRet ;X send command (does little to big endian conversion), see forthMSP430FR_SD_lowLvl.asm
+ JZ INIT_CMD8 ; if idle state reached (W=1)
+ SUB #1,Y ;
+ JNZ SEND_CMD0 ; else loop back 8 times, because init time of SD_Card can be long...
+SD_INIT_ERROR ;
+ JMP SD_CARD_ERROR ; ReturnError = $04R1, case of defectuous card (or insufficient SD_POWER_ON clk)
+; ----------------------------------; see forthMSP430FR_SD_lowLvl.asm
+INIT_CMD8 ; mandatory if SD_Card >= V2.x [11:8]supply voltage(VHS)
; ----------------------------------;
- MOV #8,S ; preset error 8R1 for CMD1
MOV #0AA87h,&SD_CMD_FRM ; $(87 AA ...) (CRC:CHECK PATTERN)
MOV #1,&SD_CMD_FRM+2 ; $(87 AA 01 00 ...) (CRC:CHECK PATTERN:VHS set as 2.7to3.6V:0)
MOV #4800h,&SD_CMD_FRM+4 ; $(87 AA 01 00 00 48)
-SEND_CMD8 ; CMD8 = SEND_IF_COND
- MOV #1,W ; expected R1 response (first byte of SPI R7) = 01h : idle state
- CALL #sendCommand ;
; ----------------------------------;
-CMD8_NEXT ; time out occured with SD_Card V1.x and all MMC_card
- MOV #4,X ;
- CALL #SPI_X_GET ;WX skip end of SD_Card V2.x type R7 response (4 bytes)
+SEND_CMD8 ; SEND_IF_COND; expected R1 response (first byte of SPI R7) = 01h : idle state
+; ----------------------------------;
+ CALL #sendCommandIdleRet ;X time out occurs with SD_Card V1.x (and all MMC_card)
+; ----------------------------------;
+ MOV #4,X ; skip end of SD_Card V2.x type R7 response (4 bytes), because useless
+ CALL #SPI_X_GET ;WX
+; ----------------------------------;
+INIT_ACMD41 ; no more CRC needed from here
; ----------------------------------;
MOV #1,&SD_CMD_FRM ; $(01 00 ... set stop bit
MOV #0,&SD_CMD_FRM+2 ; $(01 00 00 00 ...
-; MOV.B #16,Y ; init 16 * ACMD41 repeats (power on fails with SanDisk ultra 8GB "HC I" and Transcend 2GB)
-; MOV.B #32,Y ; init 32 * ACMD41 repeats ==> ~400ms
- MOV.B #-1,Y ; init 255 * ACMD41 repeats ==> 3 s
+ MOV.B #-1,Y ; init 255 * ACMD41 repeats ==> ~3 s time out
+ MOV #8,S ; preset error 8R1 for ACMD41
; ----------------------------------;
-SEND_ACMD41 ; (CMD55+CMD41)
+SEND_ACMD41 ; send CMD55+CMD41
; ----------------------------------;
- ADD S,S ; preset error 10R1 for ACMD41
-SEND_CMD55 ; CMD55 = APP_CMD
+INIT_CMD55 ;
MOV #7700h,&SD_CMD_FRM+4 ; $(01 00 00 00 00 77)
- MOV #1,W ; expected R1 response = 1 : idle
- CALL #sendCommand ;
+SEND_CMD55 ; CMD55 = APP_CMD; expected SPI_R1 response = 1 : idle
+ CALL #sendCommandIdleRet ;X
SEND_CMD41 ; CMD41 = APP OPERATING CONDITION
MOV #6940h,&SD_CMD_FRM+4 ; $(01 00 00 00 40 69) (30th bit = HCS = High Capacity Support request)
- CALL #SDbusyLoop ; wait until busy (needed to pass SanDisk ultra 8GB "HC I") then send Command CMD41
- JZ SetBLockLength ; if SD_Card ready (R1=0)
+ CALL #WaitIdleBeforeSendCMD ; wait until idle (needed to pass SanDisk ultra 8GB "HC I") then send Command CMD41
+ JZ SwitchSPIhighSpeed ; if SD_Card ready (R1=0)
SUB.B #1,Y ; else decr time out delay
- JNZ SEND_CMD55 ; then loop back while count of repeat not reached
- JMP SD_INIT_ERROR ; ReturnError on time out : unusable card
+ JNZ INIT_CMD55 ; then loop back while count of repeat not reached
+ JMP SD_CARD_ERROR ; ReturnError on time out : unusable card (or insufficient Vdd SD)
+; ----------------------------------; W = R1 = 0
+SwitchSPIhighSpeed ; end of SD init ==> SD_CLK = SMCLK
; ----------------------------------;
-setBLockLength ; set block = 512 bytes (buffer size), usefull for FAT16 SD Cards
+ BIS #1,&SD_CTLW0 ; UC Software reset
+ MOV #0,&SD_BRW ; UCxxBRW = 0 ==> SPI_CLK = MCLK
+ BIC #1,&SD_CTLW0 ; release from reset
; ----------------------------------;
- ADD S,S ; preset error $20 for CMD16
-SEND_CMD16 ; CMD16 = SET_BLOCKLEN
- MOV #02h,&SD_CMD_FRM+2 ; $(01 00 02 00 ...)
- MOV #5000h,&SD_CMD_FRM+4 ; $(01 00 02 00 00 50)
- CALL #SDbusyLoop ; wait until busy then send CMD16
- JNZ SD_INIT_ERROR ; if W = R1 <> 0, ReturnError = $20R1 ; send command ko
+Read_EBP_FirstSector ; BS_FirstSectorHL=0
; ----------------------------------;
-SetHighSpeed ; end of SD init ==> SD_CLK = SMCLK
+ MOV #0,W ;
+ MOV #0,X ;
+ CALL #ReadSectorWX ; read physical first sector, W=0
+ MOV #SD_BUF,Y ;
; ----------------------------------;
- BIS #1,&SD_CTLW0 ; Software reset
- MOV #0,&SD_BRW ; UCxxBRW = 0 ==> SPI_CLK = MCLK
- BIC #1,&SD_CTLW0 ; release from reset
+ CMP #0AA55h,1FEh(Y) ; valid boot sector ?
+ JZ SetMBR ;
+ MOV #1000h,S ; error Boot Sector
+ JMP SD_CARD_INIT_ERROR ;
; ----------------------------------;
-Read_EBP_FirstSector ; W=0, BS_FirstSectorHL=0
+SetMBR ;
; ----------------------------------;
- ADD S,S ; preset error $40 ; SD card not FAT16/FAT32
- CALL #readSectorW ; read physical first sector
- MOV #BUFFER,Y ;
- MOV 454(Y),&BS_FirstSectorL ;
- MOV 456(Y),&BS_FirstSectorH ;
- MOV.B 450(Y),W ; W = partition ID
+ MOV 1C6h(Y),&BS_FirstSectorL; logical sector = physical sector + BS_FirstSector
+ MOV 1C8h(Y),&BS_FirstSectorH;
; ----------------------------------;
TestPartitionID ;
; ----------------------------------;
- MOV #1,&FATtype ; preset FAT16
-FAT16_CHS_LBA_Test ;
- SUB.B #6,W ; ID=06h Partition FAT16 using CHS & LBA ?
- JZ Read_MBR_FirstSector ;
-FAT16_LBA_Test ;
- SUB.B #8,W ; ID=0Eh Partition FAT16 using LBA ?
+ MOV.B 1C2h(Y),S ; S = partition ID
+ SUB.B #0Ch,S ; ID=0Ch Partition FAT32 using LBA ?
JZ Read_MBR_FirstSector ;
-; ----------------------------------;
- MOV #2,&FATtype ; set FAT32
-FAT32_LBA_Test ;
- ADD.B #2,W ; ID=0Ch Partition FAT32 using LBA ?
+ ADD.B #1,S ; ID=0Bh Partition FAT32 using CHS & LBA ?
JZ Read_MBR_FirstSector ;
-FAT32_CHS_LBA_Test ;
- ADD.B #1,W ; ID=0Bh Partition FAT32 using CHS & LBA ?
+ ADD.B #4,S ; ID=07h assigned to FAT32 by MiniTools Partition Wizard....
JZ Read_MBR_FirstSector ;
- ADD.B #0Bh,W
- JNZ SD_INIT_ERROR ; ReturnError = $40xx with xx = partition ID
+ ADD #01007h,S ; set ReturnError = $10 & restore ID value
+ JMP SD_CARD_INIT_ERROR ; see: https://en.wikipedia.org/wiki/Partition_type
; ----------------------------------;
-Read_MBR_FirstSector ; W=0
+Read_MBR_FirstSector ; read first logical sector
; ----------------------------------;
- CALL #readSectorW ; ...with the good bytes/sectors (FAT16/FAT32) CMD17 frame !
+ MOV #0,X ; W = 0
+ CALL #ReadSectorWX ;
; ----------------------------------;
-FATxx_SetFileSystem ;
+FAT32_SetFileSystem ;
; ----------------------------------;
- MOV.B 13(Y),&SecPerClus ;
- MOV 14(Y),X ;3 X = BPB_RsvdSecCnt
+ MOV 0Eh(Y),X ;3 X = BPB_RsvdSecCnt (05FEh=1534)
MOV X,&OrgFAT1 ;3 set OrgFAT1
- MOV 22(Y),W ; W = BPB_FATsize
- CMP #0,W ; BPB_FATsize = 0 ?
- JNZ Set_FATsize ;
- MOV 36(Y),W ; W = BPB_FATSz32
-Set_FATsize ;
- MOV W,&FATSize ; limited to 16384 sectors....
+; ----------------------------------;
+ MOV 24h(Y),W ; no set W = BPB_FATSz32 (1D01h=7425)
+ MOV W,&FATSize ; limited to 32767 sectors....
+; ----------------------------------;
ADD W,X ;
- MOV X,&OrgFAT2 ; X = OrgFAT1 + FATsize = OrgFAT2
- ADD W,X ; X = OrgFAT2 + FATsize = FAT16 OrgRootDir | FAT32 OrgDatas
- CMP #2,&FATtype ; FAT32?
- JZ FATxx_SetFileSystemNext ; yes
-FAT16_SetRootCluster ;
- MOV X,&OrgRootDIR ; only FAT16 use, is a sector used by ComputeClusFrstSect
- ADD #32,X ; OrgRootDir + RootDirSize = OrgDatas
+ MOV X,&OrgFAT2 ; X = OrgFAT1 + FATsize = OrgFAT32 (8959)
+; ----------------------------------;
+ ADD W,X ; X = OrgFAT2 + FATsize = FAT32 OrgDatas (16384)
FATxx_SetFileSystemNext ;
- SUB &SecPerClus,X ; OrgDatas - SecPerClus*2 = OrgClusters
- SUB &SecPerClus,X ; no borrow expected
+ MOV.B 0Dh(Y),Y ; Logical sectors per cluster (8)
+ MOV Y,&SecPerClus ;
+ SUB Y,X ; OrgDatas - SecPerClus*2 = OrgClusters
+ SUB Y,X ; no borrow expected
MOV X,&OrgClusters ; X = virtual cluster 0 address (clusters 0 and 1 don't exist)
- MOV &FATtype,&DIRClusterL ; init DIRcluster as RootDIR
-; ----------------------------------;
-
-
+ MOV #2,&DIRClusterL ; init DIRcluster as FAT32 RootDIR
+ MOV #0,&DIRClusterH ;
+INIT_HSD_END ;
+ MOV @RSP+,PC ; RET
+;-----------------------------------;