;7_15.asm

             mov  al,divd
        ife  sign
             mov  ah,0
             div  scale
         else
             cbw
             idiv scale
         endif
             mov  result,al