divl0.casl

   1 MAIN    START
   2 BEGIN   LAD     GR1,101
   3         LAD     GR2,10
   4         CALL    DIVL
   5         RET
   6         END