home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / CPM-80-E / CPM-0.2 / CPM-0 / cpm-0.2 / z80-sources / mylib / multa.mac < prev    next >
Encoding:
Text File  |  1994-06-06  |  256 b   |  15 lines
  1.         .z80            ;
  2.         entry _multa        ;
  3. _multa:        ex de,hl        ;
  4.         ld b,8            ;
  5.         ld hl,0            ;
  6. loop:        add hl,hl        ;
  7.         ret c            ;
  8.         rla            ;
  9.         jr nc,next        ;
  10.         add hl,de        ;
  11.         ret c            ;
  12. next:        djnz loop        ;
  13.         ret            ;
  14.         end            ;
  15.