as/call_l2str.casl

   1 MAIN    START
   2         LD      GR1,VAL
   3         LAD     GR2,ADR
   4         CALL    L2STR
   5         ST      GR3,LEN
   6         OUT     ADR,LEN
   7         RET
   8 VAL     DC      3245
   9 ADR     DS      6
  10 LEN     DS      1
  11         END