as/div2.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     ST      GR1,M
  10 FIN     ST      GR2,A
  11         RET
  12 X       DC      333
  13 Y       DC      12
  14 A       DC      0
  15 M       DS      1
  16         END