as/casl2lib/test/divl/divl.casl

   1 MAIN    START
   2         LD      GR1,XMAX
   3 LOOPX   CPA     GR1,XMIN
   4         JMI     FIN
   5         OUT     SEP,SLEN
   6         LD      GR2,YMIN
   7 LOOPY   CPL     GR2,YMAX
   8         JPL     XNEXT
   9         CALL    OUTL
  10         PUSH    0,GR1
  11         LD      GR1,GR2
  12         CALL    OUTL
  13         POP     GR1
  14         CALL    DIVL
  15         JOV     WOV
  16         PUSH    0,GR1
  17         LD      GR1,GR0
  18         CALL    OUTL
  19         LD      GR1,GR3
  20         CALL    OUTL
  21         POP     GR1
  22 YNEXT   OUT     SEP,SLEN
  23         LAD     GR2,1,GR2
  24         JUMP    LOOPY
  25 WOV     OUT     Y0MSG,YLEN
  26         JUMP    YNEXT
  27 XNEXT   LAD     GR1,-1,GR1
  28         JUMP    LOOPX
  29 FIN     RET
  30 XMAX    DC      100
  31 XMIN    DC      0
  32 YMAX    DC      10
  33 YMIN    DC      0
  34 SEP     DC      '--------------------'
  35 SLEN    DC      20
  36 Y0MSG   DC      'Error: div by 0'
  37 YLEN    DC      15
  38         END