DiskKD.mesa_Oct77.pdf | | diskkd.mESA 24-0CT-77 18:19:56 Page 1
-- DiskKO.Mesa Edited by Sandman on August 23, 1977 9:42 PM
DIRECTORY
AltoOefs: FROM "altodefs",
AltoFileDefs: FROM "altofiledefs",
BootDefs: FROM "bootdefs",
OirectoryOefs: FROM "directorydefs",
DiskDefs: FROM "diskdefs",
DiskKDDefs: FROM "diskkddefs",
InlineOefs: FROM "inlinedefs",
ImageDefs: FROM "imagedefs",
SegmentDefs: FROM "segmentdefs":
DEFINITIONS FROM AltoDefs, AltoFileOefs, SegmentOefs:
OiskKD: PROGRAM
IMPORTS BootOefs, Oirp~toryOefs, OiskOefs, ImageOefs, SegmentOefs EXPORTS OiskKOOefs :
BEGIN
InitializeOiskKD: PUBLIC PROCEDURE =
BEGIN
pages: PageCount:
IF NDirectoryOefs.OirectoryLookup[@diskKO.file.fp, nameKO, FALSE]
THEN SIGNAL FileNameError[nameKD]:
MoveFileSegment[diskKD, OefaultBase, 1]:
OpenOiskKO[]:
OiskOefs.SetDisk[@kd.disk]:
pages ~ (kd.size+PageSize-l)/PageSize:
[] ~ CloseOiskKO[]:
Mov |