as/CMD/literalstr.casl

   1 MAIN    START
   2         LAD     GR1,='a'
   3         LAD     GR2,10
   4 LOOP    CPA     GR2,=0
   5         JZE     LEND
   6         JMI     LEND
   7         LD      GR3,0,GR1
   8         ADDA    GR1,=1
   9         SUBA    GR2,=1
  10         JUMP    LOOP
  11 LEND    RET
  12 LEN     DC      5
  13         END