CON

  _clkfreq = 80_000_000
  _clkmode = xtal1 + pll16x

CON

  _baudRate = 9600

OBJ

  com: "COMEngine.spin"
  fat: "admflash-fat.spin"
  rtc: "admflash-rtc.spin"
  str: "stringEngine.spin"
       
PUB shell
         
  com.COMEngine(_baudRate)
  fat.FATEngine
  
  rtc.pauseForSeconds(5)
  com.transmitCharacters(string("FAT Engine Terminal Now Running - Please Mount Disk First! Type... (mount 0)", 13, 13))
  
  repeat
  
    result := shellLine(string(13, ">_ "))
    com.transmitCharacters(string("Running command: "))
    com.transmitCharacters(result)
    str.charactersToLowerCase(result)

    com.transmitCharacter(13)
    result := \shellCommands(result)
'   if(result)
      com.transmitCharacter(13)   
      com.transmitCharacters(string("Error : "))
      com.transmitCharacters(str.numberToDecimal(result,4))
      com.transmitCharacter(13)   

PRI shellCommands(stringPointer)

  stringPointer := str.tokenizeCharacters(stringPointer)

  programClear(stringPointer)
  programEcho(stringPointer)
  
  programDate(stringPointer)
  programTime(stringPointer)
  
  programMount(stringPointer)
  programUnmount(stringPointer)

  programBoot(stringPointer)
  programFormat(stringPointer)
  
  programFreeSpace(stringPointer)
  programUsedSpace(stringPointer)
  
  programList(stringPointer)
  programFind(stringPointer)

  programChangeDirectory(stringPointer)
  programChangeAttributes(stringPointer)

  programRename(stringPointer)
  programRemove(stringPointer)

  programMakeFile(stringPointer)
  programMakeDirectory(stringPointer)

  programConcatenate(stringPointer)
  programTestDisk(stringPointer)

  programTest(stringPointer)
        
' abort string("Command Not Found")
  abort 0

PRI shellLine(prompt)

  com.transmitCharacters(prompt)
  repeat until(com.receiveCheck(13))
    
    if(com.receiveFull)
      com.receiveFlush
      com.transmitCharacters(string(13, "Buffer Overflow!", 13))
      com.transmitCharacters(prompt)

  repeat com.receiveNumber    
    str.putCharacter(com.receiveCharacter)

  return str.trimCharacters(str.getCharacters)    
          
PRI programClear(stringPointer)

  if(strcomp(string("clear"), stringPointer))
    rtc.pauseForMilliseconds(500)
    com.transmitCharacter(0)
    abort 0

PRI programEcho(stringPointer)

  if(strcomp(string("echo"), stringPointer))
    com.transmitCharacters(stringPointer += 5)
    com.transmitCharacter(13)
    abort 0

PRI programDate(stringPointer)

  if(strcomp(string("date"), stringPointer))
    com.transmitCharacters(lookup(rtc.getDay: string("Sunday, "), string("Monday, "), string("Tuesday, "), string("Wednesday, "), string("Thursday, "), string("Friday, "), string("Saturday, ")))
    com.transmitCharacters(lookup(rtc.getMonth: string("January"), string("Feburary"), string("March"), string("April"), string("May"), string("June"), string("July"), string("August"), string("September"), string("October"), string("November"), string("December")))
    com.transmitCharacters(str.numberToDecimal(rtc.getDate, 2))
    com.transmitCharacter(",")
    com.transmitCharacters(str.numberToDecimal(rtc.getYear, 4))

    result := rtc.getHours
    stringPointer := string(" AM", 13)
    if(result > 12)
      stringPointer := string(" PM", 13)
      result -= 12

    com.transmitCharacters(str.numberToDecimal(result, 2))
    com.transmitCharacter(":")
    com.transmitCharacters(str.numberToDecimal(rtc.getMinutes, 2) + 1)
    com.transmitCharacter(":") 
    com.transmitCharacters(str.numberToDecimal(rtc.getSeconds, 2) + 1)

    com.transmitCharacters(stringPointer)
         
    abort 0

PRI programTime(stringPointer)

  if(strcomp(string("time"), stringPointer))
    com.transmitCharacters(string("Enter the time.", 13))
    rtc.setYear(str.decimalToNumber(shellLine(string("Year (2000 - 2127): "))))
    rtc.setMonth(str.decimalToNumber(shellLine(string("Month (1 - 12): "))))
    rtc.setDay(str.decimalToNumber(shellLine(string("Day (1 - 7): "))))
    rtc.setDate(str.decimalToNumber(shellLine(string("Date (1 - 31): "))))
    rtc.setHours(str.decimalToNumber(shellLine(string("Hours (0 - 23): "))))
    rtc.setMinutes(str.decimalToNumber(shellLine(string("Minutes (0 - 59): "))))
    rtc.setSeconds(str.decimalToNumber(shellLine(string("Seconds (0 - 59): "))))
    abort 0
  
PRI programMount(stringPointer)

  if(strcomp(string("mount"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.mountPartition(str.decimalToNumber(str.tokenizeCharacters(0)), byte[str.tokenizeCharacters(0)])))
    com.transmitCharacters(string(" Mounted", 13))
    abort 0
 
PRI programUnmount(stringPointer)

  if(strcomp(string("unmount"), stringPointer))
    fat.unmountPartition
    com.transmitCharacters(string("Done", 13))
    abort 0

PRI programBoot(stringPointer) | storage[256]

  if(strcomp(string("boot"), stringPointer))
    stringPointer := str.tokenizeCharacters(0)
    
    com.transmitCharacters(string("Are you sure you want to reboot from "))
    com.transmitCharacters(stringPointer)

    bytefill(@storage, 0, 256)
    bytemove(@storage, stringPointer, strsize(stringPointer))
   
    if(str.findCharacter(shellLine(string("? Y/N : ")), "Y"))
      fat.bootPartition(@storage, "C")

    abort 0
  
PRI programFormat(stringPointer)

  if(strcomp(string("format"), stringPointer))
    com.transmitCharacters(string("All data will be deleted from the current partition", 13))

    if(str.findCharacter(shellLine(string("Are you sure? Y/N : ")), "Y"))
      if(str.findCharacter(shellLine(string("Are you really sure? Y/N : ")), "Y"))
      
        fat.formatPartition(str.decimalToNumber(str.tokenizeCharacters(shellLine(string("Enter <Partition Number> <Volume Label> Please: ")))),str.tokenizeCharacters(0), "C") 

    abort 0    
    
PRI programFreeSpace(stringPointer)

  if(strcomp(string("df"), stringPointer))
    com.transmitCharacters(str.numberToDecimal(fat.checkFreeSectorCount(byte[str.tokenizeCharacters(0)]), 10))
    com.transmitCharacters(string(" Free Sectors", 13))
    abort 0

PRI programUsedSpace(stringPointer)

  if(strcomp(string("du"), stringPointer))
    com.transmitCharacters(str.numberToDecimal(fat.checkUsedSectorCount(byte[str.tokenizeCharacters(0)]), 10))
    com.transmitCharacters(string(" Used Sectors", 13))
    abort 0
     
PRI programList(stringPointer)
  
  if(strcomp(string("ls"), stringPointer))
    fat.listReset
  
    repeat
      result := fat.listName
      ifnot(result)
        abort 0
    
      com.transmitCharacters(result)

      if(fat.listIsReadOnly)
        com.transmitCharacters(string(" R"))
      else
        com.transmitCharacters(string(" _"))

      if(fat.listIsHidden)
        com.transmitCharacter("H")
      else
        com.transmitCharacter("_")

      if(fat.listIsSystem)
        com.transmitCharacter("S")
      else
        com.transmitCharacter("_")

      if(fat.listIsDirectory)
        com.transmitCharacter("D")
      else
        com.transmitCharacter("_")

      if(fat.listIsArchive)
        com.transmitCharacter("A")
      else
        com.transmitCharacter("_")

      com.transmitCharacters(str.numberToDecimal(fat.listSize, 10))
      com.transmitCharacters(string(" Bytes"))
      
      com.transmitCharacters(string(" [ Accessed"))
      com.transmitCharacters(str.numberToDecimal(fat.listAccessMonth, 2))
      com.transmitCharacter("/")
      com.transmitCharacters(str.numberToDecimal(fat.listAccessDay, 2) + 1)
      com.transmitCharacter("/")
      com.transmitCharacters(str.numberToDecimal(fat.listAccessYear, 4) + 1) 
      
      com.transmitCharacters(string(" ] [ Created"))
      com.transmitCharacters(str.numberToDecimal(fat.listCreationHours, 2))
      com.transmitCharacter(":")
      com.transmitCharacters(str.numberToDecimal(fat.listCreationMinutes, 2) + 1)
      com.transmitCharacter(":")
      com.transmitCharacters(str.numberToDecimal(fat.listCreationSeconds, 2) + 1)                                      

      com.transmitCharacters(str.numberToDecimal(fat.listCreationMonth, 2))
      com.transmitCharacter("/")
      com.transmitCharacters(str.numberToDecimal(fat.listCreationDay, 2) + 1)
      com.transmitCharacter("/")
      com.transmitCharacters(str.numberToDecimal(fat.listCreationYear, 4) + 1) 
      
      com.transmitCharacters(string(" ] [ Modified"))
      com.transmitCharacters(str.numberToDecimal(fat.listModificationHours, 2))
      com.transmitCharacter(":")
      com.transmitCharacters(str.numberToDecimal(fat.listModificationMinutes, 2) + 1)
      com.transmitCharacter(":")
      com.transmitCharacters(str.numberToDecimal(fat.listModificationSeconds, 2) + 1)                                      

      com.transmitCharacters(str.numberToDecimal(fat.listModificationMonth, 2))
      com.transmitCharacter("/")
      com.transmitCharacters(str.numberToDecimal(fat.listModificationDay, 2) + 1)
      com.transmitCharacter("/")
      com.transmitCharacters(str.numberToDecimal(fat.listModificationYear, 4) + 1) 

      com.transmitCharacters(string(" ]", 13))
          

PRI programFind(stringPointer)

  if(strcomp(string("find"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.listSearch(str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Exist", 13))
    abort 0
    
PRI programChangeDirectory(stringPointer)

  if(strcomp(string("cd"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.changeDirectory(str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Entered", 13))
    abort 0

PRI programChangeAttributes(stringPointer)

  if(strcomp(string("attrib"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.changeAttributes(str.tokenizeCharacters(0), str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Changed", 13)) 
    abort 0

PRI programRename(stringPointer)

  if(strcomp(string("rename"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.renameEntry(str.tokenizeCharacters(0), str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Renamed", 13)) 
    abort 0

PRI programRemove(stringPointer)

  if(strcomp(string("rm"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.deleteEntry(str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Deleted", 13)) 
    abort 0    

PRI programMakeFile(stringPointer)

  if(strcomp(string("mkfile"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.newFile(str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Created", 13)) 
    abort 0

PRI programMakeDirectory(stringPointer)

  if(strcomp(string("mkdir"), stringPointer))
    com.transmitCharacters(str.trimCharacters(fat.newDirectory(str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Created", 13)) 
    abort 0

PRI programConcatenate(stringPointer)

  if(strcomp(string("cat"), stringPointer))
    fat.openFile(str.tokenizeCharacters(0), string("R"))

    case byte[str.tokenizeCharacters(0)]
    
      "h", "H":
        repeat fat.listSize
          com.transmitCharacters(str.numberTohexadecimal(fat.readCharacter, 2))
          com.transmitCharacter(" ")

          if(++result == 10)
            com.transmitCharacter(result~)
    
      "d", "D":
        repeat fat.listSize
          com.transmitCharacters(str.numberToDecimal(fat.readCharacter, 3))
          com.transmitCharacter(" ")

          if(++result == 10)
            com.transmitCharacter(result~)
        
      "b", "B":
        repeat fat.listSize
          com.transmitCharacters(str.numberToBinary(fat.readCharacter, 8))
          com.transmitCharacter(" ")      

          if(++result == 10)
            com.transmitCharacter(result~)

      other:
        repeat fat.listSize
          result := fat.readCharacter

          if(result == 10)
            rtc.pauseForMilliseconds(50)
            next
        
          com.transmitCharacter(result)

    fat.closeFile
    abort 0  

PRI programTest(stringPointer)

  if(strcomp(string("test"), stringPointer))

    com.transmitCharacters(string(" Datei erzeugen...", 13))
    fat.NewFile(string("ADMTEST.DAT"))

    com.transmitCharacters(string(" Datei öffnen...", 13))
    fat.openFile(string("ADMTEST.DAT"), "W")

    com.transmitCharacters(string(" Daten schreiben...", 13))
    repeat 1024
      fat.writeCharacter(1)

    com.transmitCharacters(string(" Datei schließen...", 13))
    fat.closeFile  
  
    abort 0

PRI programTestDisk(stringPointer) | counter, buffer[128] 

  if(strcomp(string("testdisk"), stringPointer))
    com.transmitCharacters(result := str.trimCharacters(fat.newFile(str.tokenizeCharacters(0))))
    com.transmitCharacters(string(" Created, now testing character write and read speed...", 13, 13))

    fat.openFile(result, string("W"))
    stringPointer := cnt

    counter := 0
    repeat 32768
      fat.writeCharacter(counter++)

    stringPointer := cnt - stringPointer
    com.transmitCharacters(string("Wrote 32,768 bytes at"))
    com.transmitCharacters(str.numberToDecimal(((((32768 * (^^clkfreq)) / (^^stringPointer)) * (^^clkfreq)) / (^^stringPointer)), 10))
    com.transmitCharacters(string(" bytes per second.", 13))
    fat.closeFile
    
    fat.openFile(result, string("R"))
    stringPointer := cnt

    counter := 0
    repeat fat.listSize 
      if(fat.readCharacter <> (counter++ & $FF))
        abort string("Data written invalid!")    

    stringPointer := cnt - stringPointer
    com.transmitCharacters(string("Read 32,768 bytes at"))
    com.transmitCharacters(str.numberToDecimal(((((32768 * (^^clkfreq)) / (^^stringPointer)) * (^^clkfreq)) / (^^stringPointer)), 10))
    com.transmitCharacters(string(" bytes per second.", 13))
    fat.closeFile

    com.transmitCharacters(string(13, "Now testing block write write and read speed...", 13, 13))

    fat.openFile(result, string("W"))
    stringPointer := cnt

    repeat 64
      fat.writeData(@buffer, 512)

    stringPointer := cnt - stringPointer
    com.transmitCharacters(string("Wrote 32,768 bytes at"))
    com.transmitCharacters(str.numberToDecimal(((((32768 * (^^clkfreq)) / (^^stringPointer)) * (^^clkfreq)) / (^^stringPointer)), 10))
    com.transmitCharacters(string(" bytes per second.", 13)) 
    fat.closeFile      
    
    fat.openFile(result, string("R"))
    stringPointer := cnt

    repeat 64 
      fat.readData(@buffer, 512)

    stringPointer := cnt - stringPointer
    com.transmitCharacters(string("Read 32,768 bytes at"))
    com.transmitCharacters(str.numberToDecimal(((((32768 * (^^clkfreq)) / (^^stringPointer)) * (^^clkfreq)) / (^^stringPointer)), 10))
    com.transmitCharacters(string(" bytes per second.", 13))
    fat.closeFile

'    fat.deleteEntry(result)
    com.transmitCharacters(string(13, "Test finished!", 13))

    abort 0
         
{{

┌─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
│                                                   TERMS OF USE: MIT License                                                 │                                                            
├─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤
│Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation   │ 
│files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy,   │
│modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the        │
│Software is furnished to do so, subject to the following conditions:                                                         │         
│                                                                                                                             │
│The above copyright notice and this permission notice shall be included in all copies or substantial portions of the         │
│Software.                                                                                                                    │
│                                                                                                                             │
│THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE         │
│WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR        │
│COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,  │
│ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                        │
└─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}