home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / call4.mac < prev    next >
Text File  |  1989-02-23  |  768b  |  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.