as/CMD/CALL/call0.casl

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