; writeSPI - write byte in WREG and read in WREG
; readSPI - write 0xFF and read in WREG
readSPI:
   movlw   0xFF
writeSPI:

   ;movf   SSPBUF, w
   movwf   SSPBUF      ;write

waitSSPIF:
   btfss   PIR1, SSPIF
   goto   waitSSPIF         ; wait
   bcf      PIR1, SSPIF

   movf   SSPBUF, w   ; read
   return


sdWriteCmd17   ; read single block

   call   readSPI

   movlw   0x40+.17
   movlw   0x51
   movwf   sdCmd      ; display on LCD
   call   writeSPI

   movf   sdAddr3, w   ; MSB first
   call   writeSPI
   movf   sdAddr2, w
   call   writeSPI
   movf   sdAddr1, w
   call   writeSPI
   movf   sdAddr0, w
   call   writeSPI

   call   readSPI      ; send 8 clock sycles after the command

   movlw   .10
   movwf   sdReadRetryCount
   movlw   0xFF
   movwf   sdResponse

retryGetResponseCmd17

   decf   sdReadRetryCount, f
   skipnz
   return
   call   readSPI
   movwf   sdResponse
   xorlw   0xFF
   skipnz
   goto   retryGetResponseCmd17


   ;call   sdWriteCmd   

   callw   delayms, .1

   movlw   .255
   movwf   sdReadRetryCount

retryReadCmd17
   callw   delayms, .1
   decf   sdReadRetryCount, f
   skipnz
   goto   cmd17Timeout

   call   readSPI
   movwf   sdCrc
   xorlw   0xFF
   skipnz
   goto   retryReadCmd17

   movf   sdReadRetryCount, f
   skipz
   return

cmd17Timeout
   ; error - timeout
   setDDAddress   0x40 + .17
   callw   writeChar, 'E'
   callw   writeChar, 'r'
   callw   writeChar, 'r'

   return



;................. в main.asm


button1pressed2
   delaymsm .10
   btfss   PORTB, button1
   goto   $-1



   ledOn
   bcf      sdCsPort, sdCsBit
   callw   delayms, .1

   call   sdWriteCmd17


   setDDAddress   0x40

   call   readSPI
   movwf   sdOCR3
   call   writeHexLcd

   call   readSPI   ; crc byte 1
   movwf   sdOCR2
   call   writeHexLcd

   call   readSPI   ; crc byte 2
   movwf   sdOCR1
   call   writeHexLcd

   call   readSPI
   movwf   sdOCR0
   call   writeHexLcd


   call   readSPI
   call   writeHexLcd
   call   readSPI
   call   writeHexLcd
   call   readSPI
   call   writeHexLcd
   call   readSPI
   call   writeHexLcd

   clrf   sdReadRetryCount
readLoop1
   call   readSPI
   decfsz   sdReadRetryCount, f
   goto   readLoop1

   clrf   sdReadRetryCount
readLoop2
   call   readSPI
   decfsz   sdReadRetryCount,f
   goto   readLoop2


   call   lcdJob2
   incf   sdAddr1, f
   incf   sdAddr1, f

   bsf      sdCsPort, sdCsBit

   callw   delayms, .50
   ledOff


   movlw   9
   movwf   stage

   call   displayStage
   goto   endStage

// четене на MasterBoot Sector
   offs = read_sector(0);
   if (offs == 0xFFFF) return 0xFFFF;
   // проверка за валидност на MBR
   memcpy( &ui, &disk_buff[offs + 0x1FE], 2 );
   if (ui != 0xAA55) return 0x8001;
   // данни за партишън #0 : type = 4 или 6
   if ((disk_buff[offs + 0x1BE + 4] != 4) && (disk_buff[offs + 0x1BE + 4] != 6)) {
      drive_first_sector = 0;
   } else {
      //  чете позицията на 'start sector' на партишъна
      memcpy( &drive_first_sector, &disk_buff[offs + 0x1BE + 8], 4 );
   }
   // четене на Boot Sector на DOS партишъна
   offs = read_sector(drive_first_sector);
   if (offs == 0xFFFF) return 0xFFFF;
   // проверка за валидност на Boot Sector
   memcpy( &ui, &disk_buff[offs + 0x1FE], 2 );
   if (ui != 0xAA55) return 0x8004;
   // проверка за брой байтове в сектор = 512
   memcpy( &ui, &disk_buff[offs + 0x0B], 2 );
   if (ui != 0x0200) return 0x8005;
   // проверка за брой на FAT = 2
   if (disk_buff[offs + 0x10] != 2) return 0x8003;
   // попълва брой сектори в клъстер
   sectors_per_cluster = (unsigned int)(disk_buff[offs + 0x0D]);
   if (sectors_per_cluster == 0) return 0x8006;
   // попълва брой на елементите в основния каталог
   memcpy( &number_of_dir_entries, &disk_buff[offs + 0x11], 2 );
   // попълва размер на едно копие на FAT в брой сектори
   memcpy( &fat_size, &disk_buff[offs + 0x16], 2 );
   // размер на партишъна в сектори
   number_of_sectors = 0;
   memcpy( &number_of_sectors, &disk_buff[offs + 0x13], 2 );
   if (number_of_sectors == 0)
     memcpy( &number_of_sectors, &disk_buff[offs + 0x20], 4 );
   // размер на партишъна в брой клъстери
   number_of_clusters = number_of_sectors / sectors_per_cluster;
   if ((number_of_clusters > 65526) || (number_of_clusters < 4085)) return 0x8002;
   // маски за съвпадение да два адреса да са в един сектор или един клъстер
   in_cluster_mask = in_sector_mask * (unsigned long)(sectors_per_cluster);
   // стартов сектор на FAT_1 и FAT_2
   memcpy( &ui, &disk_buff[offs + 0x0E], 2 );
   fat_first_sector = drive_first_sector + (unsigned long)(ui);
   // стартов сектор на ROOT
   root_first_sector = fat_first_sector + (unsigned long)(fat_size) + (unsigned long)(fat_size);
   data_first_sector = root_first_sector + (number_of_dir_entries >> 4);
   // поставя текуща да е основната директория
   currdir_first_sector = root_first_sector;
   currdir_nmbr_of_entries = number_of_dir_entries;
   // търсенето на свободен клъстер да започне от началото на партишъна
   last_got_free_cluster = 0;
   // изход ОК
   mounted = 1;
   return 0;