diskm8/drvappledos13.go
April Ayres-Griffiths 75d42c4597 initial commit
2018-01-20 11:05:04 +11:00

152 lines
3.6 KiB
Go

package main
import (
"crypto/sha256"
"encoding/hex"
"time"
"github.com/paleotronic/diskm8/disk"
"github.com/paleotronic/diskm8/loggy"
)
func analyzeDOS13(id int, dsk *disk.DSKWrapper, info *Disk) {
l := loggy.Get(id)
// Sector bitmap
l.Logf("Reading Disk VTOC...")
vtoc, err := dsk.AppleDOSGetVTOC()
if err != nil {
l.Errorf("Error reading VTOC: %s", err.Error())
return
}
info.Tracks, info.Sectors = vtoc.GetTracks(), vtoc.GetSectors()
l.Logf("Tracks: %d, Sectors: %d", info.Tracks, info.Sectors)
l.Logf("Reading sector bitmap and SHA256'ing sectors")
info.Bitmap = make([]bool, info.Tracks*info.Sectors)
info.ActiveSectors = make(DiskSectors, 0)
info.InactiveSectors = make(DiskSectors, 0)
activeData := make([]byte, 0)
for t := 0; t < info.Tracks; t++ {
for s := 0; s < info.Sectors; s++ {
info.Bitmap[t*info.Sectors+s] = !vtoc.IsTSFree(t, s)
// checksum sector
//info.SectorFingerprints[dsk.ChecksumSector(t, s)] = &DiskBlock{Track: t, Sector: s}
if info.Bitmap[t*info.Sectors+s] {
sector := &DiskSector{
Track: t,
Sector: s,
SHA256: dsk.ChecksumSector(t, s),
}
data := dsk.Read()
activeData = append(activeData, data...)
if *ingestMode&2 == 2 {
sector.Data = data
}
info.ActiveSectors = append(info.ActiveSectors, sector)
} else {
sector := &DiskSector{
Track: t,
Sector: s,
SHA256: dsk.ChecksumSector(t, s),
}
data := dsk.Read()
if *ingestMode&2 == 2 {
sector.Data = data
}
//activeData = append(activeData, data...)
info.InactiveSectors = append(info.InactiveSectors, sector)
}
}
}
sum := sha256.Sum256(activeData)
info.SHA256Active = hex.EncodeToString(sum[:])
info.LogBitmap(id)
// Analyzing files
l.Log("Starting Analysis of files")
vtoc, files, err := dsk.AppleDOSGetCatalog("*")
if err != nil {
l.Errorf("Problem reading directory: %s", err.Error())
return
}
info.Files = make([]*DiskFile, 0)
for _, fd := range files {
l.Logf("- Name=%s, Type=%s", fd.NameUnadorned(), fd.Type())
file := DiskFile{
Filename: fd.NameUnadorned(),
Type: fd.Type().String(),
Locked: fd.IsLocked(),
Ext: fd.Type().Ext(),
Created: time.Now(),
Modified: time.Now(),
}
_, _, data, err := dsk.AppleDOSReadFileRaw(fd)
if err == nil {
sum := sha256.Sum256(data)
file.SHA256 = hex.EncodeToString(sum[:])
file.Size = len(data)
if *ingestMode&1 == 1 {
if fd.Type() == disk.FileTypeAPP {
file.Text = disk.ApplesoftDetoks(data)
file.TypeCode = TypeMask_AppleDOS | TypeCode(fd.Type())
file.Data = data
file.LoadAddress = 0x801
} else if fd.Type() == disk.FileTypeINT {
file.Text = disk.IntegerDetoks(data)
file.Data = data
file.TypeCode = TypeMask_AppleDOS | TypeCode(fd.Type())
file.LoadAddress = 0x1000
} else if fd.Type() == disk.FileTypeTXT {
file.Text = disk.StripText(data)
file.Data = data
file.TypeCode = TypeMask_AppleDOS | TypeCode(fd.Type())
file.LoadAddress = 0x0000
} else if fd.Type() == disk.FileTypeBIN && len(data) >= 2 {
file.LoadAddress = int(data[0]) + 256*int(data[1])
file.Data = data[2:]
file.TypeCode = TypeMask_AppleDOS | TypeCode(fd.Type())
} else {
file.LoadAddress = 0x0000
file.Data = data
file.TypeCode = TypeMask_AppleDOS | TypeCode(fd.Type())
}
}
}
info.Files = append(info.Files, &file)
}
exists := exists(*baseName + "/" + info.GetFilename())
if !exists || *forceIngest {
info.WriteToFile(*baseName + "/" + info.GetFilename())
} else {
l.Log("Not writing as it already exists")
}
out(dsk.Format)
}