root/as/sample/call_l2str.casl

/* [<][>][^][v][top][bottom][index][help] */ 
   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
/* [<][>][^][v][top][bottom][index][help] */