anchor.diff:      EmitLn('    pop %rbx');
       EmitLn('    sub %rax, %rbx');
   end;
  -{-------------------------------------------------------------}
  -
   
   {---------------------------------------------------------------}
   { Parse and Translate an Expression }
  -
   procedure Expression;
   begin
       Term;
  
positive.code:     GetChar;
  end;
  
  
  {--------------------------------------------------------------}
  { Output a String with Tab }
  
  procedure Emit(s: string);
  begin
      Write(TAB, s);
  end;
  
  
  {--------------------------------------------------------------}
  { Output a String with Tab and CRLF }
  
  procedure EmitLn(s: string);
  begin
      Emit(s);
  
negative.code: {--------------------------------------------------------------}
  { Variable Declarations }
  
  var Look: char; { Lookahead Character }
  
  {--------------------------------------------------------------}
  { Read New Character From Input Stream }
  