as/casl2lib_test/divl_call1.casl

   1 ;;; casl2 div0_call0.casl div0.casl outl.casl
   2 MAIN    START
   3 BEGIN   LD      GR1,X
   4         LD      GR2,Y
   5         CALL    DIVL
   6         LD      GR1,GR0
   7         CALL    OUTL
   8         LD      GR1,GR3
   9         CALL    OUTL
  10         RET
  11 X       DC      123
  12 Y       DC      10
  13         END