DIRECTORYExtraIagoOps,File,IagoOps USING [RegisterCommand],IO,Rope;ExtraIagoImpl: CEDAR PROGRAMIMPORTS ExtraIagoOps, IagoOps =BEGIN OPEN ExtraIagoOps, File;ReadBootFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, bootFile]};ReadCkptFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, checkpoint]};ReadUCodeFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, microcode]};ReadGermFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, germ]};ReadDebuggerFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, debugger]};ReadDebuggeeFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, debuggee]};ReadVMFile: PROC[in, out: IO.STREAM] = {ReadSystemFile[in, out, VM]};DeleteBootFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, bootFile]};DeleteCkptFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, checkpoint]};DeleteUCodeFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, microcode]};DeleteGermFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, germ]};DeleteDebuggerFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, debugger]};DeleteDebuggeeFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, debuggee]};DeleteVMFile: PROC[in, out: IO.STREAM] = {DeleteSystemFile[in, out, VM]};IagoOps.RegisterCommand[[Loophole, "Convert octal or hex to decimal", TRUE]];IagoOps.RegisterCommand[[AddPageToBadPageTable, "Add (Physical) Page To the BadPageTable", TRUE]];IagoOps.RegisterCommand[[DescribeAllocated, "Describe Allocated Disk Pages", TRUE]];IagoOps.RegisterCommand[[DescribeBadPages, "Describe Bad Pages", TRUE]];IagoOps.RegisterCommand[[DescribeDiskPage, "Describe Disk Page"]];IagoOps.RegisterCommand[[DescribeVolumePage, "Describe Volume Page"]];IagoOps.RegisterCommand[[EnsureBadPagesInVAM, "Ensure Bad Pages in VAM", TRUE]];IagoOps.RegisterCommand[[ListBadPages, "List Bad Pages", TRUE]];IagoOps.RegisterCommand[[MarkPageAllocated, "Mark (Logical) Page as Allocated", TRUE]];IagoOps.RegisterCommand[[ReadDiskPages, "Read Physical Page(s)", TRUE]];IagoOps.RegisterCommand[[ReadFilePages, "Read File Page(s)", TRUE]];IagoOps.RegisterCommand[[ReadLogicalPages, "Read Logical Volume Page(s)", TRUE]];IagoOps.RegisterCommand[[WriteDiskPage, "Re-Write one Disk Page", TRUE]];IagoOps.RegisterCommand[[ReadNamedFile, "Read Named File", TRUE]];IagoOps.RegisterCommand[[ShowDiskAddress, "Show Disk Address", TRUE]];IagoOps.RegisterCommand[[ReadBootFile, "Read BootFile"]];IagoOps.RegisterCommand[[ReadCkptFile, "Read Checkpoint File"]];IagoOps.RegisterCommand[[ReadUCodeFile, "Read Microcode File"]];IagoOps.RegisterCommand[[ReadGermFile, "Read Germ File"]];IagoOps.RegisterCommand[[ReadDebuggerFile, "Read Debugger File"]];IagoOps.RegisterCommand[[ReadDebuggeeFile, "Read Debuggee File"]];IagoOps.RegisterCommand[[ReadVMFile, "Read VM File"]];IagoOps.RegisterCommand[[DeleteBootFile, "Delete BootFile"]];IagoOps.RegisterCommand[[DeleteCkptFile, "Delete Checkpoint File"]];IagoOps.RegisterCommand[[DeleteUCodeFile, "Delete Microcode File"]];IagoOps.RegisterCommand[[DeleteGermFile, "Delete Germ File"]];IagoOps.RegisterCommand[[DeleteDebuggerFile, "Delete Debugger File"]];IagoOps.RegisterCommand[[DeleteDebuggeeFile, "Delete Debuggee File"]];IagoOps.RegisterCommand[[DeleteVMFile, "Delete VM File"]];END.  &  ExtraIagoImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Willie-Sue, October 30, 1985 4:29:52 pm PSTRuss Atkinson (RRA) March 11, 1985 8:41:05 pm PST* * * * * * * * commands implementation * * * * * * * ** * * * * * *  start code ** register commands with IagoÊ&  ˜ codešœ™Kšœ
Ïmœ1™<K™+K™1—K˜ šÏk	˜	Kšœ˜K˜Kšœžœ˜ Kšžœ˜Kšœ˜K˜ —šœžœž˜Kšžœ˜Kšžœžœ˜—K˜ Kšœ7™7K˜ KšÏnœžœ
žœžœ(˜MK˜ KšŸœžœ
žœžœ*˜OK˜ KšŸœžœ
žœžœ)˜OK˜ KšŸœžœ
žœžœ$˜IK˜ KšŸœžœ
žœžœ(˜QK˜ KšŸœžœ
žœžœ(˜QK˜ Kš
Ÿ
œžœ
žœžœžœ˜EK˜ KšŸœžœ
žœžœ*˜QK˜ KšŸœžœ
žœžœ,˜SK˜ KšŸœžœ
žœžœ+˜SK˜ KšŸœžœ
žœžœ&˜MK˜ KšŸœžœ
žœžœ*˜UK˜ KšŸœžœ
žœžœ*˜UK˜ Kš
Ÿœžœ
žœžœžœ˜IK˜ K˜ Kšœ8™8˜ KšœFžœ˜MK˜ šœ˜KšœBžœ˜I—KšœMžœ˜TKšœAžœ˜HKšœB˜BKšœF˜FKšœIžœ˜PKšœ9žœ˜@KšœPžœ˜WKšœAžœ˜HKšœ=žœ˜DKšœJžœ˜QK˜ KšœBžœ˜IK˜ Kšœ;žœ˜BKšœ?žœ˜FK˜ Kšœ9˜9Kšœ@˜@Kšœ@˜@Kšœ:˜:KšœB˜BKšœB˜BKšœ6˜6K˜ Kšœ=˜=KšœD˜DKšœD˜DKšœ>˜>KšœF˜FKšœF˜FKšœ:˜:—K™ Kšžœ˜— …—       l  