as/div3.casl

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