home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / call1.mac < prev    next >
Text File  |  1989-02-23  |  896b  |  41 lines
  1.  
  2. ;----- call1.mac   Small-C  arithmetic and logical library
  3. ;    
  4. ;    part 1        Multiply Routine
  5. ;
  6.                         ;
  7.                         ;        ;
  8.         ;MULTIPLY DE BY HL AND RETURN IN HL
  9.         ;(SIGNED MULTIPLY)
  10.         ;
  11. CCMULT::
  12. MULT:   MOV B,H
  13.         MOV C,L
  14.         LXI H,0
  15. CCMLT1: MOV A,C
  16.         RRC
  17.         JNC CCMLT2
  18.         DAD D
  19. CCMLT2: XRA A
  20.         MOV A,B
  21.         RAR
  22.         MOV B,A
  23.         MOV A,C
  24.         RAR
  25.         MOV C,A
  26.         ORA B
  27.         RZ
  28.         XRA A
  29.         MOV A,E
  30.         RAL
  31.         MOV E,A
  32.         MOV A,D
  33.         RAL
  34.         MOV D,A
  35.         ORA E
  36.         RZ
  37.         JMP CCMLT1
  38.  
  39.     END
  40.  
  41.