<> <> <> <> DIRECTORY IO, SymTab; QuadIO: CEDAR DEFINITIONS = BEGIN Memory: TYPE = REF MemoryRec; MemoryRec: TYPE = RECORD [sym: SymTab.Ref, wds: REF MemWords]; MemWords: TYPE = RECORD [SEQUENCE size: CARDINAL OF MemWord]; MemWord: TYPE = RECORD [add, data: Word]; Word: TYPE = LONG CARDINAL; QuadFileFormat: ERROR; ReadFile: PROC[fileName: IO.ROPE] RETURNS[mem: Memory]; InterpAddr: PROC[addRope: IO.ROPE, mem: Memory] RETURNS[add: Word]; END.