--SoftBITBLT is exported by LongBitBLT.Mesa
DIRECTORY
	BitBltDefs: FROM "BitBltDefs",
	Mopcodes: FROM "Mopcodes";

BBDefs: DEFINITIONS =
BEGIN

DMachine: BOOLEAN;

BITBLT: PROCEDURE [ptr: POINTER TO BitBltDefs.LongBBTable] = INLINE
BEGIN
IF DMachine THEN HardBITBLT[ptr] ELSE SoftBITBLT[ptr];
END;

SoftBITBLT: PROCEDURE [ptr: POINTER TO BitBltDefs.LongBBTable];

HardBITBLT: PROCEDURE [ptr: POINTER TO BitBltDefs.LongBBTable] =
    MACHINE CODE BEGIN Mopcodes.zLI0; Mopcodes.zBITBLT END;

END.