* @GETMAX  MAKPO - ðOìõþéTø MAKCéMõM äOCTõðHOê ðAMñTé                   TMAX0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 19.10.88   BPEMñ 21.57   *  æOKõC  TMAX0002
*   @GETMAX [SP=<ðOäðõì>][,RENT=YES]                                    TMAX0003
*    R0-äìéHA R1-AäPEC R15-KOä BOúBPATA                                 TMAX0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    TMAX0005
         MACRO                                                          TMAX0006
&NAME    @GETMAX &SP=,&RENT=NO                                          TMAX0007
         GBLC  &@GETMAX,&@GETMAXSP                                      TMAX0008
&@GETMAX SETC  'IHB&SYSNDX'                                             TMAX0009
&@GETMAXSP SETC '&SP'                                                   TMAX0010
         AIF   ('&RENT' EQ 'YES' OR '&RENT' EQ 'Y').RENT                TMAX0011
&NAME    LA    1,IHB&SYSNDX                                             TMAX0012
         SVC   4                                                        TMAX0013
         L     1,IHB&SYSNDX.A                                           TMAX0014
         L     0,IHB&SYSNDX.A+4                                         TMAX0015
CONSTF  LOCTR                                                           TMAX0016
IHB&SYSNDX.L DC F'8',X'00FFFFF8'  MIN & MAX                             TMAX0017
IHB&SYSNDX.A DS 2F                                                      TMAX0018
IHB&SYSNDX GETMAIN VC,LA=IHB&SYSNDX.L,A=IHB&SYSNDX.A,SP=&SP,MF=L        TMAX0019
&SYSLOC LOCTR                                                           TMAX0020
         MEXIT                                                          TMAX0021
.RENT    ANOP                                                           TMAX0022
&NAME    MVC   20(10,13),IHB&SYSNDX                                     TMAX0023
         LA    1,12(13)                                                 TMAX0024
         ST    1,24(13)                                                 TMAX0025
         LA    1,20(13)                                                 TMAX0026
         SVC   4                                                        TMAX0027
         L     1,12(13)                                                 TMAX0028
         L     0,16(13)                                                 TMAX0029
CONSTF  LOCTR                                                           TMAX0030
IHB&SYSNDX.L DC F'8',X'00FFFFF8'  MIN & MAX                             TMAX0031
IHB&SYSNDX GETMAIN VC,LA=IHB&SYSNDX.L,SP=&SP,MF=L                       TMAX0032
&SYSLOC LOCTR                                                           TMAX0033
         MEND                                                           TMAX0034