H-Blocks 'Time to move' [CD] { } ~54.00.00 11135

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; EmitLn('SUBQ #1,D0'); EmitLn('LEA ' + Name + '(PC),A0'); EmitLn('MOVE D0,(A0)'); Expression; EmitLn('MOVE D0,-(SP)'); PostLabel(L1); EmitLn('LEA ' + Name + '(PC),A0'); EmitLn('MOVE (A0),D0'); EmitLn('ADDQ #1,D0'); EmitLn('MOVE D0,(A0)'); EmitLn('CMP (SP),D0'); EmitLn('BGT ' + L2); Block(L2); Match('e'); EmitLn('BRA ' + L1); PostLabel(L2); EmitLn('ADDQ #2,SP'); end; {} { Parse and Translate a DO Statement } procedure Dodo; var L1, L2: string; begin Match('d'); L1 := NewLabel; L2 := NewLabel; Expression; EmitLn('SUBQ #1,D0'); PostLabel(L1); EmitLn('MOVE D0,-(SP)'); Block(L2); EmitLn('MOVE (SP)+,D0'); EmitLn('DBRA D0,' + L1); EmitLn('SUBQ #2,SP'); PostLabel(L2); EmitLn('ADDQ ...»