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 / ZSYS / SIMTEL20 / ZSIG / M24.LBR / MDOUBL24.Z80 < prev    next >
Text File  |  2000-06-30  |  384b  |  24 lines
  1. ; Module MDOUBL24
  2. ; Steven M. Cohen
  3. ; March 10, 1987
  4. ;
  5.      PUBLIC    DOUBLE24
  6. ;    Doubles the 24 bit buffer pointed to by HL
  7. ;       Registers affected :NONE
  8. ;       Side effects: NONE
  9. ;                     
  10. DOUBLE24:
  11.         PUSH    AF        ;preserve flags 
  12.     OR    A
  13.     RL    (HL)        ;RL= mult by 2
  14.     INC    HL        
  15.     RL    (HL)    
  16.     INC    HL
  17.     RL    (HL)
  18.     DEC    HL
  19.     DEC    HL
  20.     POP    AF        ;restore flags
  21.  
  22.     RET
  23. 
  24.