<> <> <> DIRECTORY Environment USING [Block], PrincOpsUtils USING [ByteBlt]; ByteBlt: DEFINITIONS IMPORTS PrincOpsUtils= BEGIN ByteBlt: PROCEDURE [to, from: Environment.Block, overLap: OverLapOption _ ripple] RETURNS [nBytes: CARDINAL] ~ INLINE { IF overLap # ripple THEN ERROR ELSE nBytes _ PrincOpsUtils.ByteBlt[to: LOOPHOLE[to], from: LOOPHOLE[from]] }; <> <stopIndexPlusOne in either to>> <> <> <> <> <> <> <> <<(from+i)^ was before the move). It does a BLT for the easy cases and BitBlt whenever>> <> <> OverLapOption: TYPE = {ripple, move}; StartIndexGreaterThanStopIndexPlusOne: ERROR; END. LOG Time: July 9, 1979 12:03 PM By: Gobbel Created file Time: January 25, 1980 4:04 PM By: McJones Add StartIndexGreaterThanStopIndexPlusOne Time: 11-Aug-81 10:13:58 By: Luniewski Added overLap option to ByteBlt to permit explicit dealing with overlapping fields. Time: August 31, 1984 11:47:34 am PDT By: Plass Action: Created Cedar PilotBridge version from version of 12-Nov-81 09:49:05 PST