-- TestSageImpl.mesa
-- Last Edited by: Barth, 23-Oct-84 18:20:54

DIRECTORY Heap, Sage;

TestSageImpl: PROGRAM 
  IMPORTS Heap, Sage
  EXPORTS  =

BEGIN OPEN Sage;
 
  z:UNCOUNTED ZONE = Heap.systemZone;

  pulseTaps: PulseLineTaps ← z.NEW [PulseLineTapRec];
  channelControl: ChannelControlData ← z.NEW [ChannelControlDataRec];
  initialData: ChannelVector ← z.NEW [ChannelVectorRec];
  FOR i:CARDINAL IN PulseLine DO
    pulseTaps.taps[i] ← i;
    ENDLOOP;
  pulseTaps.taps[2] ← 40;
  pulseTaps.taps[4] ← 23;
  pulseTaps.taps[6] ← 20;
  pulseTaps.taps[7] ← 60;
  pulseTaps.taps[10] ← 25;
  channelControl.channels[0] ← [TRUE, 4, 2];
  FOR i:CARDINAL ← 0, i+2 UNTIL i>LAST[OutputStage] DO
    initialData.stageData[0].force[i] ← L;
    initialData.stageData[0].force[i+1] ← H;
    ENDLOOP;
  DO
    j: CARDINAL ← 0;
    [] ← InitializeTester[pulseTaps, channelControl, initialData];
    FOR i:CARDINAL IN [0..64000] DO
      j ← j+1;
      ENDLOOP;
    ENDLOOP;
END.