root/as/cmd/CALL/call__both.casl

   1 ;;; CALL
   2 ;;; 同じプログラムの中とほかのプログラムの入口名の両方で定義されたラベルを指定
   3 ;;; YACASL2では、ほかのプログラムの入口名を優先
   4 MAIN    START   BEGIN
   5 BEGIN   LAD     GR1,29
   6         CALL    COPY
   7         RET
   8 COPY    LD      GR2,GR1
   9         RET
  10         END
  11 COPY    START
  12         LD      GR2,GR1
  13         RET
  14         END