<> <> <> <> <> DIRECTORY BitOps, Dragon, DragOpsCross; DragonRoseExtras: CEDAR DEFINITIONS = BEGIN LTD, LongToDouble: PROC[word: Dragon.HexWord] RETURNS[BitOps.BitDWord]; LFD, LongFromDouble: PROC[bdw: BitOps.BitDWord] RETURNS[Dragon.HexWord]; PRtoByte: PROC[pr:DragOpsCross.ProcessorRegister] RETURNS [byte:Dragon.HexByte]; BytetoPR: PROC[byte:Dragon.HexByte] RETURNS [pr:DragOpsCross.ProcessorRegister]; END.