-- N.Wirth  June 1, 1977
				-- S.Andler  August 24, 1977  10:59 PM
DIRECTORY
  TeleSilMain: FROM "TeleSilMain",	-- TeleSil modules
  TeleSilPup: FROM "TeleSilPup",
  TeleSilIO: FROM "TeleSilIO",
  TeleSilDisplay: FROM "TeleSilDisplay",
  TeleSilResident: FROM "TeleSilResident",

  ControlDefs: FROM "ControlDefs",	-- Mesa modules
  ImageDefs: FROM "ImageDefs",
  RectangleDefs: FROM "RectangleDefs";

TeleSilLoad: PROGRAM=
BEGIN
  -- External Procedures --
    -- From unknown! package --
      SetBindingEntry: EXTERNAL PROCEDURE[frame, entry: ControlDefs.GlobalFrameHandle];
      LockCode: EXTERNAL PROCEDURE[UNSPECIFIED];

  -- Modules
  main, pup, io, display, resident: POINTER;
  typeScriptDCB: RectangleDefs.DCBptr _ MEMORY[420B];

  RectangleDefs.DisplayOff[white]; -- This will free 6 pages in low core,
    -- where TeleSilResident will be locked in, as well as the big bitmap
  resident _ NEW TeleSilResident[typeScriptDCB]; LockCode[resident];
  display _ NEW TeleSilDisplay;
  io _ NEW TeleSilIO; pup _ NEW TeleSilPup; main _ NEW TeleSilMain;

  SetBindingEntry[resident, main]; SetBindingEntry[display, main];
  SetBindingEntry[io, main]; SetBindingEntry[pup, main];
  BIND resident; START resident;
  BIND display; START display;
  BIND io; BIND pup; BIND main;

  RectangleDefs.DisplayOn;
  MEMORY[420B] _ RectangleDefs.DCBnil; -- Make display come up white
  ImageDefs.MakeImage["TeleSil.image", FALSE];

  RectangleDefs.DisplayOff[white];
  START main;  -- it never RETURNs/STOPs
END.
(2048)\407b11B83b15B73b8B