home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / sclib2.lbr / CALL4.MZC / CALL4.MAC
Encoding:
Text File  |  1993-10-25  |  640 b   |  37 lines
  1.  
  2. ;
  3. ;----- call4.mac   Small-C  arithmetic and logical library
  4. ;
  5. ;
  6. ;    part 4        arithmetic shift routines
  7. ;
  8.  
  9.         ;
  10.         ;SHIFT DE ARITHMETICALLY RIGHT BY HL AND RETURN IN HL
  11.         ;
  12. CCASR:: 
  13.         XCHG
  14.         DCR E
  15.         RM
  16.         MOV A,H
  17.         RAL
  18.         MOV A,H
  19.         RAR
  20.         MOV H,A
  21.         MOV A,L
  22.         RAR
  23.         MOV L,A
  24.         JMP CCASR+1
  25.         ;
  26.         ;SHIFT DE ARITHMETICALLY LEFT BY HL AND RETURN IN HL
  27.         ;
  28. CCASL:: 
  29.         XCHG
  30.         DCR E
  31.         RM
  32.         DAD H
  33.         JMP CCASL+1
  34.         ;
  35.      END    
  36.  
  37.