as/casl2lib_test/rev_call.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