home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N4.ZIP / SHIFT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-13  |  543 b   |  11 lines
  1. FUNCTION ShiftDWordRight(Target : LongInt; 
  2.                          ShiftBy : Integer) : LongInt;
  3.  
  4. INLINE($59/            { POP CX    Pop ShiftBy value into CX }
  5.        $58/            { POP AX    Pop LSW of target into AX }
  6.        $5A/            { POP DX    Pop MSW of target into DX }
  7.        $F8/            { CLC       Clear carry flag }
  8.        $D1/$DA/        { RCR DX,1  Rotate DX thru carry flag }
  9.        $D1/$D8/        { RCR AX,1  Rotate AX thru carry flag }
  10.        $E2/$FA);       { LOOP -6   DEC CX; Loop if CX > 0    }
  11.