anchor.diff:  // Routine here.
   {$IFDEF PP}
   {$DEFINE PUREPASCAL}
  +{$UNDEF PP}
   {$ENDIF}
   
   uses
  
positive.code:         MOV     EAX,[ESI + 3*CLimbSize]
          ADC     EAX,EDI
          MOV     [EBX + 3*CLimbSize],EAX
  
          LEA     ESI,[ESI + CUnrollIncrement*CLimbSize]
          LEA     EBX,[EBX + CUnrollIncrement*CLimbSize]
  
negative.code:   // Set this to True if you want to generate debug output.
    DoDebug: Boolean = True;
  
  {$HPPEMIT END '#include "Velthuis.BigIntegers.operators.hpp"'}
  
  implementation
  
  // To switch PUREPASCAL for debugging purposes, $UNDEF PUREPASCAL before the routine and $DEFINE PUREPASCAL
  // after the routine, if PP was defined.
  {$IFDEF PUREPASCAL}
  {$DEFINE PP}
  