* @CALL    MACRO - BùúOB ðOäðPOçPAMMù                                   CALL0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 08.02.90   BPEMñ 14.56   *  æOKõC  CALL0002
* @CALL <éMñ ðPOçPAMMù>[,<AäPEC,úAçPõöAEMùê B R1>[,<AäPEC,úAçP.B R0>]]  CALL0003
*   ðPOçPAMMA ä.â. úAçPõöEHA ðO MK @LOAD, éìé âõäET ðPéPEäAKTéPOBAHA    CALL0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    CALL0005
         MACRO                                                          CALL0006
&N       @CALL &PGMNAME,&PARR1,&PARR0,&R=15                             CALL0007
         LCLC  &C                                                       CALL0008
&C       SETC  'PGMADR#&PGMNAME'                                        CALL0009
.*                                                                      CALL0010
&N       IHBLADR 1,&PARR1,EMPTY=SKIP                                    CALL0011
         IHBLADR 0,&PARR0,EMPTY=SKIP                                    CALL0012
         AIF   (NOT D'&C).VCONST                                        CALL0013
         L     &R,&C                                                    CALL0014
         AGO   .BALR                                                    CALL0015
.VCONST  L     &R,=V(&PGMNAME)                                          CALL0016
.BALR    BALR  14,&R                                                    CALL0017
         MEND                                                           CALL0018