home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug008.ark / MPY8.LIB < prev    next >
Encoding:
Text File  |  1984-04-29  |  652 b   |  30 lines
  1.  
  2. ;++++++++++++++++++++++++++++++++++++++++++++++
  3. ;
  4. ; 8 BIT BY 16 BIT MULTIPLY WITH 16 BIT RESULT
  5. ;
  6. ; MPY8.LIB  -  VERSION 0.1 - 12 SEP 77
  7. ;
  8. ; J.W. SHOOK, P.O. BOX 185, ROCKY POINT, NY 11778
  9. ;
  10. ;++++++++++++++++++++++++++++++++++++++++++++++
  11.  
  12. ; CALL WITH:
  13. ;    A  = Multiplier(unsigned)
  14. ;    DE = Multiplicand(unsigned)
  15.  
  16. ; RETURN WITH:
  17. ;    HL = Product
  18.  
  19. MPY8:    LXI    H,0    ; Clear product reg
  20. MPY81:    ORA    A    ; Test multiplier
  21.     RZ        ; Return if done
  22.     RAR        ; Shift LSB into carry
  23.     JNC    MPY82    ; Skip if LSB was zero
  24.     DAD    D    ; Add multiplicand to product
  25. MPY82:    XCHG        ; Shift multiplicand left
  26.     DAD    H
  27.     XCHG
  28.     JMP    MPY81    ; Do next bit of multiplier
  29.  
  30.