start: mov r1, #HIGH(10000d) ;X
       mov r0, #LOW(10000d)
       mov r3, #HIGH(2000d) ; Y
       mov r2, #LOW(2000d)  ; r1,r0 = X/Y r3,r2 = remainder

DIV16: mov r7, #0
       mov r6, #0
       mov B, #16

loop: clr C
      mov a, r0
      rlc a
      mov r0, a
      mov a, r1
      rlc a
      mov r1, a
      mov a, r6
      rlc a
      mov r6, a
      mov a, r7
      rlc a
      mov r7, a
      mov a, r6
      clr C
      subb a, r3
      mov dpl, a
      mov a, r7
      subb a, r3
      mov dph, a
      cpl C
      jnc div_1
      mov r7, dph
      mov r6, dpl

div_1: mov a, r4
       rlc a
       mov r4, a
       mov a, r5
       rlc a
       mov r5, a
       djnz B, loop
       mov a, r5
       mov r1, a
       mov a, r4
       mov r0, a
       mov a, r7
       mov r3, a
       mov a,r6
       mov r2, a
       ret

END