Turbo Toolbox/Turbo_Toolbox.iso/spezial/13/sonstige/swap.pas

Pascal/Delphi Source File | 1988-06-23 | 575 b | 17 lines

PROCEDURE Swap(VAR a, b; Size: INTEGER);

BEGIN
  Inline(
         $2A/A/        {      LD HL,(A)    }
         $5BED/B/      {      LD DE,(B)    }
         $4BED/Size/   {      LD BC,(Size) }
         $1A/          { Loop LD A,(DE)    }
         $a0ED/        {      LDI          }
         $2B/          {      DEC HL       }
         $77/          {      LD (HL),A    }
         $23/          {      INC HL       }
         $78/          {      LD A,B       }
         $B1/          {      OR C         }
         $20/$F6)      {      JR NZ,Loop   }
END;