as/casl2lib/test/divl/divl1/divl1.casl

   1 ;;; casl2 divl1.casl ../casl2lib/outl.casl
   2 MAIN    START
   3 BEGIN   LD      GR1,X
   4         CALL    OUTL
   5         LD      GR2,Y
   6         PUSH    0,GR1
   7         LD      GR1,GR2
   8         CALL    OUTL
   9         POP     GR1
  10         CALL    DIVL
  11         LD      GR1,GR0
  12         CALL    OUTL
  13         LD      GR1,GR3
  14         CALL    OUTL
  15         RET
  16 X       DC      123
  17 Y       DC      10
  18         END