; Integer divides HLBC by DE, returns result in BC and remainder in HL ; Clobbers A, F, IYH ; Found on Usenet Divide16: ld iyh,16 -: rl c rl b adc hl,hl sbc a,a or a sbc hl,de sbc a,0 jr nc,+ add hl,de scf +: dec iyh jp nz,- rl c rl b ld a,c cpl ld c,a ld a,b cpl ld b,a ret