
 public _DivMod10

_DivMod10
        clr.l   d1

        swap d2
        move.w d2,d1 ;move.w    4(a7),d1
        divu.w  #10:W,d1
        move.w  d1,d0
        swap    d0

        swap d2
        move.w d2,d1 ;;move.w    6(a7),d1
        divu.w  #10:W,d1
        move.w  d1,d0

        clr.w   d1
        swap    d1
        rts
