<> <> <> <> <> DIRECTORY BootFile USING [Location], PrincOps USING [PageCount, PageNumber]; BootChannel: DEFINITIONS = BEGIN OPEN PrincOps; Operation: TYPE = { read, -- read write, -- write rawRead}; -- raw read: read (single) boot page with no label verify Create: PROC [pLocation: POINTER TO BootFile.Location, operation: Operation, dFirst64KStorage: LONG DESCRIPTOR FOR ARRAY OF WORD] RETURNS [handle: Handle]; <> Handle: TYPE = PROC [page: PageNumber, count: PageCount]; Transfer: PROC [handle: Handle, page: PageNumber, count: PageCount] = INLINE { handle[page, count]; }; <> transferWait: PageCount = LAST[PageCount]; transferCleanup: PageCount = 0; END. LOG Time: December 18, 1978 9:34 AM By: McJones Action: Create file Time: July 30, 1979 4:32 PM By: McJones Action: Added substructure and disk variant to Location Time: September 19, 1979 6:39 PM By: McJones Action: Move Location, DiskFileID, DiskAddress to Boot Time: October 5, 1979 6:09 PM By: McJones Action: Move dHardwareState from Open to Create Time: October 13, 1979 4:30 PM By: McJones Action: Combine TransferPage, Wait into Apply Time: November 16, 1979 10:25 AM By: McJones Action: Runs: drop Open, Wait; add count to Transfer Time: January 17, 1980 2:46 PM By: Gobbel Action: SA4000 booting: added rawRead to Operation type Time: February 4, 1980 8:51 AM By: Knutsen Action: Added F64K allocator, cleanup call of Transfer. Time: February 4, 1980 8:51 AM By: McJones Action: Drop hardware state Time: January 4, 1981 2:54 PM By: Taft Action: add transferWait, transferCleanup Time: October 28, 1983 3:47 pm By: Birrell Action: Tioga formatting and Cedar 5.0 conversion