<> <> <> DIRECTORY HandCoding, HandCodingPseudos, DragOpsCross, Rope USING [ROPE]; <<>> HandCodingComforts: CEDAR DEFINITIONS = { Proc: TYPE = PROCEDURE [] RETURNS []; <> Prologue: PROCEDURE [name: Rope.ROPE, label: HandCodingPseudos.Label, args: INT]; <> <> iDFC: PROC [dest: HandCodingPseudos.Label]; iJB: PROC [dest: HandCodingPseudos.Label]; iJEQj: PROC [AlphaZ: HandCoding.Lit8, dest: HandCodingPseudos.Label]; iJNEj: PROC [AlphaZ: HandCoding.Lit8, dest: HandCodingPseudos.Label]; iLFC: PROC [dest: HandCodingPseudos.Label]; iRJGTj: PROC [a: HandCoding.ShortRegSpec, b: HandCoding.RegSpec, dest: HandCodingPseudos.Label]; iRJGEj: PROC [a: HandCoding.ShortRegSpec, b: HandCoding.RegSpec, dest: HandCodingPseudos.Label]; iRJEQj: PROC [a: HandCoding.ShortRegSpec, b: HandCoding.RegSpec, dest: HandCodingPseudos.Label]; iRJNEj: PROC [a: HandCoding.ShortRegSpec, b: HandCoding.RegSpec, dest: HandCodingPseudos.Label]; iRJLEj: PROC [a: HandCoding.ShortRegSpec, b: HandCoding.RegSpec, dest: HandCodingPseudos.Label]; iRJLTj: PROC [a: HandCoding.ShortRegSpec, b: HandCoding.RegSpec, dest: HandCodingPseudos.Label]; <> iWRI: PROC [BetaR: HandCoding.RegSpec, AlphaZ: HandCoding.Lit8, BetaL: HandCoding.RegSpec]; <<``Macro''s>> LoadConstant: PROC [value: INT _ 0]; <> <> <> Constant0: HandCoding.ConstSpec = HandCoding.const0; Short0: HandCoding.ShortRegSpec = const0; Constant1: HandCoding.ConstSpec = HandCoding.const1; Short1: HandCoding.ShortRegSpec = const1; ConstantMinus1: HandCoding.ConstSpec = HandCoding.constN1; <> NILValue: INT = 0; NILByte: HandCoding.Lit8 = 0; ShortNIL: HandCoding.ShortRegSpec = const0; ConstantNIL: HandCoding.ConstSpec = HandCoding.const0; <> FALSEValue: INT = 0; FALSEByte: HandCoding.Lit8 = 0; ShortFALSE: HandCoding.ShortRegSpec = const0; ConstantFALSE: HandCoding.ConstSpec = HandCoding.const0; TRUEValue: INT = 1; TRUEByte: HandCoding.Lit8 = 1; ShortTRUE: HandCoding.ShortRegSpec = const1; ConstantTRUE: HandCoding.ConstSpec = HandCoding.const1; <> ShorttopSrc: HandCoding.ShortRegSpec = topSrc; ShortpopSrc: HandCoding.ShortRegSpec = popSrc; <> DataLabel: TYPE = DragOpsCross.Word; <> SizeOfLongPointer: INT = 1; SizeOfINT: INT = 1; }.