as/div10.casl

   1 ;GR1を10で割ったときの商をGR2、剰余をGR3に格納
   2 DIV10   START
   3         LD      GR3,GR1
   4         LAD     GR2,0
   5 LOOP    CPA     GR3,TEN
   6         JMI     FIN
   7     SUBL GR3,TEN
   8     LAD GR2,1,GR2
   9     JUMP        LOOP
  10 FIN     RET
  11 TEN     DC      10
  12         END