* SEQUENTIAL I/O                                        HEADER  C:LNGX  0001.000
*                                                                       0002.000
*                                                                       0003.000
         M.PGM     C:LNGX,MPX-32,3.6.1,00                               0004.000
         DEF       C:LNGX                                               0005.000
         EXT       C:WRTN                                               0006.000
         EXT       C:ORTN                                               0007.000
*                                                                       0008.000
*  SPECIFY COMMON AREA USED                                             0009.000
*                                                                       0010.000
COBCOM   COMMON    COBDAT(4)                                            0011.000
         ORG       COBDAT                                               0012.000
PRECEDE  RES       1W                                                   0013.000
FITLOC   RES       1W                                                   0014.000
ATTRLOC  RES       1W                                                   0015.000
SUBRTN   RES       1W                                                   0016.000
         REL                                                            0017.000
*                                                                       0018.000
STATFRST EQU       24                                                   0019.000
ADVANCE  EQU       88                                                   0020.000
*                                                                       0021.000
*                                                                       0022.000
*                                                                       0023.000
* LINAGE SUBROUTINE RETURN                                              0024.000
*                                                                       0025.000
*                                                                       0026.000
C:LNGX   EQU       $                                                    0027.000
         LW        1,FITLOC       RESTORE FIT & ATTR'S                  0028.000
         LW        5,ATTRLOC                                            0029.000
         TBM       STATFRST,ADVANCE,1   DETERMINE CALLING ORIGIN        0030.000
         BCF       1,LNG010                                             0031.000
         ZBM       STATFRST,ADVANCE,1                                   0032.000
         BU        C:ORTN                                               0033.000
LNG010   EQU       $                                                    0034.000
         LW        0,SUBRTN       RESTORE SUBROUTINE RTN ADDR           0035.000
         BU        C:WRTN                                               0036.000
         END                                                            0037.000
