as/cmd/CALL/call0.casl

   1 MAIN    START
   2         LAD     GR1,29
   3         CALL    COPY
   4         RET
   5         END
   6 COPY    START
   7         LD      GR2,GR1
   8         RET
   9         END