as/casl2lib/sample/call_l2str.casl

   1 MAIN    START
   2         LD     GR1,L
   3         LAD    GR2,STR
   4         CALL   L2STR
   5         ST     GR0,LEN
   6         OUT    STR,LEN
   7         RET
   8 L       DC     6543
   9 STR     DS     5
  10 LEN     DS     1
  11         END