as/revtest.casl

   1 MAIN    START
   2         OUT     STR,LEN
   3     LAD GR1,STR
   4     LD  GR2,LEN
   5     CALL        REV
   6         OUT     STR,LEN
   7     RET
   8 STR     DC      '12345'
   9 LEN     DC      5
  10     END
  11 REV     START
  12         LAD     GR3,1
  13 RPU     CPA     GR2,GR3
  14         JMI     RNEXT
  15     LD  GR4,GR1
  16     ADDA        GR4,GR3
  17     LD  GR4,-1,GR4
  18         PUSH 0,GR4
  19     LAD GR3,1,GR3
  20     JUMP        RPU
  21 RNEXT    LAD    GR3,1
  22 RPO     CPA     GR2,GR3
  23         JMI     PFIN
  24     POP GR4
  25     LD  GR5,GR1
  26     ADDA        GR5,GR3
  27     ST  GR4,-1,GR5
  28     LAD GR3,1,GR3
  29     JUMP        RPO
  30 PFIN    RET
  31         END