lc 73
      store Dividend
      lc 13
      store Divisor
      lc 0
      store Quotient
      lc 0
      store Remainder
      lc 0
      store Sum
top1:
      load Sum
      load Divisor
      add
      load Dividend
      comp
      bgt end1
      load Sum
      load Divisor
      add
      store Sum
      load Quotient
      lc 1
      add
      store Quotient
      goto top1
end1:
top2:
      load Sum
      load Dividend
      comp
      beq end2
      load Sum
      lc 1
      add
      store Sum
      load Remainder
      lc 1
      add
      store Remainder
      goto top2
end2: