<<>> <> <> <> <> DIRECTORY C2CAddressing, C2CDefs USING [Mode], IntCodeDefs USING [Node], Rope; C2CMode: CEDAR DEFINITIONS = BEGIN Mode: TYPE = C2CDefs.Mode; <<>> <> <> <> FreeMode: PROC [Mode]; <> ExpMode: PROC [Mode] RETURNS [BOOL]; SetExpr: PROC [m: Mode¬NIL, expr: BOOL ¬ TRUE] RETURNS [Mode]; LHSMode: PROC [Mode] RETURNS [BOOL]; SetLHS: PROC [m: Mode¬NIL, lhs: BOOL ¬ TRUE] RETURNS [Mode]; GetAMode: PROC [m: Mode] RETURNS [am: C2CAddressing.AddressMode]; SetAMode: PROC [m: Mode¬NIL, am: C2CAddressing.AddressMode] RETURNS [Mode]; DSetAMode: PROC [m: Mode¬NIL, am: C2CAddressing.AddressMode] RETURNS [Mode]; GetAddrContainer: PROC [m: Mode] RETURNS [ac: C2CAddressing.AddressContainer]; SetAddrContainer: PROC [m: Mode¬NIL, ac: C2CAddressing.AddressContainer] RETURNS [Mode]; GetTemplate: PROC [m: Mode] RETURNS [Rope.ROPE]; SetTemplate: PROC [m: Mode¬NIL, tmp: Rope.ROPE] RETURNS [Mode]; ContainerSize: PROC [m: Mode] RETURNS [INT]; SetContainerSize: PROC [m: Mode, sz: INT] RETURNS [Mode]; <> <<>> BaseSize: PROC [m: Mode] RETURNS [INT]; SetBaseSize: PROC [m: Mode, sz: INT] RETURNS [Mode]; DSetBaseSize: PROC [m: Mode, sz: INT] RETURNS [Mode]; <> <<>> UnitSize: PROC [m: Mode] RETURNS [INT]; SetUnitSize: PROC [m: Mode, sz: INT] RETURNS [Mode]; DSetUnitSize: PROC [m: Mode, sz: INT] RETURNS [Mode]; <> <> <> <<>> LHSMaskNShiftNode: PROC [m: Mode] RETURNS [IntCodeDefs.Node]; SetLHSMaskNShiftNode: PROC [m: Mode, node: IntCodeDefs.Node] RETURNS [Mode]; <> <> <<>> <> <> <> <=BaseSize >> <=node.bits >> <<>> <> <<>> <> Like: PROC [m: Mode¬NIL, lhs, rhs, expr, stat: BOOL ¬ FALSE] RETURNS [Mode]; <> <> SetAModeNC: PROC [m: Mode¬NIL, am: C2CAddressing.AddressMode] RETURNS [Mode]; <> SetAssBitAddr: PROC [m: Mode¬NIL, ac: C2CAddressing.AddressContainer] RETURNS [Mode]; <> SetAssAddr: PROC [m: Mode¬NIL, tmp: Rope.ROPE] RETURNS [Mode]; <> SetAssUnits: PROC [m: Mode¬NIL, tmp: Rope.ROPE, sz: INT] RETURNS [Mode]; <> SetAssBits: PROC [m: Mode¬NIL, ac: C2CAddressing.AddressContainer, sz: INT] RETURNS [Mode]; <> <<>> UseValue: PROC [sz: INT, m: Mode¬NIL] RETURNS [Mode]; <> <> END.