as/CMD/call1.casl

   1 MAIN    START   BEGIN
   2 BEGIN   LD      GR1,=29
   3         CALL    COPY
   4         ST      GR2,B
   5         RET
   6 B       DS      1
   7         END
   8 COPY    START
   9         LD      GR2,GR1
  10         RET
  11         END