home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / PMLINK.LBR / ROTLFT.MAC < prev    next >
Text File  |  2000-06-30  |  384b  |  25 lines
  1.     .z80
  2.     external Word,NBits
  3.                 ;Function ROTLFT rotates
  4.                 ;integer Word by NBits left
  5. rotlft:    ld    HL,(Word)
  6.     ld    A,(NBits)
  7.     and    0FH
  8.     or    A
  9.     ret    Z        ;No rotation
  10.                 ;if NBits 0
  11.     ld    B,A
  12.     ld    A,L
  13.     ld    L,0
  14.  
  15. loop:    sla    A        ;MSB in carry
  16.     rl    H
  17.     adc    A,L        ;Carry restore
  18.     djnz    loop
  19.  
  20.     ld    L,A        ;Result in HL
  21.     ret
  22.     end    rotlft
  23. by NBits left
  24. rotlft:    ld    HL,(Word)
  25.     ld    A,(NBits)