Match(l); L2 := NewLabel; EmitLn(BRA + L2); PostLabel(L1); Block(L); end;

Match(e); PostLabel(L2);

end;

{ Parse and Translate a WHILE Statement } procedure DoWhile; var L1, L2: string; begin

Match(w);

L1 := NewLabel;

L2 := NewLabel;

PostLabel(L1);

Condition;

EmitLn(BEQ + L2); Block(L2); Match(e); EmitLn(BRA + L1); PostLabel(L2); end;

{ Parse and Translate a LOOP Statement } procedure DoLoop; var L1, L2: string; begin

Match(p);

L1 := NewLabel;

L2 := NewLabel;

PostLabel(L1);

Block(L2);

Match(e);

EmitLn(BRA + L1);

PostLabel(L2); end;

{ Parse and Translate a REPEAT Statement } procedure DoRepeat; var L1, L2: string; begin

Match(r);

L1 := NewLabel;

L2 := NewLabel;

PostLabel(L1);

Block(L2);

Match(u);

Condition;

EmitLn(BEQ + L1); PostLabel(L2); end;

{ Parse and Translate a FOR Statement } procedure DoFor; var L1, L2: string;

Name: char; begin

Match(f);

L1 := NewLabel; L2 := NewLabel;

Name := GetName;

Match(=);

Expression;

EmitLnCSUBQ #1,D0);

EmitLnCLEA + Name + (PC),A0);

EmitLnCMOVE D0,(A0));

Expression;

EmitLnCMOVE D0,-(SP));

PostLabel(L1);

EmitLnCLEA + Name + (PC),A0); EmitLnCMOVE (A0),D0); EmitLnCADDQ #1,D0); EmitLnCMOVE D0,(A0)); EmitLnCCMP (SP),D0); EmitLnCBGT + L2);

Block(L2);

MatchCe); EmitLnCBRA + L1);

PostLabel(L2);

EmitLnCADDQ #2,SP); end;

{ Parse and Translate a DO Statement } procedure Dodo; var L1, L2: string; begin

Match(d);

L1 := NewLabel; L2 := NewLabel; Expression; EmitLnCSUBQ #1,D0);

PostLabel(L1);

EmitLnCMOVE D0,-(SP));

Block(L2);

EmitLnCMOVE (SP) + ,D0); EmitLnCDBRA D0, + L1); EmitLnCSUBQ #2,SP);

PostLabel(L2);

EmitLnCADDQ #2,SP); end;

{ Recognize and Translate a BREAK } procedure DoBreak(L: string); begin

Match(b);

EmitLnCBRA + L); end;

{ Recognize and Translate an "Other" } procedure Other; begin

EmitLn(GetName); end;

{ Recognize and Translate a Statement Block } procedure Block(L: string); begin

while not(Look in [e, Ч, u]) do begin case Look of

i: DoIf(L);

w: DoWhile;

p: DoLoop;

r: DoRepeat;

f: DoFor; d: DoDo; b: DoBreak(L); else Other; end; end; end;

{ Parse and Translate a Program } procedure DoProgram; begin

Block();

if Look <> e then Expected(End); EmitLn(END) end;

{ Initialize } procedure Init; begin

LCount := 0;

GetChar; end;

{ Main Program } begin Init;

DoProgram;

end.