anchor.diff:  
   {--------------------------------------------------------------}
   { Initialize }
  -
   procedure Init;
   begin
       { Grab the next character. Not doing token lookahead yet.}
  
positive.code: {--------------------------------------------------------------}
  { Variable Declarations }
  
  var Look: char;              { Lookahead Character }
  
  {--------------------------------------------------------------}
  { Read New Character From Input Stream }
  
negative.code:     EmitLn('    pop %rbx');
      EmitLn('    sub %rax, %rbx');
  end;
  
  {---------------------------------------------------------------}
  { Parse and Translate an Expression }
  procedure Expression;
  begin
      Term;
  