//jobname  JOB accouting_field,pgmr_name,CLASS=job_class,                       
//             MSGCLASS=message_class,MSGLEVEL=(1,1)                            
/*JOBPARM LINES=10                                                              
//CREATE   EXEC PGM=IEBUPDTE,PARM=NEW                                           
//SYSPRINT DD   SYSOUT=*                                                        
//SYSUT2   DD   DSN=your.dataset.name,                                          
//  UNIT=devtype,                                                               
//  SPACE=(3120,(120,20,120)),                                                  
//  DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120),                                       
//  DISP=(NEW,CATLG)                                                            
//SYSIN DD DATA,DLM=')('                                                        
./ ADD NAME=BAS                                                                 
         MACRO                                                          00000010
&NAME    BAS   &R1,&X2                                                  00000020
&NAME    BAL   &R1,&X2                                                  00000030
         ORG   *-4                                                      00000040
         DC    X'4D'                                                    00000050
         ORG   *+3                                                      00000060
         MEND                                                           00000070
./ ADD NAME=CONCS                                                               
         MACRO                                                          00000010
&NAME    CONCS &S2                                                      00000020
&NAME    DC    0H'0',X'B200',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=BASR                                                                
         MACRO                                                          00000010
&NAME    BASR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'0D',AL.4(&R1,&R2)                                00000030
         MEND                                                           00000040
./ ADD NAME=CLRCH                                                               
         MACRO                                                          00000010
&NAME    CLRCH &S2                                                      00000020
&NAME    DC    0H'0',X'9F01',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=DISCS                                                               
         MACRO                                                          00000010
&NAME    DISCS &S2                                                      00000020
&NAME    DC    0H'0',X'B201',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=EPAR                                                                
         MACRO                                                          00000010
&NAME    EPAR  &R1                                                      00000020
&NAME    DC    0H'0',X'B226',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=ESAR                                                                
         MACRO                                                          00000010
&NAME    ESAR  &R1                                                      00000020
&NAME    DC    0H'0',X'B227',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=IAC                                                                 
         MACRO                                                          00000010
&NAME    IAC   &R1                                                      00000020
&NAME    DC    0H'0',X'B224',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=IPTE                                                                
         MACRO                                                          00000010
&NAME    IPTE  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B221',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=ISKE                                                                
         MACRO                                                          00000010
&NAME    ISKE  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B229',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=IVSK                                                                
         MACRO                                                          00000010
&NAME    IVSK  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B223',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LASP                                                                
         MACRO                                                          00000010
&NAME    LASP  &S1,&S2                                                  00000020
&NAME    DC    0H'0',X'E500',S(&S1),S(&S2)                              00000030
         MEND                                                           00000040
./ ADD NAME=MVCIN                                                               
         MACRO                                                          00000010
&NAME    MVCIN &S1,&S2                                                  00000020
&NAME    MVC   &S1,&S2                                                  00000030
         ORG   *-6                                                      00000040
         DC    X'E8'                                                    00000050
         ORG   *+5                                                      00000060
         MEND                                                           00000070
./ ADD NAME=PC                                                                  
         MACRO                                                          00000010
&NAME    PC    &S2                                                      00000020
&NAME    DC    0H'0',X'B218',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=PT                                                                  
         MACRO                                                          00000010
&NAME    PT    &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B228',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=RIO                                                                 
         MACRO                                                          00000010
&NAME    RIO   &S2                                                      00000020
&NAME    DC    0H'0',X'9C02',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=SAC                                                                 
         MACRO                                                          00000010
&NAME    SAC   &S2                                                      00000020
&NAME    DC    0H'0',X'B219',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=RRBE                                                                
         MACRO                                                          00000010
&NAME    RRBE  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B22A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SSAR                                                                
         MACRO                                                          00000010
&NAME    SSAR  &R1                                                      00000020
&NAME    DC    0H'0',X'B225',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=SSKE                                                                
         MACRO                                                          00000010
&NAME    SSKE  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B22B',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=TB                                                                  
         MACRO                                                          00000010
&NAME    TB    &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B22C',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=TPROT                                                               
         MACRO                                                          00000010
&NAME    TPROT &S1,&S2                                                  00000020
&NAME    DC    0H'0',X'E501',S(&S1),S(&S2)                              00000030
         MEND                                                           00000040
./ ADD NAME=BASSM                                                               
         MACRO                                                          00000010
&NAME    BASSM &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'0C',AL.4(&R1,&R2)                                00000030
         MEND                                                           00000040
./ ADD NAME=BSM                                                                 
         MACRO                                                          00000010
&NAME    BSM   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'0B',AL.4(&R1,&R2)                                00000030
         MEND                                                           00000040
./ ADD NAME=IPM                                                                 
         MACRO                                                          00000010
&NAME    IPM   &R1                                                      00000020
&NAME    DC    0H'0',X'B222',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=DXR                                                                 
         MACRO                                                          00000010
&NAME    DXR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B22D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SIE                                                                 
         MACRO                                                          00000010
&NAME    SIE   &S2                                                      00000020
&NAME    DC    0H'0',X'B214',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=TRACE                                                               
         MACRO                                                          00000010
&NAME    TRACE &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'99',AL.4(&R1,&R3),S(&S2)                         00000030
         MEND                                                           00000040
./ ADD NAME=CSCH                                                                
         MACRO                                                          00000010
&NAME    CSCH                                                           00000020
&NAME    DC    0H'0',X'B230',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=HSCH                                                                
         MACRO                                                          00000010
&NAME    HSCH                                                           00000020
&NAME    DC    0H'0',X'B231',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=MSCH                                                                
         MACRO                                                          00000010
&NAME    MSCH  &S2                                                      00000020
&NAME    DC    0H'0',X'B232',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=RCHP                                                                
         MACRO                                                          00000010
&NAME    RCHP                                                           00000020
&NAME    DC    0H'0',X'B23B',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=RSCH                                                                
         MACRO                                                          00000010
&NAME    RSCH                                                           00000020
&NAME    DC    0H'0',X'B238',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=SAL                                                                 
         MACRO                                                          00000010
&NAME    SAL                                                            00000020
&NAME    DC    0H'0',X'B237',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=SCHM                                                                
         MACRO                                                          00000010
&NAME    SCHM                                                           00000020
&NAME    DC    0H'0',X'B23C',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=SSCH                                                                
         MACRO                                                          00000010
&NAME    SSCH  &S2                                                      00000020
&NAME    DC    0H'0',X'B233',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STCPS                                                               
         MACRO                                                          00000010
&NAME    STCPS &S2                                                      00000020
&NAME    DC    0H'0',X'B23A',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STSCH                                                               
         MACRO                                                          00000010
&NAME    STSCH &S2                                                      00000020
&NAME    DC    0H'0',X'B234',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=TPI                                                                 
         MACRO                                                          00000010
&NAME    TPI   &S2                                                      00000020
&NAME    DC    0H'0',X'B236',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=TSCH                                                                
         MACRO                                                          00000010
&NAME    TSCH  &S2                                                      00000020
&NAME    DC    0H'0',X'B235',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STCRW                                                               
         MACRO                                                          00000010
&NAME    STCRW &S2                                                      00000020
&NAME    DC    0H'0',X'B239',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=AHI                                                                 
         MACRO                                                          00000010
&NAME    AHI   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,10),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=ALC                                                                 
         MACRO                                                          00000010
&NAME    ALC   &R1,&X2                                                  00000020
&NAME    AL    &R1,&X2                                                  00000030
         ORG   *-4                                                      00000040
         DC    X'E3'                                                    00000050
         ORG   *+3                                                      00000060
         DC    AL1(0),X'98'                                             00000070
         MEND                                                           00000080
./ ADD NAME=ALCR                                                                
         MACRO                                                          00000010
&NAME    ALCR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B998',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=BRAS                                                                
         MACRO                                                          00000010
&NAME    BRAS  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,5),Y((&I2-*+2)/2)                   00000030
         MEND                                                           00000040
./ ADD NAME=BRASL                                                               
         MACRO                                                          00000010
&NAME    BRASL &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,5),AL4((&I2-*+2)/2)                 00000030
         MEND                                                           00000040
./ ADD NAME=BRC                                                                 
         MACRO                                                          00000010
&NAME    BRC   &M1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&M1,4),Y((&I2-*+2)/2)                   00000030
         MEND                                                           00000040
./ ADD NAME=BRCL                                                                
         MACRO                                                          00000010
&NAME    BRCL  &M1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&M1,4),AL4((&I2-*+2)/2)                 00000030
         MEND                                                           00000040
./ ADD NAME=BRCT                                                                
         MACRO                                                          00000010
&NAME    BRCT  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,6),Y((&I2-*+2)/2)                   00000030
         MEND                                                           00000040
./ ADD NAME=BRXH                                                                
         MACRO                                                          00000010
&NAME    BRXH  &R1,&R3,&I2                                              00000020
&NAME    DC    0H'0',X'84',AL.4(&R1,&R3),Y((&I2-*+2)/2)                 00000030
         MEND                                                           00000040
./ ADD NAME=BRXLE                                                               
         MACRO                                                          00000010
&NAME    BRXLE &R1,&R3,&I2                                              00000020
&NAME    DC    0H'0',X'85',AL.4(&R1,&R3),Y((&I2-*+2)/2)                 00000030
         MEND                                                           00000040
./ ADD NAME=CFC                                                                 
         MACRO                                                          00000010
&NAME    CFC   &S2                                                      00000020
&NAME    DC    0H'0',X'B21A',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=CHI                                                                 
         MACRO                                                          00000010
&NAME    CHI   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,14),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=CKSM                                                                
         MACRO                                                          00000010
&NAME    CKSM  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B241',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CCW1                                                                
         MACRO                                                          00000010
&NAME    CCW1  &COMMAND,&BUFFER,&FLAGS,&LEN                             00000020
&NAME    DC    0D'0',AL1(&COMMAND,&FLAGS),Y(&LEN),A(&BUFFER)            00000030
         MEND                                                           00000040
./ ADD NAME=CCW0                                                                
         MACRO                                                          00000010
&NAME    CCW0  &COMMAND,&BUFFER,&FLAGS,&LEN                             00000020
&NAME    DC    0D'0',AL1(&COMMAND),AL3(&BUFFER),AL1(&FLAGS,0),Y(&LEN)   00000030
         MEND                                                           00000040
./ ADD NAME=CLCLE                                                               
         MACRO                                                          00000010
&NAME    CLCLE &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'A9',AL.4(&R1,&R3),S(&S2)                         00000030
         MEND                                                           00000040
./ ADD NAME=CLCLU                                                               
         MACRO                                                          00000010
&NAME    CLCLU &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),AL1(0),X'8F'            00000030
         MEND                                                           00000040
./ ADD NAME=CLST                                                                
         MACRO                                                          00000010
&NAME    CLST  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B25D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CPYA                                                                
         MACRO                                                          00000010
&NAME    CPYA  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B24D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CUSE                                                                
         MACRO                                                          00000010
&NAME    CUSE  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B257',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DL                                                                  
         MACRO                                                          00000010
&NAME    DL    &R1,&X2                                                  00000020
&NAME    D     &R1,&X2                                                  00000030
         DC    AL1(0),X'97'                                             00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=DLR                                                                 
         MACRO                                                          00000010
&NAME    DLR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B997',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=EAR                                                                 
         MACRO                                                          00000010
&NAME    EAR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B24F',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=EPSW                                                                
         MACRO                                                          00000010
&NAME    EPSW  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B98D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KIMD                                                                
         MACRO                                                          00000010
&NAME    KIMD  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B93E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KLMD                                                                
         MACRO                                                          00000010
&NAME    KLMD  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B93F',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KM                                                                  
         MACRO                                                          00000010
&NAME    KM    &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B92E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KMAC                                                                
         MACRO                                                          00000010
&NAME    KMAC  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B91E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LAE                                                                 
         MACRO                                                          00000010
&NAME    LAE   &R1,&X2                                                  00000020
&NAME    LA    &R1,&X2                                                  00000030
         ORG   *-4                                                      00000040
         DC    X'51'                                                    00000050
         ORG   *+3                                                      00000060
         MEND                                                           00000070
./ ADD NAME=LAM                                                                 
         MACRO                                                          00000010
&NAME    LAM   &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'9A',AL.4(&R1,&R3),S(&S2)                         00000030
         MEND                                                           00000040
./ ADD NAME=LARL                                                                
         MACRO                                                          00000010
&NAME    LARL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,0),AL4((&I2-*+2)/2)                 00000030
         MEND                                                           00000040
./ ADD NAME=LHI                                                                 
         MACRO                                                          00000010
&NAME    LHI   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,8),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=LRV                                                                 
         MACRO                                                          00000010
&NAME    LRV   &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'001E'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LRVH                                                                
         MACRO                                                          00000010
&NAME    LRVH  &R1,&X2                                                  00000020
&NAME    LH    &R1,&X2                                                  00000030
         DC    X'001F'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LRVR                                                                
         MACRO                                                          00000010
&NAME    LRVR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B91F',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MHI                                                                 
         MACRO                                                          00000010
&NAME    MHI   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,12),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=ML                                                                  
         MACRO                                                          00000010
&NAME    ML    &R1,&X2                                                  00000020
&NAME    M     &R1,&X2                                                  00000030
         DC    X'0096'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MLR                                                                 
         MACRO                                                          00000010
&NAME    MLR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B996',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MS                                                                  
         MACRO                                                          00000010
&NAME    MS    &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         ORG   *-4                                                      00000040
         DC    X'71'                                                    00000050
         ORG   *+3                                                      00000060
         MEND                                                           00000070
./ ADD NAME=MSR                                                                 
         MACRO                                                          00000010
&NAME    MSR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B252',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MVCLE                                                               
         MACRO                                                          00000010
&NAME    MVCLE &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'A8',AL.4(&R1,&R3),S(&S2)                         00000030
         MEND                                                           00000040
./ ADD NAME=MVCLU                                                               
         MACRO                                                          00000010
&NAME    MVCLU &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'008E'                 00000030
         MEND                                                           00000040
./ ADD NAME=MVPG                                                                
         MACRO                                                          00000010
&NAME    MVPG  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B254',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MVST                                                                
         MACRO                                                          00000010
&NAME    MVST  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B255',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=PKA                                                                 
         MACRO                                                          00000010
&NAME    PKA   &S1,&S2                                                  00000020
         LCLA  &LPINDX,&LPAREN,&RPAREN,&LENS2,&LVL,&STRT,&LEN           00000030
         LCLA  &COMMA                                                   00000040
         LCLC  &WIP,&NEWS2,&L2                                          00000050
&NAME    DS    0H                                                       00000060
.*                                                                      00000070
.*       We need to extract the length field from the SECOND operand.   00000080
.*                                                                      00000090
&LENS2   SETA  K'&S2                                                    00000100
.*                                                                      00000110
.*       The first step is to find the rightmost set of level-one       00000120
.*       parentheses in the SECOND operand.                             00000130
.*                                                                      00000140
&LPINDX  SETA  1                                                        00000150
&LPAREN  SETA  0                                                        00000160
&RPAREN  SETA  0                                                        00000170
&LVL     SETA  0                                                        00000180
.BEGLOOP ANOP                                                           00000190
         AIF   (&LPINDX GT &LENS2).ENDLOOP                              00000200
         AIF   ('&S2'(&LPINDX,1) NE '(').NOTLP                          00000210
&LVL     SETA  &LVL+1                                                   00000220
         AIF   (&LVL NE 1).INC                                          00000230
&LPAREN  SETA  &LPINDX                                                  00000240
         AGO   .INC                                                     00000250
.NOTLP   ANOP                                                           00000260
         AIF   ('&S2'(&LPINDX,1) NE ')').INC                            00000270
&LVL     SETA  &LVL-1                                                   00000280
         AIF   (&LVL NE 0).INC                                          00000290
&RPAREN  SETA  &LPINDX                                                  00000300
.INC     ANOP                                                           00000310
&LPINDX  SETA  &LPINDX+1                                                00000320
         AGO   .BEGLOOP                                                 00000330
.ENDLOOP ANOP                                                           00000340
.*                                                                      00000350
.*  At this point, we could check for unbalanced parentheses.           00000360
.*  However, the assembler will catch such errors anyway, so we         00000370
.*  won't bother.  Also note that the above algorithm will be fooled    00000380
.*  if the second operand contains parentheses inside a quoted string.  00000390
.*  That's not a very likely event in this situation; so I'm not        00000400
.*  going to bother checking for that either.                           00000410
.*                                                                      00000420
         AIF   ((&LPAREN EQ 0) AND (&RPAREN EQ 0)).IMPL                 00000430
.*                                                                      00000440
.*       OK, now we scan for a comma, in case a length                  00000450
.*       AND a base register are specified.                             00000460
.*                                                                      00000470
&STRT    SETA  &LPAREN+1                                                00000480
&LEN     SETA  &RPAREN-&STRT                                            00000490
&WIP     SETC  '&S2'(&STRT,&LEN)                                        00000500
&COMMA   SETA  0                                                        00000510
&LPINDX  SETA  1                                                        00000520
.BEGLP2  ANOP                                                           00000530
         AIF   (&LPINDX GT &LEN).ENDLP2                                 00000540
         AIF   ('&WIP'(&LPINDX,1) NE ',').NOTCOM                        00000550
&COMMA   SETA  &LPINDX                                                  00000560
         AGO   .ENDLP2                                                  00000570
.NOTCOM  ANOP                                                           00000580
&LPINDX  SETA  &LPINDX+1                                                00000590
         AGO   .BEGLP2                                                  00000600
.ENDLP2  ANOP                                                           00000610
         AIF   (&COMMA EQ 0).ALL                                        00000620
         AIF   (&COMMA EQ 1).OMIT                                       00000630
.*                                                                      00000640
.*       OK, now we have found what we presume to be the length         00000650
.*       field of the second operand.                                   00000660
.*                                                                      00000670
&L2      SETC  '&WIP'(1,&COMMA-1)                                       00000680
&NEWS2   SETC  '&S2'(1,&LPAREN).'&S2'(&LPAREN+&COMMA+1,&LENS2-&LPAREN-&*00000690
               COMMA)                                                   00000700
         AGO   .DOIT                                                    00000710
.OMIT    ANOP                                                           00000720
.*                                                                      00000730
.*       A comma was found in the first position within the             00000740
.*       parentheses.  This means that the length was omitted.          00000750
.*       Assume a length of 1 and hope for the best.                    00000760
.*                                                                      00000770
&NEWS2   SETC  '&S2'(1,&LPAREN).'&S2'(&LPAREN+2,&LENS2-&LPAREN-1)       00000780
&L2      SETC  '1'                                                      00000790
         AGO   .DOIT                                                    00000800
.ALL     ANOP                                                           00000810
.*                                                                      00000820
.*       A comma was not found between the parentheses.                 00000830
.*       Therefore, we assume that everything within the parentheses    00000840
.*       is the length specification.                                   00000850
.*                                                                      00000860
&NEWS2   SETC  '&S2'(1,&LPAREN-1)                                       00000870
         AIF   (&RPAREN EQ &LENS2).NOTRAIL                              00000880
&NEWS2   SETC  '&NEWS2'.'&S2'(&RPAREN+1,&LENS2-&RPAREN)                 00000890
.NOTRAIL ANOP                                                           00000900
&L2      SETC  '&WIP'                                                   00000910
.DOIT    ANOP                                                           00000920
         DC    X'E9',AL1(&L2-1),S(&S1),S(&NEWS2)                        00000930
         AGO   .END                                                     00000940
.IMPL    ANOP                                                           00000950
.*                                                                      00000960
.*       There are no parentheses in the second operand.                00000970
.*       Assemble the instruction using an implied length and           00000980
.*       hope for the best.                                             00000990
.*                                                                      00001000
         MVC   &S2,&S1                                                  00001010
         ORG   *-6                                                      00001020
         DC    X'E9'                                                    00001030
         ORG   *+1                                                      00001040
         DC    S(&S1),S(&S2)                                            00001050
.END     ANOP                                                           00001060
         MEND                                                           00001070
./ ADD NAME=MVCK                                                                
         MACRO                                                          00000010
&NAME    MVCK  &OP1,&S2,&R3                                             00000020
         LCLA  &LENOP1,&LPINDX,&LPAREN,&RPAREN,&INSTRT                  00000030
         LCLA  &INLEN,&COMMA,&R1LEN,&LVL                                00000040
         LCLC  &INSTUFF,&R1                                             00000050
.*                                                                      00000060
.*       Scan the first operand to isolate the stuff within             00000070
.*       the parentheses.                                               00000080
.*                                                                      00000090
&LENOP1  SETA  K'&OP1                                                   00000100
&LPINDX  SETA  1                                                        00000110
&LPAREN  SETA  0                                                        00000120
&RPAREN  SETA  0                                                        00000130
&LVL     SETA  0                                                        00000140
.BEGLOOP ANOP                                                           00000150
         AIF   (&LPINDX GT &LENOP1).LPEND                               00000160
         AIF   ('&OP1'(&LPINDX,1) NE '(').NOTLP                         00000170
&LVL     SETA  &LVL+1                                                   00000180
         AIF   (&LVL NE 1).INC                                          00000190
&LPAREN  SETA  &LPINDX                                                  00000200
         AGO   .INC                                                     00000210
.NOTLP   ANOP                                                           00000220
         AIF   ('&OP1'(&LPINDX,1) NE ')').INC                           00000230
&LVL     SETA  &LVL-1                                                   00000240
         AIF   (&LVL NE 0).INC                                          00000250
&RPAREN  SETA  &LPINDX                                                  00000260
.INC     ANOP                                                           00000270
&LPINDX  SETA  &LPINDX+1                                                00000280
         AGO   .BEGLOOP                                                 00000290
.LPEND   ANOP                                                           00000300
&NAME    DS    0H                                                       00000310
         AIF   ((&LPAREN EQ 0) OR (&RPAREN EQ 0)).NOR1                  00000320
&INSTRT  SETA  &LPAREN+1                                                00000330
&INLEN   SETA  &RPAREN-&INSTRT                                          00000340
         AIF   (&INLEN LE 0).NOR1                                       00000350
&INSTUFF SETC  '&OP1'(&INSTRT,&INLEN)                                   00000360
.*                                                                      00000370
.*       Now look for a comma, in case a base register is               00000380
.*       explicitly specified.  We only want the R1 field.              00000390
.*       We initialize the comma index to one greater than              00000400
.*       the length of the field; so that if a comma is not             00000410
.*       found, we will use the entire field.                           00000420
.*                                                                      00000430
&COMMA   SETA  &INLEN+1                                                 00000440
&LPINDX  SETA  1                                                        00000450
.BEGLP2  ANOP                                                           00000460
         AIF   (&LPINDX GT &INLEN).ENDLP2                               00000470
         AIF   ('&INSTUFF'(&LPINDX,1) NE ',').NOTCOM                    00000480
&COMMA   SETA  &LPINDX                                                  00000490
         AGO   .ENDLP2                                                  00000500
.NOTCOM  ANOP                                                           00000510
&LPINDX  SETA  &LPINDX+1                                                00000520
         AGO   .BEGLP2                                                  00000530
.ENDLP2  ANOP                                                           00000540
.*                                                                      00000550
.*       OK, now we can extract the R1 field.                           00000560
.*                                                                      00000570
&R1LEN   SETA  &COMMA-1                                                 00000580
&R1      SETC  '&INSTUFF'(1,&R1LEN)                                     00000590
.*                                                                      00000600
.*       Use the MVC instruction to get the base and                    00000610
.*       displacements right.                                           00000620
.*                                                                      00000630
         MVC   &OP1,&S2                                                 00000640
.*                                                                      00000650
.*       Now go back and correct the op-code and set the                00000660
.*       R1 and R3 fields correctly.                                    00000670
.*                                                                      00000680
         ORG   *-6                                                      00000690
         DC    X'D9',AL.4(&R1,&R3)                                      00000700
.*                                                                      00000710
.*       Now reset the location counter where it should be.             00000720
.*                                                                      00000730
         ORG   *+4                                                      00000740
         AGO   .ALLDONE                                                 00000750
.NOR1    ANOP                                                           00000760
         MNOTE 8,'NO R1 FIELD SPECIFIED'                                00000770
.ALLDONE ANOP                                                           00000780
         MEND                                                           00000790
./ ADD NAME=MVCP                                                                
         MACRO                                                          00000010
&NAME    MVCP  &OP1,&S2,&R3                                             00000020
         LCLA  &LENOP1,&LPINDX,&LPAREN,&RPAREN,&INSTRT                  00000030
         LCLA  &INLEN,&COMMA,&R1LEN,&LVL                                00000040
         LCLC  &INSTUFF,&R1                                             00000050
.*                                                                      00000060
.*       Scan the first operand to isolate the stuff within             00000070
.*       the parentheses.                                               00000080
.*                                                                      00000090
&LENOP1  SETA  K'&OP1                                                   00000100
&LPINDX  SETA  1                                                        00000110
&LPAREN  SETA  0                                                        00000120
&RPAREN  SETA  0                                                        00000130
&LVL     SETA  0                                                        00000140
.BEGLOOP ANOP                                                           00000150
         AIF   (&LPINDX GT &LENOP1).LPEND                               00000160
         AIF   ('&OP1'(&LPINDX,1) NE '(').NOTLP                         00000170
&LVL     SETA  &LVL+1                                                   00000180
         AIF   (&LVL NE 1).INC                                          00000190
&LPAREN  SETA  &LPINDX                                                  00000200
         AGO   .INC                                                     00000210
.NOTLP   ANOP                                                           00000220
         AIF   ('&OP1'(&LPINDX,1) NE ')').INC                           00000230
&LVL     SETA  &LVL-1                                                   00000240
         AIF   (&LVL NE 0).INC                                          00000250
&RPAREN  SETA  &LPINDX                                                  00000260
.INC     ANOP                                                           00000270
&LPINDX  SETA  &LPINDX+1                                                00000280
         AGO   .BEGLOOP                                                 00000290
.LPEND   ANOP                                                           00000300
&NAME    DS    0H                                                       00000310
         AIF   ((&LPAREN EQ 0) OR (&RPAREN EQ 0)).NOR1                  00000320
&INSTRT  SETA  &LPAREN+1                                                00000330
&INLEN   SETA  &RPAREN-&INSTRT                                          00000340
         AIF   (&INLEN LE 0).NOR1                                       00000350
&INSTUFF SETC  '&OP1'(&INSTRT,&INLEN)                                   00000360
.*                                                                      00000370
.*       Now look for a comma, in case a base register is               00000380
.*       explicitly specified.  We only want the R1 field.              00000390
.*       We initialize the comma index to one greater than              00000400
.*       the length of the field; so that if a comma is not             00000410
.*       found, we will use the entire field.                           00000420
.*                                                                      00000430
&COMMA   SETA  &INLEN+1                                                 00000440
&LPINDX  SETA  1                                                        00000450
.BEGLP2  ANOP                                                           00000460
         AIF   (&LPINDX GT &INLEN).ENDLP2                               00000470
         AIF   ('&INSTUFF'(&LPINDX,1) NE ',').NOTCOM                    00000480
&COMMA   SETA  &LPINDX                                                  00000490
         AGO   .ENDLP2                                                  00000500
.NOTCOM  ANOP                                                           00000510
&LPINDX  SETA  &LPINDX+1                                                00000520
         AGO   .BEGLP2                                                  00000530
.ENDLP2  ANOP                                                           00000540
.*                                                                      00000550
.*       OK, now we can extract the R1 field.                           00000560
.*                                                                      00000570
&R1LEN   SETA  &COMMA-1                                                 00000580
&R1      SETC  '&INSTUFF'(1,&R1LEN)                                     00000590
.*                                                                      00000600
.*       Use the MVC instruction to get the base and                    00000610
.*       displacements right.                                           00000620
.*                                                                      00000630
         MVC   &OP1,&S2                                                 00000640
.*                                                                      00000650
.*       Now go back and correct the op-code and set the                00000660
.*       R1 and R3 fields correctly.                                    00000670
.*                                                                      00000680
         ORG   *-6                                                      00000690
         DC    X'DA',AL.4(&R1,&R3)                                      00000700
.*                                                                      00000710
.*       Now reset the location counter where it should be.             00000720
.*                                                                      00000730
         ORG   *+4                                                      00000740
         AGO   .ALLDONE                                                 00000750
.NOR1    ANOP                                                           00000760
         MNOTE 8,'NO R1 FIELD SPECIFIED'                                00000770
.ALLDONE ANOP                                                           00000780
         MEND                                                           00000790
./ ADD NAME=MVCS                                                                
         MACRO                                                          00000010
&NAME    MVCS  &OP1,&S2,&R3                                             00000020
         LCLA  &LENOP1,&LPINDX,&LPAREN,&RPAREN,&INSTRT                  00000030
         LCLA  &INLEN,&COMMA,&R1LEN,&LVL                                00000040
         LCLC  &INSTUFF,&R1                                             00000050
.*                                                                      00000060
.*       Scan the first operand to isolate the stuff within             00000070
.*       the parentheses.                                               00000080
.*                                                                      00000090
&LENOP1  SETA  K'&OP1                                                   00000100
&LPINDX  SETA  1                                                        00000110
&LPAREN  SETA  0                                                        00000120
&RPAREN  SETA  0                                                        00000130
&LVL     SETA  0                                                        00000140
.BEGLOOP ANOP                                                           00000150
         AIF   (&LPINDX GT &LENOP1).LPEND                               00000160
         AIF   ('&OP1'(&LPINDX,1) NE '(').NOTLP                         00000170
&LVL     SETA  &LVL+1                                                   00000180
         AIF   (&LVL NE 1).INC                                          00000190
&LPAREN  SETA  &LPINDX                                                  00000200
         AGO   .INC                                                     00000210
.NOTLP   ANOP                                                           00000220
         AIF   ('&OP1'(&LPINDX,1) NE ')').INC                           00000230
&LVL     SETA  &LVL-1                                                   00000240
         AIF   (&LVL NE 0).INC                                          00000250
&RPAREN  SETA  &LPINDX                                                  00000260
.INC     ANOP                                                           00000270
&LPINDX  SETA  &LPINDX+1                                                00000280
         AGO   .BEGLOOP                                                 00000290
.LPEND   ANOP                                                           00000300
&NAME    DS    0H                                                       00000310
         AIF   ((&LPAREN EQ 0) OR (&RPAREN EQ 0)).NOR1                  00000320
&INSTRT  SETA  &LPAREN+1                                                00000330
&INLEN   SETA  &RPAREN-&INSTRT                                          00000340
         AIF   (&INLEN LE 0).NOR1                                       00000350
&INSTUFF SETC  '&OP1'(&INSTRT,&INLEN)                                   00000360
.*                                                                      00000370
.*       Now look for a comma, in case a base register is               00000380
.*       explicitly specified.  We only want the R1 field.              00000390
.*       We initialize the comma index to one greater than              00000400
.*       the length of the field; so that if a comma is not             00000410
.*       found, we will use the entire field.                           00000420
.*                                                                      00000430
&COMMA   SETA  &INLEN+1                                                 00000440
&LPINDX  SETA  1                                                        00000450
.BEGLP2  ANOP                                                           00000460
         AIF   (&LPINDX GT &INLEN).ENDLP2                               00000470
         AIF   ('&INSTUFF'(&LPINDX,1) NE ',').NOTCOM                    00000480
&COMMA   SETA  &LPINDX                                                  00000490
         AGO   .ENDLP2                                                  00000500
.NOTCOM  ANOP                                                           00000510
&LPINDX  SETA  &LPINDX+1                                                00000520
         AGO   .BEGLP2                                                  00000530
.ENDLP2  ANOP                                                           00000540
.*                                                                      00000550
.*       OK, now we can extract the R1 field.                           00000560
.*                                                                      00000570
&R1LEN   SETA  &COMMA-1                                                 00000580
&R1      SETC  '&INSTUFF'(1,&R1LEN)                                     00000590
.*                                                                      00000600
.*       Use the MVC instruction to get the base and                    00000610
.*       displacements right.                                           00000620
.*                                                                      00000630
         MVC   &OP1,&S2                                                 00000640
.*                                                                      00000650
.*       Now go back and correct the op-code and set the                00000660
.*       R1 and R3 fields correctly.                                    00000670
.*                                                                      00000680
         ORG   *-6                                                      00000690
         DC    X'DB',AL.4(&R1,&R3)                                      00000700
.*                                                                      00000710
.*       Now reset the location counter where it should be.             00000720
.*                                                                      00000730
         ORG   *+4                                                      00000740
         AGO   .ALLDONE                                                 00000750
.NOR1    ANOP                                                           00000760
         MNOTE 8,'NO R1 FIELD SPECIFIED'                                00000770
.ALLDONE ANOP                                                           00000780
         MEND                                                           00000790
./ ADD NAME=PKU                                                                 
         MACRO                                                          00000010
&NAME    PKU   &S1,&S2                                                  00000020
         LCLA  &LPINDX,&LPAREN,&RPAREN,&LENS2,&LVL,&STRT,&LEN           00000030
         LCLA  &COMMA                                                   00000040
         LCLC  &WIP,&NEWS2,&L2                                          00000050
&NAME    DS    0H                                                       00000060
.*                                                                      00000070
.*       We need to extract the length field from the SECOND operand.   00000080
.*                                                                      00000090
&LENS2   SETA  K'&S2                                                    00000100
.*                                                                      00000110
.*       The first step is to find the rightmost set of level-one       00000120
.*       parentheses in the SECOND operand.                             00000130
.*                                                                      00000140
&LPINDX  SETA  1                                                        00000150
&LPAREN  SETA  0                                                        00000160
&RPAREN  SETA  0                                                        00000170
&LVL     SETA  0                                                        00000180
.BEGLOOP ANOP                                                           00000190
         AIF   (&LPINDX GT &LENS2).ENDLOOP                              00000200
         AIF   ('&S2'(&LPINDX,1) NE '(').NOTLP                          00000210
&LVL     SETA  &LVL+1                                                   00000220
         AIF   (&LVL NE 1).INC                                          00000230
&LPAREN  SETA  &LPINDX                                                  00000240
         AGO   .INC                                                     00000250
.NOTLP   ANOP                                                           00000260
         AIF   ('&S2'(&LPINDX,1) NE ')').INC                            00000270
&LVL     SETA  &LVL-1                                                   00000280
         AIF   (&LVL NE 0).INC                                          00000290
&RPAREN  SETA  &LPINDX                                                  00000300
.INC     ANOP                                                           00000310
&LPINDX  SETA  &LPINDX+1                                                00000320
         AGO   .BEGLOOP                                                 00000330
.ENDLOOP ANOP                                                           00000340
.*                                                                      00000350
.*  At this point, we could check for unbalanced parentheses.           00000360
.*  However, the assembler will catch such errors anyway, so we         00000370
.*  won't bother.  Also note that the above algorithm will be fooled    00000380
.*  if the second operand contains parentheses inside a quoted string.  00000390
.*  That's not a very likely event in this situation; so I'm not        00000400
.*  going to bother checking for that either.                           00000410
.*                                                                      00000420
         AIF   ((&LPAREN EQ 0) AND (&RPAREN EQ 0)).IMPL                 00000430
.*                                                                      00000440
.*       OK, now we scan for a comma, in case a length                  00000450
.*       AND a base register are specified.                             00000460
.*                                                                      00000470
&STRT    SETA  &LPAREN+1                                                00000480
&LEN     SETA  &RPAREN-&STRT                                            00000490
&WIP     SETC  '&S2'(&STRT,&LEN)                                        00000500
&COMMA   SETA  0                                                        00000510
&LPINDX  SETA  1                                                        00000520
.BEGLP2  ANOP                                                           00000530
         AIF   (&LPINDX GT &LEN).ENDLP2                                 00000540
         AIF   ('&WIP'(&LPINDX,1) NE ',').NOTCOM                        00000550
&COMMA   SETA  &LPINDX                                                  00000560
         AGO   .ENDLP2                                                  00000570
.NOTCOM  ANOP                                                           00000580
&LPINDX  SETA  &LPINDX+1                                                00000590
         AGO   .BEGLP2                                                  00000600
.ENDLP2  ANOP                                                           00000610
         AIF   (&COMMA EQ 0).ALL                                        00000620
         AIF   (&COMMA EQ 1).OMIT                                       00000630
.*                                                                      00000640
.*       OK, now we have found what we presume to be the length         00000650
.*       field of the second operand.                                   00000660
.*                                                                      00000670
&L2      SETC  '&WIP'(1,&COMMA-1)                                       00000680
&NEWS2   SETC  '&S2'(1,&LPAREN).'&S2'(&LPAREN+&COMMA+1,&LENS2-&LPAREN-&*00000690
               COMMA)                                                   00000700
         AGO   .DOIT                                                    00000710
.OMIT    ANOP                                                           00000720
.*                                                                      00000730
.*       A comma was found in the first position within the             00000740
.*       parentheses.  This means that the length was omitted.          00000750
.*       Assume a length of 1 and hope for the best.                    00000760
.*                                                                      00000770
&NEWS2   SETC  '&S2'(1,&LPAREN).'&S2'(&LPAREN+2,&LENS2-&LPAREN-1)       00000780
&L2      SETC  '1'                                                      00000790
         AGO   .DOIT                                                    00000800
.ALL     ANOP                                                           00000810
.*                                                                      00000820
.*       A comma was not found between the parentheses.                 00000830
.*       Therefore, we assume that everything within the parentheses    00000840
.*       is the length specification.                                   00000850
.*                                                                      00000860
&NEWS2   SETC  '&S2'(1,&LPAREN-1)                                       00000870
         AIF   (&RPAREN EQ &LENS2).NOTRAIL                              00000880
&NEWS2   SETC  '&NEWS2'.'&S2'(&RPAREN+1,&LENS2-&RPAREN)                 00000890
.NOTRAIL ANOP                                                           00000900
&L2      SETC  '&WIP'                                                   00000910
.DOIT    ANOP                                                           00000920
         DC    X'E1',AL1(&L2-1),S(&S1),S(&NEWS2)                        00000930
         AGO   .END                                                     00000940
.IMPL    ANOP                                                           00000950
.*                                                                      00000960
.*       There are no parentheses in the second operand.                00000970
.*       Assemble the instruction using an implied length and           00000980
.*       hope for the best.                                             00000990
.*                                                                      00001000
         MVC   &S2,&S1                                                  00001010
         ORG   *-6                                                      00001020
         DC    X'E1'                                                    00001030
         ORG   *+1                                                      00001040
         DC    S(&S1),S(&S2)                                            00001050
.END     ANOP                                                           00001060
         MEND                                                           00001070
./ ADD NAME=PLO                                                                 
         MACRO                                                          00000010
&NAME    PLO   &R1,&S2,&R3,&S4                                          00000020
&NAME    DC    0H'0',X'EE',AL.4(&R1,&R3),S(&S2),S(&S4)                  00000030
         MEND                                                           00000040
./ ADD NAME=RLL                                                                 
         MACRO                                                          00000010
&NAME    RLL   &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'001D'                 00000030
         MEND                                                           00000040
./ ADD NAME=SAM24                                                               
         MACRO                                                          00000010
&NAME    SAM24 ,                                                        00000020
&NAME    DC    0H'0',X'010C'                                            00000030
         MEND                                                           00000040
./ ADD NAME=SAM31                                                               
         MACRO                                                          00000010
&NAME    SAM31 ,                                                        00000020
&NAME    DC    0H'0',X'010D'                                            00000030
         MEND                                                           00000040
./ ADD NAME=SAR                                                                 
         MACRO                                                          00000010
&NAME    SAR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B24E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SLB                                                                 
         MACRO                                                          00000010
&NAME    SLB   &R1,&X2                                                  00000020
&NAME    SL    &R1,&X2                                                  00000030
         DC    X'0099'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SLBR                                                                
         MACRO                                                          00000010
&NAME    SLBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B999',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SRST                                                                
         MACRO                                                          00000010
&NAME    SRST  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B25E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=STAM                                                                
         MACRO                                                          00000010
&NAME    STAM  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'9B',AL.4(&R1,&R3),S(&S2)                         00000030
         MEND                                                           00000040
./ ADD NAME=STCKE                                                               
         MACRO                                                          00000010
&NAME    STCKE &S2                                                      00000020
&NAME    DC    0H'0',X'B278',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STRV                                                                
         MACRO                                                          00000010
&NAME    STRV  &R1,&X2                                                  00000020
&NAME    ST    &R1,&X2                                                  00000030
         DC    X'003E'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STRVH                                                               
         MACRO                                                          00000010
&NAME    STRVH &R1,&X2                                                  00000020
&NAME    ST    &R1,&X2                                                  00000030
         DC    X'003F'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=TAM                                                                 
         MACRO                                                          00000010
&NAME    TAM   ,                                                        00000020
&NAME    DC    0H'0',X'010B'                                            00000030
         MEND                                                           00000040
./ ADD NAME=TMH                                                                 
         MACRO                                                          00000010
&NAME    TMH   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,0),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=TML                                                                 
         MACRO                                                          00000010
&NAME    TML   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,1),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=TRE                                                                 
         MACRO                                                          00000010
&NAME    TRE   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B2A5',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=UNPKA                                                               
         MACRO                                                          00000010
&NAME    UNPKA &S1,&S2                                                  00000020
&NAME    MVC   &S1,&S2                                                  00000030
         ORG   *-6                                                      00000040
         DC    X'EA'                                                    00000050
         ORG   *+5                                                      00000060
         MEND                                                           00000070
./ ADD NAME=UNPKU                                                               
         MACRO                                                          00000010
&NAME    UNPKU &S1,&S2                                                  00000020
&NAME    MVC   &S1,&S2                                                  00000030
         ORG   *-6                                                      00000040
         DC    X'E2'                                                    00000050
         ORG   *+5                                                      00000060
         MEND                                                           00000070
./ ADD NAME=UPT                                                                 
         MACRO                                                          00000010
&NAME    UPT   ,                                                        00000020
&NAME    DC    0H'0',X'0102'                                            00000030
         MEND                                                           00000040
./ ADD NAME=TP                                                                  
         MACRO                                                          00000010
&NAME    TP    &S2                                                      00000020
&NAME    PACK  &S2,192(1,0)                                             00000030
         ORG   *-6                                                      00000040
         DC    X'EB'                                                    00000050
         ORG   *+5                                                      00000060
         MEND                                                           00000070
./ ADD NAME=ADB                                                                 
         MACRO                                                          00000010
&NAME    ADB   &R1,&X2                                                  00000020
&NAME    AD    &R1,&X2                                                  00000030
         DC    X'001A'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=ADBR                                                                
         MACRO                                                          00000010
&NAME    ADBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B31A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=AEB                                                                 
         MACRO                                                          00000010
&NAME    AEB   &R1,&X2                                                  00000020
&NAME    AE    &R1,&X2                                                  00000030
         DC    X'000A'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=AEBR                                                                
         MACRO                                                          00000010
&NAME    AEBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B30A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=AXBR                                                                
         MACRO                                                          00000010
&NAME    AXBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B34A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CDB                                                                 
         MACRO                                                          00000010
&NAME    CDB   &R1,&X2                                                  00000020
&NAME    CD    &R1,&X2                                                  00000030
         DC    X'0019'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CDBR                                                                
         MACRO                                                          00000010
&NAME    CDBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B319',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CDFBR                                                               
         MACRO                                                          00000010
&NAME    CDFBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B395',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CDFR                                                                
         MACRO                                                          00000010
&NAME    CDFR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3B5',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CEB                                                                 
         MACRO                                                          00000010
&NAME    CEB   &R1,&X2                                                  00000020
&NAME    CE    &R1,&X2                                                  00000030
         DC    X'0009'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CEBR                                                                
         MACRO                                                          00000010
&NAME    CEBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B309',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CEFR                                                                
         MACRO                                                          00000010
&NAME    CEFR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3B4',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CXBR                                                                
         MACRO                                                          00000010
&NAME    CXBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B349',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CXFBR                                                               
         MACRO                                                          00000010
&NAME    CXFBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B396',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CXFR                                                                
         MACRO                                                          00000010
&NAME    CXFR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3B6',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CXR                                                                 
         MACRO                                                          00000010
&NAME    CXR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B369',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DDB                                                                 
         MACRO                                                          00000010
&NAME    DDB   &R1,&X2                                                  00000020
&NAME    DD    &R1,&X2                                                  00000030
         DC    X'001D'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=DDBR                                                                
         MACRO                                                          00000010
&NAME    DDBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B31D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DEB                                                                 
         MACRO                                                          00000010
&NAME    DEB   &R1,&X2                                                  00000020
&NAME    DE    &R1,&X2                                                  00000030
         DC    X'000D'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=DEBR                                                                
         MACRO                                                          00000010
&NAME    DEBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B30D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DIDBR                                                               
         MACRO                                                          00000010
&NAME    DIDBR &R1,&R3,&R2,&M4                                          00000020
&NAME    DC    0H'0',X'B35B',AL.4(&R3,&M4,&R1,&R2)                      00000030
         MEND                                                           00000040
./ ADD NAME=DIEBR                                                               
         MACRO                                                          00000010
&NAME    DIEBR &R1,&R3,&R2,&M4                                          00000020
&NAME    DC    0H'0',X'B353',AL.4(&R3,&M4,&R1,&R2)                      00000030
         MEND                                                           00000040
./ ADD NAME=DXBR                                                                
         MACRO                                                          00000010
&NAME    DXBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B34D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=EFPC                                                                
         MACRO                                                          00000010
&NAME    EFPC  &R1                                                      00000020
&NAME    DC    0H'0',X'B38C',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=FIDBR                                                               
         MACRO                                                          00000010
&NAME    FIDBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B35F',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=FIDR                                                                
         MACRO                                                          00000010
&NAME    FIDR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B37F',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=FIEBR                                                               
         MACRO                                                          00000010
&NAME    FIEBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B357',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=FIER                                                                
         MACRO                                                          00000010
&NAME    FIER  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B377',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=FIXBR                                                               
         MACRO                                                          00000010
&NAME    FIXBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B347',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=FIXR                                                                
         MACRO                                                          00000010
&NAME    FIXR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B367',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KDB                                                                 
         MACRO                                                          00000010
&NAME    KDB   &R1,&X2                                                  00000020
&NAME    CD    &R1,&X2                                                  00000030
         DC    X'0018'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=KDBR                                                                
         MACRO                                                          00000010
&NAME    KDBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B318',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KEB                                                                 
         MACRO                                                          00000010
&NAME    KEB   &R1,&X2                                                  00000020
&NAME    CE    &R1,&X2                                                  00000030
         DC    X'0008'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=KEBR                                                                
         MACRO                                                          00000010
&NAME    KEBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B308',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KXBR                                                                
         MACRO                                                          00000010
&NAME    KXBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B348',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LCDBR                                                               
         MACRO                                                          00000010
&NAME    LCDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B313',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LCXBR                                                               
         MACRO                                                          00000010
&NAME    LCXBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B343',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LCXR                                                                
         MACRO                                                          00000010
&NAME    LCXR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B363',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LDE                                                                 
         MACRO                                                          00000010
&NAME    LDE   &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0024'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LDEB                                                                
         MACRO                                                          00000010
&NAME    LDEB  &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0004'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LDEBR                                                               
         MACRO                                                          00000010
&NAME    LDEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B304',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LDER                                                                
         MACRO                                                          00000010
&NAME    LDER  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B324',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LDXBR                                                               
         MACRO                                                          00000010
&NAME    LDXBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B345',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LDXR                                                                
         MACRO                                                          00000010
&NAME    LDXR  &R1,&R2                                                  00000020
&NAME    LRDR  &R1,&R2                                                  00000030
         MEND                                                           00000040
./ ADD NAME=LEDBR                                                               
         MACRO                                                          00000010
&NAME    LEDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B344',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LEDR                                                                
         MACRO                                                          00000010
&NAME    LEDR  &R1,&R2                                                  00000020
&NAME    LRER  &R1,&R2                                                  00000030
         MEND                                                           00000040
./ ADD NAME=LEXBR                                                               
         MACRO                                                          00000010
&NAME    LEXBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B346',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LEXR                                                                
         MACRO                                                          00000010
&NAME    LEXR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B366',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LFPC                                                                
         MACRO                                                          00000010
&NAME    LFPC  &S2                                                      00000020
&NAME    DC    0H'0',X'B29D',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=LNDBR                                                               
         MACRO                                                          00000010
&NAME    LNDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B311',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LNEBR                                                               
         MACRO                                                          00000010
&NAME    LNEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B301',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LNXBR                                                               
         MACRO                                                          00000010
&NAME    LNXBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B341',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LNXR                                                                
         MACRO                                                          00000010
&NAME    LNXR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B361',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LPDBR                                                               
         MACRO                                                          00000010
&NAME    LPDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B310',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LPEBR                                                               
         MACRO                                                          00000010
&NAME    LPEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B300',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LPXBR                                                               
         MACRO                                                          00000010
&NAME    LPXBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B340',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LPXR                                                                
         MACRO                                                          00000010
&NAME    LPXR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B360',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LTDBR                                                               
         MACRO                                                          00000010
&NAME    LTDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B312',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LTEBR                                                               
         MACRO                                                          00000010
&NAME    LTEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B302',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LTXBR                                                               
         MACRO                                                          00000010
&NAME    LTXBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B342',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LTXR                                                                
         MACRO                                                          00000010
&NAME    LTXR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B362',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LXD                                                                 
         MACRO                                                          00000010
&NAME    LXD   &R1,&X2                                                  00000020
&NAME    LD    &R1,&X2                                                  00000030
         DC    X'0025'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LXDB                                                                
         MACRO                                                          00000010
&NAME    LXDB  &R1,&X2                                                  00000020
&NAME    LD    &R1,&X2                                                  00000030
         DC    X'0005'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LXDBR                                                               
         MACRO                                                          00000010
&NAME    LXDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B305',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LXDR                                                                
         MACRO                                                          00000010
&NAME    LXDR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B325',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LXE                                                                 
         MACRO                                                          00000010
&NAME    LXE   &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0026'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LXEB                                                                
         MACRO                                                          00000010
&NAME    LXEB  &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0006'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LXEBR                                                               
         MACRO                                                          00000010
&NAME    LXEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B306',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LXER                                                                
         MACRO                                                          00000010
&NAME    LXER  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B326',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LXR                                                                 
         MACRO                                                          00000010
&NAME    LXR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B365',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MADB                                                                
         MACRO                                                          00000010
&NAME    MADB  &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'1E'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MADBR                                                               
         MACRO                                                          00000010
&NAME    MADBR &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B31E',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MAEB                                                                
         MACRO                                                          00000010
&NAME    MAEB  &R1,&R3,&X2                                              00000020
&NAME    ME    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'0E'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MAEBR                                                               
         MACRO                                                          00000010
&NAME    MAEBR &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B30E',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MDB                                                                 
         MACRO                                                          00000010
&NAME    MDB   &R1,&X2                                                  00000020
&NAME    MD    &R1,&X2                                                  00000030
         DC    X'001C'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MDBR                                                                
         MACRO                                                          00000010
&NAME    MDBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B31C',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MDE                                                                 
         MACRO                                                          00000010
&NAME    MDE   &R1,&X2                                                  00000020
&NAME    ME    &R1,&X2                                                  00000030
         MEND                                                           00000040
./ ADD NAME=MDEB                                                                
         MACRO                                                          00000010
&NAME    MDEB  &R1,&X2                                                  00000020
&NAME    ME    &R1,&X2                                                  00000030
         DC    X'000C'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MDEBR                                                               
         MACRO                                                          00000010
&NAME    MDEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B30C',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MDER                                                                
         MACRO                                                          00000010
&NAME    MDER  &R1,&R2                                                  00000020
&NAME    MER   &R1,&R2                                                  00000030
         MEND                                                           00000040
./ ADD NAME=MEE                                                                 
         MACRO                                                          00000010
&NAME    MEE   &R1,&X2                                                  00000020
&NAME    ME    &R1,&X2                                                  00000030
         DC    X'0037'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MEEB                                                                
         MACRO                                                          00000010
&NAME    MEEB  &R1,&X2                                                  00000020
&NAME    ME    &R1,&X2                                                  00000030
         DC    X'0017'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MEEBR                                                               
         MACRO                                                          00000010
&NAME    MEEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B317',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MEER                                                                
         MACRO                                                          00000010
&NAME    MEER  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B337',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MSDB                                                                
         MACRO                                                          00000010
&NAME    MSDB  &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'1F'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MSDBR                                                               
         MACRO                                                          00000010
&NAME    MSDBR &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B31F',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MSEB                                                                
         MACRO                                                          00000010
&NAME    MSEB  &R1,&R3,&X2                                              00000020
&NAME    ME    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'0F'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MSEBR                                                               
         MACRO                                                          00000010
&NAME    MSEBR &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B30F',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MXBR                                                                
         MACRO                                                          00000010
&NAME    MXBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B34C',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MXDB                                                                
         MACRO                                                          00000010
&NAME    MXDB  &R1,&X2                                                  00000020
&NAME    MD    &R1,&X2                                                  00000030
         DC    X'0007'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MXDBR                                                               
         MACRO                                                          00000010
&NAME    MXDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B307',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SDB                                                                 
         MACRO                                                          00000010
&NAME    SDB   &R1,&X2                                                  00000020
&NAME    SD    &R1,&X2                                                  00000030
         DC    X'001B'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SDBR                                                                
         MACRO                                                          00000010
&NAME    SDBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B31B',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SEB                                                                 
         MACRO                                                          00000010
&NAME    SEB   &R1,&X2                                                  00000020
&NAME    SE    &R1,&X2                                                  00000030
         DC    X'000B'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SEBR                                                                
         MACRO                                                          00000010
&NAME    SEBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B30B',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SFPC                                                                
         MACRO                                                          00000010
&NAME    SFPC  &R1                                                      00000020
&NAME    DC    0H'0',X'B384',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=SQD                                                                 
         MACRO                                                          00000010
&NAME    SQD   &R1,&X2                                                  00000020
&NAME    LD    &R1,&X2                                                  00000030
         DC    X'0035'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SQDB                                                                
         MACRO                                                          00000010
&NAME    SQDB  &R1,&X2                                                  00000020
&NAME    LD    &R1,&X2                                                  00000030
         DC    X'0015'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SQDBR                                                               
         MACRO                                                          00000010
&NAME    SQDBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B315',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SQDR                                                                
         MACRO                                                          00000010
&NAME    SQDR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B244',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SQE                                                                 
         MACRO                                                          00000010
&NAME    SQE   &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0034'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SQEB                                                                
         MACRO                                                          00000010
&NAME    SQEB  &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0014'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SQEBR                                                               
         MACRO                                                          00000010
&NAME    SQEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B314',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SQER                                                                
         MACRO                                                          00000010
&NAME    SQER  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B245',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SQXBR                                                               
         MACRO                                                          00000010
&NAME    SQXBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B316',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SQXR                                                                
         MACRO                                                          00000010
&NAME    SQXR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B336',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SRNM                                                                
         MACRO                                                          00000010
&NAME    SRNM  &S2                                                      00000020
&NAME    DC    0H'0',X'B299',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STFPC                                                               
         MACRO                                                          00000010
&NAME    STFPC &S2                                                      00000020
&NAME    DC    0H'0',X'B29C',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=SXBR                                                                
         MACRO                                                          00000010
&NAME    SXBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B34B',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=TBDR                                                                
         MACRO                                                          00000010
&NAME    TBDR  &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B351',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=TBEDR                                                               
         MACRO                                                          00000010
&NAME    TBEDR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B350',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=TCDB                                                                
         MACRO                                                          00000010
&NAME    TCDB  &R1,&X2                                                  00000020
&NAME    LD    &R1,&X2                                                  00000030
         DC    X'0011'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=TCEB                                                                
         MACRO                                                          00000010
&NAME    TCEB  &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0010'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=TCXB                                                                
         MACRO                                                          00000010
&NAME    TCXB  &R1,&X2                                                  00000020
&NAME    LD    &R1,&X2                                                  00000030
         DC    X'0012'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=THDER                                                               
         MACRO                                                          00000010
&NAME    THDER &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B358',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=THDR                                                                
         MACRO                                                          00000010
&NAME    THDR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B359',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CEFBR                                                               
         MACRO                                                          00000010
&NAME    CEFBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B394',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LCEBR                                                               
         MACRO                                                          00000010
&NAME    LCEBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B303',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LZDR                                                                
         MACRO                                                          00000010
&NAME    LZDR  &R1                                                      00000020
&NAME    DC    0H'0',X'B375',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=LZER                                                                
         MACRO                                                          00000010
&NAME    LZER  &R1                                                      00000020
&NAME    DC    0H'0',X'B374',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=LZXR                                                                
         MACRO                                                          00000010
&NAME    LZXR  &R1                                                      00000020
&NAME    DC    0H'0',X'B376',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=BAKR                                                                
         MACRO                                                          00000010
&NAME    BAKR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B240',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=BSA                                                                 
         MACRO                                                          00000010
&NAME    BSA   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B25A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=BSG                                                                 
         MACRO                                                          00000010
&NAME    BSG   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B258',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CSP                                                                 
         MACRO                                                          00000010
&NAME    CSP   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B250',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=EREG                                                                
         MACRO                                                          00000010
&NAME    EREG  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B249',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=ESTA                                                                
         MACRO                                                          00000010
&NAME    ESTA  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B24A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LURA                                                                
         MACRO                                                          00000010
&NAME    LURA  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B24B',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MSTA                                                                
         MACRO                                                          00000010
&NAME    MSTA  &R1                                                      00000020
&NAME    DC    0H'0',X'B247',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=MVCDK                                                               
         MACRO                                                          00000010
&NAME    MVCDK &S1,&S2                                                  00000020
&NAME    DC    0H'0',X'E50F',S(&S1),S(&S2)                              00000030
         MEND                                                           00000040
./ ADD NAME=MVCSK                                                               
         MACRO                                                          00000010
&NAME    MVCSK &S1,&S2                                                  00000020
&NAME    DC    0H'0',X'E50E',S(&S1),S(&S2)                              00000030
         MEND                                                           00000040
./ ADD NAME=PALB                                                                
         MACRO                                                          00000010
&NAME    PALB  ,                                                        00000020
&NAME    DC    0H'0',X'B248',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=PCF                                                                 
         MACRO                                                          00000010
&NAME    PCF   &S2                                                      00000020
&NAME    DC    0H'0',X'B218',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=PGIN                                                                
         MACRO                                                          00000010
&NAME    PGIN  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B22E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=PGOUT                                                               
         MACRO                                                          00000010
&NAME    PGOUT &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B22F',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=PR                                                                  
         MACRO                                                          00000010
&NAME    PR    ,                                                        00000020
&NAME    DC    0H'0',X'0101'                                            00000030
         MEND                                                           00000040
./ ADD NAME=RP                                                                  
         MACRO                                                          00000010
&NAME    RP    &S2                                                      00000020
&NAME    DC    0H'0',X'B277',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=SACF                                                                
         MACRO                                                          00000010
&NAME    SACF  &S2                                                      00000020
&NAME    DC    0H'0',X'B279',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=SCKPF                                                               
         MACRO                                                          00000010
&NAME    SCKPF ,                                                        00000020
&NAME    DC    0H'0',X'0107'                                            00000030
         MEND                                                           00000040
./ ADD NAME=STFL                                                                
         MACRO                                                          00000010
&NAME    STFL  &S2                                                      00000020
&NAME    DC    0H'0',X'B2B1',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STSI                                                                
         MACRO                                                          00000010
&NAME    STSI  &S2                                                      00000020
&NAME    DC    0H'0',X'B27D',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STURA                                                               
         MACRO                                                          00000010
&NAME    STURA &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B246',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=TAR                                                                 
         MACRO                                                          00000010
&NAME    TAR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B24C',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=TRAP2                                                               
         MACRO                                                          00000010
&NAME    TRAP2 ,                                                        00000020
&NAME    DC    0H'0',X'01FF'                                            00000030
         MEND                                                           00000040
./ ADD NAME=TRAP4                                                               
         MACRO                                                          00000010
&NAME    TRAP4 &S2                                                      00000020
&NAME    DC    0H'0',X'B2FF',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=XSCH                                                                
         MACRO                                                          00000010
&NAME    XSCH  ,                                                        00000020
&NAME    DC    0H'0',X'B276',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=CMPSC                                                               
         MACRO                                                          00000010
&NAME    CMPSC &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B263',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=BRU                                                                 
         MACRO                                                          00000010
&NAME    BRU   &I2                                                      00000020
&NAME    BRC   15,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=J                                                                   
         MACRO                                                          00000010
&NAME    J     &I2                                                      00000020
&NAME    BRC   15,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRUL                                                                
         MACRO                                                          00000010
&NAME    BRUL  &I2                                                      00000020
&NAME    BRCL  15,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JLU                                                                 
         MACRO                                                          00000010
&NAME    JLU   &I2                                                      00000020
&NAME    BRCL  15,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JNOP                                                                
         MACRO                                                          00000010
&NAME    JNOP  &I2                                                      00000020
&NAME    BRC   0,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLNOP                                                               
         MACRO                                                          00000010
&NAME    JLNOP &I2                                                      00000020
&NAME    BRCL  0,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRH                                                                 
         MACRO                                                          00000010
&NAME    BRH   &I2                                                      00000020
&NAME    BRC   2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JH                                                                  
         MACRO                                                          00000010
&NAME    JH    &I2                                                      00000020
&NAME    BRC   2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRHL                                                                
         MACRO                                                          00000010
&NAME    BRHL  &I2                                                      00000020
&NAME    BRCL  2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLH                                                                 
         MACRO                                                          00000010
&NAME    JLH   &I2                                                      00000020
&NAME    BRCL  2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRL                                                                 
         MACRO                                                          00000010
&NAME    BRL   &I2                                                      00000020
&NAME    BRC   4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JL                                                                  
         MACRO                                                          00000010
&NAME    JL    &I2                                                      00000020
&NAME    BRC   4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRLL                                                                
         MACRO                                                          00000010
&NAME    BRLL  &I2                                                      00000020
&NAME    BRCL  4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLL                                                                 
         MACRO                                                          00000010
&NAME    JLL   &I2                                                      00000020
&NAME    BRCL  4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRE                                                                 
         MACRO                                                          00000010
&NAME    BRE   &I2                                                      00000020
&NAME    BRC   8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JE                                                                  
         MACRO                                                          00000010
&NAME    JE    &I2                                                      00000020
&NAME    BRC   8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BREL                                                                
         MACRO                                                          00000010
&NAME    BREL  &I2                                                      00000020
&NAME    BRCL  8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLE                                                                 
         MACRO                                                          00000010
&NAME    JLE   &I2                                                      00000020
&NAME    BRCL  8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRNH                                                                
         MACRO                                                          00000010
&NAME    BRNH  &I2                                                      00000020
&NAME    BRC   13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JNH                                                                 
         MACRO                                                          00000010
&NAME    JNH   &I2                                                      00000020
&NAME    BRC   13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNHL                                                               
         MACRO                                                          00000010
&NAME    BRNHL &I2                                                      00000020
&NAME    BRCL  13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JLNH                                                                
         MACRO                                                          00000010
&NAME    JLNH  &I2                                                      00000020
&NAME    BRCL  13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNL                                                                
         MACRO                                                          00000010
&NAME    BRNL  &I2                                                      00000020
&NAME    BRC   11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JNL                                                                 
         MACRO                                                          00000010
&NAME    JNL   &I2                                                      00000020
&NAME    BRC   11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNLL                                                               
         MACRO                                                          00000010
&NAME    BRNLL &I2                                                      00000020
&NAME    BRCL  11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JLNL                                                                
         MACRO                                                          00000010
&NAME    JLNL  &I2                                                      00000020
&NAME    BRCL  11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNE                                                                
         MACRO                                                          00000010
&NAME    BRNE  &I2                                                      00000020
&NAME    BRC   7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JNE                                                                 
         MACRO                                                          00000010
&NAME    JNE   &I2                                                      00000020
&NAME    BRC   7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRNEL                                                               
         MACRO                                                          00000010
&NAME    BRNEL &I2                                                      00000020
&NAME    BRCL  7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLNE                                                                
         MACRO                                                          00000010
&NAME    JLNE  &I2                                                      00000020
&NAME    BRCL  7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRP                                                                 
         MACRO                                                          00000010
&NAME    BRP   &I2                                                      00000020
&NAME    BRC   2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JP                                                                  
         MACRO                                                          00000010
&NAME    JP    &I2                                                      00000020
&NAME    BRC   2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRPL                                                                
         MACRO                                                          00000010
&NAME    BRPL  &I2                                                      00000020
&NAME    BRCL  2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLP                                                                 
         MACRO                                                          00000010
&NAME    JLP   &I2                                                      00000020
&NAME    BRCL  2,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRM                                                                 
         MACRO                                                          00000010
&NAME    BRM   &I2                                                      00000020
&NAME    BRC   4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JM                                                                  
         MACRO                                                          00000010
&NAME    JM    &I2                                                      00000020
&NAME    BRC   4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRML                                                                
         MACRO                                                          00000010
&NAME    BRML  &I2                                                      00000020
&NAME    BRCL  4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLM                                                                 
         MACRO                                                          00000010
&NAME    JLM   &I2                                                      00000020
&NAME    BRCL  4,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRZ                                                                 
         MACRO                                                          00000010
&NAME    BRZ   &I2                                                      00000020
&NAME    BRC   8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JZ                                                                  
         MACRO                                                          00000010
&NAME    JZ    &I2                                                      00000020
&NAME    BRC   8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRZL                                                                
         MACRO                                                          00000010
&NAME    BRZL  &I2                                                      00000020
&NAME    BRCL  8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLZ                                                                 
         MACRO                                                          00000010
&NAME    JLZ   &I2                                                      00000020
&NAME    BRCL  8,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRO                                                                 
         MACRO                                                          00000010
&NAME    BRO   &I2                                                      00000020
&NAME    BRC   1,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JO                                                                  
         MACRO                                                          00000010
&NAME    JO    &I2                                                      00000020
&NAME    BRC   1,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BROL                                                                
         MACRO                                                          00000010
&NAME    BROL  &I2                                                      00000020
&NAME    BRCL  1,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLO                                                                 
         MACRO                                                          00000010
&NAME    JLO   &I2                                                      00000020
&NAME    BRCL  1,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRNP                                                                
         MACRO                                                          00000010
&NAME    BRNP  &I2                                                      00000020
&NAME    BRC   13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JNP                                                                 
         MACRO                                                          00000010
&NAME    JNP   &I2                                                      00000020
&NAME    BRC   13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNPL                                                               
         MACRO                                                          00000010
&NAME    BRNPL &I2                                                      00000020
&NAME    BRCL  13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JLNP                                                                
         MACRO                                                          00000010
&NAME    JLNP  &I2                                                      00000020
&NAME    BRCL  13,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNM                                                                
         MACRO                                                          00000010
&NAME    BRNM  &I2                                                      00000020
&NAME    BRC   11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JNM                                                                 
         MACRO                                                          00000010
&NAME    JNM   &I2                                                      00000020
&NAME    BRC   11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNML                                                               
         MACRO                                                          00000010
&NAME    BRNML &I2                                                      00000020
&NAME    BRCL  11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JLNM                                                                
         MACRO                                                          00000010
&NAME    JLNM  &I2                                                      00000020
&NAME    BRCL  11,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNZ                                                                
         MACRO                                                          00000010
&NAME    BRNZ  &I2                                                      00000020
&NAME    BRC   7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JNZ                                                                 
         MACRO                                                          00000010
&NAME    JNZ   &I2                                                      00000020
&NAME    BRC   7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRNZL                                                               
         MACRO                                                          00000010
&NAME    BRNZL &I2                                                      00000020
&NAME    BRCL  7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=JLNZ                                                                
         MACRO                                                          00000010
&NAME    JLNZ  &I2                                                      00000020
&NAME    BRCL  7,&I2                                                    00000030
         MEND                                                           00000040
./ ADD NAME=BRNO                                                                
         MACRO                                                          00000010
&NAME    BRNO  &I2                                                      00000020
&NAME    BRC   14,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JNO                                                                 
         MACRO                                                          00000010
&NAME    JNO   &I2                                                      00000020
&NAME    BRC   14,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=BRNOL                                                               
         MACRO                                                          00000010
&NAME    BRNOL &I2                                                      00000020
&NAME    BRCL  14,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JLNO                                                                
         MACRO                                                          00000010
&NAME    JLNO  &I2                                                      00000020
&NAME    BRCL  14,&I2                                                   00000030
         MEND                                                           00000040
./ ADD NAME=JAS                                                                 
         MACRO                                                          00000010
&NAME    JAS   &R1,&I2                                                  00000020
&NAME    BRAS  &R1,&I2                                                  00000030
         MEND                                                           00000040
./ ADD NAME=JASL                                                                
         MACRO                                                          00000010
&NAME    JASL  &R1,&I2                                                  00000020
&NAME    BRASL &R1,&I2                                                  00000030
         MEND                                                           00000040
./ ADD NAME=JCT                                                                 
         MACRO                                                          00000010
&NAME    JCT   &R1,&I2                                                  00000020
&NAME    BRCT  &R1,&I2                                                  00000030
         MEND                                                           00000040
./ ADD NAME=JXH                                                                 
         MACRO                                                          00000010
&NAME    JXH   &R1,&R3,&I2                                              00000020
&NAME    BRXH  &R1,&R3,&I2                                              00000030
         MEND                                                           00000040
./ ADD NAME=JXLE                                                                
         MACRO                                                          00000010
&NAME    JXLE  &R1,&R3,&I2                                              00000020
&NAME    BRXLE &R1,&R3,&I2                                              00000030
         MEND                                                           00000040
./ ADD NAME=SERVC                                                               
         MACRO                                                          00000010
&NAME    SERVC &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B220',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=KMC                                                                 
         MACRO                                                          00000010
&NAME    KMC   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B92F',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=TROO                                                                
         MACRO                                                          00000010
&NAME    TROO  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B993',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=TRTO                                                                
         MACRO                                                          00000010
&NAME    TRTO  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B991',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=TROT                                                                
         MACRO                                                          00000010
&NAME    TROT  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B992',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=TRTT                                                                
         MACRO                                                          00000010
&NAME    TRTT  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B990',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=SETR                                                                
         MACRO                                                          00000010
&NAME    SETR  &S2                                                      00000020
&NAME    DC    0H'0',X'B216',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STETR                                                               
         MACRO                                                          00000010
&NAME    STETR &S2                                                      00000020
&NAME    DC    0H'0',X'B217',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STZP                                                                
         MACRO                                                          00000010
&NAME    STZP  ,                                                        00000020
&NAME    DC    0H'0',X'B23D',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=SZP                                                                 
         MACRO                                                          00000010
&NAME    SZP   ,                                                        00000020
&NAME    DC    0H'0',X'B23E',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=TPZI                                                                
         MACRO                                                          00000010
&NAME    TPZI  ,                                                        00000020
&NAME    DC    0H'0',X'B23F',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=TVS                                                                 
         MACRO                                                          00000010
&NAME    TVS   &R1                                                      00000020
&NAME    DC    0H'0',X'B264',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=SVS                                                                 
         MACRO                                                          00000010
&NAME    SVS   &R1                                                      00000020
&NAME    DC    0H'0',X'B265',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=SPCS                                                                
         MACRO                                                          00000010
&NAME    SPCS  &S2                                                      00000020
&NAME    DC    0H'0',X'B270',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STPCS                                                               
         MACRO                                                          00000010
&NAME    STPCS &S2                                                      00000020
&NAME    DC    0H'0',X'B271',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=SIGA                                                                
         MACRO                                                          00000010
&NAME    SIGA  ,                                                        00000020
&NAME    DC    0H'0',X'B274',Y(0)                                       00000030
         MEND                                                           00000040
./ ADD NAME=IUCV                                                                
         MACRO                                                          00000010
&NAME    IUCV  &S2                                                      00000020
&NAME    DC    0H'0',X'B2F0',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=AGR                                                                 
         MACRO                                                          00000010
&NAME    AGR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B908',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=AGFR                                                                
         MACRO                                                          00000010
&NAME    AGFR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B918',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=AY                                                                  
         MACRO                                                          00000010
&NAME    AY    &R1,&X2                                                  00000020
&NAME    A     &R1,&X2                                                  00000030
         DC    X'005A'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=AG                                                                  
         MACRO                                                          00000010
&NAME    AG    &R1,&X2                                                  00000020
&NAME    A     &R1,&X2                                                  00000030
         DC    X'0008'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=AGF                                                                 
         MACRO                                                          00000010
&NAME    AGF   &R1,&X2                                                  00000020
&NAME    A     &R1,&X2                                                  00000030
         DC    X'0018'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=AHY                                                                 
         MACRO                                                          00000010
&NAME    AHY   &R1,&X2                                                  00000020
&NAME    AH    &R1,&X2                                                  00000030
         DC    X'007A'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=AGHI                                                                
         MACRO                                                          00000010
&NAME    AGHI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,11),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=ALGR                                                                
         MACRO                                                          00000010
&NAME    ALGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B90A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=ALGFR                                                               
         MACRO                                                          00000010
&NAME    ALGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B91A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=ALY                                                                 
         MACRO                                                          00000010
&NAME    ALY   &R1,&X2                                                  00000020
&NAME    AL    &R1,&X2                                                  00000030
         DC    X'005E'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=ALG                                                                 
         MACRO                                                          00000010
&NAME    ALG   &R1,&X2                                                  00000020
&NAME    AL    &R1,&X2                                                  00000030
         DC    X'000A'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=ALGF                                                                
         MACRO                                                          00000010
&NAME    ALGF  &R1,&X2                                                  00000020
&NAME    AL    &R1,&X2                                                  00000030
         DC    X'001A'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=ALFI                                                                
         MACRO                                                          00000010
&NAME    ALFI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,11),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=AFI                                                                 
         MACRO                                                          00000010
&NAME    AFI   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,9),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=AGFI                                                                
         MACRO                                                          00000010
&NAME    AGFI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,8),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=ALGFI                                                               
         MACRO                                                          00000010
&NAME    ALGFI &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,10),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=ALCGR                                                               
         MACRO                                                          00000010
&NAME    ALCGR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B988',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=ALCG                                                                
         MACRO                                                          00000010
&NAME    ALCG  &R1,&X2                                                  00000020
&NAME    AL    &R1,&X2                                                  00000030
         DC    X'0088'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=NGR                                                                 
         MACRO                                                          00000010
&NAME    NGR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B980',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=NY                                                                  
         MACRO                                                          00000010
&NAME    NY    &R1,&X2                                                  00000020
&NAME    N     &R1,&X2                                                  00000030
         DC    X'0054'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=NG                                                                  
         MACRO                                                          00000010
&NAME    NG    &R1,&X2                                                  00000020
&NAME    N     &R1,&X2                                                  00000030
         DC    X'0080'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=NIHF                                                                
         MACRO                                                          00000010
&NAME    NIHF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,10),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=NIHH                                                                
         MACRO                                                          00000010
&NAME    NIHH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,4),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=NIHL                                                                
         MACRO                                                          00000010
&NAME    NIHL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,5),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=NILF                                                                
         MACRO                                                          00000010
&NAME    NILF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,11),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=NILH                                                                
         MACRO                                                          00000010
&NAME    NILH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,6),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=NILL                                                                
         MACRO                                                          00000010
&NAME    NILL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,7),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=BCTGR                                                               
         MACRO                                                          00000010
&NAME    BCTGR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B946',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=BCTG                                                                
         MACRO                                                          00000010
&NAME    BCTG  &R1,&X2                                                  00000020
&NAME    BCT   &R1,&X2                                                  00000030
         DC    X'0046'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=BXHG                                                                
         MACRO                                                          00000010
&NAME    BXHG  &R1,&R3,&S2                                              00000020
&NAME    BXH   &R1,&R3,&S2                                              00000030
         DC    X'0044'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'EB'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=BXLEG                                                               
         MACRO                                                          00000010
&NAME    BXLEG &R1,&R3,&S2                                              00000020
&NAME    BXLE  &R1,&R3,&S2                                              00000030
         DC    X'0045'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'EB'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CGR                                                                 
         MACRO                                                          00000010
&NAME    CGR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B920',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CGFR                                                                
         MACRO                                                          00000010
&NAME    CGFR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B930',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CG                                                                  
         MACRO                                                          00000010
&NAME    CG    &R1,&X2                                                  00000020
&NAME    C     &R1,&X2                                                  00000030
         DC    X'0020'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CGF                                                                 
         MACRO                                                          00000010
&NAME    CGF   &R1,&X2                                                  00000020
&NAME    C     &R1,&X2                                                  00000030
         DC    X'0030'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CFI                                                                 
         MACRO                                                          00000010
&NAME    CFI   &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,13),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CGFI                                                                
         MACRO                                                          00000010
&NAME    CGFI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,12),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CDSY                                                                
         MACRO                                                          00000010
&NAME    CDSY  &R1,&R3,&S2                                              00000020
&NAME    CDS   &R1,&R3,&S2                                              00000030
         DC    X'0031'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'EB'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CDSG                                                                
         MACRO                                                          00000010
&NAME    CDSG  &R1,&R3,&S2                                              00000020
&NAME    CDS   &R1,&R3,&S2                                              00000030
         DC    X'003E'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'EB'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CHY                                                                 
         MACRO                                                          00000010
&NAME    CHY   &R1,&X2                                                  00000020
&NAME    CH    &R1,&X2                                                  00000030
         DC    X'0079'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CGHI                                                                
         MACRO                                                          00000010
&NAME    CGHI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,15),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=CLGR                                                                
         MACRO                                                          00000010
&NAME    CLGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B921',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CLGFR                                                               
         MACRO                                                          00000010
&NAME    CLGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B931',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CLY                                                                 
         MACRO                                                          00000010
&NAME    CLY   &R1,&X2                                                  00000020
&NAME    CL    &R1,&X2                                                  00000030
         DC    X'0055'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CLG                                                                 
         MACRO                                                          00000010
&NAME    CLG   &R1,&X2                                                  00000020
&NAME    CL    &R1,&X2                                                  00000030
         DC    X'0021'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CLGF                                                                
         MACRO                                                          00000010
&NAME    CLGF  &R1,&X2                                                  00000020
&NAME    CL    &R1,&X2                                                  00000030
         DC    X'0031'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CLFI                                                                
         MACRO                                                          00000010
&NAME    CLFI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,15),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CLGFI                                                               
         MACRO                                                          00000010
&NAME    CLGFI &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,14),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CLMY                                                                
         MACRO                                                          00000010
&NAME    CLMY  &R1,&M3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&M3),S(&S2),X'0021'                 00000030
         MEND                                                           00000040
./ ADD NAME=CLMH                                                                
         MACRO                                                          00000010
&NAME    CLMH  &R1,&M3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&M3),S(&S2),X'0020'                 00000030
         MEND                                                           00000040
./ ADD NAME=CVBY                                                                
         MACRO                                                          00000010
&NAME    CVBY  &R1,&X2                                                  00000020
&NAME    CVB   &R1,&X2                                                  00000030
         DC    X'0006'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CVBG                                                                
         MACRO                                                          00000010
&NAME    CVBG  &R1,&X2                                                  00000020
&NAME    CVB   &R1,&X2                                                  00000030
         DC    X'000E'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CVDY                                                                
         MACRO                                                          00000010
&NAME    CVDY  &R1,&X2                                                  00000020
&NAME    CVD   &R1,&X2                                                  00000030
         DC    X'0026'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CVDG                                                                
         MACRO                                                          00000010
&NAME    CVDG  &R1,&X2                                                  00000020
&NAME    CVD   &R1,&X2                                                  00000030
         DC    X'002E'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CU24                                                                
         MACRO                                                          00000010
&NAME    CU24  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B9B1',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=CU21                                                                
         MACRO                                                          00000010
&NAME    CU21  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B2A6',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=CUUTF                                                               
         MACRO                                                          00000010
&NAME    CUUTF &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B2A6',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=CU42                                                                
         MACRO                                                          00000010
&NAME    CU42  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B9B3',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CU41                                                                
         MACRO                                                          00000010
&NAME    CU41  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B9B2',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CU12                                                                
         MACRO                                                          00000010
&NAME    CU12  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B2A7',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=CU14                                                                
         MACRO                                                          00000010
&NAME    CU14  &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B9B0',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=DLGR                                                                
         MACRO                                                          00000010
&NAME    DLGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B987',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DLG                                                                 
         MACRO                                                          00000010
&NAME    DLG   &R1,&X2                                                  00000020
&NAME    D     &R1,&X2                                                  00000030
         DC    X'0087'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=DSGR                                                                
         MACRO                                                          00000010
&NAME    DSGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B90D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DSGFR                                                               
         MACRO                                                          00000010
&NAME    DSGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B91D',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DSG                                                                 
         MACRO                                                          00000010
&NAME    DSG   &R1,&X2                                                  00000020
&NAME    D     &R1,&X2                                                  00000030
         DC    X'000D'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=DSGF                                                                
         MACRO                                                          00000010
&NAME    DSGF  &R1,&X2                                                  00000020
&NAME    D     &R1,&X2                                                  00000030
         DC    X'001D'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=XGR                                                                 
         MACRO                                                          00000010
&NAME    XGR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B982',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=XY                                                                  
         MACRO                                                          00000010
&NAME    XY    &R1,&X2                                                  00000020
&NAME    X     &R1,&X2                                                  00000030
         DC    X'0057'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=XG                                                                  
         MACRO                                                          00000010
&NAME    XG    &R1,&X2                                                  00000020
&NAME    X     &R1,&X2                                                  00000030
         DC    X'0082'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=XIY                                                                 
         MACRO                                                          00000010
&NAME    XIY   &S1,&I2                                                  00000020
&NAME    DC    0H'0',X'EB',AL1(&I2),S(&S1),X'0057'                      00000030
         MEND                                                           00000040
./ ADD NAME=NIY                                                                 
         MACRO                                                          00000010
&NAME    NIY   &S1,&I2                                                  00000020
&NAME    DC    0H'0',X'EB',AL1(&I2),S(&S1),X'0054'                      00000030
         MEND                                                           00000040
./ ADD NAME=CLIY                                                                
         MACRO                                                          00000010
&NAME    CLIY  &S1,&I2                                                  00000020
&NAME    DC    0H'0',X'EB',AL1(&I2),S(&S1),X'0055'                      00000030
         MEND                                                           00000040
./ ADD NAME=XIHF                                                                
         MACRO                                                          00000010
&NAME    XIHF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,6),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=XILF                                                                
         MACRO                                                          00000010
&NAME    XILF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,7),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=FLOGR                                                               
         MACRO                                                          00000010
&NAME    FLOGR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B983',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=ICY                                                                 
         MACRO                                                          00000010
&NAME    ICY   &R1,&X2                                                  00000020
&NAME    IC    &R1,&X2                                                  00000030
         DC    X'0073'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=ICMY                                                                
         MACRO                                                          00000010
&NAME    ICMY  &R1,&M3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&M3),S(&S2),X'0081'                 00000030
         MEND                                                           00000040
./ ADD NAME=ICMH                                                                
         MACRO                                                          00000010
&NAME    ICMH  &R1,&M3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&M3),S(&S2),X'0080'                 00000030
         MEND                                                           00000040
./ ADD NAME=IIHF                                                                
         MACRO                                                          00000010
&NAME    IIHF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,8),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=IIHH                                                                
         MACRO                                                          00000010
&NAME    IIHH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,0),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=IIHL                                                                
         MACRO                                                          00000010
&NAME    IIHL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,1),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=IILF                                                                
         MACRO                                                          00000010
&NAME    IILF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,9),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=IILH                                                                
         MACRO                                                          00000010
&NAME    IILH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,2),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=IILL                                                                
         MACRO                                                          00000010
&NAME    IILL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,3),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=LGR                                                                 
         MACRO                                                          00000010
&NAME    LGR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B904',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LGFR                                                                
         MACRO                                                          00000010
&NAME    LGFR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B914',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LY                                                                  
         MACRO                                                          00000010
&NAME    LY    &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'0058'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LG                                                                  
         MACRO                                                          00000010
&NAME    LG    &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'0004'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LGF                                                                 
         MACRO                                                          00000010
&NAME    LGF   &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'0014'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LGFI                                                                
         MACRO                                                          00000010
&NAME    LGFI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,1),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=LAMY                                                                
         MACRO                                                          00000010
&NAME    LAMY  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'009A'                 00000030
         MEND                                                           00000040
./ ADD NAME=LAY                                                                 
         MACRO                                                          00000010
&NAME    LAY   &R1,&X2                                                  00000020
&NAME    LA    &R1,&X2                                                  00000030
         DC    X'0071'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LTGR                                                                
         MACRO                                                          00000010
&NAME    LTGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B902',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LTGFR                                                               
         MACRO                                                          00000010
&NAME    LTGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B912',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LT                                                                  
         MACRO                                                          00000010
&NAME    LT    &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'0012'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LTG                                                                 
         MACRO                                                          00000010
&NAME    LTG   &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'0002'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LBR                                                                 
         MACRO                                                          00000010
&NAME    LBR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B926',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LGBR                                                                
         MACRO                                                          00000010
&NAME    LGBR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B906',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LB                                                                  
         MACRO                                                          00000010
&NAME    LB    &R1,&X2                                                  00000020
&NAME    IC    &R1,&X2                                                  00000030
         DC    X'0076'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LGB                                                                 
         MACRO                                                          00000010
&NAME    LGB   &R1,&X2                                                  00000020
&NAME    IC    &R1,&X2                                                  00000030
         DC    X'0077'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LCGR                                                                
         MACRO                                                          00000010
&NAME    LCGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B903',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LCGFR                                                               
         MACRO                                                          00000010
&NAME    LCGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B913',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LHR                                                                 
         MACRO                                                          00000010
&NAME    LHR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B927',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LGHR                                                                
         MACRO                                                          00000010
&NAME    LGHR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B907',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LHY                                                                 
         MACRO                                                          00000010
&NAME    LHY   &R1,&X2                                                  00000020
&NAME    LH    &R1,&X2                                                  00000030
         DC    X'0078'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LGH                                                                 
         MACRO                                                          00000010
&NAME    LGH   &R1,&X2                                                  00000020
&NAME    LH    &R1,&X2                                                  00000030
         DC    X'0015'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LGHI                                                                
         MACRO                                                          00000010
&NAME    LGHI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,9),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=LLGFR                                                               
         MACRO                                                          00000010
&NAME    LLGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B916',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LLGF                                                                
         MACRO                                                          00000010
&NAME    LLGF  &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'0016'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LLCR                                                                
         MACRO                                                          00000010
&NAME    LLCR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B994',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LLGCR                                                               
         MACRO                                                          00000010
&NAME    LLGCR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B984',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LLGC                                                                
         MACRO                                                          00000010
&NAME    LLGC  &R1,&X2                                                  00000020
&NAME    IC    &R1,&X2                                                  00000030
         DC    X'0090'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LLC                                                                 
         MACRO                                                          00000010
&NAME    LLC   &R1,&X2                                                  00000020
&NAME    IC    &R1,&X2                                                  00000030
         DC    X'0094'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LLHR                                                                
         MACRO                                                          00000010
&NAME    LLHR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B995',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LLGHR                                                               
         MACRO                                                          00000010
&NAME    LLGHR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B985',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LLH                                                                 
         MACRO                                                          00000010
&NAME    LLH   &R1,&X2                                                  00000020
&NAME    LH    &R1,&X2                                                  00000030
         DC    X'0095'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LLGH                                                                
         MACRO                                                          00000010
&NAME    LLGH  &R1,&X2                                                  00000020
&NAME    LH    &R1,&X2                                                  00000030
         DC    X'0091'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LLIHF                                                               
         MACRO                                                          00000010
&NAME    LLIHF &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,14),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=LLIHH                                                               
         MACRO                                                          00000010
&NAME    LLIHH &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,12),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=LLIHL                                                               
         MACRO                                                          00000010
&NAME    LLIHL &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,13),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=LLILF                                                               
         MACRO                                                          00000010
&NAME    LLILF &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,15),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=LLILH                                                               
         MACRO                                                          00000010
&NAME    LLILH &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,14),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=LLILL                                                               
         MACRO                                                          00000010
&NAME    LLILL &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,15),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=LLGTR                                                               
         MACRO                                                          00000010
&NAME    LLGTR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B917',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LLGT                                                                
         MACRO                                                          00000010
&NAME    LLGT  &R1,&X2                                                  00000020
&NAME    L     &R1,&X2                                                  00000030
         DC    X'0017'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LMY                                                                 
         MACRO                                                          00000010
&NAME    LMY   &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0098'                 00000030
         MEND                                                           00000040
./ ADD NAME=LMG                                                                 
         MACRO                                                          00000010
&NAME    LMG   &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0004'                 00000030
         MEND                                                           00000040
./ ADD NAME=LMD                                                                 
         MACRO                                                          00000010
&NAME    LMD   &R1,&R3,&S2,&S4                                          00000020
&NAME    DC    0H'0',X'EF',AL.4(&R1,&R3),S(&S2,&S4)                     00000030
         MEND                                                           00000040
./ ADD NAME=LMH                                                                 
         MACRO                                                          00000010
&NAME    LMH   &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0096'                 00000030
         MEND                                                           00000040
./ ADD NAME=LNGR                                                                
         MACRO                                                          00000010
&NAME    LNGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B901',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LNGFR                                                               
         MACRO                                                          00000010
&NAME    LNGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B911',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LPQ                                                                 
         MACRO                                                          00000010
&NAME    LPQ   &R1,&X2                                                  00000020
&NAME    CVB   &R1,&X2                                                  00000030
         DC    X'008F'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LPGR                                                                
         MACRO                                                          00000010
&NAME    LPGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B900',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LPGFR                                                               
         MACRO                                                          00000010
&NAME    LPGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B910',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LRVGR                                                               
         MACRO                                                          00000010
&NAME    LRVGR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B90F',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=LRVG                                                                
         MACRO                                                          00000010
&NAME    LRVG  &R1,&X2                                                  00000020
&NAME    CVB   &R1,&X2                                                  00000030
         DC    X'000F'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MVIY                                                                
         MACRO                                                          00000010
&NAME    MVIY  &S1,&I2                                                  00000020
&NAME    DC    0H'0',X'EB',AL1(&I2),S(&S1),X'0052'                      00000030
         MEND                                                           00000040
./ ADD NAME=MGHI                                                                
         MACRO                                                          00000010
&NAME    MGHI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,13),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=MLGR                                                                
         MACRO                                                          00000010
&NAME    MLGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B986',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MLG                                                                 
         MACRO                                                          00000010
&NAME    MLG   &R1,&X2                                                  00000020
&NAME    M     &R1,&X2                                                  00000030
         DC    X'0086'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MSGR                                                                
         MACRO                                                          00000010
&NAME    MSGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B90C',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MSGFR                                                               
         MACRO                                                          00000010
&NAME    MSGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B91C',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=MSY                                                                 
         MACRO                                                          00000010
&NAME    MSY   &R1,&X2                                                  00000020
&NAME    MH    &R1,&X2                                                  00000030
         DC    X'0051'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MSG                                                                 
         MACRO                                                          00000010
&NAME    MSG   &R1,&X2                                                  00000020
&NAME    MH    &R1,&X2                                                  00000030
         DC    X'000C'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MSGF                                                                
         MACRO                                                          00000010
&NAME    MSGF  &R1,&X2                                                  00000020
&NAME    MH    &R1,&X2                                                  00000030
         DC    X'001C'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=OGR                                                                 
         MACRO                                                          00000010
&NAME    OGR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B981',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=OY                                                                  
         MACRO                                                          00000010
&NAME    OY    &R1,&X2                                                  00000020
&NAME    O     &R1,&X2                                                  00000030
         DC    X'0056'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=OG                                                                  
         MACRO                                                          00000010
&NAME    OG    &R1,&X2                                                  00000020
&NAME    O     &R1,&X2                                                  00000030
         DC    X'0081'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=OIY                                                                 
         MACRO                                                          00000010
&NAME    OIY   &S1,&I2                                                  00000020
&NAME    DC    0H'0',X'EB',AL1(&I2),S(&S1),X'0056'                      00000030
         MEND                                                           00000040
./ ADD NAME=OIHF                                                                
         MACRO                                                          00000010
&NAME    OIHF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,12),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=OIHH                                                                
         MACRO                                                          00000010
&NAME    OIHH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,8),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=OIHL                                                                
         MACRO                                                          00000010
&NAME    OIHL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,9),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=OILF                                                                
         MACRO                                                          00000010
&NAME    OILF  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C0',AL.4(&R1,13),AL4(&I2)                        00000030
         MEND                                                           00000040
./ ADD NAME=OILH                                                                
         MACRO                                                          00000010
&NAME    OILH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,10),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=OILL                                                                
         MACRO                                                          00000010
&NAME    OILL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A5',AL.4(&R1,11),Y(&I2)                          00000030
         MEND                                                           00000040
./ ADD NAME=RLLG                                                                
         MACRO                                                          00000010
&NAME    RLLG  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'001C'                 00000030
         MEND                                                           00000040
./ ADD NAME=SRSTU                                                               
         MACRO                                                          00000010
&NAME    SRSTU &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B9BE',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SAM64                                                               
         MACRO                                                          00000010
&NAME    SAM64 ,                                                        00000020
&NAME    DC    0H'0',X'010E'                                            00000030
         MEND                                                           00000040
./ ADD NAME=SLAG                                                                
         MACRO                                                          00000010
&NAME    SLAG  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'000B'                 00000030
         MEND                                                           00000040
./ ADD NAME=SLLG                                                                
         MACRO                                                          00000010
&NAME    SLLG  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'000D'                 00000030
         MEND                                                           00000040
./ ADD NAME=SRAG                                                                
         MACRO                                                          00000010
&NAME    SRAG  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'000A'                 00000030
         MEND                                                           00000040
./ ADD NAME=SRLG                                                                
         MACRO                                                          00000010
&NAME    SRLG  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'000C'                 00000030
         MEND                                                           00000040
./ ADD NAME=STY                                                                 
         MACRO                                                          00000010
&NAME    STY   &R1,&X2                                                  00000020
&NAME    ST    &R1,&X2                                                  00000030
         DC    X'0050'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STG                                                                 
         MACRO                                                          00000010
&NAME    STG   &R1,&X2                                                  00000020
&NAME    ST    &R1,&X2                                                  00000030
         DC    X'0024'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STAMY                                                               
         MACRO                                                          00000010
&NAME    STAMY &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'009B'                 00000030
         MEND                                                           00000040
./ ADD NAME=STCY                                                                
         MACRO                                                          00000010
&NAME    STCY  &R1,&X2                                                  00000020
&NAME    STC   &R1,&X2                                                  00000030
         DC    X'0072'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STCMY                                                               
         MACRO                                                          00000010
&NAME    STCMY &R1,&M3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&M3),S(&S2),X'002D'                 00000030
         MEND                                                           00000040
./ ADD NAME=STCMH                                                               
         MACRO                                                          00000010
&NAME    STCMH &R1,&M3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&M3),S(&S2),X'002C'                 00000030
         MEND                                                           00000040
./ ADD NAME=STCKF                                                               
         MACRO                                                          00000010
&NAME    STCKF &S2                                                      00000020
&NAME    DC    0H'0',X'B27C',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STFLE                                                               
         MACRO                                                          00000010
&NAME    STFLE &S2                                                      00000020
&NAME    DC    0H'0',X'B2B0',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=STHY                                                                
         MACRO                                                          00000010
&NAME    STHY  &R1,&X2                                                  00000020
&NAME    STH   &R1,&X2                                                  00000030
         DC    X'0070'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STMY                                                                
         MACRO                                                          00000010
&NAME    STMY  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0090'                 00000030
         MEND                                                           00000040
./ ADD NAME=STMG                                                                
         MACRO                                                          00000010
&NAME    STMG  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0024'                 00000030
         MEND                                                           00000040
./ ADD NAME=STMH                                                                
         MACRO                                                          00000010
&NAME    STMH  &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0026'                 00000030
         MEND                                                           00000040
./ ADD NAME=STPQ                                                                
         MACRO                                                          00000010
&NAME    STPQ  &R1,&X2                                                  00000020
&NAME    CVD   &R1,&X2                                                  00000030
         DC    X'008E'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STRVG                                                               
         MACRO                                                          00000010
&NAME    STRVG &R1,&X2                                                  00000020
&NAME    STD   &R1,&X2                                                  00000030
         DC    X'002F'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SGR                                                                 
         MACRO                                                          00000010
&NAME    SGR   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B909',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SGFR                                                                
         MACRO                                                          00000010
&NAME    SGFR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B919',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SY                                                                  
         MACRO                                                          00000010
&NAME    SY    &R1,&X2                                                  00000020
&NAME    S     &R1,&X2                                                  00000030
         DC    X'005B'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SG                                                                  
         MACRO                                                          00000010
&NAME    SG    &R1,&X2                                                  00000020
&NAME    CVB   &R1,&X2                                                  00000030
         DC    X'0009'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SGF                                                                 
         MACRO                                                          00000010
&NAME    SGF   &R1,&X2                                                  00000020
&NAME    S     &R1,&X2                                                  00000030
         DC    X'0019'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SHY                                                                 
         MACRO                                                          00000010
&NAME    SHY   &R1,&X2                                                  00000020
&NAME    SH    &R1,&X2                                                  00000030
         DC    X'007B'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SLGR                                                                
         MACRO                                                          00000010
&NAME    SLGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B90B',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SLGFR                                                               
         MACRO                                                          00000010
&NAME    SLGFR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B91B',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SLY                                                                 
         MACRO                                                          00000010
&NAME    SLY   &R1,&X2                                                  00000020
&NAME    SL    &R1,&X2                                                  00000030
         DC    X'005F'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SLG                                                                 
         MACRO                                                          00000010
&NAME    SLG   &R1,&X2                                                  00000020
&NAME    CVB   &R1,&X2                                                  00000030
         DC    X'000B'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SLGF                                                                
         MACRO                                                          00000010
&NAME    SLGF  &R1,&X2                                                  00000020
&NAME    SL    &R1,&X2                                                  00000030
         DC    X'001B'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=SLFI                                                                
         MACRO                                                          00000010
&NAME    SLFI  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,5),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=SLGFI                                                               
         MACRO                                                          00000010
&NAME    SLGFI &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'C2',AL.4(&R1,4),AL4(&I2)                         00000030
         MEND                                                           00000040
./ ADD NAME=SLBGR                                                               
         MACRO                                                          00000010
&NAME    SLBGR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B989',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SLBG                                                                
         MACRO                                                          00000010
&NAME    SLBG  &R1,&X2                                                  00000020
&NAME    SL    &R1,&X2                                                  00000030
         DC    X'0089'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=TMY                                                                 
         MACRO                                                          00000010
&NAME    TMY   &S1,&I2                                                  00000020
&NAME    DC    0H'0',X'EB',AL1(&I2),S(&S1),X'0051'                      00000030
         MEND                                                           00000040
./ ADD NAME=TMHH                                                                
         MACRO                                                          00000010
&NAME    TMHH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,2),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=TMHL                                                                
         MACRO                                                          00000010
&NAME    TMHL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,3),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=TMLH                                                                
         MACRO                                                          00000010
&NAME    TMLH  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,0),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=TMLL                                                                
         MACRO                                                          00000010
&NAME    TMLL  &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,1),Y(&I2)                           00000030
         MEND                                                           00000040
./ ADD NAME=TRTR                                                                
         MACRO                                                          00000010
&NAME    TRTR  &S1,&S2                                                  00000020
&NAME    TRT   &S1,&S2                                                  00000030
         ORG   *-6                                                      00000040
         DC    X'D0'                                                    00000050
         ORG   *+5                                                      00000060
         MEND                                                           00000070
./ ADD NAME=LEY                                                                 
         MACRO                                                          00000010
&NAME    LEY   &R1,&X2                                                  00000020
&NAME    LE    &R1,&X2                                                  00000030
         DC    X'0064'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LDY                                                                 
         MACRO                                                          00000010
&NAME    LDY   &R1,&X2                                                  00000020
&NAME    LD    &R1,&X2                                                  00000030
         DC    X'0065'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STEY                                                                
         MACRO                                                          00000010
&NAME    STEY  &R1,&X2                                                  00000020
&NAME    STE   &R1,&X2                                                  00000030
         DC    X'0066'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=STDY                                                                
         MACRO                                                          00000010
&NAME    STDY  &R1,&X2                                                  00000020
&NAME    STD   &R1,&X2                                                  00000030
         DC    X'0067'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CSPG                                                                
         MACRO                                                          00000010
&NAME    CSPG  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B98A',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=DIAG                                                                
         MACRO                                                          00000010
&NAME    DIAG  &R1,&R2,&I3                                              00000020
&NAME    DC    0H'0',X'83',AL.4(&R1,&R2),Y(&I3)                         00000030
         MEND                                                           00000040
./ ADD NAME=ESEA                                                                
         MACRO                                                          00000010
&NAME    ESEA  &R1                                                      00000020
&NAME    DC    0H'0',X'B99D',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=EPAIR                                                               
         MACRO                                                          00000010
&NAME    EPAIR &R1                                                      00000020
&NAME    DC    0H'0',X'B99A',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=ESAIR                                                               
         MACRO                                                          00000010
&NAME    ESAIR &R1                                                      00000020
&NAME    DC    0H'0',X'B99B',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=EREGG                                                               
         MACRO                                                          00000010
&NAME    EREGG &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B90E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=IDTE                                                                
         MACRO                                                          00000010
&NAME    IDTE  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B98E',AL.4(&R3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=LCTLG                                                               
         MACRO                                                          00000010
&NAME    LCTLG &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'002F'                 00000030
         MEND                                                           00000040
./ ADD NAME=LPTEA                                                               
         MACRO                                                          00000010
&NAME    LPTEA &R1,&R3,&R2,&M4                                          00000020
&NAME    DC    0H'0',X'B9AA',AL.4(&R3,&M4,&R1,&R2)                      00000030
         MEND                                                           00000040
./ ADD NAME=LPSWE                                                               
         MACRO                                                          00000010
&NAME    LPSWE &S2                                                      00000020
&NAME    DC    0H'0',X'B2B2',S(&S2)                                     00000030
         MEND                                                           00000040
./ ADD NAME=LRAY                                                                
         MACRO                                                          00000010
&NAME    LRAY  &R1,&X2                                                  00000020
&NAME    LRA   &R1,&X2                                                  00000030
         DC    X'0013'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LRAG                                                                
         MACRO                                                          00000010
&NAME    LRAG  &R1,&X2                                                  00000020
&NAME    LRA   &R1,&X2                                                  00000030
         DC    X'0003'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=LURAG                                                               
         MACRO                                                          00000010
&NAME    LURAG &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B905',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=PTFF                                                                
         MACRO                                                          00000010
&NAME    PTFF  ,                                                        00000020
&NAME    DC    0H'0',X'0104'                                            00000030
         MEND                                                           00000040
./ ADD NAME=PTI                                                                 
         MACRO                                                          00000010
&NAME    PTI   &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B99E',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=SSAIR                                                               
         MACRO                                                          00000010
&NAME    SSAIR &R1                                                      00000020
&NAME    DC    0H'0',X'B99F',AL1(0),AL.4(&R1,0)                         00000030
         MEND                                                           00000040
./ ADD NAME=STCTG                                                               
         MACRO                                                          00000010
&NAME    STCTG &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0025'                 00000030
         MEND                                                           00000040
./ ADD NAME=STRAG                                                               
         MACRO                                                          00000010
&NAME    STRAG &S1,&S2                                                  00000020
&NAME    DC    0H'0',X'E502',S(&S1),S(&S2)                              00000030
         MEND                                                           00000040
./ ADD NAME=STURG                                                               
         MACRO                                                          00000010
&NAME    STURG &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B925',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=TRACG                                                               
         MACRO                                                          00000010
&NAME    TRACG &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'000F'                 00000030
         MEND                                                           00000040
./ ADD NAME=CEGR                                                                
         MACRO                                                          00000010
&NAME    CEGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3C4',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CDGR                                                                
         MACRO                                                          00000010
&NAME    CDGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3C5',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CXGR                                                                
         MACRO                                                          00000010
&NAME    CXGR  &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3C6',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CGER                                                                
         MACRO                                                          00000010
&NAME    CGER  &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3C8',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CGXR                                                                
         MACRO                                                          00000010
&NAME    CGXR  &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3CA',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MAER                                                                
         MACRO                                                          00000010
&NAME    MAER  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B32E',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MADR                                                                
         MACRO                                                          00000010
&NAME    MADR  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B33E',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MAE                                                                 
         MACRO                                                          00000010
&NAME    MAE   &R1,&R3,&X2                                              00000020
&NAME    ME    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'2E'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MAD                                                                 
         MACRO                                                          00000010
&NAME    MAD   &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'3E'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MSER                                                                
         MACRO                                                          00000010
&NAME    MSER  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B32F',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MSDR                                                                
         MACRO                                                          00000010
&NAME    MSDR  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B33F',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MSE                                                                 
         MACRO                                                          00000010
&NAME    MSE   &R1,&R3,&X2                                              00000020
&NAME    ME    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'2F'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MSD                                                                 
         MACRO                                                          00000010
&NAME    MSD   &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'3F'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MAYR                                                                
         MACRO                                                          00000010
&NAME    MAYR  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B33A',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MAYHR                                                               
         MACRO                                                          00000010
&NAME    MAYHR &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B33C',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MAYLR                                                               
         MACRO                                                          00000010
&NAME    MAYLR &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B338',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MAY                                                                 
         MACRO                                                          00000010
&NAME    MAY   &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'3A'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MAYH                                                                
         MACRO                                                          00000010
&NAME    MAYH  &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'3C'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MAYL                                                                
         MACRO                                                          00000010
&NAME    MAYL  &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'38'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MYR                                                                 
         MACRO                                                          00000010
&NAME    MYR   &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B33B',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MYHR                                                                
         MACRO                                                          00000010
&NAME    MYHR  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B33D',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MYLR                                                                
         MACRO                                                          00000010
&NAME    MYLR  &R1,&R3,&R2                                              00000020
&NAME    DC    0H'0',X'B339',AL.4(&R1,0,&R3,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=MY                                                                  
         MACRO                                                          00000010
&NAME    MY    &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'3B'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MYH                                                                 
         MACRO                                                          00000010
&NAME    MYH   &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'3D'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=MYL                                                                 
         MACRO                                                          00000010
&NAME    MYL   &R1,&R3,&X2                                              00000020
&NAME    MD    &R3,&X2                                                  00000030
         DC    AL.4(&R1,0),X'39'                                        00000040
         ORG   *-6                                                      00000050
         DC    X'ED'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CEGBR                                                               
         MACRO                                                          00000010
&NAME    CEGBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3A4',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CDGBR                                                               
         MACRO                                                          00000010
&NAME    CDGBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3A5',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CXGBR                                                               
         MACRO                                                          00000010
&NAME    CXGBR &R1,&R2                                                  00000020
&NAME    DC    0H'0',X'B3A6',AL1(0),AL.4(&R1,&R2)                       00000030
         MEND                                                           00000040
./ ADD NAME=CGEBR                                                               
         MACRO                                                          00000010
&NAME    CGEBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3A8',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CGDBR                                                               
         MACRO                                                          00000010
&NAME    CGDBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3A9',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CGXBR                                                               
         MACRO                                                          00000010
&NAME    CGXBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3AA',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CUTFU                                                               
         MACRO                                                          00000010
&NAME    CUTFU &R1,&R2,&M3                                              00000020
         LCLC  &MASK                                                    00000030
&MASK    SETC  '0'                                                      00000040
         AIF   (T'&M3 EQ 'O').DOIT                                      00000050
&MASK    SETC  '&M3'                                                    00000060
.DOIT    ANOP                                                           00000070
&NAME    DC    0H'0',X'B2A7',AL.4(&MASK,0),AL.4(&R1,&R2)                00000080
         MEND                                                           00000090
./ ADD NAME=BRCTG                                                               
         MACRO                                                          00000010
&NAME    BRCTG &R1,&I2                                                  00000020
&NAME    DC    0H'0',X'A7',AL.4(&R1,7),Y((&I2-*+2)/2)                   00000030
         MEND                                                           00000040
./ ADD NAME=BRXHG                                                               
         MACRO                                                          00000010
&NAME    BRXHG &R1,&R3,&I2                                              00000020
&NAME    DC    0H'0',X'EC',AL.4(&R1,&R3),Y((&I2-*+2)/2),X'0044'         00000030
         MEND                                                           00000040
./ ADD NAME=BRXLG                                                               
         MACRO                                                          00000010
&NAME    BRXLG &R1,&R3,&I2                                              00000020
&NAME    DC    0H'0',X'EC',AL.4(&R1,&R3),Y((&I2-*+2)/2),X'0045'         00000030
         MEND                                                           00000040
./ ADD NAME=CY                                                                  
         MACRO                                                          00000010
&NAME    CY    &R1,&X2                                                  00000020
&NAME    C     &R1,&X2                                                  00000030
         DC    X'0059'                                                  00000040
         ORG   *-6                                                      00000050
         DC    X'E3'                                                    00000060
         ORG   *+5                                                      00000070
         MEND                                                           00000080
./ ADD NAME=CSY                                                                 
         MACRO                                                          00000010
&NAME    CSY   &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0014'                 00000030
         MEND                                                           00000040
./ ADD NAME=CSG                                                                 
         MACRO                                                          00000010
&NAME    CSG   &R1,&R3,&S2                                              00000020
&NAME    DC    0H'0',X'EB',AL.4(&R1,&R3),S(&S2),X'0030'                 00000030
         MEND                                                           00000040
./ ADD NAME=CGDR                                                                
         MACRO                                                          00000010
&NAME    CGDR  &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3C9',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CFDBR                                                               
         MACRO                                                          00000010
&NAME    CFDBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B399',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CFEBR                                                               
         MACRO                                                          00000010
&NAME    CFEBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B398',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CFXBR                                                               
         MACRO                                                          00000010
&NAME    CFXBR &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B39A',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CFDR                                                                
         MACRO                                                          00000010
&NAME    CFDR  &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3B9',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CFER                                                                
         MACRO                                                          00000010
&NAME    CFER  &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3B8',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=CFXR                                                                
         MACRO                                                          00000010
&NAME    CFXR  &R1,&M3,&R2                                              00000020
&NAME    DC    0H'0',X'B3BA',AL.4(&M3,0,&R1,&R2)                        00000030
         MEND                                                           00000040
./ ADD NAME=AMODE                                                               
         MACRO                                                          00000010
&NAME    AMODE &OP1                                                     00000020
         AIF   (T'&OP1 EQ 'O').MISSING                                  00000030
         AIF   ('&OP1' EQ '24').END                                     00000040
         AIF   ('&OP1' EQ '31').WARN1                                   00000050
         AIF   ('&OP1' EQ '64').WARN1                                   00000060
         AIF   ('&OP1' EQ 'ANY').WARN1                                  00000070
         AIF   ('&OP1' EQ 'ANY31').WARN1                                00000080
         AIF   ('&OP1' EQ 'ANY64').WARN1                                00000090
         AGO   .WARN3                                                   00000100
.MISSING ANOP                                                           00000110
         MNOTE 8,'AMODE specification missing.'                         00000120
         AGO   .END                                                     00000130
.WARN1   ANOP                                                           00000140
         MNOTE 4,'Warning: AMODE ignored.'                              00000150
         AGO   .END                                                     00000160
.WARN3   ANOP                                                           00000170
         MNOTE 8,'Invalid AMODE specification.'                         00000180
         AGO   .END                                                     00000190
.END     ANOP                                                           00000200
         MEND                                                           00000210
./ ADD NAME=RMODE                                                               
         MACRO                                                          00000010
&NAME    RMODE &OP1                                                     00000020
         AIF   (T'&OP1 EQ 'O').MISSING                                  00000030
         AIF   ('&OP1' EQ '24').END                                     00000040
         AIF   ('&OP1' EQ '31').WARN1                                   00000050
         AIF   ('&OP1' EQ '64').WARN1                                   00000060
         AIF   ('&OP1' EQ 'ANY').WARN1                                  00000070
         AGO   .WARN3                                                   00000080
.MISSING ANOP                                                           00000090
         MNOTE 8,'RMODE specification missing.'                         00000100
         AGO   .END                                                     00000110
.WARN1   ANOP                                                           00000120
         MNOTE 4,'Warning: RMODE ignored.'                              00000130
         AGO   .END                                                     00000140
.WARN3   ANOP                                                           00000150
         MNOTE 8,'Invalid RMODE specification.'                         00000160
         AGO   .END                                                     00000170
.END     ANOP                                                           00000180
         MEND                                                           00000190
./ ENDUP                                                                        
)(                                                                              
//                                                                              
