DEFINITION MODULE SetUpCode;

FROM Streams IMPORT Stream;

EXPORT QUALIFIED 
    ReadInCode, MaxCodeSize, code, FirstCodeByteNo, LastCodeByteNo, 
    FixupByte, WriteKeyFile, SetToNOP;

VAR FirstCodeByteNo, LastCodeByteNo : CARDINAL; 

CONST MaxCodeSize = 10000;

PROCEDURE ReadInCode ();
PROCEDURE code (ByteNo : CARDINAL) : CARDINAL;
PROCEDURE FixupByte (ByteOffset : CARDINAL) : BOOLEAN;
PROCEDURE WriteKeyFile (s : Stream);
PROCEDURE SetToNOP (ByteNo : CARDINAL);
END SetUpCode.




