Denial

Code: Select all

      Console.WriteLine("Usage: disktool -command diskimage [cbmfilename [hostfilename]]")
      Console.WriteLine("   -command")
      Console.WriteLine("      -c create image")
      Console.WriteLine("      -x extract file")
      Console.WriteLine("      -a add file")
      Console.WriteLine("      -l list files")
      Console.WriteLine("      -e exists file")
      Console.WriteLine("      -d delete file")
      Console.WriteLine("")
      Console.WriteLine("   exit codes")
      Console.WriteLine("       0 OK")
      Console.WriteLine("      -1 diskimage already exists")
      Console.WriteLine("      -2 diskimage does not exist")
      Console.WriteLine("      -3 filename does not exist")
      Console.WriteLine("      -4 error writing file to diskimage")
      Console.WriteLine("      -5 error extracting file from diskimage")
      Console.WriteLine("      -6 error deleting file from diskimage")
      Console.WriteLine("      -999 unknown command")

Code: Select all

Dim d81tracks() As Integer = {0, 0, &H2800, &H5000, &H7800, &HA000, &HC800, &HF000, &H11800, &H14000, &H16800, &H19000, &H1B800, &H1E000, _
    &H20800, &H23000, &H25800, &H28000, &H2A800, &H2D000, &H2F800, &H32000, &H34800, &H37000, &H39800, &H3C000, &H3E800, &H41000, _
    &H43800, &H46000, &H48800, &H4B000, &H4D800, &H50000, &H52800, &H55000, &H57800, &H5A000, &H5C800, &H5F000, &H61800, _
    &H64000, &H66800, &H69000, &H6B800, &H6E000, &H70800, &H73000, &H75800, _
    &H78000, &H7A800, &H7D000, &H7F800, &H82000, &H84800, &H87000, &H89800, &H8C000, &H8E800, &H91000, &H93800, &H96000, &H98800, &H9B000, &H9D800, _
    &HA0000, &HA2B00, &HA5000, &HA7800, &HAA000, &HAC800, &HAF000, &HB1800, &HB4000, &HB6800, &HB9000, &HBB800, &HBE000, &HC0800, &HC3000, &HC5800}

Code: Select all

   Public Sub InitD81(Optional ByVal NumTracks As Byte = 40)
      Dim t As Integer

      For t = 1 To 40
         TrackTable(t) = 40
         TrackTable(t + NumTracks) = 40
      Next
      TracksPerSide = NumTracks
      Tracks = CByte(NumTracks * 2)
      InfoTrack = 40
      InfoSector = 0
      DirTrack = 40
      DirSector = 3
      BAMTrack1 = 40
      BAMSector1 = 1
      BAMTrack2 = 40
      BAMSector2 = 2
      SectorSize = 256
      DirInterleave = 1
      DataInterleave = 1
      RealSave = True
   End Sub

Code: Select all

   Public Function CalcSector(ByVal Track As Integer, ByVal Sector As Integer) As Integer
      Dim t As Integer
      Dim Erg As Integer

      Erg = 0
      For t = 1 To Track - 1
         Erg = Erg + TrackTable(t)
      Next
      Erg = Erg + Sector
      CalcSector = Erg
   End Function

Code: Select all

                    For t As Integer = 1 To 80
                        track(t) = &H2800 * (t - 1)
                    Next