as/add_loop.casl

   1 MAIN    START
   2 BEGIN   LAD     GR0,0
   3         LAD     GR1,0
   4 LOOP    CPA GR1,LEN
   5         JZE     FIN
   6     LAD GR1,1,GR1
   7         ADDA    GR0,GR1
   8     JUMP        LOOP
   9 FIN    RET
  10 LEN     DC      10
  11         END