as/div_sub.casl

   1 ; GR0に格納された内容とGR1に格納された内容の、
   2 ; 商をGR2、剰余をGR3に格納する
   3 DIV     START
   4     LAD GR2,0
   5         LD      GR3,GR0
   6 LOOP    SUBA    GR3,GR1
   7     LAD GR2,1,GR2
   8     CPA GR3,GR1
   9         JPL     LOOP
  10     JZE LOOP
  11         RET
  12     END