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 / div16.mac < prev    next >
Encoding:
Text File  |  1994-06-06  |  640 b   |  31 lines
  1. ;************************************************************************
  2. ;*        Divisionsroutine HL/DE => DE, rest HL            *
  3. ;************************************************************************
  4.  
  5.         .z80            ;
  6.         entry .idiv, .imod    ;
  7.  
  8. .idiv:        call .imod        ;
  9.         ex de,hl        ;
  10.         ret            ;
  11.  
  12. .imod:        ld b,16            ;
  13.         ld c,l            ;
  14.         ld a,h            ;
  15.         ld hl,0            ;
  16. loop:        rl c            ;
  17.         rla            ;
  18.         adc hl,hl        ;
  19.         sbc hl,de        ;
  20.         jr nc,ok        ;
  21.         add hl,de        ;
  22. ok:        ccf            ;
  23.         djnz loop        ;
  24.         rl c            ;
  25.         rla            ;
  26.         ld e,c            ;
  27.         ld d,a            ;
  28.         ex de,hl        ;
  29.         ret            ;
  30.         end            ;
  31.