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 / ZCPR33 / A-R / MATH24.LBR / MHALVE24.Z80 < prev    next >
Text File  |  2000-06-30  |  384b  |  21 lines
  1. ; Module MHALVE24
  2. ; Steven M. Cohen
  3. ; March 10, 1987
  4. ;
  5.     PUBLIC    HALVE24
  6. ;    Halves the 24 bit quantity pointed to by HL
  7. ;    Registers affected : NONE
  8. ;       Side effect:  NONE
  9. HALVE24:
  10.     PUSH    AF        ;save flags
  11.     INC    HL
  12.     INC    HL        ;start with the highest byte
  13.     OR    A
  14.     RR    (HL)        ;RR = divide by 2
  15.     DEC    HL        
  16.     RR    (HL)    
  17.     DEC    HL
  18.     RR    (HL)
  19.     POP    AF        ;restore flags
  20.     RET
  21.  the highest b