as/casl2lib_test/divl_call0.casl

   1 ;;; casl2 div0_call0.casl div0.casl outl.casl
   2 MAIN    START
   3 BEGIN   LAD     GR1,101
   4         LAD     GR2,10
   5         CALL    DIVL
   6         RET
   7         END