$LARGE 
$NOLIST

{ LargePatchKit.pas }

MODULE LargePatchKit;

$INCLUDE (``Incs_Pas`Common~Inc~)
$INCLUDE (``Incs_Pas`Con_Pas~Inc~)
$INCLUDE (``Incs_Pas`Os_T~Inc~)
$INCLUDE (``Incs_Pas`Os_P~Inc~)


PUBLIC LargePatchKit;
  Procedure PatchHole (offSet : Integer);

PRIVATE LargePatchKit;


$CODE
Procedure PatchHole (offSet : Integer);
    
  BEGIN
  ConLineOut ('Invalid pascal run-time call at ', 32);
  ConHexOut (offSet);
  OsDelay (3000);
  OsExit (2);
  END;

.
