as/div.casl

   1 DIV     START
   2 BEGIN   LD      GR1,X
   3         LD      GR2,A
   4 LOOP    SUBL    GR1,Y
   5     ADDL        GR2,=1
   6     CPL GR1,Y
   7         JPL     LOOP
   8     JZE LOOP
   9 MOD     LAD     GR3,0,GR1
  10         ST      GR3,M
  11 FIN     ST      GR2,A
  12         RET
  13 X       DC      87
  14 Y       DC      11
  15 A       DC      0
  16 M       DS      1
  17         END