Электроника и автоматика на МК

Device = 18F4550
  XTAL = 20
  '-----------------------------------------------------------
  ALL_DIGITAL = TRUE
  '-----------------------------------------------------------
  HSERIAL_BAUD = 115200 'Setup RS232 port
  HSERIAL_RCSTA = %10010000  
  HSERIAL_TXSTA = %00100100
  '-----------------------------------------------------------
  Dim Response As Byte
  Dim SD_IO As Byte
  '-----------------------------------------------------------
  Symbol SD_CS = PORTD.2 'SPI CS to SD CS (SD pin 1)
  Symbol SD_DI = PORTD.5 'SPI DO to SD DI (SD Pin 2)
  Symbol SD_CLK = PORTD.3 'SPI CLK to SD CLK (SD Pin 5)
  Symbol SD_DO = PORTD.4 'SPI DI to SD DO (SD Pin 7)
  '-----------------------------------------------------------
  Include "SD_MMC_Read_File_Lib.pbp" 'Include managed library file
  '-----------------------------------------------------------
  GoTo Over_Sub 'Jump over the subroutines
  '-----------------------------------------------------------
  Over_Sub:  
  DelayMS 200
  '-----------------------------------------------------------
  Main_Prog:
  HSerOut ["INSERT SD OR MMC",13]
  Repeat
  Response = SD_Init_FS
  Until Response = 0
  HSerOut ["OPENING FILE",13]
  SD_File_Name = "TEST001" 'File Name, upper case only!
  SD_File_Ext = "TXT" 'File Ext, upper case only!  
  Response = SD_Open_File
  If Response = 1 Then
  HSerOut ["FILE NOT FOUND",13]
  Stop
   
  EndIf
  HSerOut ["FILE OPEN",13]
  While SD_EOF < 1
  Response = SD_Read_Byte_From_File
  HSerOut [Response]
  Wend  
  '-----------------------------------------------------------
  Finish:
  HSerOut [13]
  HSerOut ["FINISHED",13]
  Stop