as/literalstr.casl

   1 MAIN START
   2         LAD     GR1,='abcdeABCDE'
   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