intest1.casl

   1 MAIN    START
   2         PUSH    0,GR1
   3         PUSH    0,GR2
   4         LAD     GR1,IBUF
   5         LAD     GR2,LEN
   6         SVC     1
   7         POP     GR2
   8         POP     GR1
   9         IN      IBUF,LEN
  10         OUT     IBUF,LEN
  11         RET
  12 IBUF    DS      100
  13 LEN     DC      1
  14         END